![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to ckuus2.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10dc / lbin / kermit|
Return to ckuus2.c CVS log | Up to [Research Unix] / researchv10dc / lbin / kermit |
1.1 root 1: /* C K U U S 2 -- "User Interface" STRINGS module for Unix Kermit */
2:
3: /*
4: Author: Frank da Cruz (SY.FDC@CU20B),
5: Columbia University Center for Computing Activities, January 1985.
6: Copyright (C) 1985, Trustees of Columbia University in the City of New York.
7: Permission is granted to any individual or institution to use, copy, or
8: redistribute this software so long as it is not sold for profit, provided this
9: copyright notice is retained.
10: */
11:
12: /* This module separates long strings from the body of the ckuser module. */
13:
14: #include "ckcdeb.h"
15: #include <stdio.h>
16: #include <ctype.h>
17: #include "ckcker.h"
18: #include "ckucmd.h"
19: #include "ckuusr.h"
20:
21: extern CHAR mystch, stchr, eol, seol, padch, mypadc, ctlq;
22: extern CHAR data[], *rdatap, ttname[];
23: extern char cmdbuf[], line[], debfil[], pktfil[], sesfil[], trafil[];
24: extern int nrmt, nprm, dfloc, deblog, seslog, speed, local, parity, duplex;
25: extern int turn, turnch, pktlog, tralog, mdmtyp, flow, cmask, timef, spsizf;
26: extern int rtimo, timint, npad, mypadn, bctr, delay;
27: extern int maxtry, spsiz, urpsiz, maxsps, maxrps, ebqflg, ebq;
28: extern int rptflg, rptq, fncnv, binary, pktlog, warn, quiet, fmask, keep;
29: extern int tsecs, bctu, len, atcapu, lpcapu, swcapu, wsize, sq, rpsiz;
30: extern int capas;
31: extern long filcnt, tfc, tlci, tlco, ffc, flci, flco;
32: extern char *dftty, *versio, *ckxsys;
33: extern struct keytab prmtab[];
34: extern struct keytab remcmd[];
35:
36: static
37: char *hlp1[] = {
38: "\n",
39: " Usage: kermit [-x arg [-x arg]...[-yyy]..]]\n",
40: " x is an option that requires an argument, y an option with no argument:\n",
41: " actions (* options also require -l and -b) --\n",
42: " -s file(s) send (use '-s -' to send from stdin)\n",
43: " -r receive\n",
44: " -k receive to stdout\n",
45: " * -g file(s) get remote file(s) from server (quote wildcards)\n",
46: " -a name alternate name, used with -s, -r, -g\n",
47: " -x enter server mode\n",
48: " * -f finish remote server\n",
49: " * -c connect before transaction\n",
50: " * -n connect after transaction\n",
51: " settings --\n",
52: " -l line communication line device\n",
53: " -b baud line speed, e.g. 1200\n",
54: " -i binary file or Unix-to-Unix (text by default)\n",
55: " -p x parity, x is one of e,o,m,s,n\n",
56: " -t line turnaround handshake = xon, half duplex\n",
57: " -w don't write over preexisting files\n",
58: " -q be quiet during file transfer\n",
59: " -d log debugging info to debug.log\n",
60: " -e length (extended) receive packet length\n",
61: " If no action command is included, enter interactive dialog.\n",
62: ""
63: };
64:
65: /* U S A G E */
66:
67: usage() {
68: conola(hlp1);
69: }
70:
71:
72: /* Help string definitions */
73:
74: static char *tophlp[] = { "\n\
75: Type ? for a list of commands, type 'help x' for any command x.\n\
76: While typing commands, use the following special characters:\n\n\
77: DEL, RUBOUT, BACKSPACE, CTRL-H: Delete the most recent character typed.\n\
78: CTRL-W: Delete the most recent word typed.\n",
79:
80: "\
81: CTRL-U: Delete the current line.\n\
82: CTRL-R: Redisplay the current line.\n\
83: ? (question mark) display help on the current command or field.\n\
84: ESC (Escape or Altmode) Attempt to complete the current field.\n",
85:
86: "\
87: \\ (backslash) include the following character literally.\n\n\
88: From system level, type 'kermit -h' to get help about command line args.\
89: \n",
90: "" };
91:
92: static char *hmxxbye = "\
93: Shut down and log out a remote Kermit server";
94:
95: static char *hmxxclo = "\
96: Close one of the following logs:\n\
97: session, transaction, packet, debugging -- 'help log' for further info.";
98:
99: static char *hmxxcon = "\
100: Connect to a remote system via the tty device given in the\n\
101: most recent 'set line' command";
102:
103: static char *hmxxget = "\
104: Format: 'get filespec'. Tell the remote Kermit server to send the named\n\
105: files. If filespec is omitted, then you are prompted for the remote and\n\
106: local filenames separately.";
107:
108: static char *hmxxlg[] = { "\
109: Record information in a log file:\n\n\
110: debugging Debugging information, to help track down\n\
111: (default debug.log) bugs in the C-Kermit program.\n\n\
112: packets Kermit packets, to help track down protocol problems.\n\
113: (packet.log)\n\n",
114:
115: " session Terminal session, during CONNECT command.\n\
116: (session.log)\n\n\
117: transactions Names and statistics about files transferred.\n\
118: (transact.log)\n",
119: "" } ;
120:
121:
122: static char *hmxxlogi[] = { "\
123: Syntax: script text\n\n",
124: "Login to a remote system using the text provided. The login script\n",
125: "is intended to operate similarly to uucp \"L.sys\" entries.\n",
126: "A login script is a sequence of the form:\n\n",
127: " expect send [expect send] . . .\n\n",
128: "where 'expect' is a prompt or message to be issued by the remote site, and\n",
129: "'send' is the names, numbers, etc, to return. The send may also be the\n",
130: "keyword EOT, to send control-d, or BREAK, to send a break. Letters in\n",
131: "send may be prefixed by ~ to send special characters. These are:\n",
132: "~b backspace, ~s space, ~q '?', ~n linefeed, ~r return, ~c don\'t\n",
133: "append a return, and ~o[o[o]] for octal of a character. As with some \n",
134: "uucp systems, sent strings are followed by ~r unless they end with ~c.\n\n",
135: "Only the last 7 characters in each expect are matched. A null expect,\n",
136: "e.g. ~0 or two adjacent dashes, causes a short delay. If you expect\n",
137: "that a sequence might not arrive, as with uucp, conditional sequences\n",
138: "may be expressed in the form:\n\n",
139: " -send-expect[-send-expect[...]]\n\n",
140: "where dashed sequences are followed as long as previous expects fail.\n",
141: "" };
142:
143: static char *hmxxrc[] = { "\
144: Format: 'receive [filespec]'. Wait for a file to arrive from the other\n\
145: Kermit, which must be given a 'send' command. If the optional filespec is\n",
146:
147: "given, the (first) incoming file will be stored under that name, otherwise\n\
148: it will be stored under the name it arrives with.",
149: "" } ;
150:
151: static char *hmxxsen = "\
152: Format: 'send file1 [file2]'. File1 may contain wildcard characters '*' or\n\
153: '?'. If no wildcards, then file2 may be used to specify the name file1 is\n\
154: sent under; if file2 is omitted, file1 is sent under its own name.";
155:
156: static char *hmxxser = "\
157: Enter server mode on the currently selected line. All further commands\n\
158: will be taken in packet form from the other Kermit program.";
159:
160: static char *hmhset[] = { "\
161: The 'set' command is used to establish various communication or file\n",
162: "parameters. The 'show' command can be used to display the values of\n",
163: "'set' parameters. Help is available for each individual parameter;\n",
164: "type 'help set ?' to see what's available.\n",
165: "" } ;
166:
167: static char *hmxychkt[] = { "\
168: Type of packet block check to be used for error detection, 1, 2, or 3.\n",
169: "Type 1 is standard, and catches most errors. Types 2 and 3 specify more\n",
170: "rigorous checking at the cost of higher overhead. Not all Kermit programs\n",
171: "support types 2 and 3.\n",
172: "" } ;
173:
174:
175: static char *hmxyf[] = { "\set file: names, type, warning, display.\n\n",
176: "'names' are normally 'converted', which means file names are converted\n",
177: "to 'common form' during transmission; 'literal' means use filenames\n",
178: "literally (useful between like systems).\n\n",
179: "'type' is normally 'text', in which conversion is done between Unix\n",
180: "newlines and CRLF line delimiters; 'binary' means to do no conversion.\n",
181: "Use 'binary' for executable programs or binary data.\n\n",
182: "'warning' is 'on' or 'off', normally off. When off, incoming files will\n",
183: "overwrite existing files of the same name. When on, new names will be\n",
184: "given to incoming files whose names are the same as existing files.\n",
185: "\n\
186: 'display' is normally 'on', causing file transfer progress to be displayed\n",
187: "on your screen when in local mode. 'set display off' is useful for\n",
188: "allowing file transfers to proceed in the background.\n\n",
189: "" } ;
190:
191: static char *hmhrmt[] = { "\
192: The 'remote' command is used to send file management instructions to a\n",
193: "remote Kermit server. There should already be a Kermit running in server\n",
194: "mode on the other end of the currently selected line. Type 'remote ?' to\n",
195: "see a list of available remote commands. Type 'help remote x' to get\n",
196: "further information about a particular remote command 'x'.\n",
197: "" } ;
198:
199:
200: /* D O H L P -- Give a help message */
201:
202: dohlp(xx) int xx; {
203: int x,y;
204:
205: if (xx < 0) return(xx);
206: switch (xx) {
207:
208: case XXBYE:
209: return(hmsg(hmxxbye));
210:
211: case XXCLO:
212: return(hmsg(hmxxclo));
213:
214: case XXCON:
215: return(hmsg(hmxxcon));
216:
217: case XXCWD:
218: #ifdef vms
219: return(hmsg("\
220: Change Working Directory, equivalent to VMS SET DEFAULT command"));
221: #else
222: #ifdef datageneral
223: return(hmsg("Change Working Directory, equivalent to DG 'dir' command"));
224: #else
225: return(hmsg("Change Working Directory, equivalent to Unix 'cd' command"));
226: #endif
227: #endif
228:
229: case XXDEL:
230: return(hmsg("Delete a local file or files"));
231:
232: case XXDIAL:
233: return(hmsg("Dial a number using modem autodialer"));
234:
235: case XXDIR:
236: return(hmsg("Display a directory of local files"));
237:
238: case XXECH:
239: return(hmsg("Display the rest of the command on the terminal,\n\
240: useful in command files."));
241:
242: case XXEXI:
243: case XXQUI:
244: return(hmsg("Exit from the Kermit program, closing any open logs."));
245:
246: case XXFIN:
247: return(hmsg("\
248: Tell the remote Kermit server to shut down without logging out."));
249:
250: case XXGET:
251: return(hmsg(hmxxget));
252:
253: case XXHLP:
254: return(hmsga(tophlp));
255:
256: case XXLOG:
257: return(hmsga(hmxxlg));
258:
259: case XXLOGI:
260: return(hmsga(hmxxlogi));
261:
262: case XXREC:
263: return(hmsga(hmxxrc));
264:
265:
266: case XXREM:
267: if ((y = cmkey(remcmd,nrmt,"Remote command","")) == -2) return(y);
268: if (y == -1) return(y);
269: if (x = (cmcfm()) < 0) return(x);
270: return(dohrmt(y));
271:
272: case XXSEN:
273: return(hmsg(hmxxsen));
274:
275: case XXSER:
276: return(hmsg(hmxxser));
277:
278: case XXSET:
279: if ((y = cmkey(prmtab,nprm,"Parameter","")) == -2) return(y);
280: if (y == -2) return(y);
281: if (x = (cmcfm()) < 0) return(x);
282: return(dohset(y));
283:
284: case XXSHE:
285: #ifdef vms
286: return(hmsg("\
287: Issue a command to VMS (space required after '!')"));
288: #else
289: #ifdef AMIGA
290: return(hmsg("\
291: Issue a command to CLI (space required after '!')"));
292: #else
293: #ifdef datageneral
294: return(hmsg("\
295: Issue a command to the CLI (space required after '!')"));
296: #else
297: return(hmsg("\
298: Issue a command to the Unix shell (space required after '!')"));
299: #endif
300: #endif
301: #endif
302:
303: case XXSHO:
304: return(hmsg("\
305: Display current values of 'set' parameters; 'show version' will display\n\
306: program version information for each of the C-Kermit modules."));
307:
308: case XXSPA:
309: #ifdef datageneral
310: return(hmsg("\
311: Display disk usage in current device, directory,\n\
312: or return space for a specified device, directory."));
313: #else
314: return(hmsg("Display disk usage in current device, directory"));
315: #endif
316:
317: case XXSTA:
318: return(hmsg("Display statistics about most recent file transfer"));
319:
320: case XXTAK:
321: return(hmsg("\
322: Take Kermit commands from the named file. Kermit command files may\n\
323: themselves contain 'take' commands, up to a reasonable depth of nesting."));
324:
325: default:
326: if (x = (cmcfm()) < 0) return(x);
327: printf("Not available yet - %s\n",cmdbuf);
328: break;
329: }
330: return(0);
331: }
332:
333:
334: /* H M S G -- Get confirmation, then print the given message */
335:
336: hmsg(s) char *s; {
337: int x;
338: if ((x = cmcfm()) < 0) return(x);
339: puts(s);
340: return(0);
341: }
342:
343: hmsga(s) char *s[]; { /* Same function, but for arrays */
344: int x, i;
345: if ( x = (cmcfm()) < 0) return(x);
346: for ( i = 0; *s[i] ; i++ ) fputs(s[i], stdout);
347: fputc( '\n', stdout);
348: return(0);
349: }
350:
351:
352: /* D O H S E T -- Give help for SET command */
353:
354: dohset(xx) int xx; {
355:
356: if (xx == -3) return(hmsga(hmhset));
357: if (xx < 0) return(xx);
358: switch (xx) {
359:
360: case XYCHKT:
361: return(hmsga(hmxychkt));
362:
363: case XYDELA:
364: puts("\
365: Number of seconds to wait before sending first packet after 'send' command.");
366: return(0);
367:
368: case XYDUPL:
369: puts("\
370: During 'connect': 'full' means remote host echoes, 'half' means this program");
371: puts("does its own echoing.");
372: return(0);
373:
374: case XYESC:
375: printf("%s","\
376: Decimal ASCII value for escape character during 'connect', normally 28\n\
377: (Control-\\)\n");
378: return(0);
379:
380: case XYFILE:
381: return(hmsga(hmxyf));
382:
383: case XYFLOW:
384: puts("\
385: Type of flow control to be used. Choices are 'xon/xoff' and 'none'.");
386: puts("normally xon/xoff.");
387: return(0);
388:
389: case XYHAND:
390: puts("\
391: Decimal ASCII value for character to use for half duplex line turnaround");
392: puts("handshake. Normally, handshaking is not done.");
393: return(0);
394:
395: case XYLINE:
396: printf("\
397: Device name of communication line to use. Normally %s.\n",dftty);
398: if (!dfloc) {
399: printf("\
400: If you set the line to other than %s, then Kermit\n",dftty);
401: printf("\
402: will be in 'local' mode; 'set line' will reset Kermit to remote mode.\n");
403: puts("\
404: If the line has a modem, and if the modem-dialer is set to direct, this");
405: puts("\
406: command causes waiting for a carrier detect (e.g. on a hayes type modem).");
407: puts("\
408: This can be used to wait for incoming calls.");
409: puts("\
410: To use the modem to dial out, first set modem-dialer (e.g., to hayes), then");
411: puts("set line, next issue the dial command, and finally connect.");
412: }
413: return(0);
414:
415: case XYMODM:
416: puts("\
417: Type of modem for dialing remote connections. Needed to indicate modem can");
418: puts("\
419: be commanded to dial without 'carrier detect' from modem. Many recently");
420: puts("\
421: manufactured modems use 'hayes' protocol. Type 'set modem ?' to see what");
422: puts("\
423: types of modems are supported by this program.");
424: return(0);
425:
426:
427: case XYPARI:
428: puts("Parity to use during terminal connection and file transfer:");
429: puts("even, odd, mark, space, or none. Normally none.");
430: return(0);
431:
432: case XYPROM:
433: puts("Prompt string for this program, normally 'C-Kermit>'.");
434: return(0);
435:
436: case XYRETR:
437: puts("\
438: How many times to retransmit a particular packet before giving up");
439: return(0);
440:
441: case XYSPEE:
442: puts("\
443: Communication line speed for external tty line specified in most recent");
444: #ifdef AMIGA
445: puts("\
446: 'set line' command. Any baud rate between 110 and 292000, although you");
447: puts(" will receive a warning if you do not use a standard baud rate:");
448: puts("\
449: 110, 150, 300, 600, 1200, 1800, 2400, 4800, 9600, 19200, 38400, 57600.");
450: #else
451: #ifdef datageneral
452: puts("\
453: 'set line' command. Any of the common baud rates:");
454: puts(" 0, 50, 75, 110, 134, 150, 300, 600, 1200, 1800, ");
455: puts(" 2400, 3600, 7200, 4800, 9600, 19200, 38400.");
456: #else
457: puts("\
458: 'set line' command. Any of the common baud rates:");
459: puts(" 0, 110, 150, 300, 600, 1200, 1800, 2400, 4800, 9600.");
460: #endif
461: #endif
462: return(0);
463:
464: case XYRECV:
465: puts("\
466: Specify parameters for inbound packets:");
467: puts("\
468: End-Of-Packet (ASCII value), Packet-Length (1000 or less),");
469: puts("\
470: Padding (amount, 94 or less), Pad-Character (ASCII value),");
471: puts("\
472: Start-Of-Packet (ASCII value), and Timeout (94 seconds or less),");
473: puts("\
474: all specified as decimal numbers.");
475: return(0);
476:
477: case XYSEND:
478: puts("\
479: Specify parameters for outbound packets:");
480: puts("\
481: End-Of-Packet (ASCII value), Packet-Length (2000 or less),");
482: puts("\
483: Padding (amount, 94 or less), Pad-Character (ASCII value),");
484: puts("\
485: Start-Of-Packet (ASCII value), and Timeout (94 seconds or less),");
486: puts("\
487: all specified as decimal numbers.");
488: return(0);
489:
490: default:
491: printf("%s","Not available yet - %s\n",cmdbuf);
492: return(0);
493: }
494: }
495:
496:
497: /* D O H R M T -- Give help about REMOTE command */
498:
499: dohrmt(xx) int xx; {
500: int x;
501: if (xx == -3) return(hmsga(hmhrmt));
502: if (xx < 0) return(xx);
503: switch (xx) {
504:
505: case XZCWD:
506: return(hmsg("\
507: Ask remote Kermit server to change its working directory."));
508:
509: case XZDEL:
510: return(hmsg("\
511: Ask remote Kermit server to delete the named file(s)."));
512:
513: case XZDIR:
514: return(hmsg("\
515: Ask remote Kermit server to provide directory listing of the named file(s)."));
516:
517: case XZHLP:
518: return(hmsg("\
519: Ask remote Kermit server to tell you what services it provides."));
520:
521: case XZHOS:
522: return(hmsg("\
523: Send a command to the remote system in its own command language\n\
524: through the remote Kermit server."));
525:
526: case XZSPA:
527: return(hmsg("\
528: Ask the remote Kermit server to tell you about its disk space."));
529:
530: case XZTYP:
531: return(hmsg("\
532: Ask the remote Kermit server to type the named file(s) on your screen."));
533:
534: case XZWHO:
535: return(hmsg("\
536: Ask the remote Kermit server to list who's logged in, or to give information\n\
537: about the specified user."));
538:
539: default:
540: if (x = (cmcfm()) < 0) return(x);
541: printf("%s","not working yet - %s\n",cmdbuf);
542: return(-2);
543: }
544: }
545:
546: /*** The following functions moved here from ckuusr.c because that module ***/
547: /*** got too big for PDP-11s. ***/
548:
549: /* D O L O G -- Do the log command */
550:
551: dolog(x) int x; {
552: int y; char *s;
553:
554: switch (x) {
555:
556: case LOGD:
557: #ifdef DEBUG
558: y = cmofi("Name of debugging log file","debug.log",&s);
559: #else
560: y = -2; s = "";
561: printf("%s","- Sorry, debug log not available\n");
562: #endif
563: break;
564:
565: case LOGP:
566: y = cmofi("Name of packet log file","packet.log",&s);
567: break;
568:
569: case LOGS:
570: y = cmofi("Name of session log file","session.log",&s);
571: break;
572:
573: case LOGT:
574: #ifdef TLOG
575: y = cmofi("Name of transaction log file","transact.log",&s);
576: #else
577: y = -2; s = "";
578: printf("%s","- Sorry, transaction log not available\n");
579: #endif
580: break;
581:
582: default:
583: printf("\n?Unexpected log designator - %d\n",x);
584: return(-2);
585: }
586: if (y < 0) return(y);
587:
588: strcpy(line,s);
589: s = line;
590: if ((y = cmcfm()) < 0) return(y);
591:
592: /* cont'd... */
593:
594: /* ...dolog, cont'd */
595:
596:
597: switch (x) {
598:
599: case LOGD:
600: return(deblog = debopn(s));
601:
602: case LOGP:
603: zclose(ZPFILE);
604: y = zopeno(ZPFILE,s);
605: if (y > 0) strcpy(pktfil,s); else *pktfil = '\0';
606: return(pktlog = y);
607:
608: case LOGS:
609: zclose(ZSFILE);
610: y = zopeno(ZSFILE,s);
611: if (y > 0) strcpy(sesfil,s); else *sesfil = '\0';
612: return(seslog = y);
613:
614: case LOGT:
615: zclose(ZTFILE);
616: tralog = zopeno(ZTFILE,s);
617: if (tralog > 0) {
618: strcpy(trafil,s);
619: tlog(F110,"Transaction Log:",versio,0l);
620: tlog(F100,ckxsys,"",0);
621: ztime(&s);
622: tlog(F100,s,"",0l);
623: }
624: else *trafil = '\0';
625: return(tralog);
626:
627: default:
628: return(-2);
629: }
630: }
631:
632:
633: /* D E B O P N -- Open a debugging file */
634:
635: debopn(s) char *s; {
636: #ifdef DEBUG
637: char *tp;
638: zclose(ZDFILE);
639: deblog = zopeno(ZDFILE,s);
640: if (deblog > 0) {
641: strcpy(debfil,s);
642: debug(F110,"Debug Log ",versio,0);
643: debug(F100,ckxsys,"",0);
644: ztime(&tp);
645: debug(F100,tp,"",0);
646: } else *debfil = '\0';
647: return(deblog);
648: #else
649: return(0);
650: #endif
651: }
652:
653: /* S H O P A R -- Show Parameters */
654:
655: shopar() {
656:
657: int i;
658: extern struct keytab mdmtab[]; extern int nmdm;
659:
660: printf("\n%s,%s, ",versio,ckxsys);
661: puts("Communications Parameters:");
662: printf(" Line: %s, speed: %d, mode: ",ttname,speed);
663: if (local) printf("local"); else printf("remote");
664:
665: for (i = 0; i < nmdm; i++) {
666: if (mdmtab[i].val == mdmtyp) {
667: printf(", modem-dialer: %s",mdmtab[i].kwd);
668: break;
669: }
670: }
671: printf("\n Bits: %d",(parity) ? 7 : 8);
672: printf(", parity: ");
673: switch (parity) {
674: case 'e': printf("even"); break;
675: case 'o': printf("odd"); break;
676: case 'm': printf("mark"); break;
677: case 's': printf("space"); break;
678: case 0: printf("none"); break;
679: default: printf("invalid - %d",parity); break;
680: }
681: printf(", duplex: ");
682: if (duplex) printf("half, "); else printf("full, ");
683: printf("flow: ");
684: if (flow == 1) printf("xon/xoff");
685: else if (flow == 0) printf("none");
686: else printf("%d",flow);
687: printf(", handshake: ");
688: if (turn) printf("%d\n",turnch); else printf("none\n");
689: printf("Terminal emulation: %d bits\n", (cmask == 0177) ? 7 : 8);
690:
691: printf("\nProtocol Parameters: Send Receive");
692: if (timef || spsizf) printf(" (* = override)");
693: printf("\n Timeout: %11d%9d", rtimo, timint);
694: if (timef) printf("*");
695: printf("\n Padding: %11d%9d", npad, mypadn);
696: printf(" Block Check: %6d\n",bctr);
697: printf( " Pad Character:%11d%9d", padch, mypadc);
698: printf(" Delay: %6d\n",delay);
699: printf( " Packet Start: %11d%9d", mystch, stchr);
700: printf(" Max Retries: %6d\n",maxtry);
701: printf( " Packet End: %11d%9d", seol, eol);
702: if (ebqflg)
703: printf(" 8th-Bit Prefix: '%c'",ebq);
704: printf( "\n Packet Length:%11d", spsiz);
705: printf( spsizf ? "*" : " " ); printf("%8d", urpsiz);
706: printf( (urpsiz > 94) ? " (94)" : " ");
707: if (rptflg)
708: printf(" Repeat Prefix: '%c'",rptq);
709: printf( "\n Length Limit: %11d%9d\n", maxsps, maxrps);
710:
711: printf("\nFile parameters:\n File Names: ");
712: if (fncnv) printf("%-12s","converted"); else printf("%-12s","literal");
713: #ifdef DEBUG
714: printf(" Debugging Log: ");
715: if (deblog) printf("%s",debfil); else printf("none");
716: #endif
717: printf("\n File Type: ");
718: if (binary) printf("%-12s","binary"); else printf("%-12s","text");
719: printf(" Packet Log: ");
720: if (pktlog) printf(pktfil); else printf("none");
721: printf("\n File Warning: ");
722: if (warn) printf("%-12s","on"); else printf("%-12s","off");
723: printf(" Session Log: ");
724: if (seslog) printf(sesfil); else printf("none");
725: printf("\n File Display: ");
726: if (quiet) printf("%-12s","off"); else printf("%-12s","on");
727: #ifdef TLOG
728: printf(" Transaction Log: ");
729: if (tralog) printf(trafil); else printf("none");
730: #endif
731: printf("\n\nFile Byte Size: %d",(fmask == 0177) ? 7 : 8);
732: printf(", Incomplete File Disposition: ");
733: if (keep) printf("keep"); else printf("discard");
734: #ifdef KERMRC
735: printf(", Init file: %s",KERMRC);
736: #endif
737: puts("\n");
738: }
739:
740: /* D O S T A T -- Display file transfer statistics. */
741:
742: dostat() {
743: printf("\nMost recent transaction --\n");
744: printf(" files: %ld\n",filcnt);
745: printf(" total file characters : %ld\n",tfc);
746: printf(" communication line in : %ld\n",tlci);
747: printf(" communication line out : %ld\n",tlco);
748: printf(" elapsed time : %d sec\n",tsecs);
749: if (filcnt > 0) {
750: if (tsecs > 0) {
751: long lx;
752: lx = (tfc * 10l) / tsecs;
753: printf(" effective baud rate : %ld\n",lx);
754: if (speed > 0) {
755: lx = (lx * 100l) / speed;
756: printf(" efficiency : %ld %%\n",lx);
757: }
758: }
759: printf(" packet length : %d (send), %d (receive)\n",
760: spsiz,urpsiz);
761: printf(" block check type used : %d\n",bctu);
762: printf(" compression : ");
763: if (rptflg) printf("yes [%c]\n",rptq); else printf("no\n");
764: printf(" 8th bit prefixing : ");
765: if (ebqflg) printf("yes [%c]\n",ebq); else printf("no\n\n");
766: } else printf("\n");
767: return(0);
768: }
769:
770: /* F S T A T S -- Record file statistics in transaction log */
771:
772: fstats() {
773: tlog(F100," end of file","",0l);
774: tlog(F101," file characters ","",ffc);
775: tlog(F101," communication line in ","",flci);
776: tlog(F101," communication line out ","",flco);
777: }
778:
779:
780: /* T S T A T S -- Record statistics in transaction log */
781:
782: tstats() {
783: char *tp; int x;
784:
785: ztime(&tp); /* Get time stamp */
786: tlog(F110,"End of transaction",tp,0l); /* Record it */
787:
788: if (filcnt < 1) return; /* If no files, done. */
789:
790: /* If multiple files, record character totals for all files */
791:
792: if (filcnt > 1) {
793: tlog(F101," files","",filcnt);
794: tlog(F101," total file characters ","",tfc);
795: tlog(F101," communication line in ","",tlci);
796: tlog(F101," communication line out ","",tlco);
797: }
798:
799: /* Record timing info for one or more files */
800:
801: tlog(F101," elapsed time (seconds) ","",(long) tsecs);
802: if (tsecs > 0) {
803: x = (tfc / tsecs) * 10;
804: tlog(F101," effective baud rate ","",x);
805: if (speed > 0) {
806: x = (x * 100) / speed;
807: tlog(F101," efficiency (percent) ","",x);
808: }
809: }
810: tlog(F100,"","",0); /* Leave a blank line */
811: }
812:
813: /* S D E B U -- Record spar results in debugging log */
814:
815: sdebu(len) int len; {
816: debug(F111,"spar: data",rdatap,len);
817: debug(F101," spsiz ","", spsiz);
818: debug(F101," timint","",timint);
819: debug(F101," npad ","", npad);
820: debug(F101," padch ","", padch);
821: debug(F101," seol ","", seol);
822: debug(F101," ctlq ","", ctlq);
823: debug(F101," ebq ","", ebq);
824: debug(F101," ebqflg","",ebqflg);
825: debug(F101," bctr ","", bctr);
826: debug(F101," rptq ","", rptq);
827: debug(F101," rptflg","",rptflg);
828: debug(F101," atcapu","",atcapu);
829: debug(F101," lpcapu","",lpcapu);
830: debug(F101," swcapu","",swcapu);
831: debug(F101," wsize ","", wsize);
832: }
833: /* R D E B U -- Debugging display of rpar() values */
834:
835: rdebu(len) int len; {
836: debug(F111,"spar: data",rdatap,len);
837: debug(F101," rpsiz ","",xunchar(data[1]));
838: debug(F101," rtimo ","", rtimo);
839: debug(F101," mypadn","",mypadn);
840: debug(F101," mypadc","",mypadc);
841: debug(F101," eol ","", eol);
842: debug(F101," ctlq ","", ctlq);
843: debug(F101," sq ","", sq);
844: debug(F101," ebq ","", ebq);
845: debug(F101," ebqflg","",ebqflg);
846: debug(F101," bctr ","", bctr);
847: debug(F101," rptq ","",data[9]);
848: debug(F101," rptflg","",rptflg);
849: debug(F101," capas ","",capas);
850: debug(F101," bits ","",data[capas]);
851: debug(F101," atcapu","",atcapu);
852: debug(F101," lpcapu","",lpcapu);
853: debug(F101," swcapu","",swcapu);
854: debug(F101," wsize ","", wsize);
855: debug(F101," rpsiz(extended)","",rpsiz);
856: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.