通讯/手机编程

开发平台：

Windows_Unix

ckuusr.c：源码内容

printf("?Unexpected switch value - %dn",cmresult.nresult);
x = -9;
goto xconnx;
}
}
debug(F101,"doxconn cmresult.fcode","",cmresult.fcode);
if (cmresult.fcode != _CMCFM) {
printf("?Unexpected function code: %dn",cmresult.fcode);
x = -9;
goto xconnx;
}
#ifdef OS2 /* Make results available globally */
if (pv[CONN_IL].ival > -1) /* Idle limit */
tt_idlelimit = pv[CONN_IL].ival;
if (pv[CONN_II].ival > -1) /* Idle limit */
tt_idlesnd_tmo = pv[CONN_II].ival;
if (pv[CONN_IS].sval) /* Idle string */
if (tt_idlesnd_str = (char *)malloc((int)strlen(pv[CONN_IS].sval)+1))
strcpy(tt_idlesnd_str,pv[CONN_IS].sval);
if (pv[CONN_TL].ival > -1) /* Session limit */
tt_timelimit = pv[CONN_TL].ival;
#endif /* OS2 */
#ifdef CK_TRIGGER
if (pv[CONN_TS].sval) /* Trigger strings */
makelist(pv[CONN_TS].sval,tt_trigger,TRIGGERS);
for (i = 0; i < TRIGGERS; i++) /* Trigger match pointers */
tt_trmatch[i] = NULL;
if (triggerval) { /* Reset trigger value */
free(triggerval);
triggerval = NULL;
}
#endif /* CK_TRIGGER */
x = doconect((pv[CONN_NV].ival > 0) ? 1 : 0);
#ifdef CKLOGDIAL
{
int xx;
debug(F101,"doxconn doconect returns","",x);
if ((xx = ttchk()) < 0) dologend();
debug(F101,"doxconn ttchk returns","",xx);
}
#endif /* CKLOGDIAL */
#ifdef CK_TRIGGER
debug(F111,"doxconn doconect triggerval",triggerval,x);
#endif /* CK_TRIGGER */
/* Back from CONNECT -- Restore global settings */
#ifdef OS2
tt_idlelimit = g_tt_idlelimit;
tt_idlesnd_tmo = g_tt_idlesnd_tmo;
tt_timelimit = g_tt_timelimit;
tt_idlesnd_str = g_tt_idlesnd_str;
#endif /* OS2 */
#ifdef CK_TRIGGER
for (i = 0; i < TRIGGERS; i++)
tt_trigger[i] = g_tt_trigger[i];
#endif /* CK_TRIGGER */
xconnx:
for (i = 0; i <= CONN_MAX; i++) { /* Free malloc'd memory */
if (pv[i].sval)
free(pv[i].sval);
}
success = (x > 0) ? 1 : 0;
return(x);
}
#endif /* NOLOCAL */
#ifdef ADDCMD
/* cx == XXADD or XXREMV */
/* fc == ADD_BIN or ADD_TXT */
static int
doadd(cx,fc) int cx, fc; {
#ifdef PATTERNS
char * tmp[FTPATTERNS];
char **p = NULL;
int i, n = 0, x = 0, last;
#endif /* PATTERNS */
if (cx != XXADD && cx != XXREMV) {
printf("?Unexpected function code: %dn",cx);
return(-9);
}
#ifdef PATTERNS
while (n < FTPATTERNS) { /* Collect new patterns */
tmp[n] = NULL;
if ((x = cmfld("Pattern","",&s,xxstring)) < 0)
break;
strcpy(line,s);
s = brstrip(line);
makestr(&(tmp[n++]),s);
}
if (x == -3)
x = cmcfm();
if (x < 0)
goto xdoadd;
p = (fc == ADD_BIN) ? binpatterns : txtpatterns; /* Which list */
last = 0;
for (i = 0; i < FTPATTERNS; i++) { /* Find last one in list */
if (!p[i]) {
last = i;
break;
}
}
if (cx == XXADD) { /* Adding */
if (last + n > FTPATTERNS) { /* Check if too many */
printf("?Too many patterns - %d is the maximumn", FTPATTERNS);
goto xdoadd;
}
for (i = 0; i < n; i++) /* Copy in the new ones. */
makestr(&(p[i+last]),tmp[i]);
makestr(&(p[i+last]),NULL); /* Null-terminate the list */
x = 1;
goto xdoadd; /* Done */
} else if (cx == XXREMV) { /* Remove something(s) */
int j, k;
if (last == 0) /* List is empty */
goto xdoadd; /* Nothing to remove */
for (i = 0; i < n; i++) { /* i = Patterns they typed */
for (j = 0; j < last; j++) { /* j = Patterns in list */
/* Change this to ckstrcmp()... */
if (filecase)
x = !strcmp(tmp[i],p[j]); /* Case-sensitive match */
else
x = ckstrcmp(tmp[i],p[j],-1,0); /* Case-independent match */
if (x) { /* This one matches */
makestr(&(p[j]),NULL); /* Free it */
for (k = j; k < last; k++) /* Move the rest up */
p[k] = p[k+1];
p[k] = NULL; /* Erase last one */
if (!p[k])
break;
}
}
}
}
xdoadd: /* Common exit */
for (i = 0; i < n; i++)
if (tmp[i])
free(tmp[i]);
return(x);
#endif /* PATTERNS */
}
/* ADD SEND-LIST */
static int
addsend(cx) int cx; {
#ifndef NOMSEND
extern struct keytab fttab[];
extern int nfttyp;
struct filelist * flp;
char * fmode = "";
int xmode = 0;
int xbinary = 0;
#endif /* NOMSEND */
#ifdef NOMSEND
printf("?Sorry, ADD/REMOVE SEND-LIST not available.n");
return(-9);
#endif /* NOMSEND */
if (cx == XXREMV) {
printf("?Sorry, REMOVE SEND-LIST not implemented yet.n");
return(-9);
}
#ifndef NOMSEND
#ifndef XYZ_INTERNAL
if (protocol != PROTO_K) {
printf("?Sorry, ADD SEND-LIST does not work with external protocolsn");
return(-9);
}
#endif /* XYZ_INTERNAL */
x = cmifi("File specification to add","", &s,&y,xxstring);
if (x < 0) {
if (x == -3) {
printf("?A file specification is requiredn");
return(-9);
} else
return(x);
}
strcpy(tmpbuf,s);
s = tmpbuf;
if (filesinlist == 0) /* Take care of v(filespec) */
fspec[0] = NUL;
zfnqfp(s,LINBUFSIZ,line);
s = line;
if (((int)strlen(fspec) + (int)strlen(s) + 1) < fspeclen) {
strcat(fspec,s);
strcat(fspec," ");
} else
printf("WARNING - \v(filespec) buffer overflown");
xbinary = binary;
#ifdef PATTERNS
if (patterns /* PATTERNS are ON */
#ifdef CK_LABELED
&& binary != XYFT_L /* And not if FILE TYPE LABELED */
#endif /* CK_LABELED */
#ifdef VMS
&& binary != XYFT_I /* or FILE TYPE IMAGE */
#endif /* VMS */
) {
if (binary != XYFT_T && txtpatterns[0]) {
int i;
for (i = 0; i < FTPATTERNS && txtpatterns[i]; i++) {
if (ckmatch(txtpatterns[i],line,filecase,1)) {
xbinary = XYFT_T;
break;
}
}
}
if (binary != XYFT_B && binpatterns[0]) {
int i;
for (i = 0; i < FTPATTERNS && binpatterns[i]; i++) {
if (ckmatch(binpatterns[i],line,filecase,1)) {
xbinary = XYFT_B;
break;
}
}
}
}
#endif /* PATTERNS */
fmode = gfmode(xbinary,0);
if ((x = cmkey(fttab,nfttyp,
"type of file transfer", fmode, xxstring)) < 0)
return(x);
xmode = x;
cmarg2 = "";
if ((x = cmfld(y ?
"nAs-name template containing replacement variables such as \v(filename)" :
"Name to send it with", "",&s,NULL)) < 0)
if (x != -3)
return(x);
#ifndef NOSPL
if (y && *s) {
char * p = tmpbuf;
x = TMPBUFSIZ;
zzstring(s,&p,&x);
if (!strcmp(tmpbuf,s)) {
printf(
"?As-name for file group must contain variables such as \v(filename)n"
);
return(-9);
}
}
#endif /* NOSPL */
strcpy(tmpbuf,s);
cmarg2 = tmpbuf;
if ((x = cmcfm()) < 0)
return(x);
flp = (struct filelist *) malloc(sizeof(struct filelist));
if (flp) {
if (filetail)
filetail->fl_next = flp;
filetail = flp;
if (!filehead)
filehead = flp;
x = (int) strlen(line); /* Length of filename */
s = (char *) malloc(x + 1);
if (s) {
strcpy(s,line);
flp->fl_name = s;
flp->fl_mode = xmode;
x = (int) strlen(cmarg2); /* Length of as-name */
if (x < 1) {
flp->fl_alias = NULL;
} else {
s = (char *) malloc(x + 1);
if (s) {
strcpy(s,cmarg2);
flp->fl_alias = s;
} else {
printf("Sorry, can't allocate space for as-name");
return(-9);
}
}
flp->fl_next = NULL;
filesinlist++; /* Count this node */
return(success = 1); /* Finished adding this node */
} else {
printf("Sorry, can't allocate space for name");
return(-9);
}
} else {
printf("Sorry, can't allocate file list node");
return(-9);
}
#endif /* NOMSEND */
}
#endif /* ADDCMD */
#ifndef NOHTTP /* HTTP ops... */
#ifdef TCPSOCKET
#define HTTP_GET 0 /* GET */
#define HTTP_PUT 1 /* PUT */
#define HTTP_POS 2 /* POST */
#define HTTP_IDX 3 /* INDEX */
#define HTTP_HED 4 /* HEAD */
#define HTTP_DEL 5 /* DELETE */
static struct keytab httptab[] = {
"delete", HTTP_DEL, 0,
"get", HTTP_GET, 0,
"head", HTTP_HED, 0,
"index", HTTP_IDX, 0,
"put", HTTP_PUT, 0,
"post", HTTP_POS, 0
};
static int nhttptab = sizeof(httptab)/sizeof(struct keytab);
/* HTTP switches */
#define HT_SW_AG 0 /* /AGENT */
#define HT_SW_HD 1 /* /HEADER */
#define HT_SW_US 2 /* /USER */
#define HT_SW_PW 3 /* /PASSWORD */
#define HT_SW_AR 4
static struct keytab httpswtab[] = {
"/agent", HT_SW_AG, CM_ARG,
#ifndef NOSPL
"/array", HT_SW_AR, CM_ARG,
#endif /* NOSPL */
"/header", HT_SW_HD, CM_ARG,
"/password", HT_SW_PW, CM_ARG,
"/user", HT_SW_US, CM_ARG,
"", 0, 0
};
static int nhttpswtab = sizeof(httpswtab)/sizeof(struct keytab) - 1;
/* HTTP PUT/POST switches */
#define HT_PP_MT 0 /* /MIME-TYPE */
static struct keytab httpptab[] = {
"/mime-type", HT_PP_MT, CM_ARG,
"", 0, 0
};
static int nhttpptab = sizeof(httpptab)/sizeof(struct keytab) - 1;
#define HTTP_MAXHDR 8
static int
dohttp(action, lfile, rf, agent, hdr, user, pass, mime, array)
int action; char *lfile, *rf, *agent, *hdr, *user, *pass, *mime, array;
/* dohttp */ {
int i, rc = 0;
char * hdrlist[HTTP_MAXHDR];
char rfile[CKMAXPATH+1];
/* Check for a valid state to execute the command */
if (inserver) {
printf("?The HTTP command may not be used from the IKSrn");
} else if (!local || ttchk() < 0) {
printf("?No connectionn");
} else if (!network) {
printf("?The HTTP command is not for serial connectionsn");
} else if (nettype != NET_TCPB && nettype != NET_TCPA) {
printf("?The HTTP command only for TCP/IP connectionsn");
} else {
rc = 1;
}
/* If the command is not valid, exit with failure */
if (rc == 0)
return(success = 0);
if (rf[0] != '/') {
rfile[0] = '/';
ckstrncpy(&rfile[1],rf,CKMAXPATH);
} else {
ckstrncpy(rfile,rf,CKMAXPATH);
}
for (i = 0; i < HTTP_MAXHDR; i++) /* Initialize header list */
hdrlist[i] = NULL;
makelist(hdr,hdrlist,HTTP_MAXHDR); /* Make header list */
#ifdef BETATEST
for (i = 0; i < nhttptab; i++) /* Find action keyword */
if (httptab[i].kwval == action)
break;
if (i == nhttptab) { /* Shouldn't happen... */
printf("?Invalid action - %dn",action);
return(success = 0);
}
printf("HTTP action: %sn",httptab[i].kwd);
printf(" Agent: %sn",agent ? agent : "(null)");
if (hdrlist[1]) {
printf(" Header list: 1. %sn",hdrlist[0]);
for (i = 1; i < HTTP_MAXHDR && hdrlist[i]; i++)
printf("%15d. %sn",i+1,hdrlist[i]);
} else
printf(" Header: %sn",hdrlist[0] ? hdrlist[0] : "(null)");
printf(" User: %sn",user ? user : "(null)");
printf(" Password: %sn",pass ? pass : "(null)");
#ifndef NOSPL
if (array)
printf(" Array: \%%%c[]n", array);
else
printf(" Array: (none)n");
#endif /* NOSPL */
if (action == HTTP_PUT || action == HTTP_POS)
printf(" Mime-type: %sn",mime ? mime : "(null)");
printf(" Local file: %sn",lfile ? lfile : "(null)");
printf(" Remote file: %sn",rfile ? rfile : "(null)");
#endif /* BETATEST */
switch (action) {
case HTTP_DEL:
rc = http_delete(agent,hdrlist,user,pass,array,rfile);
break;
case HTTP_GET:
rc = http_get(agent,hdrlist,user,pass,array,lfile,rfile);
break;
case HTTP_HED:
rc = http_head(agent,hdrlist,user,pass,array,lfile,rfile);
break;
case HTTP_PUT:
rc = http_put(agent,hdrlist,mime,user,pass,array,lfile,rfile);
break;
case HTTP_POS:
rc = http_post(agent,hdrlist,mime,user,pass,array,lfile,rfile);
break;
case HTTP_IDX:
rc = http_index(agent,hdrlist,user,pass,array,lfile,rfile);
break;
}
return(success = ((rc < 0) ? 0 : 1));
}
#endif /* TCPSOCKET */
#endif /* NOHTTP */
#ifndef NOSPL /* ARRAY ops... */
static struct keytab arraytab[] = {
"clear", ARR_CLR, 0,
"copy", ARR_CPY, 0,
"dcl", ARR_DCL, CM_INV,
"declare", ARR_DCL, 0,
"destroy", ARR_DST, 0,
"resize", ARR_RSZ, 0,
"set", ARR_SET, 0,
#ifndef NOSHOW
"show", ARR_SHO, 0,
#endif /* NOSHOW */
"sort", ARR_SRT, 0,
"", 0, 0
};
static int narraytab = sizeof(arraytab)/sizeof(struct keytab) - 1;
int
arrayitoa(x) int x; { /* Array index to array letter */
if (x == 1)
return(64);
else if (x < 0 || x > (122 - ARRAYBASE))
return(-1);
else
return(x + ARRAYBASE);
}
int
arrayatoi(c) int c; { /* Array letter to array index */
if (c == 64)
c = 96;
if (c > 63 && c < 91)
c += 32;
if (c < ARRAYBASE || c > 122)
return(-1);
return(c - ARRAYBASE);
}
static int
dodcl() {
int i, n, v, lo, hi, rc = 0;
int isdynamic = 0;
char ** p = NULL;
char tmp[64]; /* Local temporary string buffer */
if ((y = cmfld("Array name","",&s,NULL)) < 0) { /* Parse array name */
if (y == -3) {
printf("?Array name requiredn");
return(-9);
} else return(y);
}
#ifdef COMMENT
if ((y = arraynam(s,&x,&n)) < 0) { /* Check it */
if (y == -2 && n == -17) { /* Secret code for emtpy brackets */
isdynamic = 1;
n = CMDBL / 5;
} else {
return(y);
}
}
debug(F111,"DCL",s,n);
#else
ckstrncpy(line,s,LINBUFSIZ);
s = line;
x = arraybounds(s,&lo,&hi);
if (lo < 0 && hi < 0) {
isdynamic = 1;
n = CMDBL / 5;
} else if (hi > -1) {
printf("?Segment notation not allowed in array declarationsn");
return(-9);
} else
n = lo;
x = arrayitoa(x);
#endif /* COMMENT */
p = (char **)malloc(sizeof(char **)*(n+1));
if (!p) {
printf("?Memory allocation errorn");
return(-9);
}
v = 0; /* Highest initialized member */
p[0] = NULL; /* Element 0 */
while (n > 0 && v < n) { /* Parse initializers */
p[v+1] = NULL;
sprintf(tmp,"Initial value for \&%c[%d]",x,v+1); /* Help string */
if ((rc = cmfld((char *)tmp,"",&s,xxstring)) < 0) { /* Get field */
if (rc == -3) /* If answer is empty, we're done */
break;
else /* Parse error, free temp pointers */
goto dclx;
}
rc = 1;
if (v == 0 && !strcmp(s,"=")) /* Skip the = sign. */
continue;
s = brstrip(s); /* Strip any braces */
makestr(&(p[++v]),s);
}
if ((y = cmtxt("Carriage return to confirm","",&s,NULL)) < 0)
return(y);
if (isdynamic)
n = v;
if (dclarray((char)x,n) < 0) { /* Declare the array */
printf("?Declare failedn");
goto dclx;
}
for (i = 1; i <= v; i++) { /* Add any initial values */
sprintf(tmp,"&%c[%d]",(char)x,i);
if (addmac(tmp,p[i]) < 0) {
printf("Array initialization error: %s %sn",tmp,p[i]);
rc = -9;
goto dclx;
}
}
dclx:
if (p) {
for (i = 1; i <= v; i++)
if (p[i]) free(p[i]);
free(p);
}
debug(F101,"DCL rc","",rc);
return(success = rc);
}
static int
rszarray() {
int i, x, y, n, lo, hi;
char c, * s, ** ap = NULL;
if ((x = cmfld("Array name","",&s,NULL)) < 0) { /* Parse array name */
if (x == -3) {
printf("?Array name requiredn");
return(-9);
} else return(x);
}
ckstrncpy(line,s,LINBUFSIZ); /* Make safe copy of name */
s = line;
x = arraybounds(s,&lo,&hi);
if (lo < 0 && hi < 0) {
y = cmnum("New size","",10,&lo,xxstring);
if (y < 0) {
if (y == -3)
printf("?New size requiredn");
return(y);
}
}
if ((y = cmcfm()) < 0)
return(y);
if (x < 0) { /* Parse the name, get index */
printf("?Bad array reference - "%s"n", s);
return(-9);
}
if (!a_ptr[x]) {
printf("?Array not declared - "%s"n", s);
return(-9);
}
if (lo < 0) {
printf("?New size requiredn");
return(-9);
}
if (hi > -1) {
printf("?Array segments not allowed for this operationn");
return(-9);
}
c = arrayitoa(x); /* Get array letter */
if (c == '@') { /* Argument vector array off limits */
printf("?Sorry, \&@[] is read-onlyn");
return(-9);
}
if (lo == 0) { /* If new size is 0... */
dclarray(c,0); /* Undeclare the array */
return(success = 1);
}
n = a_dim[x]; /* Current size */
ap = (char **) malloc((lo+1) * sizeof(char *)); /* New array */
y = (n < lo) ? n : lo;
for (i = 0; i <= y; i++) /* Copy the part that fits */
ap[i] = a_ptr[x][i];
if (n < lo) { /* If original array smaller */
for (; i <= lo; i++) /* initialize extra elements in */
ap[i] = NULL; /* new array to NULL. */
} else if (n > lo) { /* If new array smaller */
for (; i <= lo; i++) /* deallocate leftover elements */
makestr(&(a_ptr[x][i]),NULL); /* from original array. */
}
free(a_ptr[x]); /* Free original array list */
a_ptr[x] = ap; /* Replace with new one */
a_dim[x] = lo; /* Record the new dimension */
return(success = 1);
}
static int
copyarray() {
int i, j, x1, lo1, hi1, x2, lo2, hi2, whole = 0;
char c1, c2, * a1, * a2;
if ((y = cmfld("Name of source array","",&s,NULL)) < 0)
return(y);
ckstrncpy(line,s,LINBUFSIZ);
a1 = line;
if ((x1 = arraybounds(a1,&lo1,&hi1)) < 0) {
printf("?Bad array reference - "%s"n", a1);
return(-9);
} else if (!a_ptr[x1]) {
printf("?Array not declared - "%s"n", a1);
return(-9);
}
c1 = arrayitoa(x1);
if ((y = cmfld("Name of destination array","",&s,NULL)) < 0)
return(y);
ckstrncpy(tmpbuf,s,TMPBUFSIZ);
a2 = tmpbuf;
if ((x2 = arraybounds(a2,&lo2,&hi2)) < 0) {
printf("?Bad array reference - "%s"n", a2);
return(-9);
}
c2 = arrayitoa(x2);
if ((x = cmcfm()) < 0)
return(x);
if (c2 == '@') { /* Argument vector array off limits */
printf("?Sorry, \&@[] is read-onlyn");
return(-9);
}
if (lo1 < 0 && lo2 < 0 && hi1 < 0 && hi2 < 0) /* Special case for */
whole = 1; /* whole array... */
if (lo1 < 0) lo1 = whole ? 0 : 1; /* Supply lower bound of source */
if (hi1 < 0) hi1 = a_dim[x1]; /* Supply upper bound of source */
if (lo2 < 0) lo2 = whole ? 0 : 1; /* Lower bound of target */
if (hi2 < 0) hi2 = lo2 + hi1 - lo1; /* Upper bound of target */
if (a_ptr[x2]) { /* Target array is already declared? */
if (hi2 > a_dim[x2]) /* If upper bound out of range */
hi2 = a_dim[x2]; /* shrink to fit */
} else { /* Otherwise... */
x2 = dclarray(c2, hi2); /* declare the target array */
}
for (i = lo1, j = lo2; i <= hi1 && j <= hi2; i++,j++) { /* Copy */
makestr(&(a_ptr[x2][j]),a_ptr[x1][i]);
}
return(success = 1);
}
static int /* Undeclare an array */
unarray() {
int x, y, n, rc = 0;
char c, * s;
if ((y = cmfld("Array name","",&s,NULL)) < 0) { /* Parse array name */
if (y == -3) {
printf("?Array name requiredn");
return(-9);
} else return(y);
}
ckstrncpy(line,s,LINBUFSIZ); /* Make safe copy of name */
s = line;
if ((y = cmcfm()) < 0)
return(y);
if ((x = arraybounds(s,&y,&n)) < 0) { /* Parse the name, get index */
printf("?Bad array reference - "%s"n", s);
return(-9);
}
if (y > 0 || n > 0) {
printf("?Partial arrays can not be destroyedn");
return(-9);
}
c = arrayitoa(x); /* Get array letter */
if (a_ptr[x]) { /* If array is declared */
if (c == '@') { /* Argument vector array off limits */
printf("?Sorry, \&@[] is read-onlyn");
return(-9);
}
rc = dclarray(c,0); /* Undeclare the array */
} else /* It wasn't declared */
rc = 1;
if (rc > -1) { /* Set return code and success */
success = 1;
rc = 1;
} else {
success = 0;
printf("?Failed - destroy "\&%c[]"n", c);
rc = -9;
}
return(rc);
}
static int
clrarray(cx) int cx; {
int i, x, lo, hi;
char c, * s, * val = NULL;
if ((x = cmfld("Array name","",&s,NULL)) < 0) { /* Parse array name */
if (x == -3) {
printf("?Array name requiredn");
return(-9);
} else return(x);
}
ckstrncpy(line,s,LINBUFSIZ); /* Make safe copy of name */
s = line;
if (cx == ARR_SET) { /* SET */
if ((x = cmtxt("Value","",&val,xxstring)) < 0)
return(x);
ckstrncpy(tmpbuf,val,TMPBUFSIZ); /* Value to set */
val = tmpbuf;
if (!*val) val = NULL;
} else if ((x = cmcfm()) < 0) /* CLEAR */
return(x);
if ((x = arraybounds(s,&lo,&hi)) < 0) { /* Parse the name */
printf("?Bad array reference - "%s"n", s);
return(-9);
}
c = arrayitoa(x); /* Get array letter */
if (!a_ptr[x]) { /* If array is declared */
printf("?Array %s is not declaredn", s);
return(-9);
} else if (c == '@') { /* Argument vector array off limits */
printf("?Sorry, \&@[] is read-onlyn");
return(-9);
}
if (lo < 0) lo = 0;
if (hi < 0) hi = a_dim[x];
for (i = lo; i <= hi; i++) /* Clear/Set selected range */
makestr(&(a_ptr[x][i]),val);
return(success = 1);
}
#endif /* NOSPL */
/* D O C M D -- Do a command */
/*
Returns:
-2: user typed an illegal command
-1: reparse needed
0: parse was successful (even tho command may have failed).
*/
int
docmd(cx) int cx; {
debug(F101,"docmd entry, cx","",cx);
activecmd = cx;
doconx = ((activecmd == XXCON) || (activecmd == XXTEL) ||
(activecmd == XXRLOG) || (activecmd == XXPIPE) ||
(activecmd == XXIKSD) || (activecmd == XXPTY));
/*
Massive switch() broken up into many smaller ones, for the benefit of
compilers that run out of space when trying to handle large switch
statements.
*/
switch (cx) {
case -4: /* EOF */
#ifdef OSK
if (msgflg) printf("n");
#else
if (msgflg) printf("rn");
#endif /* OSK */
doexit(GOOD_EXIT,xitsta);
case -3: /* Null command */
return(0);
case -9: /* Like -2, but errmsg already done */
case -1: /* Reparse needed */
return(cx);
case -6: /* Special */
case -2: /* Error, maybe */
#ifndef NOSPL
/*
Maybe they typed a macro name. Let's look it up and see.
*/
if (cx == -6) /* If they typed CR */
strcat(cmdbuf,"15"); /* add it back to command buffer. */
if (ifcmd[cmdlvl] == 2) /* Watch out for IF commands. */
ifcmd[cmdlvl]--;
repars = 1; /* Force reparse */
cmres();
cx = XXDO; /* Try DO command */
#else
return(cx);
#endif /* NOSPL */
default:
break;
}
#ifndef NOSPL
/* Copy macro args from/to two levels up, used internally by _floop et al. */
if (cx == XXGTA || cx == XXPTA) { /* _GETARGS, _PUTARGS */
int x;
debug(F101,"docmd XXGTA","",XXGTA);
debug(F101,"docmd cx","",cx);
debug(F101,"docmd XXGTA maclvl","",maclvl);
x = dogta(cx);
debug(F101,"docmd dogta returns","",x);
debug(F101,"docmd dogta maclvl","",maclvl);
return(x);
}
#endif /* NOSPL */
#ifndef NOSPL
#ifdef CKCHANNELIO
if (cx == XXFILE)
return(dofile(cx));
else if (cx == XXF_RE || cx == XXF_WR || cx == XXF_OP ||
cx == XXF_CL || cx == XXF_SE || cx == XXF_RW ||
cx == XXF_FL || cx == XXF_LI || cx == XXF_ST || cx == XXF_CO)
return(dofile(cx));
#endif /* CKCHANNELIO */
/* ASK, ASKQ, READ */
if (cx == XXASK || cx == XXASKQ || cx == XXREA ||
cx == XXRDBL || cx == XXGETC || cx == XXGETK) {
return(doask(cx));
}
#endif /* NOSPL */
#ifndef NOFRILLS
if (cx == XXBUG) { /* BUG */
if ((x = cmcfm()) < 0) return(x);
return(dobug());
}
#endif /* NOFRILLS */
#ifndef NOXFER
if (cx == XXBYE) { /* BYE */
bye_active = 1;
#ifdef CK_XYZ
if (protocol != PROTO_K) {
printf("Sorry, BYE only works with Kermit protocoln");
return(-9);
}
#endif /* CK_XYZ */
if ((x = cmcfm()) < 0) return(x);
#ifdef IKS_OPTION
if (!iks_wait(KERMIT_REQ_START,1)) {
printf(
"?A Kermit Server is unavailable to process this commandn");
return(-9); /* Correct the return code */
}
#endif /* IKS_OPTION */
sstate = setgen('L',"","","");
if (local) ttflui(); /* If local, flush tty input buffer */
return(0);
}
#endif /* NOXFER */
if (cx == XXBEEP) { /* BEEP */
int x;
#ifdef OS2
int y;
if ((y = cmkey(beeptab, nbeeptab, "which kind of beep", "information",
xxstring)) < 0 )
return (y);
if ((x = cmcfm()) < 0) return(x);
bleep((short)y); /* y is one of the BP_ values */
#else /* OS2 */
if ((x = cmcfm()) < 0) return(x);
#ifndef NOSPL
bleep(BP_NOTE);
#else
putchar('7');
#endif /* NOSPL */
#endif /* OS2 */
return(0);
}
#ifndef NOFRILLS
if (cx == XXCLE) { /* CLEAR */
if ((x = cmkey(clrtab,nclear,"item to clear",
#ifdef NOSPL
"device-buffer"
#else
"device-and-input"
#endif /* NOSPL */
,xxstring)) < 0) return(x);
#ifndef NOSPL
#ifdef OS2
if (x == CLR_CMD || x == CLR_TRM) {
if ((z = cmkey(clrcmdtab,nclrcmd,"how much screen to clearn",
"all",xxstring)) < 0)
return(z);
}
#endif /* OS2 */
#endif /* NOSPL */
if ((y = cmcfm()) < 0) return(y);
/* Clear device input buffer if requested */
y = (x & CLR_DEV) ? ttflui() : 0;
if (x & CLR_SCR) /* CLEAR SCREEN */
y = ck_cls(); /* (= SCREEN CLEAR = CLS) */
#ifndef NOSPL
/* Clear INPUT command buffer if requested */
if (x & CLR_INP) {
for (z = 0; z < inbufsize; z++)
inpbuf[z] = NUL;
inpbp = inpbuf;
y = 0;
}
#ifdef CK_APC
if (x & CLR_APC) {
debug(F101,"Executing CLEAR APC","",apcactive);
apcactive = 0;
y = 0;
}
#endif /* CK_APC */
if (x & CLR_ALR) {
setalarm(0L);
y = 0;
}
#endif /* NOSPL */
#ifdef PATTERNS
if (x & CLR_TXT|CLR_BIN) {
int i;
for (i = 0; i < FTPATTERNS; i++) {
if (x & CLR_TXT)
makestr(&txtpatterns[i],NULL);
if (x & CLR_BIN)
makestr(&binpatterns[i],NULL);
}
y = 0;
}
#endif /* PATTERNS */
#ifndef NODIAL
if (x & CLR_DIA) {
dialsta = DIA_UNK;
y = 0;
}
#endif /* NODIAL */
#ifndef NOMSEND
if (x & CLR_SFL) { /* CLEAR SEND-LIST */
if (filehead) {
struct filelist * flp, * next;
flp = filehead;
while (flp) {
if (flp->fl_name)
free(flp->fl_name);
if (flp->fl_alias)
free(flp->fl_alias);
next = flp->fl_next;
free(flp);
flp = next;
}
}
filesinlist = 0;
filehead = NULL;
filetail = NULL;
y = 0;
}
#endif /* NOMSEND */
#ifdef OS2
switch (x) {
case CLR_SCL:
clearscrollback(VTERM);
break;
case CLR_CMD:
switch ( z ) {
case CLR_C_ALL:
clear();
break;
case CLR_C_BOS:
clrboscr_escape(VCMD,SP);
break;
case CLR_C_BOL:
clrbol_escape(VCMD,SP);
break;
case CLR_C_EOL:
clrtoeoln(VCMD,SP);
break;
case CLR_C_EOS:
clreoscr_escape(VCMD,SP);
break;
case CLR_C_LIN:
clrline_escape(VCMD,SP);
break;
case CLR_C_SCR:
clearscrollback(VCMD);
break;
default:
printf("Not implemented yet, sorry.n");
break;
}
break;
case CLR_TRM:
switch ( z ) {
case CLR_C_ALL:
if (VscrnGetBufferSize(VTERM) > 0 ) {
VscrnScroll(VTERM, UPWARD, 0,
VscrnGetHeight(VTERM)-(tt_status?2:1),
VscrnGetHeight(VTERM) -
(tt_status?1:0), TRUE, SP
);
cleartermscreen(VTERM);
}
break;
case CLR_C_BOS:
clrboscr_escape(VTERM,SP);
break;
case CLR_C_BOL:
clrbol_escape(VTERM,SP);
break;
case CLR_C_EOL:
clrtoeoln(VTERM,SP);
break;
case CLR_C_EOS:
clreoscr_escape(VTERM,SP);
break;
case CLR_C_LIN:
clrline_escape(VTERM,SP);
break;
case CLR_C_SCR:
clearscrollback(VTERM);
break;
default:
printf("Not implemented yet, sorry.n");
break;
}
break;
}
y = 0;
#endif /* OS2 */
return(success = (y == 0));
}
#endif /* NOFRILLS */
if (cx == XXCOM) { /* COMMENT */
if ((x = cmtxt("Text of comment line","",&s,NULL)) < 0)
return(x);
/* Don't change SUCCESS flag for this one */
return(0);
}
#ifndef NOLOCAL
if (cx == XXCON || cx == XXCQ) /* CONNECT or CONNECT /QUIETLY */
return(doxconn(cx));
#endif /* NOLOCAL */
#ifndef NOFRILLS
#ifdef ZCOPY
if (cx == XXCPY) { /* COPY a file */
#ifdef IKSD
if (inserver && !ENABLED(en_cpy)) {
printf("?Sorry, COPY is disabledn");
return(-9);
}
#endif /* IKSD */
#ifdef CK_APC
if (apcactive == APC_LOCAL ||
(apcactive == APC_REMOTE && apcstatus != APC_UNCH)
)
return(success = 0);
#endif /* CK_APC */
return(docopy());
}
#endif /* ZCOPY */
#endif /* NOFRILLS */
if (cx == XXCWD || cx == XXBACK) { /* CD or BACK */
#ifdef IKSD
if (inserver && !ENABLED(en_cwd)) {
printf("?Sorry, changing directories is disabledn");
return(-9);
}
#endif /* IKSD */
return(success = docd(cx));
}
if (cx == XXCHK) /* CHECK */
return(success = dochk());
if (cx == XXCLO) { /* CLOSE */
x = cmkey(clstab,ncls,""CONNECTION", or log or file to close",
"connection",xxstring);
if (x == -3) {
printf("?You must say which file or logn");
return(-9);
}
if (x < 0) return(x);
if ((y = cmcfm()) < 0) return(y);
#ifndef NOLOCAL
if (x == 9999) { /* CLOSE CONNECTION */
x = clsconnx(0);
switch (x) {
case 0:
if (msgflg) printf("?Connection was not openn");
case -1:
return(0);
case 1:
whyclosed = WC_CLOS;
return(1);
}
return(0);
}
#endif /* NOLOCAL */
y = doclslog(x);
success = (y == 1);
return(success);
}
#ifndef NOSPL
if (cx == XX_INCR || cx == XXINC || /* _INCREMENT, INCREMENT */
cx == XX_DECR || cx == XXDEC) /* _DECREMENT, DECREMENT */
return(doincr(cx));
if (cx == XXEVAL || cx == XX_EVAL) { /* _EVALUATE, EVALUATE */
char *p;
char vnambuf[VNAML], * vnp = NULL; /* These must be on the stack */
if (!oldeval) {
if ((y = cmfld("Variable name","",&s,
((cx == XX_EVAL) ? xxstring : NULL))) < 0) {
if (y == -3) {
printf("?Variable name requiredn");
return(-9);
} else return(y);
}
ckstrncpy(vnambuf,s,VNAML); /* Make a copy. */
vnp = vnambuf;
if (vnambuf[0] == CMDQ &&
(vnambuf[1] == '%' || vnambuf[1] == '&'))
vnp++;
y = 0;
if (*vnp == '%' || *vnp == '&') {
if ((y = parsevar(vnp,&x,&z)) < 0)
return(y);
}
}
if ((x = cmtxt("Integer arithmetic expression","",&s,xxstring)) < 0)
return(x);
p = evala(s);
if (!p) p = "";
if (oldeval && *p)
printf("%sn", p);
ckstrncpy(evalbuf,p,32);
if (!oldeval)
return(success = addmac(vnambuf,p));
else
return(success = *p ? 1 : 0);
}
#endif /* NOSPL */
#ifndef NOSPL
if (cx == XXDEF || cx == XXASS ||
cx == XXDFX || cx == XXASX || cx == XXUNDEF) {
#ifdef IKSD
if (inserver && !ENABLED(en_asg)) {
printf("?Sorry, DEFINE/ASSIGN disabledn");
return(-9);
}
#endif /* IKSD */
if (atmbuf[0] == '.' && !atmbuf[1]) /* "." entered as keyword */
xxdot = 1; /* i.e. with space after it... */
return(dodef(cx)); /* DEFINE, ASSIGN, etc... */
}
#endif /* NOSPL */
#ifndef NOSPL
if (cx == XXDCL) { /* DECLARE an array */
return(dodcl());
}
#endif /* NOSPL */
#ifndef NODIAL
if (cx == XXRED || cx == XXDIAL || cx == XXPDIA ||
cx == XXANSW || cx == XXLOOK) { /* DIAL, REDIAL etc */
#ifdef VMS
extern int batch;
#else
#ifdef UNIXOROSK
extern int backgrd;
#endif /* UNIXOROSK */
#endif /* VMS */
x = dodial(cx);
debug(F101,"dodial returns","",x);
if ((cx == XXDIAL || cx == XXRED || cx == XXANSW) &&
(x > 0) && /* If DIAL or REDIAL succeeded */
(dialsta != DIA_PART) && /* and it wasn't partial */
(dialcon > 0)) {
if ((dialcon == 1 || /* And DIAL CONNECT is ON, */
(dialcon == 2) && /* or DIAL CONNECT is AUTO */
!cmdsrc() /* and we're at top level... */
#ifdef VMS
&& !batch /* Not if running from batch */
#else
#ifdef UNIXOROSK
&& !backgrd /* Not if running in background */
#endif /* UNIXOROSK */
#endif /* VMS */
)) /* Or AUTO */
x = doconect(dialcq); /* Then also CONNECT */
#ifdef CKLOGDIAL
if (ttchk() < 0)
dologend();
#endif /* CKLOGDIAL */
}
return(success = x);
}
#endif /* NODIAL */
#ifndef NOPUSH
#ifdef CK_REXX
if (cx == XXREXX) { /* REXX */
extern int nopush;
if ( nopush )
return(success=0);
return(dorexx());
}
#endif /* CK_REXX */
#endif /* NOPUSH */
#ifndef NOFRILLS
if (cx == XXDEL) { /* DELETE */
#ifdef IKSD
if (inserver && (!ENABLED(en_del)
#ifdef CK_LOGIN
|| isguest
#endif /* CK_LOGIN */
)) {
printf("?Sorry, DELETE is disabledn");
return(-9);
}
#endif /* IKSD */
#ifdef CK_APC
if (apcactive == APC_LOCAL ||
apcactive == APC_REMOTE && apcstatus != APC_UNCH) return(success = 0);
#endif /* CK_APC */
return(dodel());
}
#endif /* NOFRILLS */
if (cx == XXDIR || cx == XXLS) { /* DIRECTORY or LS */
#ifdef IKSD
if (inserver && !ENABLED(en_dir)) {
printf("?Sorry, DIRECTORY is disabledn");
return(-9);
}
#endif /* IKSD */
return(dodir(cx));
}
#ifndef NOSPL
if (cx == XXELS) /* ELSE */
return(doelse());
#endif /* NOSPL */
#ifndef NOSERVER
#ifndef NOFRILLS
if (cx == XXENA || cx == XXDIS) { /* ENABLE, DISABLE */
s = (cx == XXENA) ?
"Server function to enable" :
"Server function to disable";
if ((x = cmkey(enatab,nena,s,"",xxstring)) < 0) {
if (x == -3) {
printf("?Name of server function requiredn");
return(-9);
} else return(x);
}
if ((y = cmkey(kmstab,3,"mode","both",xxstring)) < 0) {
if (y == -3) {
printf("?Please specify remote, local, or bothn");
return(-9);
} else return(y);
}
if (cx == XXDIS) /* Disabling, not enabling */
y = 3 - y;
if ((z = cmcfm()) < 0) return(z);
#ifdef CK_APC
if (apcactive == APC_LOCAL ||
apcactive == APC_REMOTE && apcstatus != APC_UNCH)
return(success = 0);
#endif /* CK_APC */
#ifdef IKSD
/* This may seem like it duplicates the work in doenable() */
/* but this code returns failure whereas doenable() returns */
/* success. */
if (inserver &&
(x == EN_HOS || x == EN_PRI || x == EN_MAI || x == EN_WHO))
return(success = 0);
#endif /* IKSD */
return(doenable(y,x));
}
#endif /* NOFRILLS */
#endif /* NOSERVER */
#ifndef NOSPL
if (cx == XXRET) { /* RETURN */
if ((x = cmtxt("optional return value","",&s,NULL)) < 0)
return(x);
s = brstrip(s); /* Strip braces */
if (cmdlvl == 0) { /* At top level, nothing happens... */
return(success = 1);
} else if (cmdstk[cmdlvl].src == CMD_TF) { /* In TAKE file, like POP */
popclvl(); /* pop command level */
return(success = 1); /* always succeeds */
} else if (cmdstk[cmdlvl].src == CMD_MD) { /* Within macro */
return(doreturn(s)); /* Trailing text is return value. */
} else return(-2);
}
#endif /* NOSPL */
#ifndef NOSPL
if (cx == XXDO || cx == XXMACRO) { /* DO (a macro) */
char mnamebuf[16];
struct FDB kw, fl;
if (cx == XXDO) {
if (nmac == 0) {
printf("n?No macros definedn");
return(-9);
}
for (y = 0; y < nmac; y++) { /* copy the macro table into a */
mackey[y].kwd = mactab[y].kwd; /* regular keyword table */
mackey[y].kwval = y; /* with value = pointer to macro tbl */
mackey[y].flgs = mactab[y].flgs;
}
cmfdbi(&kw, /* First FDB - command switches */
_CMKEY, /* fcode */
"Macro", /* hlpmsg */
"", /* default */
"", /* addtl string data */
nmac, /* addtl numeric data 1: tbl size */
0, /* addtl numeric data 2: 0 = cmkey */
xxstring, /* Processing function */
mackey, /* Keyword table */
&fl /* Pointer to next FDB */
);
cmfdbi(&fl, /* 2nd FDB - for "{" */
_CMFLD, /* fcode */
"", /* hlpmsg */
"",
"", /* addtl string data */
0, /* addtl numeric data 1 */
0, /* addtl numeric data 2 */
xxstring,
NULL,
NULL
);
x = cmfdb(&kw); /* Parse something */
if (x < 0) { /* Error */
if (x == -3) {
printf("?Macro name requiredn");
return(-9);
} else
return(x);
}
if (cmresult.fcode == _CMKEY) {
if ((y = cmtxt("optional arguments","",&s,xxstring)) < 0)
return(y); /* get args */
return(dodo(x,s,cmdstk[cmdlvl].ccflgs) < 1 ?
(success = 0) : 1);
}
ckstrncpy(line,cmresult.sresult,LINBUFSIZ); /* _CMFLD */
if (atmbuf[0] == '{') {
if ((y = cmcfm()) < 0)
return(y);
}
} else { /* XXMACRO */
int k = 0;
line[k++] = '{';
line[k++] = SP;
if ((y = cmtxt("braced list of commands","",&s,xxstring)) < 0)
return(y);
ckstrncpy(line+k,s,LINBUFSIZ);
}
x = strlen(line);
if (line[0] != '{' && line[x-1] != '}') {
if (x > 0)
printf("?Not a command or macro name: "%s"n",line);
else
printf("?Not a command or macro name.n");
return(-9);
}
s = brstrip(line);
sprintf(mnamebuf," ..tmp:%03d",cmdlvl);
x = addmac(mnamebuf,s);
return(dodo(x,NULL,cmdstk[cmdlvl].ccflgs) < 1 ?
(success = 0) : 1);
}
#endif /* NOSPL */
if (cx == XXECH || cx == XXXECH
#ifndef NOSPL
|| cx == XXAPC
#endif /* NOSPL */
) { /* ECHO or APC */
if ((x = cmtxt((cx == XXECH || cx == XXXECH) ?
"Text to be echoed" :
"Application Program Command text",
"",&s,xxstring)) < 0)
return(x);
s = brstrip(s); /* Strip braces */
if (cx == XXECH) { /* ECHO */
#ifndef NOSPL
if (!fndiags || fnsuccess)
#endif /* NOSPL */
printf("%sn",s);
} else if (cx == XXXECH) { /* XECHO */
printf("%s",s);
#ifdef UNIX
fflush(stdout);
#endif /* UNIX */
} else { /* APC */
#ifdef CK_APC
if (apcactive == APC_LOCAL ||
apcactive == APC_REMOTE && apcstatus != APC_UNCH)
return(success = 0);
#endif /* CK_APC */
if (!local) {
printf("%c_%s%c\",ESC,s,ESC);
#ifdef UNIX
fflush(stdout);
#endif /* UNIX */
} else {
#ifndef NOSPL
sprintf(tmpbuf,"%c_%s%c\",ESC,s,ESC);
return(success = dooutput(tmpbuf, XXOUT));
#else
printf("%c_%s%c\",ESC,s,ESC);
#endif /* NOSPL */
}
}
return(success = 1); /* Always succeeds */
}
#ifndef NOSPL
if (cx == XXOPE) /* OPEN */
return(doopen());
#endif /* NOSPL */
#ifndef NOSPL
if (cx == XXOUT || cx == XXLNOUT) { /* OUTPUT or LINEOUT */
if ((x = cmtxt("Text to be output","",&s,NULL)) < 0)
return(x);
#ifdef CK_APC
if (apcactive == APC_LOCAL ||
apcactive == APC_REMOTE && apcstatus != APC_UNCH)
return(success = 0);
#endif /* CK_APC */
debug(F110,"OUTPUT 1",s,0);
s = brstrip(s); /* Strip enclosing braces, */
debug(F110,"OUTPUT 2",s,0);
/*
I don't think I could ever fully explain this in a million years...
We have read the user's string without calling the variable-expander
function. Now, before we call it, we have to double backslashes that
appear before N, B, L, and itself, so the expander function will
reduce them back to single backslashes, so when we call dooutput()...
But it's more complicated than that.
*/
if (cmdgquo()) { /* Only if COMMAND QUOTING ON ... */
for (x = 0, y = 0; s[x]; x++, y++) {
if (s[x] == CMDQ) {
char c = s[x+1];
if (c == 'n' || c == 'N' ||
c == 'b' || c == 'B' ||
c == 'l' || c == 'L' ||
c == CMDQ)
line[y++] = CMDQ;
}
line[y] = s[x];
}
line[y++] = ''; /* Now expand variables, etc. */
debug(F110,"OUTPUT 3",line,0);
s = line+y+1;
x = LINBUFSIZ - (int) strlen(line) - 1;
debug(F101,"OUTPUT size","",x);
if (zzstring(line,&s,&x) < 0)
return(success = 0);
s = line+y+1;
debug(F110,"OUTPUT 4",s,0);
}
success = dooutput(s,cx);
return(success);
}
#endif /* NOSPL */
#ifdef ANYX25
#ifndef IBMX25
if (cx == XXPAD) { /* PAD commands */
x = cmkey(padtab,npadc,"PAD command","",xxstring);
if (x == -3) {
printf("?You must specify a PAD command to executen");
return(-9);
}
if (x < 0) return(x);
switch (x) {
case XYPADL:
if (x25stat() < 0)
printf("Sorry, you must 'set network' & 'set host' firstrn");
else {
x25clear();
initpad();
}
break;
case XYPADS:
if (x25stat() < 0)
printf("Not connectedrn");
else {
extern int linkid, lcn;
conol("Connected thru ");
conol(ttname);
printf(", Link id %d, Logical channel number %drn",
linkid,lcn);
}
break;
case XYPADR:
if (x25stat() < 0)
printf("Sorry, you must 'set network' & 'set host' firstrn");
else
x25reset(0,0);
break;
case XYPADI:
if (x25stat() < 0)
printf("Sorry, you must 'set network' & 'set host' firstrn");
else
x25intr(0);
}
return(0);
}
#endif /* IBMX25 */
#endif /* ANYX25 */
#ifndef NOSPL
if (cx == XXPAU || cx == XXWAI || cx == XXMSL) /* PAUSE, WAIT, etc */
return(dopaus(cx));
#endif /* NOSPL */
#ifndef NOFRILLS
if (cx == XXPRI) {
#ifdef IKSD
#ifdef CK_LOGIN
if (inserver && (isguest || !ENABLED(en_pri))) {
printf("?Sorry, printing is disabledn");
return(-9);
}
#endif /* CK_LOGIN */
#endif /* IKSD */
if ((x = cmifi("File to print","",&s,&y,xxstring)) < 0) {
if (x == -3) {
printf("?A file specification is requiredn");
return(-9);
} else return(x);
}
if (y != 0) {
printf("?Wildcards not allowedn");
return(-9);
}
ckstrncpy(line,s,LINBUFSIZ);
s = "";
#ifndef NT
if ((x = cmtxt("Local print command options, or carriage return","",&s,
xxstring)) < 0)
return(x);
#endif /* NT */
if ((x = cmcfm()) < 0)
return(x);
return(success = (zprint(s,line) == 0) ? 1 : 0);
}
#endif /* NOFRILLS */
#ifndef NOPUSH
#ifdef TCPSOCKET
if (cx == XXPNG) /* PING an IP host */
return(doping());
if (cx == XXFTP) /* FTP an IP host */
return(doftp());
#endif /* TCPSOCKET */
#endif /* NOPUSH */
if (cx == XXPWD) { /* PWD */
char *pwp;
if ((x = cmcfm()) < 0)
return(x);
#ifndef MAC
#ifndef OS2
#ifdef UNIX
printf("%sn",zgtdir());
#else
xsystem(PWDCMD);
#endif /* UNIX */
return(success = 1); /* Blind faith */
#else /* OS2 */
if (pwp = zgtdir()) {
printf("%sn",pwp);
return(success = ((int)strlen(pwp) > 0));
} else return(success = 0);
#endif /* OS2 */
#else /* MAC */
if (pwp = zgtdir()) {
printf("%sn",pwp);
return(success = ((int)strlen(pwp) > 0));
} else return(success = 0);
#endif /* MAC */
}
if (cx == XXQUI || cx == XXEXI) { /* EXIT, QUIT */
if ((y = cmnum("exit status code","",10,&x,xxstring)) < 0) {
if (y == -3)
x = xitsta;
else return(y);
}
if ((y = cmtxt("Optional EXIT message","",&s,xxstring)) < 0)
return(y);
s = brstrip(s);
ckstrncpy(line,s,LINBUFSIZ);
if ((y = cmcfm()) < 0) return(y);
if (!hupok(0)) /* Check if connection still open */
return(success = 0);
if (line[0]) /* Print EXIT message if given */
printf("%sn",(char *)line);
#ifdef VMS
doexit(GOOD_EXIT,x);
#else
#ifdef OSK
/* Returning any codes here makes the OS-9 shell print an error message. */
doexit(GOOD_EXIT,-1);
#else
#ifdef datageneral
doexit(GOOD_EXIT,x);
#else
doexit(x,-1);
#endif /* datageneral */
#endif /* OSK */
#endif /* VMS */
}
#ifndef NOXFER
#ifndef NOFRILLS
if (cx == XXERR) { /* ERROR */
#ifdef CK_XYZ
if (protocol != PROTO_K) {
printf("Sorry, E-PACKET only works with Kermit protocoln");
return(-9);
}
#endif /* CK_XYZ */
if ((x = cmcfm()) < 0) return(x);
ttflui();
epktflg = 1;
sstate = 'a';
return(0);
}
#endif /* NOFRILLS */
if (cx == XXFIN) { /* FINISH */
#ifdef CK_XYZ
if (protocol != PROTO_K) {
printf("Sorry, FINISH only works with Kermit protocoln");
return(-9);
}
#endif /* CK_XYZ */
if ((x = cmcfm()) < 0) return(x);
#ifdef IKS_OPTION
if (!iks_wait(KERMIT_REQ_START,1)) {
printf(
"?A Kermit Server is unavailable to process this commandn");
return(-9); /* Correct the return code */
}
#endif /* IKS_OPTION */
sstate = setgen('F',"","","");
if (local) ttflui(); /* If local, flush tty input buffer */
return(0);
}
#endif /* NOXFER */
#ifndef NOSPL
if (cx == XXFOR) /* FOR loop */
return(dofor());
#endif /* NOSPL */
#ifndef NOXFER
/* GET MGET REGET RETRIEVE etc */
if (cx == XXGET || cx == XXMGET || cx == XXREGET || cx == XXRETR) {
#ifdef IKSD
if (inserver && !ENABLED(en_sen)) {
printf("?Sorry, reception of files is disabledn");
return(-9);
}
#endif /* IKSD */
return(doxget(cx));
}
#endif /* NOXFER */
#ifndef NOSPL
#ifndef NOFRILLS
if (cx == XXGOK) { /* GETOK */
return(success = doask(cx));
}
#endif /* NOFRILLS */
#endif /* NOSPL */
if (cx == XXHLP) { /* HELP */
#ifdef NOHELP
return(dohlp(XXHLP));
#else
x = cmkey2(cmdtab,ncmd,"C-Kermit command","help",toktab,xxstring,3);
debug(F101,"HELP command x","",x);
if (x == -5) {
y = chktok(toktab);
debug(F101,"top-level cmkey token","",y);
ungword();
switch (y) {
#ifndef NOPUSH
case '!': x = XXSHE; break;
#endif /* NOPUSH */
case '#': x = XXCOM; break;
case ';': x = XXCOM; break;
#ifndef NOSPL
case '.': x = XXDEF; break;
case ':': x = XXLBL; break;
#endif /* NOSPL */
case '&': x = XXECH; break;
default:
printf("n?Invalid - %sn",cmdbuf);
x = -2;
}
}
return(dohlp(x));
#endif /* NOHELP */
}
#ifndef NOHELP
if (cx == XXINT) /* INTRO */
return(hmsga(introtxt));
if (cx == XXNEW) { /* NEWS */
int x;
extern char * k_info_dir;
x = hmsga(newstxt);
if (k_info_dir) {
printf("The ckermit2.txt file can be found in %s.n",
k_info_dir
);
}
#ifdef UNIX
printf(
"Type "man kermit" at the shell prompt to view the Kermit man page.nn"
);
#else
#ifdef VMS
printf(
"Type "help kermit" at the DCL prompt to view the Kermit help topic.nn"
);
#endif /* VMS */
#endif /* UNIX */
return(x);
}
#ifdef OS2ONLY
if (cx == XXUPD) { /* View UPDATE file */
extern char exedir[];
char * pTopic;
char updstr[2048];
if ((x = cmtxt("topic name","",&pTopic,xxstring)) < 0)
return x;
sprintf(updstr,
"start view %s\docs\k2.inf+%s\docs\using_ck.inf+
%s\docs\dialing.inf+%s\docs\modems.inf %s",
exedir,exedir,exedir,exedir,pTopic
);
system(updstr);
return(success = 1);
}
#endif /* OS2ONLY */
#endif /* NOHELP */
#ifndef NOLOCAL
if (cx == XXHAN) { /* HANGUP */
if ((x = cmcfm()) < 0) return(x);
#ifndef NODIAL
if ((x = mdmhup()) < 1)
#endif /* NODIAL */
x = (tthang() > -1);
#ifndef NODIAL
dialsta = DIA_UNK;
#endif /* NODIAL */
whyclosed = WC_CLOS;
ttchk(); /* In case of CLOSE-ON-DISCONNECT */
#ifdef CKLOGDIAL
dologend();
#endif /* CKLOGDIAL */
#ifdef OS2
if (x)
DialerSend(OPT_KERMIT_HANGUP, 0);
#endif /* OS2 */
if (x) haveline = 0;
return(success = x);
}
#endif /* NOLOCAL */
#ifndef NOSPL
if (cx == XXGOTO || cx == XXFWD || cx == XXXFWD) { /* GOTO or FORWARD */
/* Note, here we don't set SUCCESS/FAILURE flag */
if ((y = cmfld("label","",&s,xxstring)) < 0) {
if (y == -3) {
printf("?Label name requiredn");
return(-9);
} else return(y);
}
ckstrncpy(lblbuf,s,LBLSIZ);
if ((x = cmcfm()) < 0) return(x);
s = lblbuf;
return(dogoto(s,cx));
}
#endif /* NOSPL */
#ifndef NOSPL
/* IF, Extended IF, WHILE */
if (cx == XXIF || cx == XXIFX || cx == XXWHI || cx == XXASSER) {
return(doif(cx));
}
if (cx == XXSWIT) {
return(doswitch());
}
#endif /* NOSPL */
#ifndef NOSPL
/* INPUT, REINPUT, and MINPUT */
if (cx == XXINP || cx == XXREI
#ifdef CK_MINPUT
|| cx == XXMINP
#endif /* CK_MINPUT */
) {
long zz;
extern int x_ifnum, ispattern;
zz = -1L;
x_ifnum = 1; /* Turn off internal complaints */
y = cmnum("Seconds to wait for input,n or time of day hh:mm:ss",
ckitoa(indef), 10, &x, xxstring
);
x_ifnum = 0;
if (y < 0) {
if (y == -2) { /* Invalid number or expression */
zz = tod2sec(atmbuf); /* Convert to secs since midnight */
if (zz < 0L) {
printf("?Number, expression, or time of day requiredn");
return(-9);
} else {
char now[32]; /* Current time */
char *p;
long tnow;
p = now;
ztime(&p);
tnow = atol(p+11) * 3600L + atol(p+14) * 60L + atol(p+17);
if (zz < tnow) /* User's time before now */
zz += 86400L; /* So make it tomorrow */
zz -= tnow; /* Seconds from now. */
}
} else
return(y);
}
if (zz > -1L) {
x = zz;
if (zz != (long) x) {
printf(
"Sorry, arithmetic overflow - hh:mm:ss not usable on this platform.n"
);
return(-9);
}
}
#ifdef CK_MINPUT
for (y = 0; y < MINPMAX; y++) { /* Initialize strings */
mp[y] = 0; /* Assume it's not a pattern */
if (ms[y]) {
free(ms[y]); /* Free old strings, if any */
ms[y] = NULL;
}
}
if (cx == XXMINP) { /* MINPUT */
int rc = 0, cfm = 1;
for (y = 0; y < MINPMAX; y++) { /* Parse up to MINPMAX strings */
rc = cmfld("List of input strings","",&s,xxstring);
debug(F111,"MINPUT cmfld returns",s,rc);
if (rc < 0) return(rc);
if (*s == '{') {
char *ss;
int n;
ss = s; n = 0;
while (*ss) {*ss = *(ss+1); ss++; n++; }
while (--n > 0) if (s[n] == '}') break;
if (n > 0) {
ss = s + n;
while (*ss) {*ss = *(ss+1); ss++; n++; }
}
}
if (!(ms[y] = malloc((int)strlen(s) + 1))) { /* Get memory */
printf("?Memory allocation failuren");
return(-9);
}
strcpy(ms[y],s); /* Got memory, copy. */
mp[y] = ispattern ? 1 : 0; /* Mark whether it's a pattern */
if (rc == 1) { /* List terminated by CR */
cfm = cmcfm(); /* Always call cmcfm() */
debug(F101,"MINPUT cmcfm","",cfm);
break;
}
}
for (y++; y < MINPMAX; y++) { /* Clean up old strings */
if (ms[y]) {
free(ms[y]); /* Free old strings, if any */
ms[y] = NULL;
}
}
debug(F101,"MINPUT end parse x","",x);
if (cfm < 0)
return(cfm);
#ifdef DEBUG
if (deblog) { /* Check the parsing */
for (y = 0; y < MINPMAX; y++)
if (ms[y]) debug(F111,"MINPUT",ms[y],mp[y]);
}
#endif /* DEBUG */
} else
#endif /* CK_MINPUT */
{
if ((y = cmtxt("Material to be input","",&s,xxstring)) < 0)
return(y);
mp[0] = ispattern ? 1 : 0;
s = brstrip(s);
if (!(ms[0] = malloc((int)strlen(s) + 1))) { /* Get memory */
printf("?Memory allocation failuren");
return(-9);
}
strcpy(ms[0],s); /* Got memory, copy. */
ms[1] = NULL;
}
if (cx == XXINP /* INPUT */
#ifdef CK_MINPUT
|| cx == XXMINP /* or MINPUT */
#endif /* CK_MINPUT */
) {
i_active = 1;
success = doinput(x,ms,mp); /* Go try to input the search string */
i_active = 0;
} else { /* REINPUT */
debug(F110,"xxrei line",s,0);
success = doreinp(x,s,ispattern);
}
if (intime[cmdlvl] && !success) { /* TIMEOUT-ACTION = QUIT? */
popclvl(); /* If so, pop command level. */
if (pflag && cmdlvl == 0) {
if (cx == XXINP) printf("?INPUT timed outn");
if (cx == XXMINP) printf("?MINPUT timed outn");
if (cx == XXREI) printf("?REINPUT failedn");
}
}
return(success); /* Return do(re)input's return code */
}
#endif /* NOSPL */
#ifndef NOSPL
if (cx == XXLBL) { /* LABEL */
if ((x = cmfld("label","",&s,xxstring)) < 0) {
if (x == -3) {
printf("?Label name requiredn");
return(-9);
} else return(x);
}
if ((x = cmcfm()) < 0) return(x);
return(0);
}
#endif /* NOSPL */
if (cx == XXLOG) { /* LOG */
x = cmkey(logtab,nlog,"What to log","",xxstring);
if (x == -3) {
printf("?Type of log requiredn");
return(-9);
}
if (x < 0) return(x);
x = dolog(x);
if (x < 0)
return(x);
else
return(success = x);
}
if (cx == XXLOGIN) { /* (REMOTE) LOGIN */
#ifdef IKSD
if (inserver) {
printf("?Already logged inn");
return(-9);
} else
#endif /* IKSD */
{
#ifdef NOXFER
return(-2);
#else
return(dormt(XZLGI));
#endif /* NOXFER */
}
}
if (cx == XXLOGOUT) { /* (REMOTE) LOGOUT */
#ifdef IKSD
if (inserver) {
if ((x = cmcfm()) < 0)
return(x);
doexit(GOOD_EXIT,xitsta);
} else
#endif /* IKSD */
if (!local || (network && ttchk() < 0)) {
printf("?No connection.n");
return(-9);
} else {
#ifdef NOXFER
return(-2);
#else
return(dormt(XZLGO));
#endif /* NOXFER */
}
}
#ifndef NOSCRIPT
if (cx == XXLOGI) { /* UUCP-style script */
if ((x = cmtxt("expect-send expect-send ...","",&s,xxstring)) < 0)
return(x);
#ifdef CK_APC
if (apcactive == APC_LOCAL ||
apcactive == APC_REMOTE && apcstatus != APC_UNCH) return(success = 0);
#endif /* CK_APC */
#ifdef VMS
conres(); /* For Ctrl-C to work... */
#endif /* VMS */
return(success = dologin(s)); /* Return 1=completed, 0=failed */
}
#endif /* NOSCRIPT */
#ifndef NOXFER
#ifdef PIPESEND
if (cx == XXCREC) { /* CRECEIVE */
if (protocol != PROTO_K) {
printf("?Sorry, CRECEIVE works only with Kermit protocoln");
return(-9);
}
}
if (cx == XXCGET) { /* CGET */
return(doxget(cx));
}
#endif /* PIPESEND */
if (cx == XXREC) /* RECEIVE */
return(doxget(cx));
#endif /* NOXFER */
#ifndef NOXFER
if (cx == XXREM) { /* REMOTE */
#ifdef CK_XYZ
if (protocol != PROTO_K) {
printf("Sorry, REMOTE commands only work with Kermit protocoln");
return(-9);
}
#endif /* CK_XYZ */
x = cmkey(remcmd,nrmt,"Remote Kermit server command","",xxstring);
if (x == -3) {
printf("?You must specify a command for the remote servern");
return(-9);
}
return(dormt(x));
}
#endif /* NOXFER */
#ifndef NORENAME
#ifndef NOFRILLS
if (cx == XXREN) { /* RENAME */
#ifdef IKSD
if (inserver && (!ENABLED(en_ren)
#ifdef CK_LOGIN
|| isguest
#endif /* CK_LOGIN */
)) {
printf("?Sorry, renaming of files is disabledn");
return(-9);
}
#endif /* IKSD */
#ifdef CK_APC
if (apcactive == APC_LOCAL ||
apcactive == APC_REMOTE && apcstatus != APC_UNCH)
return(success = 0);
#endif /* CK_APC */
return(dorenam());
}
#endif /* NOFRILLS */
#endif /* NORENAME */
if (cx == XXEIGHT) { /* EIGHTBIT */
extern int parity, cmask, cmdmsk;
if ((x = cmcfm()) < 0)
return(x);
parity = 0;
cmask = 0xff;
cmdmsk = 0xff;
return(success = 1);
}
#ifndef NOXFER
/* SEND, CSEND, MOVE, MAIL, and RESEND use the new common code */
if (cx == XXSEN /* SEND */
#ifdef PIPESEND
|| cx == XXCSEN /* CSEND */
#endif /* PIPESEND */
|| cx == XXMOVE /* MOVE */
|| cx == XXMAI /* MAIL */
#ifdef CK_RESEND
|| cx == XXRSEN /* RESEND */
#endif /* CK_RESEND */
) {
#ifdef IKSD
if (inserver && !ENABLED(en_get)) {
printf("?Sorry, sending files is disabledn");
return(-9);
}
#endif /* IKSD */
return(doxsend(cx));
}
/* PSEND, ADD, and REMOVE use special parsing */
#ifdef ADDCMD
/* ADD and REMOVE */
if (cx == XXADD || cx == XXREMV) {
char * m;
m = (cx == XXADD) ? "Add to which list?" : "Remove from which list?";
x = cmkey(addtab,naddtab,m,"",xxstring);
if (x < 0)
return(x);
#ifndef NOMSEND
if (x == ADD_SND)
return(addsend(cx));
else
#endif /* NOMSEND */
return(doadd(cx,x));
}
#endif /* ADDCMD */
#ifdef CK_RESEND
if (cx == XXPSEN) { /* PSEND */
int seekto = 0;
cmarg = cmarg2 = "";
x = cmifi("File to partially send", "", &s, &y, xxstring);
if (x < 0) {
if (x == -3) {
printf("?A file specification is requiredn");
return(-9);
} else return(x);
}
nfils = -1; /* Files come from internal list. */
#ifndef NOMSEND
addlist = 0; /* Don't use SEND-LIST. */
filenext = NULL;
#endif /* NOMSEND */
ckstrncpy(line,s,LINBUFSIZ); /* Save copy of string just parsed. */
debug(F110,"PSEND line",line,0);
if (y != 0) {
printf("?Sorry, wildcards not permitted in this commandn");
return(-9);
}
if (sizeof(int) < 4) {
printf("?Sorry, this command needs 32-bit integersn");
return(-9);
}
x = cmnum("starting position (byte number)",
"",10,&seekto,xxstring);
if (x < 0)
return(x);
zfnqfp(s,fspeclen,fspec); /* Get full path */
if ((x = cmtxt("Name to send it with","",&s,NULL)) < 0)
return(x);
ckstrncpy(tmpbuf,s,TMPBUFSIZ);
#ifdef IKSD
if (inserver && !ENABLED(en_get)) {
printf("?Sorry, sending files is disabledn");
return(-9);
}
#endif /* IKSD */
#ifdef PIPESEND
if (sndfilter) {
printf("?Sorry, no PSEND while SEND FILTER selectedn");
return(-9);
}
#endif /* PIPESEND */
#ifdef CK_XYZ
if ((protocol == PROTO_X || protocol == PROTO_XC)) {
printf("Sorry, PSEND works only with Kermit protocoln");
return(-9);
}
#endif /* CK_XYZ */
cmarg2 = brstrip(tmpbuf); /* Strip braces */
cmarg = line; /* File to send */
debug(F110,"PSEND filename",cmarg,0);
debug(F110,"PSEND as-name",cmarg2,0);
sendstart = seekto;
sstate = 's'; /* Set start state to SEND */
#ifndef NOMSEND
addlist = 0;
filenext = NULL;
#endif /* NOMSEND */
sendmode = SM_PSEND;
#ifdef MAC
what = W_SEND;
scrcreate();
#endif /* MAC */
if (local) { /* If in local mode, */
displa = 1; /* enable file transfer display */
}
return(0);
}
#endif /* CK_RESEND */
#endif /* NOXFER */
#ifndef NOXFER
#ifndef NOMSEND
if (cx == XXMSE || cx == XXMMOVE) {
#ifdef CK_XYZ
if (protocol == PROTO_X || protocol == PROTO_XC) {
printf(
"Sorry, you can only send one file at a time with XMODEM protocoln"
);
return(-9);
}
#endif /* CK_XYZ */
return(doxsend(cx));
}
#ifdef COMMENT /* (moved to doxsend) */
if (cx == XXMSE || cx == XXMMOVE) { /* MSEND and MMOVE commands */
nfils = 0; /* Like getting a list of */
lp = line; /* files on the command line */
addlist = 0; /* Do not use SEND-LIST */
filenext = NULL; /* Ditto ! */
while (1) {
char *p;
if ((x = cmifi("Names of files to send, separated by spaces","",
&s,&y,xxstring)) < 0) {
if (x == -3) {
if (nfils <= 0) {
printf("?A file specification is requiredn");
return(-9);
} else break;
}
return(x);
}
msfiles[nfils++] = lp; /* Got one, count it, point to it, */
p = lp; /* remember pointer, */
while (*lp++ = *s++) /* and copy it into buffer */
if (lp > (line + LINBUFSIZ)) { /* Avoid memory leak */
printf("?MSEND list too longn");
line[0] = NUL;
return(-9);
}
debug(F111,"msfiles",msfiles[nfils-1],nfils-1);
if (nfils == 1) *fspec = NUL; /* Take care of v(filespec) */
#ifdef ZFNQFP
zfnqfp(p,TMPBUFSIZ,tmpbuf);
p = tmpbuf;
#endif /* ZFNQFP */
if (((int)strlen(fspec) + (int)strlen(p) + 1) < fspeclen) {
strcat(fspec,p);
strcat(fspec," ");
} else printf("WARNING - \v(filespec) buffer overflown");
}
cmlist = msfiles; /* Point cmlist to pointer array */
cmarg2 = ""; /* No internal expansion list (yet) */
sndsrc = nfils; /* Filenames come from cmlist */
sendmode = SM_MSEND; /* Remember this kind of SENDing */
sstate = 's'; /* Set start state for SEND */
if (cx == XXMMOVE) /* If MMOVE'ing, */
moving = 1; /* set this flag. */
#ifdef MAC
what = W_SEND;
scrcreate();
#endif /* MAC */
if (local) { /* If in local mode, */
displa = 1; /* turn on file transfer display */
ttflui(); /* and flush tty input buffer. */
}
return(0);
}
#endif /* COMMENT */
#endif /* NOMSEND */
#endif /* NOXFER */
#ifndef NOSERVER
if (cx == XXSER) { /* SERVER */
#ifdef CK_XYZ
if (protocol != PROTO_K) {
printf("Sorry, SERVER only works with Kermit protocoln");
return(-9);
}
#endif /* CK_XYZ */
#ifdef COMMENT
/*
Parse for time limit, but since we don't use it yet,
the parsing is commented out.
*/
x_ifnum = 1; /* Turn off internal complaints */
y = cmnum("optional time limit, seconds, or time of day as hh:mm:ss",
"0", 10, &x, xxstring
);
x_ifnum = 0;
if (y < 0) {
if (y == -2) { /* Invalid number or expression */
zz = tod2sec(atmbuf); /* Convert to secs since midnight */
if (zz < 0L) {
printf("?Number, expression, or time of day requiredn");
return(-9);
} else {
char now[32]; /* Current time */
char *p;
long tnow;
p = now;
ztime(&p);
tnow = atol(p+11) * 3600L + atol(p+14) * 60L + atol(p+17);
if (zz < tnow) /* User's time before now */
zz += 86400L; /* So make it tomorrow */
zz -= tnow; /* Seconds from now. */
}
} else
return(y);
}
if (zz > -1L) {
x = zz;
if (zz != (long) x) {
printf(
"Sorry, arithmetic overflow - hh:mm:ss not usable on this platform.n"
);
return(-9);
}
}
if (x < 0)
x = 0;
#endif /* COMMENT */
if ((x = cmcfm()) < 0) return(x);
sstate = 'x';
#ifdef MAC
what = W_RECV;
scrcreate();
#endif /* MAC */
if (local) displa = 1;
#ifdef AMIGA
reqoff(); /* No DOS requestors while server */
#endif /* AMIGA */
return(0);
}
#endif /* NOSERVER */
if (cx == XXSAVE) { /* SAVE command */
x = cmkey(savtab,nsav,"option","keymap",xxstring);
if (x == -3) {
printf("?You must specify an option to saven");
return(-9);
}
if (x < 0) return(x);
/* have to set success separately for each item in doprm()... */
/* actually not really, could have just had doprm return 0 or 1 */
/* and set success here... */
y = dosave(x);
if (y == -3) {
printf("?More fields requiredn");
return(-9);
} else return(y);
}
if (cx == XXSET) { /* SET command */
x = cmkey(prmtab,nprm,"Parameter","",xxstring);
if (x == -3) {
printf("?You must specify a parameter to setn");
return(-9);
}
if (x < 0) return(x);
/* have to set success separately for each item in doprm()... */
/* actually not really, could have just had doprm return 0 or 1 */
/* and set success here... */
y = doprm(x,0);
if (y == -3) {
printf("?More fields requiredn");
return(-9);
} else return(y);
}
#ifndef NOPUSH
if (cx == XXSHE /* SHELL (system) command */
|| cx == XXEXEC /* exec() */
) {
int rx = 0;
char * p = NULL;
int i,n;
#ifdef UNIXOROSK
char * args[256];
#endif /* UNIXOROSK */
#ifdef IKSD
if (inserver && (nopush || !ENABLED(en_hos))) {
printf("?Sorry, host command access is disabledn");
return(-9);
}
#endif /* IKSD */
#ifdef CKEXEC
if (cx == XXEXEC) { /* EXEC (overlay ourselves) */
struct FDB sw, fl;
cmfdbi(&sw, /* First FDB - command switches */
_CMKEY, /* fcode */
"Command to overlay C-Kermitn or switch", /* hlpmsg */
"", /* default */
"", /* addtl string data */
1, /* addtl numeric data 1: tbl size */
4, /* addtl numeric data 2: 4 = cmswi */
xxstring, /* Processing function */
redirsw, /* Keyword table */
&fl /* Pointer to next FDB */
);
cmfdbi(&fl, /* 2nd FDB - command to exec */
_CMFLD, /* fcode */
"Command to overlay C-Kermit", /* hlpmsg */
"", /* default */
"", /* addtl string data */
0, /* addtl numeric data 1 */
0, /* addtl numeric data 2 */
xxstring,
NULL,
NULL /* No more after this */
);
while (1) {
x = cmfdb(&sw); /* Parse something */
debug(F101,"exec cmfdb","",x);
if (x < 0)
return(x);
/* Generalize this if we add more switches */
if (cmresult.fcode == _CMKEY) {
rx = 1;
continue;
}
if (cmresult.fcode == _CMFLD)
break;
return(-2);
}
ckstrncpy(tmpbuf,cmresult.sresult,TMPBUFSIZ);
if (!tmpbuf[0]) {
printf("?Command requiredn");
return(-9);
}
p = brstrip(tmpbuf);
args[0] = NULL; /* Set argv[0] to it */
makestr(&args[0],p);
for (i = 1; i < 255; i++) { /* Get arguments for command */
if ((x = cmfld("Argument","",&s,xxstring)) < 0) {
if (x == -3) {
if ((x = cmcfm()) < 0)
return(x);
break;
} else
return(x);
}
args[i] = NULL;
s = brstrip(s);
makestr(&args[i],s);
}
args[i] = NULL;
} else {
#endif /* CKEXEC */
if ((x = cmtxt("System command to execute","",&s,xxstring)) < 0)
return(x);
#ifdef CKEXEC
}
#endif /* CKEXEC */
if (nopush)
return(success = 0);
#ifdef CK_APC
if (apcactive == APC_REMOTE && apcstatus != APC_UNCH)
return(success = 0);
#endif /* CK_APC */
conres(); /* Make console normal */
#ifdef OS2
if (!(s && *s)) {
os2push();
x = 1;
} else
#endif /* OS2 */
if (cx == XXSHE) {
x = zshcmd(s);
debug(F101,"RUN zshcmd code","",x);
concb((char)escape);
return(success = x);
#ifdef CKEXEC
} else {
#ifdef DEBUG
if (deblog) {
debug(F111,"EXEC cmd",p,0);
for (i = 0; i < 256 && args[i]; i++)
debug(F111,"EXEC arg",args[i],i);
}
#endif /* DEBUG */
if (p) {
z_exec(p,args,rx); /* Overlay ourself */
debug(F100,"EXEC fails","",0);
concb((char)escape); /* In case it returns */
}
return(success = 0);
#endif /* CKEXEC */
}
}
#ifdef CK_REDIR
if (cx == XXFUN) { /* REDIRECT */
#ifdef CK_APC
if (apcactive == APC_LOCAL ||
apcactive == APC_REMOTE && apcstatus != APC_UNCH) return(success = 0);
#endif /* CK_APC */
sprintf(tmpbuf,
"Local command to run,n
with its standard input/output redirected to %sn",
ttname);
if ((x = cmtxt(tmpbuf,"",&s,xxstring)) < 0)
return(x);
if (nopush) {
printf("?REDIRECT disabledn");
return(success=0);
}
if (!local) {
printf("?SET LINE or SET HOST required firstn");
return(-9);
}
return(success = ttruncmd(s));
}
#endif /* CK_REDIR */
#endif /* NOPUSH */
#ifndef NOSHOW
if (cx == XXSHO) { /* SHOW */
x = cmkey(shotab,nsho,"","parameters",xxstring);
if (x < 0) return(x);
return(doshow(x));
}
#endif /* NOSHOW */
#ifndef MAC
if (cx == XXSPA) { /* SPACE */
#ifdef IKSD
if (inserver && !ENABLED(en_spa)) {
printf("?Sorry, SPACE command disabledn");
return(-9);
}
#endif /* IKSD */
#ifdef datageneral
/* AOS/VS can take an argument after its "space" command. */
if ((x = cmtxt("Confirm, or local directory name","",&s,xxstring)) < 0)
return(x);
if (nopush) {
printf("?Sorry, SPACE command disabledn");
return(-9);
} else if (*s == NUL) {
xsystem(SPACMD);
} else {
sprintf(line,"space %s",s);
xsystem(line);
}
#else
#ifdef OS2
if ((x = cmtxt("Press Enter for current disk,n
or specify a disk letter like A:","",&s,xxstring)) < 0)
return(x);
if (*s == NUL) { /* Current disk */
printf(" Free space: %ldKn", zdskspace(0)/1024L);
} else {
int drive = toupper(*s);
printf(" Drive %c: %ldK freen", drive,
zdskspace(drive - 'A' + 1) / 1024L);
}
#else
#ifdef UNIXOROSK
x = cmdir("Confirm for current disk,n
or specify a disk device or directory","",&s,xxstring);
if (x == -3)
s = "";
else if (x < 0)
return(x);
ckstrncpy(tmpbuf,s,TMPBUFSIZ);
s = tmpbuf;
if ((x = cmcfm()) < 0) return(x);
if (nopush) {
printf("?Sorry, SPACE command disabledn");
return(-9);
}
if (!*s) { /* Current disk */
xsystem(SPACMD);
} else { /* Specified disk */
sprintf(line,"%s %s",SPACM2,s);
xsystem(line);
}
#else
if ((x = cmcfm()) < 0) return(x);
if (nopush) {
printf("?Sorry, SPACE command disabledn");
return(-9);
}
xsystem(SPACMD);
#endif /* UNIXOROSK */
#endif /* OS2 */
#endif /* datageneral */
return(success = 1); /* Pretend it worked */
}
#endif /* MAC */
#ifndef NOXFER
if (cx == XXSTA) { /* STATISTICS */
if ((x = cmkey(stattab,2,"Carriage return, or option",
"/brief",xxstring)) < 0)
return(x);
if ((y = cmcfm()) < 0) return(y);
return(success = dostat(x));
}
#endif /* NOXFER */
if (cx == XXSTO || cx == XXEND) { /* STOP, END, or POP */
if ((y = cmnum("exit status code","0",10,&x,xxstring)) < 0)
return(y);
if ((y = cmtxt("Message to print","",&s,xxstring)) < 0)
return(y);
s = brstrip(s);
if (*s) printf("%sn",s);
if (cx == XXSTO) {
dostop();
} else {
#ifndef NOSPL
/* Pop from all FOR/WHILE/XIF/SWITCH's */
debug(F101,"END maclvl 1","",maclvl);
while ((maclvl > 0) &&
(m_arg[maclvl-1][0]) &&
(cmdstk[cmdlvl].src == CMD_MD) &&
(!strncmp(m_arg[maclvl-1][0],"_xif",4) ||
!strncmp(m_arg[maclvl-1][0],"_for",4) ||
!strncmp(m_arg[maclvl-1][0],"_whi",4) ||
!strncmp(m_arg[maclvl-1][0],"_swi",4))) {
debug(F110,"END popping",m_arg[maclvl-1][0],0);
dogta(XXPTA); /* Put args back */
popclvl(); /* Pop up two levels */
popclvl();
debug(F101,"END maclvl 2","",maclvl);
}
if (maclvl > -1) {
if (mrval[maclvl]) /* Free previous retval if any */
free(mrval[maclvl]);
mrval[maclvl] = malloc(16); /* Room for up to 15 digits */
if (mrval[maclvl])
sprintf(mrval[maclvl],"%d",x); /* Record current retval */
}
#endif /* NOSPL */
popclvl(); /* Now pop out of macro or TAKE file */
#ifndef NOSPL
#ifdef DEBUG
if (deblog) {
debug(F101,"END maclvl 3","",maclvl);
debug(F111,"END mrval[maclvl]",mrval[maclvl],maclvl);
debug(F111,"END mrval[maclvl+1]",mrval[maclvl+1],maclvl+1);
}
#endif /* DEBUG */
#endif /* NOSPL */
}
return(success = (x == 0));
}
if (cx == XXSUS) { /* SUSPEND */
if ((y = cmcfm()) < 0) return(y);
#ifdef NOJC
printf("Sorry, this version of Kermit cannot be suspendedn");
#else
#ifdef IKSD
if (inserver) {
printf("?Sorry, IKSD can not be suspendedn");
return(-9);
} else
#endif /* IKSD */
if (nopush) {
printf("?Sorry, access to system is disabledn");
return(-9);
}
stptrap(0);
#endif /* NOJC */
return(0);
}
if (cx == XXTAK) { /* TAKE */
#ifdef OS2
extern char startupdir[],exedir[],inidir[];
char * scriptenv, * keymapenv;
#endif /* OS2 */
char takepath[1024];
if (tlevel >= MAXTAKE-1) {
printf("?Take files nested too deeplyn");
return(-9);
}
#ifdef OS2
#ifdef NT
scriptenv = getenv("K95SCRIPTS");
keymapenv = getenv("K95KEYMAPS");
#else /* NT */
scriptenv = getenv("K2SCRIPTS");
keymapenv = getenv("K2KEYMAPS");
#endif /* NT */
if (!scriptenv)
scriptenv = getenv("CK_SCRIPTS");
if (!keymapenv)
keymapenv = getenv("CK_KEYMAPS");
sprintf(takepath,
/* semicolon-separated path list */
"%s%s%s%s%s;%s%s;%s%s;%s;%s%s;%s%s;%s;%s%s;%s%s",
scriptenv?scriptenv:"",
(scriptenv && scriptenv[strlen(scriptenv)-1]==';')?"":";",
keymapenv?keymapenv:"",
(keymapenv && keymapenv[strlen(keymapenv)-1]==';')?"":";",
startupdir,
startupdir, "SCRIPTS/",
startupdir, "KEYMAPS/",
inidir,
inidir, "SCRIPTS/",
inidir, "KEYMAPS/",
zhome(),
zhome(), "SCRIPTS/",
zhome(), "KEYMAPS/",
exedir,
exedir, "SCRIPTS/",
exedir, "KEYMAPS/"
);
#else /* not OS2 */
y = 1024;
s = takepath;
zzstring("\v(home)",&s,&y);
#endif /* OS2 */
if ((y = cmifip("C-Kermit command file",
"",&s,&x,0,takepath,xxstring)) < 0) {
if (y == -3) {
printf("?A file name is requiredn");
return(-9);
} else
return(y);
}
if (x != 0) {
printf("?Wildcards not allowed in command file namen");
return(-9);
}
ckstrncpy(line,s,LINBUFSIZ);
debug(F110,"take file",s,0);
if (isdir(s)) {
printf("?Can't execute a directory - "%s"n", s);
return(-9);
}
#ifndef NOTAKEARGS
{
char * p;
/* extern char **m_xarg[]; */
x = strlen(line);
p = line + x + 1;
if ((y = cmtxt("Optional arguments","",&s,xxstring)) < 0)
return(y);
if (*s) { /* Args given? */
ckstrncpy(p,s,LINBUFSIZ-x-1);
#ifdef ZFNQFP
zfnqfp(line,TMPBUFSIZ,tmpbuf);
s = tmpbuf;
#else
s = line;
#endif /* ZFNQFP */
addmac("%0",s); /* Define %0 = name of file */
varnam[0] = '%';
varnam[2] = '';
debug(F110,"take arg 0",s,0);
debug(F110,"take args",p,0);
for (y = 1; y < 10; y++) { /* Clear current args %1..%9 */
varnam[1] = (char) (y + '0');
delmac(varnam);
}
xwords(p,MAXARGLIST,NULL,0); /* Assign new args */
debug(F110,"take args",p,0);
}
}
#else
if ((y = cmcfm()) < 0) return(y);
#endif /* NOTAKEARGS */
return(success = dotake(line));
}
#ifndef NOLOCAL
#ifdef OS2
if (cx == XXVIEW) { /* VIEW Only Terminal mode */
viewonly = TRUE;
success = doconect(0);
viewonly = FALSE;
return success;
}
#endif /* OS2 */
#ifdef NETCONN
if (cx == XXTEL || cx == XXIKSD) { /* TELNET */
int x,z;
#ifdef OS2
if (!tcp_avail) {
printf("?Sorry, either TCP/IP is not available on this system orn
necessary DLLs did not load. Use SHOW NETWORK to check network status.n");
success = 0;
return(-9);
} else
#endif /* OS2 */
{
x = nettype; /* Save net type in case of failure */
z = ttnproto; /* Save protocol in case of failure */
nettype = NET_TCPB;
ttnproto = (cx == XXTEL) ? NP_TELNET : NP_KERMIT;
if ((y = setlin(XYHOST,0,1)) < 0) {
nettype = x; /* Failed, restore net type. */
ttnproto = z; /* and protocol */
success = 0;
}
didsetlin++;
}
return(y);
}
#ifndef PTYORPIPE
#ifdef NETCMD
#define PTYORPIPE
#else
#ifdef NETPTY
#define PTYORPIPE
#endif /* NETPTY */
#endif /* NETCMD */
#endif /* PTYORPIPE */
#ifdef PTYORPIPE
if (cx == XXPIPE || cx == XXPTY) { /* PIPE or PTY */
int x;
extern int netsave;
x = nettype; /* Save net type in case of failure */
nettype = (cx == XXPIPE) ? NET_CMD : NET_PTY;
if ((y = setlin(XYHOST,0,1)) < 0) {
nettype = x; /* Failed, restore net type. */
ttnproto = z; /* and protocol */
success = 0;
}
didsetlin++;
netsave = x;
return(y);
}
#endif /* PTYORPIPE */
if (cx == XXRLOG) { /* RLOGIN */
#ifdef RLOGCODE
int x,z;
#ifdef OS2
if (!tcp_avail) {
printf("?Sorry, either TCP/IP is not available on this system orn
necessary DLLs did not load. Use SHOW NETWORK to check network status.n"
);
success = 0;
return(-9);
} else {
#endif /* OS2 */
x = nettype; /* Save net type in case of failure */
z = ttnproto; /* Save protocol in case of failure */
nettype = NET_TCPB;
ttnproto = NP_RLOGIN;
if ((y = setlin(XYHOST,0,1)) < 0) {
nettype = x; /* Failed, restore net type. */
ttnproto = z; /* and protocol */
success = 0;
}
didsetlin++;
#ifdef OS2
}
#endif /* OS2 */
return(y);
#else
printf("?Sorry, RLOGIN is not configured in this copy of C-Kermit.n");
return(-9);
#endif /* RLOGCODE */
}
#endif /* NETCONN */
#endif /* NOLOCAL */
#ifndef NOXMIT
if (cx == XXTRA) { /* TRANSMIT */
int i, n, xpipe = 0, xbinary = 0, xxlate = 1, xxnowait = 0, getval;
char c;
struct FDB sf, sw, tx; /* FDBs for parse functions */
#ifndef NOCSETS
extern int tcs_transp; /* Term charset is transparent */
#else
int tcs_transp = 1;
#endif /* NOCSETS */
#ifdef COMMENT
xbinary = binary; /* Default text/binary mode */
#else
xbinary = 0; /* Default is text */
#endif /* COMMENT */
cmfdbi(&sw, /* First FDB - command switches */
_CMKEY, /* fcode */
"Filename, or switch", /* hlpmsg */
"", /* default */
"", /* addtl string data */
nxmitsw, /* addtl numeric data 1: tbl size */
4, /* addtl numeric data 2: 4 = cmswi */
xxstring, /* Processing function */
xmitsw, /* Keyword table */
&sf /* Pointer to next FDB */
);
cmfdbi(&sf, /* 2nd FDB - file to send */
_CMIFI, /* fcode */
"File to transmit", /* hlpmsg */
"", /* default */
"", /* addtl string data */
0, /* addtl numeric data 1 */
0, /* addtl numeric data 2 */
xxstring,
NULL,
#ifdef PIPESEND
&tx
#else
NULL
#endif /* PIPESEND */
);
#ifdef PIPESEND
cmfdbi(&tx,
_CMTXT, /* fcode */
"Command", /* hlpmsg */
"", /* default */
"", /* addtl string data */
0, /* addtl numeric data 1 */
0, /* addtl numeric data 2 */
xxstring,
NULL,
NULL
);
#endif /* PIPESEND */
while (1) {
x = cmfdb(&sw);
if (x < 0)
return(x);
if (cmresult.fcode != _CMKEY)
break;
c = cmgbrk(); /* Have switch, get break character */
if ((getval = (c == ':' || c == '=')) && !(cmgkwflgs() & CM_ARG)) {
printf("?This switch does not take an argumentn");
return(-9);
}
if (!getval && (cmgkwflgs() & CM_ARG)) {
printf("?This switch requires an argumentn");
return(-9);
}
n = cmresult.nresult; /* Numeric result = switch ID */
switch (n) { /* Process the switch */
#ifdef PIPESEND
case XMI_CMD: /* Transmit from a command */
if (nopush) {
printf("?Sorry, system command access is disabledn");
return(-9);
}
sw.hlpmsg = "Command, or switch"; /* Change help message */
xpipe = 1; /* (No way to undo this one) */
break;
#endif /* PIPESEND */
case XMI_BIN: /* Binary */
xbinary = 1;
xxlate = 0; /* Don't translate charsets */
break;
case XMI_TXT: /* Text */
xbinary = 0;
xxlate = !tcs_transp; /* Translate if TERM CHAR not TRANSP */
break;
case XMI_TRA: /* Transparent text */
xbinary = 0;
xxlate = 0; /* But don't translate charsets */
break;
#ifdef COMMENT
case XMI_VRB: /* /VERBOSE */
case XMI_QUI: /* /QUIET */
break; /* (not implemented yet) */
#endif /* COMMENT */
case XMI_NOW: /* /NOWAIT */
xxnowait = 1;
break;
default:
return(-2);
}
}
if (cmresult.fcode != _CMIFI && cmresult.fcode != _CMTXT)
return(-2);
ckstrncpy(line,cmresult.sresult,LINBUFSIZ); /* Filename */
s = line;
if ((y = cmcfm()) < 0) /* Confirm */
return(y);
#ifdef CK_APC
if (apcactive == APC_LOCAL ||
apcactive == APC_REMOTE && apcstatus != APC_UNCH)
return(success = 0);
#endif /* CK_APC */
if (cmresult.nresult != 0) {
printf("?Only a single file may be transmittedn");
return(-9);
}
#ifdef PIPESEND
if (xpipe) {
s = brstrip(s);
if (!*s) {
printf("?Sorry, a command to send from is requiredn");
return(-9);
}
pipesend = 1;
}
#endif /* PIPESEND */
success = transmit(s,
(xxnowait ? (char)0 : (char)xmitp),
xxlate,
xbinary
);
return(success);
}
#endif /* NOXMIT */
#ifndef NOFRILLS
if (cx == XXTYP || cx == XXMORE) { /* TYPE or MORE */
int paging = 0, havename = 0, head = 0, width = 0, count = 0;
char pfxbuf[64], * prefix = NULL;
extern int xaskmore;
struct FDB sf, sw;
char * pat = NULL;
if (cx == XXMORE)
paging = 1;
else
paging = (typ_page < 0) ? xaskmore : typ_page;
#ifdef IKSD
if (inserver && !ENABLED(en_typ)) {
printf("?Sorry, TYPE command disabledn");
return(-9);
}
#endif /* IKSD */
cmfdbi(&sw, /* 2nd FDB - optional /PAGE switch */
_CMKEY, /* fcode */
"Filename or switch", /* hlpmsg */
"", /* default */
"", /* addtl string data */
ntypetab, /* addtl numeric data 1: tbl size */
4, /* addtl numeric data 2: 4 = cmswi */
xxstring, /* Processing function */
typetab, /* Keyword table */
&sf /* Pointer to next FDB */
);
cmfdbi(&sf, /* 1st FDB - file to type */
_CMIFI, /* fcode */
"", /* hlpmsg */
"", /* default */
"", /* addtl string data */
0, /* addtl numeric data 1 */
0, /* addtl numeric data 2 */
xxstring,
NULL,
NULL
);
while (!havename) {
x = cmfdb(&sw); /* Parse something */
debug(F101,"dotype cmfdb","",x);
debug(F101,"dotype cmresult.fcode","",cmresult.fcode);
debug(F101,"dotype cmresult.nresult","",cmresult.nresult);
if (x < 0) /* Error */
return(x);
else if (cmresult.fcode == _CMKEY) {
char c; int getval;
c = cmgbrk();
getval = (c == ':' || c == '=');
if (getval && !(cmgkwflgs() & CM_ARG)) {
printf("?This switch does not take an argumentn");
return(-9);
}
#ifdef COMMENT
if (!getval && (cmgkwflgs() & CM_ARG)) {
printf("?This switch requires an argumentn");
/* Not if it has a default! */
return(-9);
}
#endif /* COMMENT */
switch (cmresult.nresult) {
#ifdef CK_TTGWSIZ
case TYP_PAG:
paging = 1;
break;
case TYP_NOP:
paging = 0;
break;
#endif /* CK_TTGWSIZ */
case TYP_COU:
count = 1;
break;
case TYP_HEA:
case TYP_TAI:
y = 10;
if (getval)
if ((x = cmnum("Number of lines",
"10",10,&y,xxstring)) < 0)
return(x);
head = (cmresult.nresult == TYP_TAI) ? -y : y;
break;
case TYP_WID:
y = typ_wid > -1 ? typ_wid : cmd_cols;
if (getval)
if ((x = cmnum("Column at which to truncate",
ckitoa(y),10,&y,xxstring)) < 0)
return(x);
width = y;
break;
case TYP_PAT:
if (!getval && (cmgkwflgs() & CM_ARG)) {
printf("?This switch requires an argumentn");
return(-9);
}
if ((x = cmfld("pattern","",&s,xxstring)) < 0)
return(x);
ckstrncpy(tmpbuf,s,TMPBUFSIZ);
pat = tmpbuf;
break;
case TYP_PFX:
if (!getval && (cmgkwflgs() & CM_ARG)) {
printf("?This switch requires an argumentn");
return(-9);
}
if ((x = cmfld("prefix for each line","",&s,xxstring)) < 0)
return(x);
if ((int)strlen(s) > 63) {
printf("?Too long - 63 maxn");
return(-9);
}
ckstrncpy(pfxbuf,s,64);
prefix = brstrip(pfxbuf);
break;
}
} else if (cmresult.fcode == _CMIFI)
havename = 1;
else
return(-2);
}
if (havename) {
ckstrncpy(line,cmresult.sresult,LINBUFSIZ);
y = cmresult.nresult;
} else {
if ((x = cmifi("Filename","",&s,&y,xxstring)) < 0) {
if (x == -3) {
printf("?Name of an existing file requiredn");
return(-9);
} else return(x);
}
ckstrncpy(line,s,LINBUFSIZ);
}
if (y != 0) {
printf("?A single file pleasen");
return(-9);
}
if ((y = cmcfm()) < 0) /* Confirm the command */
return(y);
if (count) paging = -1;
debug(F111,"dotype",line,paging);
return(success = dotype(line,paging,0,head,pat,width,prefix));
}
#endif /* NOFRILLS */
#ifndef NOCSETS
if (cx == XXXLA) { /* TRANSLATE <ifn> from-cs to-cs <ofn> */
#ifdef OS2ONLY
extern int tt_font;
#endif /* OS2ONLY */
int incs, outcs;
char * tocs = "";
if ((x = cmifi("File to translate","",&s,&y,xxstring)) < 0) {
if (x == -3) {
printf("?Name of an existing filen");
return(-9);
} else return(x);
}
if (y != 0) {
printf("?A single file pleasen");
return(-9);
}
ckstrncpy(line,s,LINBUFSIZ); /* Save copy of string just parsed. */
if ((incs = cmkey(fcstab,nfilc,"from character-set","",xxstring)) < 0)
return(incs);
#ifdef OS2
if (isunicode()) {
tocs = "ucs2";
} else {
y = os2getcp(); /* Default is current code page */
switch (y) {
case 437: tocs = "cp437"; break;
case 850: tocs = "cp850"; break;
case 852: tocs = "cp852"; break;
case 857: tocs = "cp857"; break;
case 858: tocs = "cp858"; break;
case 862: tocs = "cp862"; break;
case 866: tocs = "cp866"; break;
case 869: tocs = "cp869"; break;
case 1250: tocs = "cp1250"; break;
case 1251: tocs = "cp1251"; break;
case 1252: tocs = "cp1252"; break;
case 1253: tocs = "cp1253"; break;
case 1254: tocs = "cp1254"; break;
case 1255: tocs = "cp1255"; break;
case 1256: tocs = "cp1256"; break;
case 1257: tocs = "cp1257"; break;
case 1258: tocs = "cp1258"; break;
}
}
#ifdef OS2ONLY
/*
If the user has loaded a font with SET TERMINAL FONT then we want
to change the default code page to the font that was loaded.
*/
if (tt_font != TTF_ROM) {
extern struct keytab termfont[];
extern int ntermfont;
for (y = 0; y < ntermfont; y++) {
if (termfont[y].kwval == tt_font) {
tocs = termfont[y].kwd;
break;
}
}
}
#endif /* OS2ONLY */
#else /* OS2 */
/* Make current file char set */
for (y = 0; y <= nfilc; y++) /* be the default... */
if (fcstab[y].kwval == fcharset) {
tocs = fcstab[y].kwd;
break;
}
#endif /* OS2 */
if ((outcs = cmkey(fcstab,nfilc,"to character-set",tocs,xxstring)) < 0)
return(outcs);
if ((x = cmofi("output file",CTTNAM,&s,xxstring)) < 0) return(x);
if (x > 1) {
printf("?Directory name not allowedn");
return(-9);
}
ckstrncpy(tmpbuf,s,TMPBUFSIZ);
if ((y = cmcfm()) < 0) return(y); /* Confirm the command */
return(success = xlate(line,tmpbuf,incs,outcs)); /* Execute it */
}
#endif /* NOCSETS */
if (cx == XXVER) { /* VERSION */
int n = 0;
extern char * ck_patch, * ck_s_test;
extern int hmtopline;
if ((y = cmcfm()) < 0)
return(y);
printf("n%s, for%sn Numeric: %ld",versio,ckxsys,vernum);
printf("n");
n = 3;
if (*ck_s_test) {
printf("n THIS IS A TEST VERSION, NOT FOR PRODUCTION USE.n");
n += 2;
}
if (*ck_patch) {
printf(" Patches: %sn", ck_patch);
n++;
}
#ifdef OS2
printf(" Type COPYRIGHT for copyright information.nn");
shoreg();
#else
hmtopline = n+1;
hmsga(copyright);
hmtopline = 0;
#endif /* OS2 */
return(success = 1);
}
if (cx == XXCPR) { /* COPYRIGHT */
if ((y = cmcfm()) < 0)
return(y);
hmsga(copyright);
return(success = 1);
}
#ifndef MAC /* Only for multiuser systems */
#ifndef OS2
#ifndef NOFRILLS
if (cx == XXWHO) { /* WHO */
char *wc;
#ifdef IKSD
if (inserver && !ENABLED(en_who)) {
printf("?Sorry, WHO command disabledn");
return(-9);
}
#endif /* IKSD */
#ifdef datageneral
if ((z = cmcfm()) < 0) return(z);
if (nopush) {
printf("?Sorry, who not allowedn");
return(success = 0);
}
xsystem(WHOCMD);
#else
if ((y = cmtxt("user name","",&s,xxstring)) < 0) return(y);
if (nopush) {
printf("?Sorry, WHO command disabledn");
return(success = 0);
}
if (!(wc = getenv("CK_WHO"))) wc = WHOCMD;
if (wc)
if ((int) strlen(wc) > 0) {
sprintf(line,"%s %s",wc,s);
xsystem(line);
}
#endif /* datageneral */
return(success = 1);
}
#endif /* NOFRILLS */
#endif /* OS2 */
#endif /* MAC */
#ifndef NOFRILLS
if (cx == XXWRI || cx == XXWRL || cx == XXWRBL) { /* WRITE */
if ((x = cmkey(writab,nwri,"to file or log","",xxstring)) < 0) {
if (x == -3) printf("?Write to what?n");
return(x);
}
if ((y = cmtxt("text","",&s,xxstring)) < 0) return(y);
s = brstrip(s);
switch (x) {
case LOGD: y = ZDFILE; break;
case LOGP: y = ZPFILE; break;
#ifndef NOLOCAL
case LOGS: y = ZSFILE; break;
#endif /* NOLOCAL */
case LOGT: y = ZTFILE; break;
#ifndef NOSPL
case LOGW: y = ZWFILE; break;
#endif /* NOSPL */
case LOGX: /* SCREEN (stdout) */
case LOGE: /* ERROR (stderr) */
if (x == LOGE) {
debug(F110,
(cx == XXWRL) ? "WRITELN ERROR" : "WRITE ERROR", s,0);
fprintf(stderr,"%s%s",s,(cx == XXWRL) ? "n" : "");
} else {
debug(F110,
(cx == XXWRL) ? "WRITELN SCREEN" : "WRITE SCREEN", s,0);
printf("%s%s",s,(cx == XXWRL) ? "n" : "");
}
return(success = 1);
default: return(-2);
}
if (chkfn(y) > 0) {
x = (cx == XXWRI) ? zsout(y,s) : zsoutl(y,s);
if (x < 0) printf("?Write errorn");
} else {
x = -1;
printf("?File or log not openn");
}
return(success = (x == 0) ? 1 : 0);
}
#endif /* NOFRILLS */
#ifndef NOXFER
if (cx == XXASC || cx == XXBIN) {
if ((x = cmcfm()) < 0) return(x);
binary = (cx == XXASC) ? XYFT_T : XYFT_B;
return(success = 1);
}
#endif /* NOXFER */
if (cx == XXCLS) {
if ((x = cmcfm()) < 0) return(x);
y = ck_cls();
return(success = (y > -1) ? 1 : 0);
}
#ifdef CK_MKDIR
if (cx == XXMKDIR) {
char *p;
#ifdef IKSD
if (inserver && !ENABLED(en_mkd)) {
printf("?Sorry, directory creation is disabledn");
return(-9);
}
#endif /* IKSD */
if ((x = cmfld("Name for new directory","",&s,xxstring)) < 0) {
if (x != -3) {
return(x);
} else {
printf("?Directory name requiredn");
return(-9);
}
}
ckstrncpy(line,s,LINBUFSIZ);
s = line;
if ((x = cmcfm()) < 0) return(x);
s = brstrip(s);
x = ckmkdir(0,s,&p,msgflg,0);
#ifdef COMMENT
if (msgflg && x == 0)
printf("?Directory already existsn");
#endif /* COMMENT */
return(success = (x < 0) ? 0 : 1);
}
if (cx == XXRMDIR) { /* RMDIR */
char *p;
#ifdef IKSD
if (inserver && !ENABLED(en_rmd)) {
printf("?Sorry, directory removal is disabledn");
return(-9);
}
#endif /* IKSD */
if ((x = cmdir("Name of directory to be removed","",&s,xxstring)) < 0)
return(x);
ckstrncpy(line,s,LINBUFSIZ);
s = line;
if ((x = cmcfm()) < 0) return(x);
s = brstrip(s);
x = ckmkdir(1,s,&p,msgflg,0);
return(success = (x < 0) ? 0 : 1);
}
#endif /* CK_MKDIR */
#ifdef TCPSOCKET
if (cx == XXTELOP) {
if ((x = cmkey(telcmd, ntelcmd, "TELNET command", "", xxstring)) < 0 )
return(x);
switch (x) {
case WILL:
case WONT:
case DO:
case DONT:
if ((y = cmkey(tnopts,ntnopts,"TELNET option","",xxstring)) < 0)
return(y);
if ((z = cmcfm()) < 0) return(z);
switch (x) {
case WILL:
if (TELOPT_UNANSWERED_WILL(y))
return(success = 0);
break;
case WONT:
if (TELOPT_UNANSWERED_WONT(y))
return(success = 0);
break;
case DO:
if (TELOPT_UNANSWERED_DO(y))
return(success = 0);
break;
case DONT:
if (TELOPT_UNANSWERED_DONT(y))
return(success = 0);
break;
}
if (local) {
success = ((tn_sopt(x,y) > -1) ? 1 : 0);
} else {
printf("ff%02x%02xn",x,y);
success = 1;
}
if (success) {
switch (x) {
case WILL:
TELOPT_UNANSWERED_WILL(y) = 1;
break;
case WONT:
TELOPT_UNANSWERED_WONT(y) = 1;
break;
case DO:
TELOPT_UNANSWERED_DO(y) = 1;
break;
case DONT:
TELOPT_UNANSWERED_DONT(y) = 1;
break;
}
if (tn_wait("XXTELOP") < 0) {
tn_push();
success = 0;
}
}
return(success);
case SB:
if ((y=cmkey(tnsbopts,ntnsbopts,"TELNET option","",xxstring)) < 0)
return(y);
switch (y) {
case TELOPT_NAWS:
/* Some compilers require switch() to have at least 1 case */
#ifdef CK_NAWS
TELOPT_SB(TELOPT_NAWS).naws.x = 0;
TELOPT_SB(TELOPT_NAWS).naws.y = 0;
if (local)
return(success = ((tn_snaws() > -1) ? 1 : 0));
else
return(success = 0);
break;
#else
return(success = 0);
#endif /* CK_NAWS */
default:
return(success = 0);
}
break;
default:
if ((z = cmcfm()) < 0) return(z);
if (local) {
CHAR temp[3];
if (network && ttnproto == NP_TELNET) { /* TELNET */
temp[0] = (CHAR) IAC;
temp[1] = x;
temp[2] = NUL;
success = (ttol((CHAR *)temp,2) > -1 ? 1 : 0);
if (tn_deb || debses || deblog) {
sprintf(tn_msg,"TELNET SENT %s",TELCMD(x));
debug(F101,tn_msg,"",x);
if (debses || tn_deb) tn_debug(tn_msg);
}
return(success);
}
} else {
printf("ff%02xn",x);
return(success = 1);
}
}
}
#endif /* TCPSOCKET */
#ifndef NOPUSH
if (cx == XXNPSH) {
if ((z = cmcfm()) < 0) return(z);
nopush = 1;
#ifndef NOSERVER
en_hos = 0;
#endif /* NOSERVER */
#ifdef PIPESEND
usepipes = 0;
#endif /* PIPESEND */
return(success = 1);
}
#endif /* NOPUSH */
#ifndef NOSPL
if (cx == XXLOCAL) /* LOCAL variable declarations */
return(success = dolocal());
#endif /* NOSPL */
if (cx == XXKERMI) { /* The KERMIT command */
char * list[65];
extern char **xargv;
extern int xargc;
int i;
if ((y = cmtxt("kermit command-line arguments, -h for help",
"",&s,xxstring)) < 0)
return(y);
strcpy(line,"kermit ");
strncat(line,s,LINBUFSIZ-8);
xwords(line,64,list,0);
for (i = 1; i < 64; i++) {
if (!list[i])
break;
}
i--;
xargc = i;
xargv = list;
xargv++;
sstate = cmdlin();
if (sstate) {
extern int justone;
debug(F000,"KERMIT sstate","",sstate);
justone = 1; /* Force return to command mode */
proto(); /* after protocol */
return(success);
} else {
debug(F101,"KERMIT sstate","",sstate);
return(success = 1); /* Not exactly right, but... */
}
}
if (cx == XXDATE) { /* DATE command */
if ((y = cmtxt("date and/or time, or carriage return for current",
"",&s,xxstring)) < 0)
return(y);
s = ckcvtdate(s,1);
printf("%sn",s);
return(success = ((int)strcmp(s,"<BAD_DATE>") ? 1 : 0));
}
#ifndef NOPUSH
#ifndef NOFRILLS
if (cx == XXEDIT) {
char * p = NULL;
if (!editor[0]) {
s = getenv("EDITOR");
if (s) ckstrncpy(editor,s,CKMAXPATH);
editor[CKMAXPATH] = NUL;
if (!editor[0]) {
printf("?Editor not defined - use SET EDITOR to definen");
return(-9);
}
}
ckstrncpy(tmpbuf,editfile,TMPBUFSIZ);
/*
cmiofi() lets us parse the name of an existing file, or the name of
a nonexistent file to be created.
*/
x = cmiofi("File to edit", (char *)tmpbuf, &s, &y, xxstring);
if (x < 0) {
if (x == -9) {
if (zchko(s) < 0) {
printf("Can't create "%s"n",s);
return(x);
}
} else if (x != -3)
return(x);
}
if (x == -3)
tmpbuf[0] = NUL;
else {
ckstrncpy(tmpbuf,s,TMPBUFSIZ);
if (iswild((char *)tmpbuf)) {
printf("?A single file pleasen");
return(-9);
}
}
if ((z = cmcfm()) < 0) return(z);
if (nopush) {
printf("?Sorry, editing not allowedn");
return(success = 0);
}
if (tmpbuf[0]) {
/* Get full path in case we change directories between EDIT commands */
zfnqfp(tmpbuf, CKMAXPATH, editfile);
editfile[CKMAXPATH] = NUL;
#ifdef OS2
p = editfile; /* Flip the stupid slashes */
while (*p) {
if (*p == '/') *p = '\';
p++;
}
#endif /* OS2 */
} else
editfile[0] = NUL;
s = line;
x = 0;
if (editopts[0]) {
#ifdef OS2
x = ckindex("%1",(char *)editopts,0,0,1);
if (x > 0)
editopts[x] = 's';
else
#endif /* OS2 */
x = ckindex("%s",(char *)editopts,0,0,1);
}
if (x)
sprintf(tmpbuf,editopts,editfile);
else
sprintf(tmpbuf,"%s %s",editopts,editfile);
sprintf(s,"%s %s",editor,tmpbuf);
#ifdef OS2
p = s + strlen(editor); /* And again with the slashes */
while (p != s) {
if (*p == '/') *p = '\';
p--;
}
#endif /* OS2 */
conres();
x = zshcmd(s);
concb((char)escape);
return(x);
}
#endif /* NOFRILLS */
#endif /* NOPUSH */
#ifdef BROWSER /* Defined only ifndef NOPUSH */
if (cx == XXBROWS) {
#ifdef OS2
char * p = NULL;
#endif /* OS2 */
if (nopush) {
printf("?Sorry, browsing not allowedn");
return(success = 0);
}
#ifndef NT
/* Windows lets the Shell Execute the URL if no Browser is defined */
if (!browser[0]) {
s = getenv("BROWSER");
if (s) ckstrncpy(browser,s,CKMAXPATH);
browser[CKMAXPATH] = NUL;
if (!browser[0]) {
printf("?Browser not defined - use SET BROWSER to definen");
return(-9);
}
}
#endif /* NT */
ckstrncpy(tmpbuf,browsurl,TMPBUFSIZ);
if ((x = cmtxt("URL",(char *)browsurl,&s,xxstring)) < 0)
return(x);
ckstrncpy(browsurl,s,4096);
s = line;
x = 0;
if (browsopts[0]) {
#ifdef OS2
x = ckindex("%1",(char *)browsopts,0,0,1);
if (x > 0)
browsopts[x] = 's';
else
#endif /* OS2 */
x = ckindex("%s",(char *)browsopts,0,0,1);
}
if (x)
sprintf(tmpbuf,browsopts,browsurl);
else
sprintf(tmpbuf,"%s %s",browsopts,browsurl);
#ifdef NT
if ( !browser[0] ) {
return(success = Win32ShellExecute( browsurl ));
}
#endif /* NT */
sprintf(s,"%s %s",browser,tmpbuf);
#ifdef OS2
p = line + strlen(browser); /* Flip slashes */
while (p != line) {
if (*p == '/') *p = '\';
p--;
}
#endif /* OS2 */
conres();
x = zshcmd(s);
concb((char)escape);
return(x);
}
#endif /* BROWSER */
#ifdef CK_TAPI
if (cx == XXTAPI) { /* Microsoft TAPI */
return (success = dotapi());
}
#endif /* CK_TAPI */
#ifndef NOXFER
if (cx == XXWHERE) {
extern char * rfspec, * sfspec, * srfspec, * rrfspec;
if ((x = cmcfm()) < 0) return(x);
printf("nFile most recently...nn");
printf(" Sent: %sn", sfspec ? sfspec : "(none)");
if (sfspec && srfspec) {
printf(" Stored as: %sn", srfspec);
printf("n");
}
printf(" Received: %sn", rrfspec ? rrfspec : "(none)");
if (rfspec && rrfspec)
printf(" Stored as: %sn", rfspec);
printf(
"nIf the full path is not shown, then the file is probably in your currentn"
);
printf(
"directory or your download directory (if any - SHOW FILE to find out).nn"
);
return(success = 1);
}
#endif /* NOXFER */
#ifdef CK_RECALL
if (cx == XXREDO) { /* Find a previous cmd and redo it */
extern int on_recall, in_recall;
int x;
char * p;
if ((x = cmtxt(
"pattern, or first few characters of a previous command",
"*",&s,xxstring)) < 0)
return(x);
ckstrncpy(line,s,LINBUFSIZ);
x = strlen(s);
s = line;
if (*s == '{') { /* Braces disable adding * to end */
if (s[x-1] == '}') {
s[x-1] = NUL;
s++;
x--;
}
} else { /* No braces, add * to end. */
s[x] = '*';
s[x+1] = NUL;
}
while (x > 0 && s[x] == '*' && s[x-1] == '*') s[x--] = NUL;
if (!on_recall || !in_recall) {
printf("?Sorry, command recall can't be used now.n");
return(-9);
}
if (p = cmgetcmd(s)) { /* Look for it history buffer */
sprintf(cmdbuf,"%s%c",p,'r'); /* Found - copy to command buffer */
cmaddnext(); /* Force re-add to history buffer */
return(cmflgs = -1); /* Force reparse */
} else {
printf("?Sorry - "%s" not foundn", s);
return(-9);
}
}
#endif /* CK_RECALL */
/* This is useless unless user is root. Too bad, it's just what we need. */
#ifdef COMMENT
if (cx == XXCHRT) { /* Change root directory */
#ifdef UNIX
if ((x = cmdir("Name of new root directory","",&s,xxstring)) < 0)
return(x);
ckstrncpy(line,s,LINBUFSIZ);
s = line;
if ((x = cmcfm()) < 0) return(x);
s = brstrip(s);
priv_on(); /* This doesn't work if setuid root */
x = chroot(s); /* See priv_ini() in ckutio.c. */
priv_off();
if (x) {
printf("Error %dn",errno); /* 1 = EPERM (i.e. "not root") */
perror("chroot");
return(success = 0);
}
return(success = zchdir(s));
#else
printf("?Sorry, not implementedn");
return(-9);
#endif /* UNIX */
}
#endif /* COMMENT */
#ifdef CK_KERBEROS
if (cx == XXAUTH) { /* KERBEROS */
x = cp_auth(); /* Parse it */
if (x < 0) /* Pass parse errors back */
return(x);
#ifdef IKSD
if (inserver) {
printf("?Command disabled in IKSD.rn");
return(success = 0);
}
#endif /* IKSD */
return(success = doauth(cx));
}
#endif /* CK_KERBEROS */
#ifndef NOLOCAL
if (cx == XXTERM) {
return(settrmtyp());
}
#endif /* NOLOCAL */
if (cx == XXSTATUS) {
if ((x = cmcfm()) < 0) return(x);
printf( " %sn", success ? "SUCCESS" : "FAILURE" );
return(0); /* Don't change it */
}
if (cx == XXFAIL) {
if ((x = cmcfm()) < 0) return(x);
return(success = 0);
}
if (cx == XXSUCC) {
if ((x = cmcfm()) < 0) return(x);
return(success = 1);
}
if (cx == XXNLCL) {
extern int nolocal;
if ((x = cmcfm()) < 0) return(x);
nolocal = 1;
return(success = 1);
}
#ifndef NOXFER
if (cx == XXRASG) /* Shortcuts for REMOTE commands */
return(dormt(XZASG));
if (cx == XXRCWD)
return(dormt(XZCWD));
if (cx == XXRCPY)
return(dormt(XZCPY));
if (cx == XXRDEL)
return(dormt(XZDEL));
if (cx == XXRDIR)
return(dormt(XZDIR));
if (cx == XXRXIT)
return(dormt(XZXIT));
if (cx == XXRHLP)
return(dormt(XZHLP));
if (cx == XXRHOS)
return(dormt(XZHOS));
if (cx == XXRKER)
return(dormt(XZKER));
if (cx == XXRPWD)
return(dormt(XZPWD));
if (cx == XXRQUE)
return(dormt(XZQUE));
if (cx == XXRREN)
return(dormt(XZREN));
if (cx == XXRMKD)
return(dormt(XZMKD));
if (cx == XXRRMD)
return(dormt(XZRMD));
if (cx == XXRSET)
return(dormt(XZSET));
if (cx == XXRSPA)
return(dormt(XZSPA));
if (cx == XXRTYP)
return(dormt(XZTYP));
if (cx == XXRWHO)
return(dormt(XZWHO));
#endif /* NOXFER */
if (cx == XXRESET) { /* RESET */
if ((x = cmcfm()) < 0)
return(x);
doclean(0); /* Close all files */
return(success = 1);
}
#ifndef NOXFER
#ifndef NOCSETS
if (cx == XXASSOC) { /* ASSOCIATE */
extern struct keytab tcstab[];
extern int ntcs;
if ((x = cmkey(assoctab, nassoc, "", "", xxstring)) < 0 )
return(x);
switch (x) { /* Associate what? */
case ASSOC_TC: /* Transfer character-set... */
if ((x = cmkey(tcstab, ntcs,
"transfer character-set name","",xxstring)) < 0)
return(x);
if ((y = cmkey(fcstab, nfilc,
"with file character-set","", xxstring)) < 0)
if (y != -3)
return(y);
if ((z = cmcfm()) < 0)
return(z);
axcset[x] = y;
return(success = 1);
case ASSOC_FC: /* File character-set... */
if ((x = cmkey(fcstab, nfilc,
"file character-set name","",xxstring)) < 0)
return(x);
if ((y = cmkey(tcstab, ntcs,
"with transfer character-set","", xxstring)) < 0)
if (y != -3)
return(y);
if ((z = cmcfm()) < 0)
return(z);
afcset[x] = y;
return(success = 1);
default:
return(-2);
}
}
#endif /* NOCSETS */
#endif /* NOXFER */
#ifndef NOSPL
if (cx == XXSHIFT) { /* SHIFT */
if ((y = cmnum("Number of arguments to shift","1",10,&x,xxstring)) < 0)
return(y);
if ((z = cmcfm()) < 0)
return(z);
return(success = doshift(x));
}
#endif /* NOSPL */
#ifndef NOHELP
if (cx == XXMAN) {
#ifdef OS2
if ((x = cmcfm()) < 0)
return(x);
if (nopush) {
printf("?Sorry, access to system commands is disabled.n");
return(-9);
}
y = mxlook(mactab,"manual",nmac);
if (y > -1) {
z = maclvl; /* save the current maclvl */
dodo(y,NULL,cmdstk[cmdlvl].ccflgs); /* Run the macro */
while (maclvl > z) {
debug(F101,"XXMAN loop maclvl 1","",maclvl);
sstate = (CHAR) parser(1);
debug(F101,"XXMAN loop maclvl 2","",maclvl);
if (sstate) proto();
}
debug(F101,"XXMAN loop exit maclvl","",maclvl);
return(success);
}
return(success = 0);
#else
if ((x = cmtxt(
#ifdef UNIX
"Carriage return to confirm the command, or manual topic",
#else
"Carriage return to confirm the command, or help topic",
#endif /* UNIX */
"kermit",
&s,
xxstring
)
) < 0)
return(x);
#endif /* OS2 */
#ifdef UNIX
sprintf(tmpbuf,"man %s",s);
#else
sprintf(tmpbuf,"help %s",s);
#endif /* UNIX */
debug(F110,"MANUAL",tmpbuf,0);
if (nopush) {
printf("?Sorry, access to system commands is disabled.n");
return(-9);
} else {
conres(); /* Restore the console */
success = zshcmd(tmpbuf);
concb((char)escape); /* Restore CBREAK mode */
return(success);
}
}
#endif /* NOHELP */
#ifndef NOSPL
if (cx == XXSORT) /* SORT an array */
return(dosort());
#endif /* NOSPL */
if (cx == XXPURGE) {
#ifdef IKSD
if (inserver && (!ENABLED(en_del)
#ifdef CK_LOGIN
|| isguest
#endif /* CK_LOGIN */
)) {
printf("?Sorry, DELETE is disabledn");
return(-9);
}
#endif /* IKSD */
#ifdef CK_APC
if (apcactive == APC_LOCAL ||
apcactive == APC_REMOTE && apcstatus != APC_UNCH) return(success = 0);
#endif /* CK_APC */
#ifdef CKPURGE
return(dopurge());
#else
#ifdef VMS
if ((x = cmtxt("optional switches followed by filespec",
"",&s,xxstring)) < 0)
return(x);
if (nopush) {
printf("?Sorry, DCL access is disabledn");
return(-9);
}
ckstrncpy(line,s,LINBUFSIZ);
s = line;
x = mlook(mactab,"purge",nmac);
return(success = dodo(x,s,cmdstk[cmdlvl].ccflgs));
#else
return(-2);
#endif /* VMS */
#endif /* CKPURGE */
}
#ifndef NOSPL
if (cx == XXFAST) {
if ((x = cmcfm()) < 0) return(x);
x = mlook(mactab,"fast",nmac);
return(success = dodo(x,NULL,cmdstk[cmdlvl].ccflgs));
}
if (cx == XXCAU) {
if ((x = cmcfm()) < 0) return(x);
x = mlook(mactab,"cautious",nmac);
return(success = dodo(x,NULL,cmdstk[cmdlvl].ccflgs));
}
if (cx == XXROB) {
if ((x = cmcfm()) < 0) return(x);
x = mlook(mactab,"robust",nmac);
return(success = dodo(x,NULL,cmdstk[cmdlvl].ccflgs));
}
#endif /* NOSPL */
if (cx == XXSCRN) { /* SCREEN */
int row, col;
if ((x = cmkey(scntab, nscntab,"screen action","", xxstring)) < 0)
return(x);
switch (x) { /* MOVE-TO (cursor position) */
case SCN_MOV:
if ((y = cmnum("Row (1-based)","",10,&z,xxstring)) < 0)
return(y);
row = z;
y = cmnum("Column (1-based)","1",10,&z,xxstring);
if (y < 0)
return(y);
col = z;
if ((y = cmcfm()) < 0)
return(y);
if (row < 0 || col < 0) {
printf("?Row and Column must be 1 or greatern");
return(-9);
}
if (cmd_rows > 0 && row > cmd_rows)
row = cmd_rows;
if (cmd_cols > 0 && col > cmd_cols)
col = cmd_cols;
y = ck_curpos(row,col);
return(success = (y > -1) ? 1 : 0);
case SCN_CLR: /* CLEAR */
if ((y = cmcfm()) < 0)
return(y);
debug(F100,"screen calling ck_cls()","",0);
y = ck_cls();
return(success = (y > -1) ? 1 : 0);
case SCN_CLE: /* CLEOL */
if ((y = cmcfm()) < 0)
return(y);
y = ck_cleol();
return(success = (y > -1) ? 1 : 0);
}
}
#ifndef NOHTTP
#ifdef TCPSOCKET
if (cx == XXHTTP) { /* HTTP */
struct FDB sw, kw, fi;
int n, getval;
char c, * p;
char * http_agent = NULL; /* Parse results */
char * http_hdr = NULL;
char * http_user = NULL;
char * http_pass = NULL;
char * http_mime = NULL;
char * http_lfile = NULL;
char * http_rfile = NULL;
char http_array = NUL;
int http_action = -1;
#ifdef OS2
p = "Kermit 95"; /* Default user agent */
#else
p = "C-Kermit";
#endif /* OS2 */
makestr(&http_agent,p);
makestr(&http_mime,"text/HTML"); /* MIME type default */
cmfdbi(&sw, /* 1st FDB - general switches */
_CMKEY, /* fcode */
"GET, HEAD, PUT, INDEX, or POST,n or switch", /* hlpmsg */
"", /* default */
"", /* addtl string data */
nhttpswtab, /* addtl numeric data 1: tbl size */
4, /* addtl numeric data 2: 4 = cmswi */
xxstring, /* Processing function */
httpswtab, /* Keyword table */
&kw /* Pointer to next FDB */
);
cmfdbi(&kw, /* 2nd FDB - commands */
_CMKEY, /* fcode */
"Command", /* hlpmsg */
"", /* default */
"", /* addtl string data */
nhttptab, /* addtl numeric data 1: tbl size */
0, /* addtl numeric data 2: 0 = keyword */
xxstring, /* Processing function */
httptab, /* Keyword table */
NULL /* Pointer to next FDB */
);
while (1) {
x = cmfdb(&sw); /* Parse something */
if (x < 0) /* Error */
goto xhttp;
n = cmresult.nresult;
if (cmresult.fdbaddr == &kw) /* Command - exit this loop */
break;
c = cmgbrk(); /* Switch... */
getval = (c == ':' || c == '=');
if (getval && !(cmgkwflgs() & CM_ARG)) {
printf("?This switch does not take an argumentn");
x = -9;
goto xhttp;
}
switch (cmresult.nresult) { /* Handle each switch */
case HT_SW_AG: /* /AGENT */
if (getval) {
if ((x = cmfld("User agent",p,&s,xxstring)) < 0)
goto xhttp;
} else
s = p;
makestr(&http_agent,s);
break;
case HT_SW_HD: /* /HEADER */
s = NULL;
if (getval) {
if ((x = cmfld("Header line","",&s,xxstring)) < 0) {
if (x == -3)
s = NULL;
else
goto xhttp;
}
}
makestr(&http_hdr,s);
break;
case HT_SW_US: /* /USER */
s = NULL;
if (getval) {
if ((x = cmfld("User ID","",&s,xxstring)) < 0)
goto xhttp;
}
makestr(&http_user,s);
break;
case HT_SW_PW: /* /PASSWORD */
s = NULL;
if (getval) {
if ((x = cmfld("Password","",&s,xxstring)) < 0)
goto xhttp;
}
makestr(&http_pass,s);
break;
#ifndef NOSPL
case HT_SW_AR: { /* /ARRAY: */
char * s2, array = NUL;
if (!getval) {
printf("?This switch requires an argumentn");
x = -9;
goto xhttp;
}
if ((x = cmfld("Array name (a single letter will do)",
"",
&s,
NULL
)) < 0) {
if (x == -3) {
printf("?Array name requiredn");
x = -9;
goto xhttp;
} else
goto xhttp;
}
if (!*s) {
printf("?Array name requiredn");
x = -9;
goto xhttp;
}
s2 = s;
if (*s == CMDQ) s++;
if (*s == '&') s++;
if (!isalpha(*s)) {
printf("?Bad array name - "%s"n",s2);
x = -9;
goto xhttp;
}
array = *s++;
if (isupper(array))
array = tolower(array);
if (*s && (*s != '[' || *(s+1) != ']')) {
printf("?Bad array name - "%s"n",s2);
http_array = NUL;
x = -9;
goto xhttp;
}
http_array = array;
break;
}
#endif /* NOSPL */
default:
x = -2;
goto xhttp;
}
}
http_action = n; /* Save the action */
if (http_action == HTTP_PUT || http_action == HTTP_POS) {
cmfdbi(&sw, /* 1st FDB - switch */
_CMKEY, /* fcode */
"Local filenamen Or switch", /* help */
"", /* default */
"", /* addtl string data */
nhttpptab, /* keyword table size */
4, /* addtl numeric data 2: 4 = cmswi */
xxstring, /* Processing function */
httpptab, /* Keyword table */
&fi /* Pointer to next FDB */
);
cmfdbi(&fi, /* 2nd FDB - filename */
_CMIFI, /* fcode */
"Local filename", /* hlpmsg */
"", /* default */
"", /* addtl string data */
0, /* addtl numeric data 1 */
0, /* addtl numeric data 2 */
xxstring,
NULL,
NULL
);
while (1) {
x = cmfdb(&sw);
if (x < 0)
goto xhttp; /* Free any malloc'd temp strings */
n = cmresult.nresult;
if (cmresult.fcode != _CMKEY)
break;
c = cmgbrk(); /* Switch... */
getval = (c == ':' || c == '=');
if (getval && !(cmgkwflgs() & CM_ARG)) {
printf("?This switch does not take an argumentn");
x = -9;
goto xhttp;
}
switch (n) {
case HT_PP_MT:
s = "text/HTML";
if (getval) {
if ((x = cmfld("MIME type",
"text/HTML",&s,xxstring)) < 0)
goto xhttp;
}
makestr(&http_mime,s);
break;
default:
x = -2;
goto xhttp;
}
}
makestr(&http_lfile,cmresult.sresult);
if ((x = cmtxt("Remote filename","",&s,xxstring)) < 0)
goto xhttp;
if (!*s) s = http_lfile;
makestr(&http_rfile,s);
}
switch (http_action) {
case HTTP_DEL: /* DELETE */
if ((x = cmfld("Remote source file","",&s,xxstring)) < 0)
goto xhttp;
makestr(&http_rfile,s);
break;
case HTTP_HED: /* HEAD */
if ((x = cmfld("Remote source file","",&s,xxstring)) < 0)
goto xhttp;
makestr(&http_rfile,s);
n = ckindex("/",http_rfile,-1,1,0);
if ( n )
p = &http_rfile[n];
else
p = http_rfile;
if ((x = cmofi("Local filename",p,&s,xxstring)) < 0)
goto xhttp;
makestr(&http_lfile,s);
break;
case HTTP_GET: /* GET */
case HTTP_IDX: /* INDEX */
if ((x = cmfld("Remote source file","",&s,xxstring)) < 0)
goto xhttp;
makestr(&http_rfile,s);
if ((x = cmofi("Local filename","",&s,xxstring)) < 0)
if (x != -3)
goto xhttp;
makestr(&http_lfile,s);
break;
}
if ((x = cmcfm()) < 0)
goto xhttp;
x = dohttp(http_action,
http_lfile,
http_rfile,
http_agent,
http_hdr,
http_user,
http_pass,
http_mime,
http_array
);
xhttp:
if (http_agent) free(http_agent);
if (http_hdr) free(http_hdr);
if (http_user) free(http_user);
if (http_pass) free(http_pass);
if (http_mime) free(http_mime);
if (http_lfile) free(http_lfile);
if (http_rfile) free(http_rfile);
if (x > -1)
success = x;
return(x);
}
#endif /* TCPSOCKET */
#endif /* NOHTTP */
#ifndef NOSPL
if (cx == XXARRAY) { /* ARRAY */
#ifndef NOSHOW
extern int showarray();
#endif /* NOSHOW */
if ((x = cmkey(arraytab, narraytab,"Array operation","",xxstring)) < 0)
return(x);
switch (x) {
case ARR_DCL:
return(dodcl());
case ARR_SRT:
return(dosort());
#ifndef NOSHOW
case ARR_SHO:
return(showarray());
#endif /* NOSHOW */
case ARR_CPY:
return(copyarray());
case ARR_SET:
case ARR_CLR:
return(clrarray(x));
case ARR_DST:
return(unarray());
case ARR_RSZ:
return(rszarray());
default:
printf("?Sorry, not implemented yet - "%s"n",cmdbuf);
return(-9);
}
}
if (cx == XXTRACE) {
int on = 1;
struct FDB sw, kw;
cmfdbi(&sw, /* 1st FDB - switch */
_CMKEY, /* fcode */
"Trace object;n Or switch", /* help */
"", /* default */
"", /* addtl string data */
2, /* keyword table size */
4, /* addtl numeric data 2: 4 = cmswi */
xxstring, /* Processing function */
onoffsw, /* Keyword table */
&kw /* Pointer to next FDB */
);
cmfdbi(&kw, /* 2nd FDB - Trace object */
_CMKEY, /* fcode */
"Trace object", /* help */
"all", /* default */
"", /* addtl string data */
ntracetab, /* keyword table size */
0, /* addtl numeric data 2: 0 = keyword */
xxstring, /* Processing function */
tracetab, /* Keyword table */
NULL /* Pointer to next FDB */
);
if ((x = cmfdb(&sw)) < 0)
return(x);
if (cmresult.fdbaddr == &sw) {
on = cmresult.nresult;
if ((x = cmkey(tracetab, ntracetab,"","all",xxstring)) < 0)
return(x);
} else {
x = cmresult.nresult;
}
if ((y = cmcfm()) < 0)
return(y);
switch (x) {
case TRA_ASG:
tra_asg = on;
break;
case TRA_CMD:
tra_cmd = on;
break;
case TRA_ALL:
tra_asg = on;
tra_cmd = on;
break;
default:
return(-2);
}
printf("TRACE %sn", on ? "ON" : "OFF");
return(success = 1);
}
if (cx == XXNOTAV) { /* Command in table not available */
ckstrncpy(tmpbuf,atmbuf,TMPBUFSIZ);
if ((x = cmtxt("Rest of command","",&s,NULL)) < 0)
return(x);
printf("Sorry, "%s" not configured in this version of Kermit.n",
tmpbuf
);
return(success = 0);
}
#endif /* NOSPL */
return(-2); /* None of the above */
} /* end of docmd() */
#endif /* NOICP */