![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to ckuusx.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [MW Coherent from dump] / coherent / e / bin / cku179|
Return to ckuusx.c CVS log | Up to [MW Coherent from dump] / coherent / e / bin / cku179 |
1.1 root 1: /* C K U U S X -- "User Interface" common functions. */
2:
3: /*
4: Author: Frank da Cruz ([email protected], [email protected]),
5: Columbia University Center for Computing Activities.
6: First released January 1985.
7: Copyright (C) 1985, 1992, Trustees of Columbia University in the City of New
8: York. Permission is granted to any individual or institution to use, copy, or
9: redistribute this software so long as it is not sold for profit, provided this
10: copyright notice is retained.
11: */
12:
13: /*
14: This module contains user interface functions needed by both the interactive
15: user interface and the command-line-only user interface.
16: */
17:
18: /* Includes */
19:
20: #include "ckcdeb.h"
21: #include "ckcasc.h"
22: #include "ckcker.h"
23: #include "ckuusr.h"
24: #include <signal.h>
25:
26: #ifdef VMS
27: #include <descrip.h>
28: #include <ssdef.h>
29: #include <stsdef.h>
30: #endif /* VMS */
31:
32: /* Variables declared here */
33:
34: #ifdef DEBUG
35: char debfil[50]; /* Debugging log file name */
36: #endif /* DEBUG */
37:
38: #ifdef TLOG
39: char trafil[50]; /* Transaction log file name */
40: #endif /* TLOG */
41:
42: char pktfil[50]; /* Packet log file name */
43: char sesfil[50]; /* Session log file name */
44:
45: #ifndef NOFRILLS
46: char optbuf[50]; /* Options for MAIL or REMOTE PRINT */
47: #endif /* NOFRILLS */
48: char cmdstr[256]; /* Place to build generic command */
49:
50: char fspec[FSPECL]; /* Filename string for \v(filespec) */
51:
52: int success = 1, /* Command success/failure flag */
53:
54: #ifndef NOSPL
55: cmdlvl = 0, /* Command level */
56: #endif /* NOSPL */
57: action, /* Action selected on command line*/
58: sessft = 0, /* Session log file type, 0 = text */
59: pflag = 1; /* Print prompt & messages */
60:
61: #ifndef NOMSEND /* Multiple SEND */
62: char *msfiles[MSENDMAX];
63: #endif /* NOMSEND */
64:
65: /* External variables */
66:
67: extern int local, quiet, binary, bctu, rptflg, ebqflg, network, server,
68: what, spsiz, urpsiz, wmax, czseen, cxseen, winlo, displa, timint,
69: npad, ebq, ebqflg, bctr, rptq, atcapu, lpcapu, swcapu, wslotn, wslotr, rtimo,
70: mypadn, sq, capas, rpsiz, tsecs, dfloc, tralog, pktlog, seslog, lscapu,
71: xitsta, escape, tlevel, bgset, backgrd, wslots, suspend, srvdis;
72:
73: extern long speed, filcnt, ffc, rptn, fsize;
74:
75: extern CHAR *rdatap, padch, seol, ctlq, mypadc, eol;
76:
77: extern char ttname[], *dftty, *cmarg, **cmlist;
78: #ifndef NOICP
79: #ifdef DCMDBUF
80: extern char *cmdbuf; /* Command buffer */
81: #else
82: extern char cmdbuf[]; /* Command buffer */
83: #endif /* DCMDBUF */
84: #endif /* NOICP */
85:
86: #ifndef NOCCTRAP
87: #include <setjmp.h> /* Control-C trap */
88: jmp_buf cmjbuf;
89: #endif /* NOCCTRAP */
90:
91: /* S D E B U -- Record spar results in debugging log */
92:
93: VOID
94: sdebu(len) int len; {
95: debug(F111,"spar: data",(char *) rdatap,len);
96: debug(F101," spsiz ","", spsiz);
97: debug(F101," timint","",timint);
98: debug(F101," npad ","", npad);
99: debug(F101," padch ","", padch);
100: debug(F101," seol ","", seol);
101: debug(F101," ctlq ","", ctlq);
102: debug(F101," ebq ","", ebq);
103: debug(F101," ebqflg","",ebqflg);
104: debug(F101," bctr ","", bctr);
105: debug(F101," rptq ","", rptq);
106: debug(F101," rptflg","",rptflg);
107: debug(F101," lscapu","",lscapu);
108: debug(F101," atcapu","",atcapu);
109: debug(F101," lpcapu","",lpcapu);
110: debug(F101," swcapu","",swcapu);
111: debug(F101," wslotn","", wslotn);
112: }
113: /* R D E B U -- Debugging display of rpar() values */
114:
115: VOID
116: rdebu(d,len) CHAR *d; int len; {
117: debug(F111,"rpar: data",d,len);
118: debug(F101," rpsiz ","", xunchar(d[0]));
119: debug(F101," rtimo ","", rtimo);
120: debug(F101," mypadn","",mypadn);
121: debug(F101," mypadc","",mypadc);
122: debug(F101," eol ","", eol);
123: debug(F101," ctlq ","", ctlq);
124: debug(F101," sq ","", sq);
125: debug(F101," ebq ","", ebq);
126: debug(F101," ebqflg","",ebqflg);
127: debug(F101," bctr ","", bctr);
128: debug(F101," rptq ","", d[8]);
129: debug(F101," rptflg","",rptflg);
130: debug(F101," capas ","", capas);
131: debug(F101," bits ","",d[capas]);
132: debug(F101," lscapu","",lscapu);
133: debug(F101," atcapu","",atcapu);
134: debug(F101," lpcapu","",lpcapu);
135: debug(F101," swcapu","",swcapu);
136: debug(F101," wslotr","", wslotr);
137: debug(F101," rpsiz(extended)","",rpsiz);
138: }
139:
140: /* F A T A L -- Fatal error message */
141:
142: VOID
143: fatal(msg) char *msg; {
144: screen(SCR_EM,0,0L,msg);
145: debug(F110,"fatal",msg,0);
146: tlog(F110,"Fatal:",msg,0L);
147: doexit(BAD_EXIT,xitsta); /* Exit indicating failure */
148: }
149:
150: /* B L D L E N -- Make length-encoded copy of string */
151:
152: char *
153: bldlen(str,dest) char *str, *dest; {
154: int len;
155: len = (int)strlen(str);
156: *dest = tochar(len);
157: strcpy(dest+1,str);
158: return(dest+len+1);
159: }
160:
161:
162: /* S E T G E N -- Construct a generic command */
163:
164: CHAR
165: #ifdef CK_ANSIC
166: setgen(char type,char * arg1, char * arg2, char * arg3)
167: #else
168: setgen(type,arg1,arg2,arg3) char type, *arg1, *arg2, *arg3;
169: #endif /* CK_ANSIC */
170: /* setgen */ {
171: char *upstr, *cp;
172:
173: cp = cmdstr;
174: *cp++ = type;
175: *cp = NUL;
176: if (*arg1 != NUL) {
177: upstr = bldlen(arg1,cp);
178: if (*arg2 != NUL) {
179: upstr = bldlen(arg2,upstr);
180: if (*arg3 != NUL) bldlen(arg3,upstr);
181: }
182: }
183: cmarg = cmdstr;
184: debug(F110,"setgen",cmarg,0);
185:
186: return('g');
187: }
188:
189: #ifndef NOMSEND
190: static char *mgbufp = NULL;
191:
192: /* F N P A R S E -- */
193:
194: /*
195: Argument is a character string containing one or more filespecs.
196: This function breaks the string apart into an array of pointers, one
197: to each filespec, and returns the number of filespecs. Used by server
198: when it receives a GET command to allow it to process multiple file
199: specifications in one transaction. Sets cmlist to point to a list of
200: file pointers, exactly as if they were command line arguments.
201:
202: This version of fnparse treats spaces as filename separators. If your
203: operating system allows spaces in filenames, you'll need a different
204: separator.
205:
206: This version of fnparse mallocs a string buffer to contain the names. It
207: cannot assume that the string that is pointed to by the argument is safe.
208: */
209: int
210: fnparse(string) char *string; {
211: char *p, *s, *q;
212: int r = 0, x; /* Return code */
213:
214: if (mgbufp) free(mgbufp); /* Free this from last time. */
215: mgbufp = malloc((int)strlen(string)+2);
216: if (!mgbufp) {
217: debug(F100,"fnparse malloc error","",0);
218: return(0);
219: }
220: #ifndef NOICP
221: #ifndef NOSPL
222: strncpy(fspec,string,FSPECL); /* Make copy for \v(filespec) */
223: #endif /* NOSPL */
224: #endif /* NOICP */
225: s = string; /* Input string */
226: p = q = mgbufp; /* Point to the copy */
227: r = 0; /* Initialize our return code */
228: while (*s == SP) s++; /* Skip leading spaces */
229: while (1) { /* Loop through rest of string */
230: if (*s == CMDQ) { /* Backslash (quote character)? */
231: if ((x = xxesc(&s)) > -1) { /* Go interpret it. */
232: *q++ = (char) x; /* Numeric backslash code, ok */
233: } else { /* Just let it quote next char */
234: s++; /* get past the backslash */
235: *q++ = *s++; /* deposit next char */
236: }
237: continue;
238: } else if (*s == SP || *s == NUL) { /* Unquoted space or NUL? */
239: *q++ = NUL; /* End of output filename. */
240: msfiles[r] = p; /* Add this filename to the list */
241: debug(F111,"fnparse",msfiles[r],r);
242: r++; /* Count it */
243: if (*s == NUL) break; /* End of string? */
244: while (*s == SP) s++; /* Skip repeated spaces */
245: p = q; /* Start of next name */
246: continue;
247: } else *q++ = *s; /* Otherwise copy the character */
248: s++; /* Next input character */
249: }
250: debug(F101,"fnparse r","",r);
251: cmlist = msfiles;
252: return(r);
253: }
254: #endif /* NOMSEND */
255:
256: char * /* dbchr() for DEBUG SESSION */
257: dbchr(c) int c; {
258: static char s[8];
259: char *cp = s;
260:
261: c &= 0xff;
262: if (c & 0x80) { /* 8th bit on */
263: sprintf(cp++,"~");
264: c &= 0x7f;
265: }
266: if (c < SP) { /* Control character */
267: sprintf(cp,"^%c",ctl(c));
268: } else if (c == DEL) {
269: sprintf(cp,"^?");
270: } else { /* Printing character */
271: sprintf(cp,"%c",c);
272: }
273: cp = s; /* Return pointer to it */
274: return(cp);
275: }
276:
277: /* C K H O S T -- Get name of local host (where C-Kermit is running) */
278:
279: /*
280: Call with pointer to buffer to put hostname in, and length of buffer.
281: Copies hostname into buffer on success, puts null string in buffer on
282: failure.
283: */
284: #ifdef ATTSV
285: #include <sys/utsname.h>
286: #endif /* ATTSV */
287:
288: VOID
289: ckhost(vvbuf,vvlen) char * vvbuf; int vvlen; {
290: char *g;
291: #ifdef VMS
292: int x;
293: #endif /* VMS */
294: #ifdef ATTSV
295: struct utsname hname;
296: #endif /* ATTSV */
297:
298: *vvbuf = NUL;
299: #ifdef ATTSV
300: if (uname(&hname) > -1) strncpy(vvbuf,hname.nodename,vvlen);
301: #else
302: #ifdef BSD4
303: if (gethostname(vvbuf,vvlen) < 0) *vvbuf = NUL;
304: #else
305: #ifdef VMS
306: g = getenv("SYS$NODE");
307: if (g) strncpy(vvbuf,g,vvlen);
308: x = (int)strlen(vvbuf);
309: if (x > 1 && vvbuf[x-1] == ':' && vvbuf[x-2] == ':') vvbuf[x-2] = NUL;
310: #endif /* VMS */
311: #endif /* BSD4 */
312: #endif /* ATTSV */
313: if (*vvbuf == NUL) { /* If it's still empty */
314: g = getenv("HOST"); /* try this */
315: if (g) strncpy(vvbuf,g,vvlen);
316: }
317: vvbuf[vvlen-1] = NUL; /* Make sure result is terminated. */
318: }
319:
320: #ifndef NOSPL
321: #define ASKMORE
322: #endif /* NOSPL */
323: #ifndef NOHELP
324: #define ASKMORE
325: #endif /* NOHELP */
326:
327: #ifdef ASKMORE
328: /*
329: A S K M O R E -- Poor person's "more".
330: Returns 0 if no more, 1 if more wanted.
331: Presently used by SHO MAC, SHO GLOB, and HELP, so compiled out if
332: those options are also compiled out.
333: */
334: int
335: askmore() {
336: char c; int rv;
337:
338: rv = -1;
339: while (rv < 0) {
340: #ifdef UNIX
341: #ifdef NOSETBUF
342: printf("more? ");
343: fflush(stdout);
344: #endif /* NOSETBUF */
345: #endif /* UNIX */
346: c = coninc(0);
347: switch (c) {
348: /* Yes */
349: case SP: case 'y': case 'Y': case 012: case 015:
350: printf("\015 \015");
351: rv = 1;
352: break;
353: /* No */
354: case 'n': case 'N': case 'q': case 'Q':
355: printf("\015\012");
356: rv = 0;
357: break;
358: /* Invalid answer */
359: default:
360: printf("Y or space-bar for yes, N for no\n");
361: continue;
362: }
363: }
364: return(rv);
365: }
366: #endif /* ASKMORE */
367:
368: /* T R A P -- Terminal interrupt handler */
369:
370: SIGTYP
371: trap(sig) int sig; {
372: #ifdef VMS
373: int i; FILE *f;
374: #endif /* VMS */
375: #ifdef GEMDOS
376: /* GEM is not reentrant, no i/o from interrupt level */
377: longjmp(cmjbuf,1); /* Jump back to parser now! */
378: #endif /* GEMDOS */
379: debug(F101,"^C trap() caught signal","",sig);
380: zclose(ZIFILE); /* If we were transferring a file, */
381: zclose(ZOFILE); /* close it. */
382: #ifdef VMS
383: /*
384: Fix terminal.
385: */
386: conres();
387: i = printf("^C...\n"); /* Echo ^C to standard output */
388: if (i < 1 && ferror(stdout)) { /* If there was an error */
389: fclose(stdout); /* close standard output */
390: f = fopen(dftty, "w"); /* open the controlling terminal */
391: if (f) stdout = f; /* and make it standard output */
392: printf("^C...\n"); /* and echo the ^C again. */
393: }
394: #else
395: printf("^C...\n"); /* Not VMS, no problem... */
396: #endif /* VMS */
397:
398: #ifndef NOCCTRAP
399: #ifdef UNIX
400: ttimoff(); /* Turn off any timer interrupts */
401: #endif /* UNIX */
402: #ifdef OSK
403: ttimoff(); /* Turn off any timer interrupts */
404: #endif /* OSK */
405: longjmp(cmjbuf,1); /* Jump back to parser */
406: #else
407: /* No Ctrl-C trap, just exit. */
408: doexit(BAD_EXIT,what); /* Exit poorly */
409: #endif /* NOCCTRAP */
410: }
411:
412: /* C C _ C L E A N -- Cleanup after terminal interrupt handler */
413:
414: #ifdef GEMDOS
415: int
416: cc_clean() {
417: zclose(ZIFILE); /* If we were transferring a file, */
418: zclose(ZOFILE); /* close it. */
419: printf("^C...\n"); /* Not VMS, no problem... */
420: }
421: #endif /* GEMDOS */
422:
423:
424: /* S T P T R A P -- Handle SIGTSTP (suspend) signals */
425:
426: SIGTYP
427: stptrap(sig) int sig; {
428: #ifndef NOJC
429: int x; extern int cmflgs;
430: debug(F101,"stptrap() caught signal","",sig);
431: if (!suspend) {
432: printf("\r\nsuspend disabled\r\n");
433: #ifndef NOICP
434: if (what == W_COMMAND) { /* If command parsing was */
435: prompt(xxstring); /* reissue the prompt and partial */
436: if (!cmflgs) /* command (if any) */
437: printf("%s",cmdbuf);
438: }
439: #endif /* NOICP */
440: } else {
441: conres(); /* Reset the console */
442: #ifndef OS2
443: x = psuspend(suspend); /* Try to suspend. */
444: if (x < 0)
445: #endif /* OS2 */
446: printf("Job control not supported\r\n");
447: conint(trap,stptrap); /* Rearm the trap. */
448: debug(F100,"stptrap back from suspend","",0);
449: switch (what) {
450: case W_CONNECT: /* If suspended during CONNECT? */
451: conbin((char)escape); /* put console back in binary mode */
452: debug(F100,"stptrap W_CONNECT","",0);
453: break;
454: #ifndef NOICP
455: case W_COMMAND: /* Suspended in command mode */
456: debug(F101,"stptrap W_COMMAND pflag","",pflag);
457: concb((char)escape); /* Put back CBREAK tty mode */
458: if (pflag) { /* If command parsing was */
459: prompt(xxstring); /* reissue the prompt and partial */
460: if (!cmflgs) /* command (if any) */
461: printf("%s",cmdbuf);
462: }
463: break;
464: #endif /* NOICP */
465: default: /* All other cases... */
466: debug(F100,"stptrap default","",0);
467: concb((char)escape); /* Put it back in CBREAK mode */
468: break;
469: }
470: }
471: #endif /* NOJC */
472: }
473:
474: #ifndef MAC
475: /*
476: The rest of this file is for all implementations but the Macintosh.
477: */
478:
479: /* C H K I N T -- Check for console interrupts */
480:
481: int
482: chkint() {
483: int ch, cn; long zz;
484:
485: if ((!local) || (quiet)) return(0); /* Only do this if local & not quiet */
486: #ifdef datageneral
487: cn = (con_reads_mt) ? 1 : conchk(); /* Any input waiting? */
488: #else
489: cn = conchk(); /* Any input waiting? */
490: #endif /* datageneral */
491: debug(F101,"conchk","",cn);
492:
493: if (cn < 1) return(0);
494:
495: #ifdef datageneral
496: /* We must be careful to just print out one result for each character
497: * read. The flag, conint_avl, controls duplication of characters.
498: * Only one character is handled at a time, which is a reasonable
499: * limit. More complicated schemes could handle a buffer.
500: */
501: if (con_reads_mt) {
502: if ((ch = conint_ch) <= 0) return(0); /* I/O error, or no data */
503: else if (conint_avl == 0) return(0); /* Char already read */
504: else conint_avl = 0; /* Flag char as read */
505: }
506: else { if ((ch = coninc(5)) < 0) return(0); }
507: #else
508: if ((ch = coninc(5)) < 0) return(0);
509: #endif /* datageneral */
510: switch (ch & 0177) {
511: case 'A': case 'a': case 0001: /* Status report */
512: screen(SCR_TN,0,0l,"Status report:");
513: screen(SCR_TN,0,0l," file type: ");
514: if (binary) {
515: #ifdef VMS
516: if (binary == XYFT_I)
517: screen(SCR_TZ,0,0l,"image");
518: else if (binary == XYFT_L)
519: screen(SCR_TZ,0,0l,"labeled");
520: else screen(SCR_TZ,0,0l,"binary");
521: #else
522: screen(SCR_TZ,0,0l,"binary");
523: #endif /* VMS */
524: } else {
525: screen(SCR_TZ,0,0l,"text");
526: }
527: screen(SCR_QE,0,filcnt," file number");
528: if (fsize) screen(SCR_QE,0,fsize," size");
529: screen(SCR_QE,0,ffc, " characters so far");
530: if (fsize) {
531: zz = ( ffc * 100L ) / fsize;
532: screen(SCR_QE,0,zz, " percent done");
533: }
534: screen(SCR_QE,0,(long)bctu, " block check");
535: screen(SCR_QE,0,(long)rptflg," compression");
536: screen(SCR_QE,0,(long)ebqflg," 8th-bit prefixing");
537: screen(SCR_QE,0,(long)lscapu," locking shifts");
538: if (!network)
539: screen(SCR_QE,0, speed, " speed");
540: if (what == W_SEND)
541: screen(SCR_QE,0,(long)spsiz, " packet length");
542: else if (what == W_RECV || what == W_REMO)
543: screen(SCR_QE,0,(long)urpsiz," packet length");
544: screen(SCR_QE,0,(long)wslots, " window slots");
545: return(0);
546:
547: case 'B': case 'b': case 0002: /* Cancel batch */
548: case 'Z': case 'z': case 0032:
549: screen(SCR_TN,0,0l,"Cancelling Batch ");
550: czseen = 1;
551: return(0);
552:
553: case 'F': case 'f': case 0006: /* Cancel file */
554: case 'X': case 'x': case 0030:
555: screen(SCR_TN,0,0l,"Cancelling File ");
556: cxseen = 1;
557: return(0);
558:
559: case 'R': case 'r': case 0022: /* Resend */
560: case 0015: case 0012:
561: screen(SCR_TN,0,0l,"Resending packet ");
562: resend(winlo);
563: return(1);
564:
565: case 'E': case 'e': /* Send error packet */
566: case 0005:
567: return(-1);
568:
569: default: /* Anything else, print message */
570: intmsg(1);
571: return(0);
572: }
573: }
574:
575: /* I N T M S G -- Issue message about terminal interrupts */
576:
577: VOID
578: intmsg(n) long n; {
579: char buf[80];
580:
581: if (!displa || quiet) /* Not if we're being quiet */
582: return;
583: if (server && (!srvdis || n > -1L)) /* Special for server */
584: return;
585: buf[0] = NUL; /* Keep compilers happy */
586: #ifdef ATTSV
587: conchk(); /* Clear out pending escape-signals */
588: #endif /* ATTSV */
589: #ifdef VMS
590: conres(); /* So Ctrl-C will work */
591: #endif /* VMS */
592: if ((!server && n == 1L) || (server && n < 0L)) {
593:
594: #ifdef ATTSV /* We need to signal before kb input */
595: #ifndef aegis
596: #ifndef datageneral
597: sprintf(buf,"Type escape character (%s) followed by:",dbchr(escape));
598: screen(SCR_TN,0,0l,buf);
599: #endif /* datageneral */
600: #endif /* aegis */
601: #endif /* ATTSV */
602:
603: screen(SCR_TN,0,0l,"X to cancel file, CR to resend current packet");
604: screen(SCR_TN,0,0l,"Z to cancel group, A for status report");
605: screen(SCR_TN,0,0l,"E to send Error packet, Ctrl-C to quit immediately: ");
606: /* if (server) */ screen(SCR_TN,0,0l,"");
607: }
608: else screen(SCR_TU,0,0l," ");
609: }
610:
611: /* S C R E E N -- Screen display function */
612:
613: /* screen(f,c,n,s)
614: f - argument descriptor
615: c - a character or small integer
616: n - a long integer
617: s - a string.
618: Fill in this routine with the appropriate display update for the system.
619: This version is for a dumb tty.
620: */
621: VOID
622: #ifdef CK_ANSIC
623: screen(int f, char c,long n,char *s)
624: #else
625: screen(f,c,n,s) int f; char c; long n; char *s;
626: #endif /* CK_ANSIC */
627: /* screen */ {
628: static int p = 0; /* Screen position */
629: int len; /* Length of string */
630: char buf[80]; /* Output buffer */
631: len = (int)strlen(s); /* Length of string */
632: if ((f != SCR_WM) && (f != SCR_EM)) /* Always update warning & errors */
633: if (!displa || quiet || backgrd || (server && !srvdis))
634: return;
635:
636: switch (f) {
637:
638: case SCR_FN: /* filename */
639: conoll(""); conol(s); conoc(SP); p = len + 1; return;
640:
641: case SCR_AN: /* as-name */
642: if (p + len > 75) { conoll(""); p = 0; }
643: conol("=> "); conol(s); if ((p += (len + 3)) > 78) { conoll(""); p = 0; }
644: return;
645:
646: case SCR_FS: /* file-size */
647: sprintf(buf,", Size: %ld",n); conoll(buf); p = 0; return;
648:
649: case SCR_XD: /* x-packet data */
650: conoll(""); conoll(s); p = 0; return;
651:
652: case SCR_ST: /* File status */
653: switch (c) {
654: case ST_OK: /* Transferred OK */
655: if ((p += 5) > 78) { conoll(""); p = 0; }
656: conoll(" [OK]"); p += 5; return;
657:
658: case ST_DISC: /* Discarded */
659: if ((p += 12) > 78) { conoll(""); p = 0; }
660: conoll(" [discarded]"); p += 12; return;
661:
662: case ST_INT: /* Interrupted */
663: if ((p += 14) > 78) { conoll(""); p = 0; }
664: conoll(" [interrupted]"); p += 14; return;
665:
666: case ST_SKIP: /* Skipped */
667: conoll("");
668: conol("Skipping "); conoll(s); p = 0;
669: return;
670:
671: case ST_ERR:
672: conoll("");
673: conol("Error "); conoll(s); p = 0;
674: return;
675:
676: case ST_REFU:
677: conoll("");
678: conol("Refused: "); conoll(s); p = 0;
679: return;
680:
681: default:
682: conoll("*** screen() called with bad status ***"); p = 0; return;
683: }
684:
685: case SCR_PN: /* Packet number */
686: sprintf(buf,"%s: %ld",s,n); conol(buf); p += (int)strlen(buf); return;
687:
688: case SCR_PT: /* Packet type or pseudotype */
689: if (c == 'Y') return; /* Don't bother with ACKs */
690: if (c == 'D') { /* Only show every 4th data packet */
691: if (n % 4) return;
692: c = '.';
693: }
694: #ifndef AMIGA
695: if (p++ > 77) { /* If near right margin, */
696: conoll(""); /* Start new line */
697: p = 0; /* and reset counter. */
698: }
699: #endif /* AMIGA */
700: conoc(c); /* Display the character. */
701: #ifdef AMIGA
702: if (c == 'G') conoll(""); /* new line after G packets */
703: #endif /* AMIGA */
704: return;
705:
706: case SCR_TC: /* transaction complete */
707: conoc(BEL); return;
708:
709: case SCR_EM: /* Error message */
710: conoll(""); conoc('?'); conoll(s); p = 0; return; /* +1 */
711:
712: case SCR_WM: /* Warning message */
713: conoll(""); conoll(s); p = 0; return;
714:
715: case SCR_TU: /* Undelimited text */
716: if ((p += len) > 77) { conoll(""); p = len; }
717: conol(s); return;
718:
719: case SCR_TN: /* Text delimited at beginning */
720: conoll(""); conol(s); p = len; return;
721:
722: case SCR_TZ: /* Text delimited at end */
723: if ((p += len) > 77) { conoll(""); p = len; }
724: conoll(s); return;
725:
726: case SCR_QE: /* Quantity equals */
727: sprintf(buf,"%s: %ld",s,n);
728: conoll(buf); p = 0; return;
729:
730: default:
731: conoll("*** screen() called with bad object ***"); p = 0; return;
732: }
733: }
734:
735: /* E R M S G -- Nonfatal error message */
736:
737: /* Should be used only for printing the message text from an Error packet. */
738:
739: VOID
740: ermsg(msg) char *msg; { /* Print error message */
741: if (local && !quiet) {
742: #ifdef OSK
743: printf("\n%s %s\n","Protocol Error:",msg);
744: #else
745: printf("\r\n%s %s\r\n","Protocol Error:",msg);
746: #endif /* OSK */
747: }
748: tlog(F110,"Protocol Error:",msg,0L);
749: }
750:
751: VOID
752: doclean() { /* General cleanup upon exit */
753: #ifndef NOICP
754: #ifndef NOSPL
755: extern struct mtab *mactab; /* For ON_EXIT macro. */
756: extern int nmac;
757: #endif /* NOSPL */
758: #endif /* NOICP */
759:
760: #ifdef DEBUG
761: if (deblog) { /* Close any open logs. */
762: debug(F100,"Debug Log Closed","",0);
763: *debfil = '\0';
764: deblog = 0;
765: zclose(ZDFILE);
766: }
767: #endif /* DEBUG */
768: if (pktlog) {
769: *pktfil = '\0';
770: pktlog = 0;
771: zclose(ZPFILE);
772: }
773: if (seslog) {
774: *sesfil = '\0';
775: seslog = 0;
776: zclose(ZSFILE);
777: }
778: #ifdef TLOG
779: if (tralog) {
780: tlog(F100,"Transaction Log Closed","",0L);
781: *trafil = '\0';
782: tralog = 0;
783: zclose(ZTFILE);
784: }
785: #endif /* TLOG */
786:
787: #ifndef NOICP
788: #ifndef NOSPL
789: zclose(ZRFILE); /* READ and WRITE files, if any. */
790: zclose(ZWFILE);
791: /*
792: If a macro named "on_exit" is defined, execute it. Also remove it from the
793: macro table, in case its definition includes an EXIT or QUIT command, which
794: would cause much recursion and would prevent the program from ever actually
795: EXITing.
796: */
797: if (nmac) { /* Any macros defined? */
798: int k; /* Yes */
799: k = mlook(mactab,"on_exit",nmac); /* Look up "on_exit" */
800: if (k >= 0) { /* If found, */
801: *(mactab[k].kwd) = NUL; /* poke its name from the table, */
802: if (dodo(k,"") > -1) /* set it up, */
803: parser(1); /* and execute it */
804: }
805: }
806: #endif /* NOSPL */
807: #endif /* NOICP */
808:
809: /*
810: Put console terminal back to normal. This is done here because the
811: ON_EXIT macro calls the parser, which meddles with console terminal modes.
812: */
813: ttclos(0); /* Close external line, if any */
814: if (local) {
815: strcpy(ttname,dftty); /* Restore default tty */
816: local = dfloc; /* And default remote/local status */
817: }
818: conres(); /* Restore console terminal. */
819:
820: #ifdef COMMENT
821: /* Should be no need for this, and maybe it's screwing this up? */
822: connoi(); /* Turn off console interrupt traps */
823: #endif /* COMMENT */
824:
825: syscleanup(); /* System-dependent cleanup, last */
826: }
827:
828: /* D O E X I T -- Exit from the program. */
829:
830: /*
831: First arg is general, system-independent symbol: GOOD_EXIT or BAD_EXIT.
832: If second arg is -1, take 1st arg literally.
833: If second arg is not -1, work it into the exit code.
834: */
835: VOID
836: doexit(exitstat,what) int exitstat, what; {
837: #ifdef VMS
838: char envstr[64];
839: static $DESCRIPTOR(symnam,"CKERMIT_STATUS");
840: static struct dsc$descriptor_s symval;
841: int i;
842: #endif /* VMS */
843:
844: debug(F101,"doexit exitstat","",exitstat);
845: debug(F101,"doexit what","",what);
846:
847: doclean(); /* First, clean up everything */
848:
849: #ifdef VMS
850: if (what == -1)
851: what = 0; /* Since we set two different items */
852: sprintf(envstr,"%d", exitstat | what);
853: symval.dsc$w_length = (int)strlen(envstr);
854: symval.dsc$a_pointer = envstr;
855: symval.dsc$b_class = DSC$K_CLASS_S;
856: symval.dsc$b_dtype = DSC$K_DTYPE_T;
857: i = 2; /* Store in global table */
858: LIB$SET_SYMBOL(&symnam, &symval, &i);
859: if (exitstat == BAD_EXIT)
860: exitstat = SS$_ABORT | STS$M_INHIB_MSG;
861: if (exitstat == GOOD_EXIT)
862: exitstat = SS$_NORMAL | STS$M_INHIB_MSG;
863: exit(exitstat);
864: #else /* Not VMS */
865: if (what == -1) /* Take 1st arg literally */
866: exit(exitstat); /* e.g. user-supplied exit code */
867: else /* otherwise */
868: exit(exitstat | what); /* OR in the bits */
869: #endif /* VMS */
870: }
871:
872: /* Set up interrupts */
873:
874: VOID
875: setint() {
876: conint(trap,stptrap); /* Turn on console terminal interrupts. */
877: bgchk(); /* Check background status */
878: }
879:
880: VOID
881: bgchk() { /* Check background status */
882: if (bgset < 0) pflag = !backgrd;
883: else pflag = (bgset == 0 ? 1 : 0);
884: }
885:
886: #ifdef DEBUG
887: /* D E B U G -- Enter a record in the debugging log */
888:
889: /*
890: Call with a format, two strings, and a number:
891: f - Format, a bit string in range 0-7.
892: If bit x is on, then argument number x is printed.
893: s1 - String, argument number 1. If selected, printed as is.
894: s2 - String, argument number 2. If selected, printed in brackets.
895: n - Int, argument 3. If selected, printed preceded by equals sign.
896:
897: f=0 is special: print s1,s2, and interpret n as a char.
898: */
899: #define DBUFL 2300
900: static char *dbptr = (char *)0;
901:
902: int
903: dodebug(f,s1,s2,n) int f; char *s1, *s2; long n; {
904: char *sp;
905:
906: if (!dbptr) {
907: dbptr = malloc(DBUFL+1);
908: if (!dbptr)
909: return(0);
910: }
911: sp = dbptr;
912: if (!deblog) return(0); /* If no debug log, don't. */
913: switch (f) {
914: case F000: /* 0, print both strings, and n as a char */
915: if ((int)strlen(s1) + (int)strlen(s2) + 5 > DBUFL) {
916: sprintf(sp,"DEBUG string too long\n");
917: } else {
918: if (n > 31 && n < 127)
919: sprintf(sp,"%s%s:%c\n",s1,s2,n);
920: else if (n < 32 || n == 127)
921: sprintf(sp,"%s%s:^%c\n",s1,s2,(n+64) & 0x7F);
922: else if (n > 127 && n < 160)
923: sprintf(sp,"%s%s:~^%c\n",s1,s2,(n-64) & 0x7F);
924: else if (n > 159 && n < 256)
925: sprintf(sp,"%s%s:~%c\n",s1,s2,n & 0x7F);
926: else sprintf(sp,"%s%s:%ld\n",s1,s2,n);
927: }
928: if (zsout(ZDFILE,dbptr) < 0) deblog = 0;
929: break;
930: case F001: /* 1, "=n" */
931: sprintf(sp,"=%ld\n",n);
932: if (zsout(ZDFILE,dbptr) < 0) deblog = 0;
933: break;
934: case F010: /* 2, "[s2]" */
935: if ((int)strlen(s2) + 4 > DBUFL)
936: sprintf(sp,"DEBUG string too long\n");
937: else sprintf(sp,"[%s]\n",s2);
938: if (zsout(ZDFILE,"") < 0) deblog = 0;
939: break;
940: case F011: /* 3, "[s2]=n" */
941: if ((int)strlen(s2) + 15 > DBUFL)
942: sprintf(sp,"DEBUG string too long\n");
943: else sprintf(sp,"[%s]=%ld\n",s2,n);
944: if (zsout(ZDFILE,dbptr) < 0) deblog = 0;
945: break;
946: case F100: /* 4, "s1" */
947: if (zsoutl(ZDFILE,s1) < 0) deblog = 0;
948: break;
949: case F101: /* 5, "s1=n" */
950: if ((int)strlen(s1) + 15 > DBUFL)
951: sprintf(sp,"DEBUG string too long\n");
952: else sprintf(sp,"%s=%ld\n",s1,n);
953: if (zsout(ZDFILE,dbptr) < 0) deblog = 0;
954: break;
955: case F110: /* 6, "s1[s2]" */
956: if ((int)strlen(s1) + (int)strlen(s2) + 4 > DBUFL)
957: sprintf(sp,"DEBUG string too long\n");
958: else sprintf(sp,"%s[%s]\n",s1,s2);
959: if (zsout(ZDFILE,dbptr) < 0) deblog = 0;
960: break;
961: case F111: /* 7, "s1[s2]=n" */
962: if ((int)strlen(s1) + (int)strlen(s2) + 15 > DBUFL)
963: sprintf(sp,"DEBUG string too long\n");
964: else sprintf(sp,"%s[%s]=%ld\n",s1,s2,n);
965: if (zsout(ZDFILE,dbptr) < 0) deblog = 0;
966: break;
967: default:
968: sprintf(sp,"\n?Invalid format for debug() - %d\n",f);
969: if (zsout(ZDFILE,dbptr) < 0) deblog = 0;
970: }
971: return(0);
972: }
973: #endif /* DEBUG */
974:
975: #ifdef TLOG
976: #define TBUFL 300
977: /* T L O G -- Log a record in the transaction file */
978: /*
979: Call with a format and 3 arguments: two strings and a number:
980: f - Format, a bit string in range 0-7, bit x is on, arg #x is printed.
981: s1,s2 - String arguments 1 and 2.
982: n - Int, argument 3.
983: */
984: VOID
985: tlog(f,s1,s2,n) int f; long n; char *s1, *s2; {
986: static char s[TBUFL];
987: char *sp = s; int x;
988:
989: if (!tralog) return; /* If no transaction log, don't */
990: switch (f) {
991: case F000: /* 0 (special) "s1 n s2" */
992: if ((int)strlen(s1) + (int)strlen(s2) + 15 > TBUFL)
993: sprintf(sp,"?T-Log string too long\n");
994: else sprintf(sp,"%s %ld %s\n",s1,n,s2);
995: if (zsout(ZTFILE,s) < 0) tralog = 0;
996: break;
997: case F001: /* 1, " n" */
998: sprintf(sp," %ld\n",n);
999: if (zsout(ZTFILE,s) < 0) tralog = 0;
1000: break;
1001: case F010: /* 2, "[s2]" */
1002: x = (int)strlen(s2);
1003: if (s2[x] == '\n') s2[x] = '\0';
1004: if (x + 6 > TBUFL)
1005: sprintf(sp,"?T-Log string too long\n");
1006: else sprintf(sp,"[%s]\n",s2);
1007: if (zsout(ZTFILE,"") < 0) tralog = 0;
1008: break;
1009: case F011: /* 3, "[s2] n" */
1010: x = (int)strlen(s2);
1011: if (s2[x] == '\n') s2[x] = '\0';
1012: if (x + 6 > TBUFL)
1013: sprintf(sp,"?T-Log string too long\n");
1014: else sprintf(sp,"[%s] %ld\n",s2,n);
1015: if (zsout(ZTFILE,s) < 0) tralog = 0;
1016: break;
1017: case F100: /* 4, "s1" */
1018: if (zsoutl(ZTFILE,s1) < 0) tralog = 0;
1019: break;
1020: case F101: /* 5, "s1: n" */
1021: if ((int)strlen(s1) + 15 > TBUFL)
1022: sprintf(sp,"?T-Log string too long\n");
1023: else sprintf(sp,"%s: %ld\n",s1,n);
1024: if (zsout(ZTFILE,s) < 0) tralog = 0;
1025: break;
1026: case F110: /* 6, "s1 s2" */
1027: x = (int)strlen(s2);
1028: if (s2[x] == '\n') s2[x] = '\0';
1029: if ((int)strlen(s1) + x + 4 > TBUFL)
1030: sprintf(sp,"?T-Log string too long\n");
1031: else sprintf(sp,"%s %s\n",s1,s2);
1032: if (zsout(ZTFILE,s) < 0) tralog = 0;
1033: break;
1034: case F111: /* 7, "s1 s2: n" */
1035: x = (int)strlen(s2);
1036: if (s2[x] == '\n') s2[x] = '\0';
1037: if ((int)strlen(s1) + x + 15 > TBUFL)
1038: sprintf(sp,"?T-Log string too long\n");
1039: else sprintf(sp,"%s %s: %ld\n",s1,s2,n);
1040: if (zsout(ZTFILE,s) < 0) tralog = 0;
1041: break;
1042: default:
1043: sprintf(sp,"\n?Invalid format for tlog() - %ld\n",n);
1044: if (zsout(ZTFILE,s) < 0) tralog = 0;
1045: }
1046: }
1047: #endif /* TLOG */
1048: #endif /* MAC */
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.