![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to umodem.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / contrib / umodem|
Return to umodem.c CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / umodem |
1.1 root 1: #ifndef lint
2: static char sccsid[] = "@(#)umodem.c 1.1 (Berkeley) 11/2/84";
3: #endif not lint
4:
5: /*
6: * UMODEM Version 3.7
7: *
8: * UMODEM -- Implements the "CP/M User's Group XMODEM" protocol,
9: * the TERM II File Transfer Protocol (FTP) Number 1,
10: * and the TERM II File Transfer Protocol Number 4 for
11: * packetized file up/downloading.
12: *
13: * Note: UNIX System-Dependent values are indicated by the string [SD]
14: * in a comment field on the same line as the values.
15: *
16: *
17: * -- Lauren Weinstein, 6/81
18: * -- (Version 2.0) Modified for JHU/UNIX by Richard Conn, 8/1/81
19: * -- Version 2.1 Mods by Richard Conn, 8/2/81
20: * . File Size Included on Send Option
21: * -- Version 2.2 Mods by Richard Conn, 8/2/81
22: * . Log File Generation and Option Incorporated
23: * -- Version 2.3 Mods by Richard Conn, 8/3/81
24: * . TERM II FTP 1 Supported
25: * . Error Log Reports Enhanced
26: * . CAN Function Added to FTP 3
27: * . 'd' Option Added to Delete umodem.log File before starting
28: * -- Version 2.4 Mods by Richard Conn, 8/4/81
29: * . 16K-extent sector number check error corrected
30: * . Count of number of received sectors added
31: * -- Version 2.5 Mods by Richard Conn, 8/5/81
32: * . ARPA Net Flag added
33: * . ARPA Net parameter ('a') added to command line
34: * . ARPA Net BIS, BIE, BOS, BOE added
35: * . ARPA Net FFH escape added
36: * -- Version 2.6 Mods by Bennett Marks, 8/21/81 (Bucky @ CCA-UNIX)
37: * . mods for UNIX V7 (Note: for JHU compilation define
38: * the variable JHU during 'cc'
39: * . added 'mungmode' flag to protect from inadvertant
40: * overwrite on file receive
41: * . changed timeout handling prior to issuing checksum
42: * -- Version 2.7 Mods by Richard Conn, 8/25/81 (rconn @ BRL)
43: * . correct minor "ifndef" error in which ifndef had no arg
44: * . restructured "ifdef" references so that other versions
45: * of UNIX than Version 7 and JHU can be easily incorporated;
46: * previous ifdef references were for JHU/not JHU;
47: * to compile under Version 7 or JHU UNIX, the following
48: * command lines are recommended:
49: * "cc umodem.c -o umodem -DVER7" for Version 7
50: * "cc -7 umodem.c -o umodem -DJHU" for JHU
51: * . added 'y' file status display option; this option gives
52: * the user an estimate of the size of the target file to
53: * send from the UNIX system in terms of CP/M records (128
54: * bytes) and Kbytes (1024 byte units)
55: * . added '7' option which modifies the transmission protocols
56: * for 7 significant bits rather than 8; modifies both FTP 1
57: * and FTP 3
58: * -- Version 2.8 Mods by Richard Conn, 8/28/81
59: * . corrected system-dependent reference to TIOCSSCR (for
60: * disabling page mode) and created the PAGEMODE flag which
61: * is to be set to TRUE to enable this
62: * . added -4 option which engages TERM II, FTP 4 (new release)
63: * -- Version 2.9 Mods by Richard Conn, 9/1/81
64: * . internal documentation on ARPA Net protocols expanded
65: * . possible operator precedence problem with BITMASK corrected
66: * by redundant parentheses
67: * -- Version 3.0 Mods by Lauren Weinstein, 9/14/81
68: * . fixed bug in PAGEMODE defines (removed PAGEMODE define
69: * line; now should be compiled with "-DPAGEMODE" if
70: * Page Mode is desired)
71: * . included forward declaration of ttyname() to avoid problems
72: * with newer V7 C compilers
73: * -- Version 3.1 Mods by Lauren Weinstein, 4/17/82
74: * . avoids sending extraneous last sector when file EOF
75: * occurs on an exact sector boundary
76: * -- Version 3.2 Mods by Michael M Rubenstein, 5/26/83
77: * . fixed bug in readbyte. assumed that int's are ordered
78: * from low significance to high
79: * . added LOGDEFAULT define to allow default logging to be
80: * off. compile with -DLOGDEFAULT=0 to set default to no
81: * logging.
82: * -- Version 3.3 Mod by Ben Goldfarb, 07/02/83
83: * . Corrected problem with above implementation of "LOGDEFAULT".
84: * A bitwise, instead of a logical negation operator was
85: * used to complement LOGFLAG when the '-l' command line
86: * flag was specified. This can cause LOGFLAG to be true
87: * when it should be false.
88: * -- Version 3.4 Mods by David F. Hinnant, NCECS, 7/15/83
89: * . placed log file in HOME directory in case user doesn't
90: * have write permission in working directory.
91: * . added DELDEFAULT define to allow default purge/no purge
92: * of logfile before starting. Compile with -DDELDEFAULT=0
93: * to set default to NOT delete the log file before starting.
94: * . check log file for sucessful fopen().
95: * . buffer disk read for sfile().
96: * . turn messages off (standard v7) before starting.
97: * -- Version 3.5 Mods by Richard Conn, 08/27/83
98: * . added equates for compilation under UNIX SYSTEM III
99: * to compile for SYSTEM III, use -DSYS3 instead of
100: * -DJHU or -DVER7
101: * . added command mode (-c option) for continuous entry
102: * of commands
103: * -- Version 3.6 Mods by Ben Goldfarb (ucf-cs!goldfarb), 09/03/83
104: * . added '#include <ctype.h>' since tolower() is used, but
105: * is not defined in umodem. This is necessary to compile
106: * on V7 systems. Also added a isupper() test because
107: * tolower() in /usr/include/ctype.h doesn't do that.
108: * . cleaned up all the improper bitwise complementation of
109: * logical constants and variables.
110: * -- Version 3.7 Mods by Noel J. Bergman, 02/27/84
111: * . Corrected problem with ALARM signal in 4.2 BSD Unix.
112: * BSD Unix restarts system calls after signal is handled,
113: * so setjmp() and longjmp() are used to handle I/O timeout.
114: * Since this will work with all Unix systems, and is a lot
115: * cleaner than depending on side effects, there is no need
116: * to make this code conditional.
117: *
118: */
119:
120: #include <stdio.h>
121: #include <sys/types.h>
122: #include <sys/stat.h>
123: #include <setjmp.h>
124: #include <ctype.h>
125:
126: /* JHU UNIX tty parameter file */
127: #ifdef JHU
128: #include <stty.h>
129: #endif
130:
131: /* Version 7 UNIX tty parameter file */
132: #ifdef VER7
133: #include <sgtty.h>
134: #endif
135:
136: /* UNIX SYSTEM III tty parameter file */
137: #ifdef SYS3
138: #include <sgtty.h>
139: #endif
140:
141: /* log default define */
142: #ifndef LOGDEFAULT
143: #define LOGDEFAULT 1
144: #endif
145:
146: /* Delete logfile define. Useful on small systems with limited
147: * filesystem space and careless users.
148: */
149: #ifndef DELDEFAULT
150: #define DELDEFAULT 1
151: #endif
152:
153: #include <signal.h>
154:
155: #define VERSION 37 /* Version Number */
156: #define FALSE 0
157: #define TRUE 1
158:
159: /* Compile with "-DPAGEMODE" if Page Mode (TIOCSSCR) is supported on your
160: * UNIX system. If it is supported, make sure that TIOCSSCR is the
161: * correct name for Page Mode engagement.
162: */
163:
164: /* ASCII Constants */
165: #define SOH 001
166: #define STX 002
167: #define ETX 003
168: #define EOT 004
169: #define ENQ 005
170: #define ACK 006
171: #define LF 012 /* Unix LF/NL */
172: #define CR 015
173: #define NAK 025
174: #define SYN 026
175: #define CAN 030
176: #define ESC 033
177: #define CTRLZ 032 /* CP/M EOF for text (usually!) */
178:
179: /* UMODEM Constants */
180: #define TIMEOUT -1
181: #define ERRORMAX 10 /* maximum errors tolerated */
182: #define RETRYMAX 10 /* maximum retries to be made */
183: #define BBUFSIZ 128 /* buffer size -- do not change! */
184:
185: /* [SD] Mode for Created Files */
186: #define CREATMODE 0600 /* mode for created files */
187:
188: /* ARPA Net Constants */
189: /* The following constants are used to communicate with the ARPA
190: * Net SERVER TELNET and TIP programs. These constants are defined
191: * as follows:
192: * IAC <-- Is A Command; indicates that
193: * a command follows
194: * WILL/WONT <-- Command issued to SERVER TELNET
195: * (Host); WILL issues command
196: * and WONT issues negative of
197: * the command
198: * DO/DONT <-- Command issued to TIP; DO issues
199: * command and DONT issues
200: * negative of the command
201: * TRBIN <-- Transmit Binary Command
202: * Examples:
203: * IAC WILL TRBIN <-- Host is configured to transmit Binary
204: * IAC WONT TRBIN <-- Host is configured NOT to transmit binary
205: * IAC DO TRBIN <-- TIP is configured to transmit Binary
206: * IAC DONT TRBIN <-- TIP is configured NOT to transmit binary
207: */
208: #define IAC 0377 /* Is A Command */
209: #define DO 0375 /* Command to TIP */
210: #define DONT 0376 /* Negative of Command to TIP */
211: #define WILL 0373 /* Command to SERVER TELNET (Host) */
212: #define WONT 0374 /* Negative of Command to SERVER TELNET */
213: #define TRBIN 0 /* Transmit Binary Command */
214:
215: /* JHU UNIX structures */
216: #ifdef JHU
217: struct sttybuf ttys, ttysnew, ttystemp; /* for stty terminal mode calls */
218: #endif
219:
220: /* Version 7 UNIX structures */
221: #ifdef VER7
222: struct sgttyb ttys, ttysnew, ttystemp; /* for stty terminal mode calls */
223: #endif
224:
225: /* UNIX SYSTEM III structures */
226: #ifdef SYS3
227: struct sgttyb ttys, ttysnew, ttystemp; /* for stty terminal mode calls */
228: #endif
229:
230: struct stat statbuf; /* for terminal message on/off control */
231: char *strcat();
232: FILE *LOGFP, *fopen();
233: char buff[BBUFSIZ];
234: int nbchr; /* number of chars read so far for buffered read */
235:
236: int wason;
237:
238: #ifdef VER7
239: int pagelen;
240: char *ttyname(); /* forward declaration for C */
241: #endif
242:
243: #ifdef SYS3
244: int pagelen;
245: char *ttyname(); /* forward declaration for C */
246: #endif
247:
248: char *tty;
249: char XMITTYPE;
250: int ARPA, CMNDFLAG, RECVFLAG, SENDFLAG, FTP1, PMSG, DELFLAG, LOGFLAG, MUNGMODE;
251: int STATDISP, BIT7, BITMASK;
252: int delay;
253: char filename[256];
254:
255: jmp_buf env;
256: void alarmfunc();
257:
258: main(argc, argv)
259: int argc;
260: char **argv;
261: {
262: char *getenv();
263: char *fname = filename;
264: char *logfile;
265: int index;
266: char flag;
267:
268: logfile = "umodem.log"; /* Name of LOG File */
269:
270: printf("\nUMODEM Version %d.%d", VERSION/10, VERSION%10);
271: printf(" -- UNIX-Based Remote File Transfer Facility\n");
272:
273: if (argc < 2 || *argv[1] != '-')
274: {
275: help(FALSE);
276: exit(-1);
277: }
278:
279: index = 1; /* set index for loop */
280: delay = 3; /* assume FTP 3 delay */
281: PMSG = FALSE; /* turn off flags */
282: FTP1 = FALSE; /* assume FTP 3 (CP/M UG XMODEM2) */
283: RECVFLAG = FALSE; /* not receive */
284: SENDFLAG = FALSE; /* not send either */
285: CMNDFLAG = FALSE; /* not command either */
286: XMITTYPE = 't'; /* assume text */
287: DELFLAG = DELDEFAULT;
288: LOGFLAG = LOGDEFAULT;
289: ARPA = FALSE; /* assume not on ARPA Net */
290: MUNGMODE = FALSE; /* protect files from overwriting */
291: STATDISP = FALSE; /* assume not a status display */
292: BIT7 = FALSE; /* assume 8-bit communication */
293: while ((flag = argv[1][index++]) != '\0')
294: switch (flag) {
295: case '1' : FTP1 = TRUE; /* select FTP 1 */
296: delay = 5; /* FTP 1 delay constant */
297: printf("\nUMODEM: TERM II FTP 1 Selected\n");
298: break;
299: case '4' : FTP1 = TRUE; /* select FTP 1 (varient) */
300: BIT7 = TRUE; /* transfer only 7 bits */
301: delay = 5; /* FTP 1 delay constant */
302: printf("\nUMODEM: TERM II FTP 4 Selected\n");
303: break;
304: case '7' : BIT7 = TRUE; /* transfer only 7 bits */
305: break;
306: case 'a' : ARPA = TRUE; /* set ARPA Net */
307: break;
308: case 'c' : CMNDFLAG = TRUE; /* command mode */
309: break;
310: case 'd' : DELFLAG = !DELDEFAULT; /* delete log file ? */
311: break;
312: case 'l' : LOGFLAG = !LOGDEFAULT; /* turn off log ? */
313: break;
314: case 'm' : MUNGMODE = TRUE; /* allow overwriting of files */
315: break;
316: case 'p' : PMSG = TRUE; /* print all messages */
317: break;
318: case 'r' : RECVFLAG = TRUE; /* receive file */
319: XMITTYPE = gettype(argv[1][index++]); /* get t/b */
320: break;
321: case 's' : SENDFLAG = TRUE; /* send file */
322: XMITTYPE = gettype(argv[1][index++]);
323: break;
324: case 'y' : STATDISP = TRUE; /* display file status */
325: break;
326: default : error("Invalid Flag", FALSE);
327: }
328:
329: if (BIT7 && (XMITTYPE == 'b'))
330: { printf("\nUMODEM: Fatal Error -- Both 7-Bit Transfer and ");
331: printf("Binary Transfer Selected");
332: exit(-1); /* error exit to UNIX */
333: }
334:
335: if (BIT7) /* set MASK value */
336: BITMASK = 0177; /* 7 significant bits */
337: else
338: BITMASK = 0377; /* 8 significant bits */
339:
340: if (PMSG)
341: { printf("\nSupported File Transfer Protocols:");
342: printf("\n\tTERM II FTP 1");
343: printf("\n\tCP/M UG XMODEM2 (TERM II FTP 3)");
344: printf("\n\tTERM II FTP 4");
345: printf("\n\n");
346: }
347:
348: if (CMNDFLAG) LOGFLAG = TRUE; /* if command mode, always log */
349: if (LOGFLAG)
350: {
351: if ((fname = getenv("HOME")) == 0) /* Get HOME variable */
352: error("Can't get Environment!", FALSE);
353: fname = strcat(fname, "/");
354: fname = strcat(fname, logfile);
355: if (!DELFLAG)
356: LOGFP = fopen(fname, "a"); /* append to LOG file */
357: else
358: LOGFP = fopen(fname, "w"); /* new LOG file */
359: if (!LOGFP)
360: error("Can't Open Log File", FALSE);
361: fprintf(LOGFP,"\n\n++++++++\n");
362: fprintf(LOGFP,"\nUMODEM Version %d.%d\n", VERSION/10, VERSION%10);
363: printf("\nUMODEM: LOG File '%s' is Open\n", fname);
364: }
365:
366: if (STATDISP) {
367: yfile(argv[2]); /* status of a file */
368: exit(0); /* exit to UNIX */
369: }
370:
371: if (RECVFLAG && SENDFLAG)
372: error("Both Send and Receive Functions Specified", FALSE);
373: if (!RECVFLAG && !SENDFLAG && !CMNDFLAG)
374: error("Send, Receive, or Command Functions NOT Given", FALSE);
375:
376: if (RECVFLAG)
377: { if(open(argv[2], 0) != -1) /* possible abort if file exists */
378: { printf("\nUMODEM: Warning -- Target File Exists\n");
379: if( MUNGMODE == FALSE )
380: error("Fatal - Can't overwrite file\n",FALSE);
381: printf("UMODEM: Overwriting Target File\n");
382: }
383: rfile(argv[2]); /* receive file */
384: }
385: else {
386: if (SENDFLAG) sfile(argv[2]); /* send file */
387: else command(); /* command mode */
388: }
389: if (CMNDFLAG) LOGFLAG = TRUE; /* for closing log file */
390: if (LOGFLAG) fclose(LOGFP);
391: exit(0);
392: }
393:
394: /* Major Command Mode */
395: command()
396: {
397: char cmd, *fname;
398: char *infile();
399:
400: printf("\nUMODEM Command Mode -- Type ? for Help");
401: do {
402: printf("\n");
403: printf(FTP1 ? "1" : "3"); /* FTP 1 or 3? */
404: printf(BIT7 ? "7" : " "); /* BIT 7 or not? */
405: printf(ARPA ? "A" : " "); /* ARPA Net or not? */
406: printf(LOGFLAG ? "L" : " "); /* Log Entries or not? */
407: printf(MUNGMODE ? "M" : " "); /* Mung Files or not? */
408: printf(" UMODEM> ");
409: scanf("%s", filename);
410: cmd = isupper(filename[0]) ? tolower(filename[0]) : filename[0];
411: switch (cmd) {
412: case '1' : FTP1 = TRUE; /* select FTP 1 */
413: delay = 5; /* FTP 1 delay constant */
414: printf("\nTERM FTP 1 Selected");
415: break;
416: case '3' : FTP1 = FALSE; /* select FTP 3 */
417: delay = 3; /* FTP 3 delay constant */
418: printf("\nTERM FTP 3 Selected");
419: break;
420: case '7' : BIT7 = !BIT7; /* toggle 7 bit transfer */
421: printf("\n7-Bit Transfer %s Selected",
422: BIT7 ? "" : "NOT");
423: break;
424: case 'a' : ARPA = !ARPA; /* toggle ARPA Net */
425: printf("\nDDN Interface %s Selected",
426: ARPA ? "" : "NOT");
427: break;
428: case 'l' : LOGFLAG = !LOGFLAG; /* toggle log flag */
429: printf("\nEntry Logging %s Enabled",
430: LOGFLAG ? "" : "NOT");
431: break;
432: case 'm' : MUNGMODE = !MUNGMODE; /* toggle file overwrite */
433: printf("\nFile Overwriting %s Enabled",
434: MUNGMODE ? "" : "NOT");
435: break;
436: case 'r' : RECVFLAG = TRUE; /* receive file */
437: XMITTYPE = tolower(filename[1]);
438: fname = infile(); /* get file name */
439: if (*fname != '\0') rfile(fname);
440: break;
441: case 's' : SENDFLAG = TRUE; /* send file */
442: XMITTYPE = tolower(filename[1]);
443: fname = infile(); /* get file name */
444: if (*fname != '\0') sfile(fname);
445: break;
446: case 'x' : break;
447: case 'y' : fname = infile(); /* get file name */
448: if (*fname != '\0') yfile(fname);
449: break;
450: default : help(TRUE);
451: }
452: } while (cmd != 'x');
453: }
454:
455: /* Get file name from user */
456: char *infile()
457: {
458: char *startptr = filename;
459:
460: scanf("%s",startptr);
461: if (*startptr == '.') *startptr = '\0'; /* set NULL */
462: return(startptr);
463: }
464:
465: /* Print Help Message */
466: help(caller)
467: int caller;
468: {
469: if (!caller) { printf("\nUsage: \n\tumodem ");
470: printf("-[c!rb!rt!sb!st][options]");
471: printf(" filename\n");
472: }
473: else {
474: printf("\nUsage: r or s or option");
475: }
476: printf("\nMajor Commands --");
477: if (!caller) printf("\n\tc <-- Enter Command Mode");
478: printf("\n\trb <-- Receive Binary");
479: printf("\n\trt <-- Receive Text");
480: printf("\n\tsb <-- Send Binary");
481: printf("\n\tst <-- Send Text");
482: printf("\nOptions --");
483: printf("\n\t1 <-- (one) Employ TERM II FTP 1");
484: if (caller) printf("\n\t3 <-- Enable TERM FTP 3 (CP/M UG)");
485: if (!caller) printf("\n\t4 <-- Enable TERM FTP 4");
486: printf("\n\t7 <-- Enable 7-bit transfer mask");
487: printf("\n\ta <-- Turn ON ARPA Net Flag");
488: if (!caller)
489: #if DELDEFAULT == 1
490: printf("\n\td <-- Do not delete umodem.log file before starting");
491: #else
492: printf("\n\td <-- Delete umodem.log file before starting");
493: #endif
494:
495: if (!caller)
496: #if LOGDEFAULT == 1
497: printf("\n\tl <-- (ell) Turn OFF LOG File Entries");
498: #else
499: printf("\n\tl <-- (ell) Turn ON LOG File Entries");
500: #endif
501: else printf("\n\tl <-- Toggle LOG File Entries");
502:
503: printf("\n\tm <-- Allow file overwiting on receive");
504: if (!caller) printf("\n\tp <-- Turn ON Parameter Display");
505: if (caller) printf("\n\tx <-- Exit");
506: printf("\n\ty <-- Display file status (size) information only");
507: printf("\n");
508: }
509:
510: gettype(ichar)
511: char ichar;
512: {
513: if (ichar == 't') return(ichar);
514: if (ichar == 'b') return(ichar);
515: error("Invalid Send/Receive Parameter - not t or b", FALSE);
516: return;
517: }
518:
519: /* set tty modes for UMODEM transfers */
520: setmodes()
521: {
522:
523: /* Device characteristics for JHU UNIX */
524: #ifdef JHU
525: if (gtty(0, &ttys) < 0) /* get current tty params */
526: error("Can't get TTY Parameters", TRUE);
527:
528: tty = ttyname(0); /* identify current tty */
529:
530: /* duplicate current modes in ttysnew structure */
531: ttysnew.ispeed = ttys.ispeed; /* copy input speed */
532: ttysnew.ospeed = ttys.ospeed; /* copy output speed */
533: ttysnew.xflags = ttys.xflags; /* copy JHU/UNIX extended flags */
534: ttysnew.mode = ttys.mode; /* copy standard terminal flags */
535:
536: ttysnew.mode |= RAW; /* set for RAW Mode */
537: /* This ORs in the RAW mode value, thereby
538: setting RAW mode and leaving the other
539: mode settings unchanged */
540: ttysnew.mode &= ~ECHO; /* set for no echoing */
541: /* This ANDs in the complement of the ECHO
542: setting (for NO echo), thereby leaving all
543: current parameters unchanged and turning
544: OFF ECHO only */
545: ttysnew.mode &= ~XTABS; /* set for no tab expansion */
546: ttysnew.mode &= ~LCASE; /* set for no upper-to-lower case xlate */
547: ttysnew.mode |= ANYP; /* set for ANY Parity */
548: ttysnew.mode &= ~NL3; /* turn off ALL delays - new line */
549: ttysnew.mode &= ~TAB3; /* turn off tab delays */
550: ttysnew.mode &= ~CR3; /* turn off CR delays */
551: ttysnew.mode &= ~FF1; /* turn off FF delays */
552: ttysnew.mode &= ~BS1; /* turn off BS delays */
553: /* the following are JHU/UNIX xflags settings; they are [SD] */
554: ttysnew.xflags &= ~PAGE; /* turn off paging */
555: ttysnew.xflags &= ~STALL; /* turn off ^S/^Q recognition */
556: ttysnew.xflags &= ~TAPE; /* turn off ^S/^Q input control */
557: ttysnew.xflags &= ~FOLD; /* turn off CR/LF folding at col 72 */
558: ttysnew.xflags |= NB8; /* turn on 8-bit input/output */
559:
560: if (stty(0, &ttysnew) < 0) /* set new params */
561: error("Can't set new TTY Parameters", TRUE);
562:
563: if (stat(tty, &statbuf) < 0) /* get tty status */
564: error("Can't get your TTY Status", TRUE);
565:
566: if (statbuf.st_mode&011) /* messages are on [SD] */
567: { wason = TRUE;
568: if (chmod(tty, 020600) < 0) /* turn off tty messages [SD] */
569: error("Can't change TTY Mode", TRUE);
570: }
571: else
572: wason = FALSE; /* messages are already off */
573: #endif
574:
575: /* Device characteristics for Version 7 UNIX */
576: #ifdef VER7
577: if (ioctl(0,TIOCGETP,&ttys)<0) /* get tty params [V7] */
578: error("Can't get TTY Parameters", TRUE);
579: tty = ttyname(0); /* identify current tty */
580:
581: /* transfer current modes to new structure */
582: ttysnew.sg_ispeed = ttys.sg_ispeed; /* copy input speed */
583: ttysnew.sg_ospeed = ttys.sg_ospeed; /* copy output speed */
584: ttysnew.sg_erase = ttys.sg_erase; /* copy erase flags */
585: ttysnew.sg_flags = ttys.sg_flags; /* copy flags */
586: ttysnew.sg_kill = ttys.sg_kill; /* copy std terminal flags */
587:
588:
589: ttysnew.sg_flags |= RAW; /* set for RAW Mode */
590: /* This ORs in the RAW mode value, thereby
591: setting RAW mode and leaving the other
592: mode settings unchanged */
593: ttysnew.sg_flags &= ~ECHO; /* set for no echoing */
594: /* This ANDs in the complement of the ECHO
595: setting (for NO echo), thereby leaving all
596: current parameters unchanged and turning
597: OFF ECHO only */
598: ttysnew.sg_flags &= ~XTABS; /* set for no tab expansion */
599: ttysnew.sg_flags &= ~LCASE; /* set for no upper-to-lower case xlate */
600: ttysnew.sg_flags |= ANYP; /* set for ANY Parity */
601: ttysnew.sg_flags &= ~NL3; /* turn off ALL delays - new line */
602: ttysnew.sg_flags &= ~TAB2; /* turn off tab delays */
603: ttysnew.sg_flags &= ~CR3; /* turn off CR delays */
604: ttysnew.sg_flags &= ~FF1; /* turn off FF delays */
605: ttysnew.sg_flags &= ~BS1; /* turn off BS delays */
606: ttysnew.sg_flags &= ~TANDEM; /* turn off flow control */
607:
608: #ifdef PAGEMODE
609: /* make sure page mode is off */
610: ioctl(0,TIOCSSCR,&pagelen); /* [SD] */
611: #endif
612:
613: /* set new paramters */
614: if (ioctl(0,TIOCSETP,&ttysnew) < 0)
615: error("Can't set new TTY Parameters", TRUE);
616:
617: if (stat(tty, &statbuf) < 0) /* get tty status */
618: error("Can't get your TTY Status", TRUE);
619: if (statbuf.st_mode & 022) /* Need to turn messages off */
620: if (chmod(tty, statbuf.st_mode & ~022) < 0)
621: error("Can't change TTY mode", TRUE);
622: else wason = TRUE;
623: else wason = FALSE;
624: #endif
625:
626: /* Device Characteristics for UNIX SYSTEM III */
627: #ifdef SYS3
628: if (gtty(0, &ttys) < 0) /* get current tty params */
629: error("Can't get TTY Parameters", TRUE);
630:
631: tty = ttyname(0); /* identify current tty */
632:
633: /* transfer current modes to new structure */
634: ttysnew.sg_ispeed = ttys.sg_ispeed; /* copy input speed */
635: ttysnew.sg_ospeed = ttys.sg_ospeed; /* copy output speed */
636: ttysnew.sg_erase = ttys.sg_erase; /* copy erase flags */
637: ttysnew.sg_flags = ttys.sg_flags; /* copy flags */
638: ttysnew.sg_kill = ttys.sg_kill; /* copy std terminal flags */
639:
640:
641: ttysnew.sg_flags |= RAW; /* set for RAW Mode */
642: /* This ORs in the RAW mode value, thereby
643: setting RAW mode and leaving the other
644: mode settings unchanged */
645: ttysnew.sg_flags &= ~ECHO; /* set for no echoing */
646: /* This ANDs in the complement of the ECHO
647: setting (for NO echo), thereby leaving all
648: current parameters unchanged and turning
649: OFF ECHO only */
650: ttysnew.sg_flags &= ~XTABS; /* set for no tab expansion */
651: ttysnew.sg_flags &= ~LCASE; /* set for no upper-to-lower case xlate */
652: ttysnew.sg_flags |= ANYP; /* set for ANY Parity */
653: ttysnew.sg_flags &= ~NL3; /* turn off ALL delays - new line */
654: ttysnew.sg_flags &= ~TAB0; /* turn off tab delays */
655: ttysnew.sg_flags &= ~TAB1;
656: ttysnew.sg_flags &= ~CR3; /* turn off CR delays */
657: ttysnew.sg_flags &= ~FF1; /* turn off FF delays */
658: ttysnew.sg_flags &= ~BS1; /* turn off BS delays */
659:
660: if (stty(0, &ttysnew) < 0) /* set new params */
661: error("Can't set new TTY Parameters", TRUE);
662:
663: if (stat(tty, &statbuf) < 0) /* get tty status */
664: error("Can't get your TTY Status", TRUE);
665: if (statbuf.st_mode & 022) /* Need to turn messages off */
666: if (chmod(tty, statbuf.st_mode & ~022) < 0)
667: error("Can't change TTY mode", TRUE);
668: else wason = TRUE;
669: else wason = FALSE;
670: #endif
671:
672: if (PMSG)
673: { printf("\nUMODEM: TTY Device Parameters Altered");
674: ttyparams(); /* print tty params */
675: }
676:
677: if (ARPA) /* set 8-bit on ARPA Net */
678: setarpa();
679:
680: return;
681: }
682:
683: /* set ARPA Net for 8-bit transfers */
684: setarpa()
685: {
686: sendbyte(IAC); /* Is A Command */
687: sendbyte(WILL); /* Command to SERVER TELNET (Host) */
688: sendbyte(TRBIN); /* Command is: Transmit Binary */
689:
690: sendbyte(IAC); /* Is A Command */
691: sendbyte(DO); /* Command to TIP */
692: sendbyte(TRBIN); /* Command is: Transmit Binary */
693:
694: sleep(3); /* wait for TIP to configure */
695:
696: return;
697: }
698:
699: /* restore normal tty modes */
700: restoremodes(errcall)
701: int errcall;
702: {
703: if (ARPA) /* if ARPA Net, reconfigure */
704: resetarpa();
705:
706: /* Device characteristic restoration for JHU UNIX */
707: #ifdef JHU
708: if (wason) /* if messages were on originally */
709: if (chmod(tty, 020611) < 0) /* [SD] */
710: error("Can't change TTY Mode", FALSE);
711:
712: if (stty(0, &ttys) < 0) /* restore original tty modes */
713: { if (!errcall)
714: error("RESET - Can't restore normal TTY Params", FALSE);
715: else
716: { printf("UMODEM: ");
717: printf("RESET - Can't restore normal TTY Params\n");
718: }
719: }
720: #endif
721:
722: /* Device characteristic restoration for Version 7 UNIX */
723: #ifdef VER7
724: if (wason)
725: if (chmod(tty, statbuf.st_mode | 022) < 0)
726: error("Can't change TTY mode", FALSE);
727: if (ioctl(0,TIOCSETP,&ttys) < 0)
728: { if (!errcall)
729: error("RESET - Can't restore normal TTY Params", FALSE);
730: else
731: { printf("UMODEM: ");
732: printf("RESET - Can't restore normal TTY Params\n");
733: }
734: }
735: #endif
736:
737: /* Device characteristic restoration for UNIX SYSTEM III */
738: #ifdef SYS3
739: if (wason)
740: if (chmod(tty, statbuf.st_mode | 022) < 0)
741: error("Can't change TTY mode", FALSE);
742:
743: if (stty(0, &ttys) < 0) /* restore original tty modes */
744: { if (!errcall)
745: error("RESET - Can't restore normal TTY Params", FALSE);
746: else
747: { printf("UMODEM: ");
748: printf("RESET - Can't restore normal TTY Params\n");
749: }
750: }
751: #endif
752:
753: if (PMSG)
754: { printf("\nUMODEM: TTY Device Parameters Restored");
755: ttyparams(); /* print tty params */
756: }
757:
758: return;
759: }
760:
761: /* reset the ARPA Net */
762: resetarpa()
763: {
764: sendbyte(IAC); /* Is A Command */
765: sendbyte(WONT); /* Negative Command to SERVER TELNET (Host) */
766: sendbyte(TRBIN); /* Command is: Don't Transmit Binary */
767:
768: sendbyte(IAC); /* Is A Command */
769: sendbyte(DONT); /* Negative Command to TIP */
770: sendbyte(TRBIN); /* Command is: Don't Transmit Binary */
771:
772: return;
773: }
774:
775: /* print error message and exit; if mode == TRUE, restore normal tty modes */
776: error(msg, mode)
777: char *msg;
778: int mode;
779: {
780: if (mode)
781: restoremodes(TRUE); /* put back normal tty modes */
782: printf("UMODEM: %s\n", msg);
783: if (LOGFLAG & (int)LOGFP)
784: { fprintf(LOGFP, "UMODEM Fatal Error: %s\n", msg);
785: fclose(LOGFP);
786: }
787: exit(-1);
788: }
789:
790: /** print status (size) of a file **/
791: yfile(name)
792: char *name;
793: {
794: printf("\nUMODEM File Status Display for %s\n", name);
795:
796: if (open(name,0) < 0) {
797: printf("File %s does not exist\n", name);
798: return;
799: }
800:
801: prfilestat(name); /* print status */
802: printf("\n");
803: }
804:
805: getbyte(fildes, ch) /* Buffered disk read */
806: int fildes;
807: char *ch;
808: /*
809: *
810: * Get a byte from the specified file. Buffer the read so we don't
811: * have to use a system call for each character.
812: *
813: */
814:
815: {
816: static char buf[BUFSIZ]; /* Remember buffer */
817: static char *bufp = buf; /* Remember where we are in buffer */
818:
819: if (nbchr == 0) /* Buffer exausted; read some more */
820: {
821: if ((nbchr = read(fildes, buf, BUFSIZ)) < 0)
822: error("File Read Error", TRUE);
823: bufp = buf; /* Set pointer to start of array */
824: }
825: if (--nbchr >= 0)
826: {
827: *ch = *bufp++;
828: return(0);
829: }
830: else
831: return(EOF);
832: }
833:
834: /** receive a file **/
835: rfile(name)
836: char *name;
837: {
838: char mode;
839: int fd, j, firstchar, sectnum, sectcurr, tmode;
840: int sectcomp, errors, errorflag, recfin;
841: register int bufctr, checksum;
842: register int c;
843: int errorchar, fatalerror, startstx, inchecksum, endetx, endenq;
844: long recvsectcnt;
845:
846: mode = XMITTYPE; /* set t/b mode */
847: if ((fd = creat(name, CREATMODE)) < 0)
848: error("Can't create file for receive", FALSE);
849: setmodes(); /* setup tty modes for xfer */
850: printf("\r\nUMODEM: File Name: %s", name);
851: if (LOGFLAG)
852: { fprintf(LOGFP, "\n----\nUMODEM Receive Function\n");
853: fprintf(LOGFP, "File Name: %s\n", name);
854: if (FTP1)
855: if (!BIT7)
856: fprintf(LOGFP, "TERM II File Transfer Protocol 1 Selected\n");
857: else
858: fprintf(LOGFP, "TERM II File Transfer Protocol 4 Selected\n");
859: else
860: fprintf(LOGFP,
861: "TERM II File Transfer Protocol 3 (CP/M UG) Selected\n");
862: if (BIT7)
863: fprintf(LOGFP, "7-Bit Transmission Enabled\n");
864: else
865: fprintf(LOGFP, "8-Bit Transmission Enabled\n");
866: }
867: printf("\r\nUMODEM: ");
868: if (BIT7)
869: printf("7-Bit");
870: else
871: printf("8-Bit");
872: printf(" Transmission Enabled");
873: printf("\r\nUMODEM: Ready to RECEIVE File\r\n");
874:
875: recfin = FALSE;
876: sectnum = errors = 0;
877: fatalerror = FALSE; /* NO fatal errors */
878: recvsectcnt = 0; /* number of received sectors */
879:
880: if (mode == 't')
881: tmode = TRUE;
882: else
883: tmode = FALSE;
884:
885: if (FTP1)
886: {
887: while (readbyte(4) != SYN);
888: sendbyte(ACK); /* FTP 1 Sync */
889: }
890: else sendbyte(NAK); /* FTP 3 Sync */
891:
892: do
893: { errorflag = FALSE;
894: do {
895: firstchar = readbyte(6);
896: } while ((firstchar != SOH) && (firstchar != EOT) && (firstchar
897: != TIMEOUT));
898: if (firstchar == TIMEOUT)
899: { if (LOGFLAG)
900: fprintf(LOGFP, "Timeout on Sector %d\n", sectnum);
901: errorflag = TRUE;
902: }
903:
904: if (firstchar == SOH)
905: { if (FTP1) readbyte(5); /* discard leading zero */
906: sectcurr = readbyte(delay);
907: sectcomp = readbyte(delay);
908: if (FTP1) startstx = readbyte(delay); /* get leading STX */
909: if ((sectcurr + sectcomp) == BITMASK)
910: { if (sectcurr == ((sectnum+1)&BITMASK))
911: { checksum = 0;
912: for (j = bufctr = 0; j < BBUFSIZ; j++)
913: { buff[bufctr] = c = readbyte(delay);
914: checksum = ((checksum+c)&BITMASK);
915: if (!tmode) /* binary mode */
916: { bufctr++;
917: continue;
918: }
919: if (c == CR)
920: continue; /* skip CR's */
921: if (c == CTRLZ) /* skip CP/M EOF char */
922: { recfin = TRUE; /* flag EOF */
923: continue;
924: }
925: if (!recfin)
926: bufctr++;
927: }
928: if (FTP1) endetx = readbyte(delay); /* get ending ETX */
929: inchecksum = readbyte(delay); /* get checksum */
930: if (FTP1) endenq = readbyte(delay); /* get ENQ */
931: if (checksum == inchecksum) /* good checksum */
932: { errors = 0;
933: recvsectcnt++;
934: sectnum = sectcurr; /* update sector counter */
935: if (write(fd, buff, bufctr) < 0)
936: error("File Write Error", TRUE);
937: else
938: { if (FTP1) sendbyte(ESC); /* FTP 1 requires <ESC> */
939: sendbyte(ACK);
940: }
941: }
942: else
943: { if (LOGFLAG)
944: fprintf(LOGFP, "Checksum Error on Sector %d\n",
945: sectnum);
946: errorflag = TRUE;
947: }
948: }
949: else
950: { if (sectcurr == sectnum)
951: { while(readbyte(3) != TIMEOUT);
952: if (FTP1) sendbyte(ESC); /* FTP 1 requires <ESC> */
953: sendbyte(ACK);
954: }
955: else
956: { if (LOGFLAG)
957: { fprintf(LOGFP, "Phase Error - Received Sector is ");
958: fprintf(LOGFP, "%d while Expected Sector is %d\n",
959: sectcurr, ((sectnum+1)&BITMASK));
960: }
961: errorflag = TRUE;
962: fatalerror = TRUE;
963: if (FTP1) sendbyte(ESC); /* FTP 1 requires <ESC> */
964: sendbyte(CAN);
965: }
966: }
967: }
968: else
969: { if (LOGFLAG)
970: fprintf(LOGFP, "Header Sector Number Error on Sector %d\n",
971: sectnum);
972: errorflag = TRUE;
973: }
974: }
975: if (FTP1 && !errorflag)
976: { if (startstx != STX)
977: { errorflag = TRUE; /* FTP 1 STX missing */
978: errorchar = STX;
979: }
980: if (endetx != ETX)
981: { errorflag = TRUE; /* FTP 1 ETX missing */
982: errorchar = ETX;
983: }
984: if (endenq != ENQ)
985: { errorflag = TRUE; /* FTP 1 ENQ missing */
986: errorchar = ENQ;
987: }
988: if (errorflag && LOGFLAG)
989: { fprintf(LOGFP, "Invalid Packet-Control Character: ");
990: switch (errorchar) {
991: case STX : fprintf(LOGFP, "STX"); break;
992: case ETX : fprintf(LOGFP, "ETX"); break;
993: case ENQ : fprintf(LOGFP, "ENQ"); break;
994: default : fprintf(LOGFP, "Error"); break;
995: }
996: fprintf(LOGFP, "\n");
997: }
998: }
999: if (errorflag == TRUE)
1000: { errors++;
1001: while (readbyte(3) != TIMEOUT);
1002: sendbyte(NAK);
1003: }
1004: }
1005: while ((firstchar != EOT) && (errors != ERRORMAX) && !fatalerror);
1006: if ((firstchar == EOT) && (errors < ERRORMAX))
1007: { if (!FTP1) sendbyte(ACK);
1008: close(fd);
1009: restoremodes(FALSE); /* restore normal tty modes */
1010: if (FTP1)
1011: while (readbyte(3) != TIMEOUT); /* flush EOT's */
1012: sleep(3); /* give other side time to return to terminal mode */
1013: if (LOGFLAG)
1014: { fprintf(LOGFP, "\nReceive Complete\n");
1015: fprintf(LOGFP,"Number of Received CP/M Records is %ld\n", recvsectcnt);
1016: }
1017: printf("\n");
1018: }
1019: else
1020: { if (LOGFLAG && FTP1 && fatalerror) fprintf(LOGFP,
1021: "Synchronization Error");
1022: error("TIMEOUT -- Too Many Errors", TRUE);
1023: }
1024: }
1025:
1026: /** send a file **/
1027: sfile(name)
1028: char *name;
1029: {
1030: char mode;
1031: int fd, attempts;
1032: int nlflag, sendfin, tmode;
1033: register int bufctr, checksum, sectnum;
1034: char c;
1035: int sendresp; /* response char to sent block */
1036:
1037: nbchr = 0; /* clear buffered read char count */
1038: mode = XMITTYPE; /* set t/b mode */
1039: if ((fd = open(name, 0)) < 0)
1040: { if (LOGFLAG) fprintf(LOGFP, "Can't Open File\n");
1041: error("Can't open file for send", FALSE);
1042: }
1043: setmodes(); /* setup tty modes for xfer */
1044: printf("\r\nUMODEM: File Name: %s", name);
1045: if (LOGFLAG)
1046: { fprintf(LOGFP, "\n----\nUMODEM Send Function\n");
1047: fprintf(LOGFP, "File Name: %s\n", name);
1048: }
1049: printf("\r\n"); prfilestat(name); /* print file size statistics */
1050: if (LOGFLAG)
1051: { if (FTP1)
1052: if (!BIT7)
1053: fprintf(LOGFP, "TERM II File Transfer Protocol 1 Selected\n");
1054: else
1055: fprintf(LOGFP, "TERM II File Transfer Protocol 4 Selected\n");
1056: else
1057: fprintf(LOGFP,
1058: "TERM II File Transfer Protocol 3 (CP/M UG) Selected\n");
1059: if (BIT7)
1060: fprintf(LOGFP, "7-Bit Transmission Enabled\n");
1061: else
1062: fprintf(LOGFP, "8-Bit Transmission Enabled\n");
1063: }
1064: printf("\r\nUMODEM: ");
1065: if (BIT7)
1066: printf("7-Bit");
1067: else
1068: printf("8-Bit");
1069: printf(" Transmission Enabled");
1070: printf("\r\nUMODEM: Ready to SEND File\r\n");
1071:
1072: if (mode == 't')
1073: tmode = TRUE;
1074: else
1075: tmode = FALSE;
1076:
1077: sendfin = nlflag = FALSE;
1078: attempts = 0;
1079:
1080: if (FTP1)
1081: { sendbyte(SYN); /* FTP 1 Synchronize with Receiver */
1082: while (readbyte(5) != ACK)
1083: { if(++attempts > RETRYMAX*6) error("Remote System Not Responding",
1084: TRUE);
1085: sendbyte(SYN);
1086: }
1087: }
1088: else
1089: { while (readbyte(30) != NAK) /* FTP 3 Synchronize with Receiver */
1090: if (++attempts > RETRYMAX) error("Remote System Not Responding",
1091: TRUE);
1092: }
1093:
1094: sectnum = 1; /* first sector number */
1095: attempts = 0;
1096:
1097: do
1098: { for (bufctr=0; bufctr < BBUFSIZ;)
1099: { if (nlflag)
1100: { buff[bufctr++] = LF; /* leftover newline */
1101: nlflag = FALSE;
1102: }
1103: if (getbyte(fd, &c) == EOF)
1104: { sendfin = TRUE; /* this is the last sector */
1105: if (!bufctr) /* if EOF on sector boundary */
1106: break; /* avoid sending extra sector */
1107: if (tmode)
1108: buff[bufctr++] = CTRLZ; /* Control-Z for CP/M EOF */
1109: else
1110: bufctr++;
1111: continue;
1112: }
1113: if (tmode && c == LF) /* text mode & Unix newline? */
1114: { if (c == LF) /* Unix newline? */
1115: { buff[bufctr++] = CR; /* insert carriage return */
1116: if (bufctr < BBUFSIZ)
1117: buff[bufctr++] = LF; /* insert Unix newline */
1118: else
1119: nlflag = TRUE; /* insert newline on next sector */
1120: }
1121: continue;
1122: }
1123: buff[bufctr++] = c; /* copy the char without change */
1124: }
1125: attempts = 0;
1126:
1127: if (!bufctr) /* if EOF on sector boundary */
1128: break; /* avoid sending empty sector */
1129:
1130: do
1131: { sendbyte(SOH); /* send start of packet header */
1132: if (FTP1) sendbyte(0); /* FTP 1 Type 0 Packet */
1133: sendbyte(sectnum); /* send current sector number */
1134: sendbyte(-sectnum-1); /* and its complement */
1135: if (FTP1) sendbyte(STX); /* send STX */
1136: checksum = 0; /* init checksum */
1137: for (bufctr=0; bufctr < BBUFSIZ; bufctr++)
1138: { sendbyte(buff[bufctr]); /* send the byte */
1139: if (ARPA && (buff[bufctr]==0xff)) /* ARPA Net FFH esc */
1140: sendbyte(buff[bufctr]); /* send 2 FFH's for one */
1141: checksum = ((checksum+buff[bufctr])&BITMASK);
1142: }
1143: /* while (readbyte(3) != TIMEOUT); flush chars from line */
1144: if (FTP1) sendbyte(ETX); /* send ETX */
1145: sendbyte(checksum); /* send the checksum */
1146: if (FTP1) sendbyte(ENQ); /* send ENQ */
1147: attempts++;
1148: if (FTP1)
1149: { sendresp = NAK; /* prepare for NAK */
1150: if (readbyte(10) == ESC) sendresp = readbyte(10);
1151: }
1152: else
1153: sendresp = readbyte(10); /* get response */
1154: if ((sendresp != ACK) && LOGFLAG)
1155: { fprintf(LOGFP, "Non-ACK Received on Sector %d\n",
1156: sectnum);
1157: if (sendresp == TIMEOUT)
1158: fprintf(LOGFP, "This Non-ACK was a TIMEOUT\n");
1159: }
1160: } while((sendresp != ACK) && (attempts != RETRYMAX));
1161: sectnum++; /* increment to next sector number */
1162: } while (!sendfin && (attempts != RETRYMAX));
1163:
1164: if (attempts == RETRYMAX)
1165: error("Remote System Not Responding", TRUE);
1166:
1167: attempts = 0;
1168: if (FTP1)
1169: while (attempts++ < 10) sendbyte(EOT);
1170: else
1171: { sendbyte(EOT); /* send 1st EOT */
1172: while ((readbyte(15) != ACK) && (attempts++ < RETRYMAX))
1173: sendbyte(EOT);
1174: if (attempts >= RETRYMAX)
1175: error("Remote System Not Responding on Completion", TRUE);
1176: }
1177:
1178: close(fd);
1179: restoremodes(FALSE);
1180: sleep(5); /* give other side time to return to terminal mode */
1181: if (LOGFLAG)
1182: { fprintf(LOGFP, "\nSend Complete\n");
1183: }
1184: printf("\n");
1185:
1186: }
1187:
1188: /* print file size status information */
1189: prfilestat(name)
1190: char *name;
1191: {
1192: struct stat filestatbuf; /* file status info */
1193:
1194: stat(name, &filestatbuf); /* get file status bytes */
1195: printf(" Estimated File Size %ldK, %ld Records, %ld Bytes",
1196: (filestatbuf.st_size/1024)+1, (filestatbuf.st_size/128)+1,
1197: filestatbuf.st_size);
1198: if (LOGFLAG)
1199: fprintf(LOGFP,"Estimated File Size %ldK, %ld Records, %ld Bytes\n",
1200: (filestatbuf.st_size/1024)+1, (filestatbuf.st_size/128)+1,
1201: filestatbuf.st_size);
1202: return;
1203: }
1204:
1205: /* get a byte from data stream -- timeout if "seconds" elapses */
1206: readbyte(seconds)
1207: unsigned seconds;
1208: {
1209: char c;
1210:
1211: signal(SIGALRM,alarmfunc); /* catch alarms */
1212: alarm((unsigned) seconds); /* set the alarm clock */
1213: if (setjmp(env) == 0) { /* if <> 0 then returned from timeout */
1214: if (read(0, &c, 1) < 0) /* get a char; error means time out */
1215: {
1216: return(TIMEOUT);
1217: }
1218: }
1219: else return(TIMEOUT);
1220: alarm((unsigned) 0); /* turn off the alarm */
1221: return((c&BITMASK)); /* return the char */
1222: }
1223:
1224: /* send a byte to data stream */
1225: sendbyte(data)
1226: char data;
1227: {
1228: char dataout;
1229: dataout = (data&BITMASK); /* mask for 7 or 8 bits */
1230: write(1, &dataout, 1); /* write the byte */
1231: return;
1232: }
1233:
1234: /* function for alarm clock timeouts */
1235: void alarmfunc()
1236: {
1237: longjmp(env,1); /* this is basically a dummy function to force error */
1238: /* status return on the "read" call in "readbyte" */
1239: }
1240:
1241: /* print data on TTY setting */
1242: ttyparams()
1243: {
1244:
1245: /* Obtain TTY parameters for JHU UNIX */
1246: #ifdef JHU
1247: gtty(0, &ttystemp); /* get current tty params */
1248: #endif
1249:
1250: /* Obtain TTY parameters for Version 7 UNIX */
1251: #ifdef VER7
1252: ioctl(0,TIOCGETP,&ttystemp);
1253: #endif
1254:
1255: /* Obtain TTY parameters for UNIX SYSTEM III */
1256: #ifdef SYS3
1257: gtty(0, &ttystemp); /* get current tty params */
1258: #endif
1259:
1260: tty = ttyname(0); /* get name of tty */
1261: stat(tty, &statbuf); /* get more tty params */
1262:
1263: printf("\r\n\nTTY Device Parameter Display");
1264: printf("\r\n\tTTY Device Name is %s\r\n\n", tty);
1265: printf("\tAny Parity Allowed "); pryn(ANYP);
1266: printf("\tEven Parity Allowed"); pryn(EVENP);
1267: printf("\tOdd Parity Allowed "); pryn(ODDP);
1268: printf("\tEcho Enabled "); pryn(ECHO);
1269: printf("\tLower Case Map "); pryn(LCASE);
1270: printf("\tTabs Expanded "); pryn(XTABS);
1271: printf("\tCR Mode Enabled "); pryn(CRMOD);
1272: printf("\tRAW Mode Enabled "); pryn(RAW);
1273:
1274: /* Print extended terminal characteristics for JHU UNIX */
1275: #ifdef JHU
1276: printf("\tBinary Mode Enabled"); pryn1(NB8);
1277: printf("\tCR/LF in Col 72 "); pryn1(FOLD);
1278: printf("\tRecognize ^S/^Q "); pryn1(STALL);
1279: printf("\tSend ^S/^Q "); pryn1(TAPE);
1280: printf("\tTerminal can BS "); pryn1(SCOPE);
1281: printf("\r\n"); /* New line to separate topics */
1282: printf("\tTerminal Paging is "); pryn1(PAGE);
1283: if (ttystemp.xflags&PAGE)
1284: printf("\t Lines/Page is %d\r\n", ttystemp.xflags&PAGE);
1285: printf("\r\n"); /* New line to separate topics */
1286: printf("\tTTY Input Rate : ");
1287: prbaud(ttystemp.ispeed); /* print baud rate */
1288: printf("\tTTY Output Rate : ");
1289: prbaud(ttystemp.ospeed); /* print output baud rate */
1290: printf("\r\n"); /* New line to separate topics */
1291: printf("\tMessages Enabled ");
1292: if (statbuf.st_mode&011)
1293: printf(": Yes\r\n");
1294: else
1295: printf(": No\r\n");
1296: #endif
1297:
1298: /* Print extended characteristics for Version 7 UNIX */
1299: #ifdef VER7
1300: printf("\tTTY Input Rate : ");
1301: prbaud(ttystemp.sg_ispeed);
1302: printf("\tTTY Output Rate : ");
1303: prbaud(ttystemp.sg_ospeed); /* print output baud rate */
1304: #endif
1305:
1306: /* Print extended characteristics for UNIX SYSTEM III */
1307: #ifdef SYS3
1308: printf("\tTTY Input Rate : ");
1309: prbaud(ttystemp.sg_ispeed);
1310: printf("\tTTY Output Rate : ");
1311: prbaud(ttystemp.sg_ospeed); /* print output baud rate */
1312: #endif
1313:
1314: }
1315:
1316: pryn(iflag)
1317: int iflag;
1318: {
1319:
1320: /* JHU UNIX flag test */
1321: #ifdef JHU
1322: if (ttystemp.mode&iflag)
1323: #endif
1324:
1325: /* Version 7 UNIX flag test */
1326: #ifdef VER7
1327: if (ttystemp.sg_flags&iflag)
1328: #endif
1329:
1330: /* UNIX SYSTEM III flag test */
1331: #ifdef SYS3
1332: if (ttystemp.sg_flags&iflag)
1333: #endif
1334:
1335: printf(": Yes\r\n");
1336: else
1337: printf(": No\r\n");
1338: }
1339:
1340: /* Extended flag test for JHU UNIX only */
1341: #ifdef JHU
1342: pryn1(iflag)
1343: int iflag;
1344: {
1345: if (ttystemp.xflags&iflag)
1346: printf(": Yes\r\n");
1347: else
1348: printf(": No\r\n");
1349: }
1350: #endif
1351:
1352: prbaud(speed)
1353: char speed;
1354: {
1355: switch (speed) {
1356:
1357: /* JHU UNIX speed flag cases */
1358: #ifdef JHU
1359: case B0050 : printf("50"); break;
1360: case B0075 : printf("75"); break;
1361: case B0110 : printf("110"); break;
1362: case B0134 : printf("134.5"); break;
1363: case B0150 : printf("150"); break;
1364: case B0200 : printf("200"); break;
1365: case B0300 : printf("300"); break;
1366: case B0600 : printf("600"); break;
1367: case B1200 : printf("1200"); break;
1368: case B1800 : printf("1800"); break;
1369: case B2400 : printf("2400"); break;
1370: case B4800 : printf("4800"); break;
1371: case B9600 : printf("9600"); break;
1372: case EXT_A : printf("External A"); break;
1373: case EXT_B : printf("External B"); break;
1374: #endif
1375:
1376: /* Version 7 UNIX speed flag cases */
1377: #ifdef VER7
1378: case B50 : printf("50"); break;
1379: case B75 : printf("75"); break;
1380: case B110 : printf("110"); break;
1381: case B134 : printf("134.5"); break;
1382: case B150 : printf("150"); break;
1383: case B200 : printf("200"); break;
1384: case B300 : printf("300"); break;
1385: case B600 : printf("600"); break;
1386: case B1200 : printf("1200"); break;
1387: case B1800 : printf("1800"); break;
1388: case B2400 : printf("2400"); break;
1389: case B4800 : printf("4800"); break;
1390: case B9600 : printf("9600"); break;
1391: case EXTA : printf("External A"); break;
1392: case EXTB : printf("External B"); break;
1393: #endif
1394:
1395: /* UNIX SYSTEM III speed flag cases */
1396: #ifdef SYS3
1397: case B50 : printf("50"); break;
1398: case B75 : printf("75"); break;
1399: case B110 : printf("110"); break;
1400: case B134 : printf("134.5"); break;
1401: case B150 : printf("150"); break;
1402: case B200 : printf("200"); break;
1403: case B300 : printf("300"); break;
1404: case B600 : printf("600"); break;
1405: case B1200 : printf("1200"); break;
1406: case B1800 : printf("1800"); break;
1407: case B2400 : printf("2400"); break;
1408: case B4800 : printf("4800"); break;
1409: case B9600 : printf("9600"); break;
1410: case EXTA : printf("External A"); break;
1411: case EXTB : printf("External B"); break;
1412: #endif
1413:
1414: default : printf("Error"); break;
1415: }
1416: printf(" Baud\r\n");
1417: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.