![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to ckcmai.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 ckcmai.c CVS log | Up to [MW Coherent from dump] / coherent / e / bin / cku179 |
1.1 root 1: char *versio = "C-Kermit 5A(179) BETA, 8 Feb 92"; /* Version herald. */
2: long vernum = 501179L;
3: /*
4: String and numeric version numbers, keep these two in sync!
5: Second digit of vernum: 0 = A, 1 = B, etc.
6: */
7:
8: #ifndef VERWHO
9: /* Change verwho in following line, or with -DVERWHO=x in makefile CFLAGS. */
10: #define VERWHO 0
11: #endif /* VERWHO */
12: int verwho = VERWHO; /* Who produced this version, 0 = Columbia University */
13: /*
14: IMPORTANT: If you are working on your own private version of C-Kermit, please
15: include some special notation, like your site name or your initials, in the
16: "versio" string, e.g. "5A(159)-XXX", and use a nonzero code for the "verwho"
17: variable (e.g. in the USA use your zip code). Unless we stick to this
18: discipline, divergent copies of C-Kermit will begin to appear that are
19: intistinguishable from each other, which is a big support issue. Also, if
20: you have edited C-Kermit and made copies available to others, please add
21: appropriate text to the BUG command (ckuus6.c, function dobug()).
22: */
23: #define CKCMAI
24:
25: /* C K C M A I -- C-Kermit Main program */
26:
27: /*
28: Author: Frank da Cruz ([email protected], [email protected]),
29: Columbia University Center for Computing Activities.
30: First released January 1985.
31: Copyright (C) 1985, 1992, Trustees of Columbia University in the City of New
32: York. Permission is granted to any individual or institution to use, copy, or
33: redistribute this software as long as it is not sold for profit, provided this
34: copyright notice is retained.
35: */
36: /*
37: The Kermit file transfer protocol was developed at the Columbia University
38: Center for Computing Activities (CUCCA). It is named after Kermit the Frog,
39: star of the television series THE MUPPET SHOW; the name is used by permission
40: of Henson Associates, Inc. "Kermit" is also Celtic for "free".
41: */
42: /*
43: Thanks to at least the following people for their contributions to this
44: program over the years, and apologies to anybody I missed:
45:
46: Chris Adie, Edinburgh U, Scotland (OS/2 support)
47: Larry Afrin, Clemson U
48: Barry Archer, U of Missouri
49: Robert Andersson, Oslo, Norway
50: Chris Armstrong, Brookhaven National Lab (OS/2)
51: William Bader, Moravian College
52: Fuat Baran, CUCCA
53: Stan Barber, Rice U
54: Jim Barbour, U of Colorado
55: Nelson Beebe, U of Utah
56: Karl Berry, UMB
57: Charles Brooks, EDN
58: Mike Brown, Purdue U
59: Mark Buda, DEC (VAX/VMS)
60: Bjorn Carlsson, Stockholm University Computer Center QZ
61: Bill Catchings, formerly of CUCCA
62: Bob Cattani, Columbia U CS Dept
63: John Chandler, Harvard U / Smithsonian Astronomical Observatory
64: John L. Chmielewski, AT&T, Lisle, IL
65: Howard Chu, U of Michigan
66: Bill Coalson, McDonnell Douglas
67: Bertie Coopersmith, London, UK
68: Alan Crosswell, CUCCA
69: Jeff Damens, formerly of CUCCA
70: Mark Davies, Bath U, UK
71: Joe R. Doupnik, Utah State U
72: S. Dezawa, Fujifilm, Japan
73: Frank Dreano (Honeywell)
74: Kristoffer Eriksson, Peridot Konsult AB, Oerebro, Sweden
75: John R. Evans, IRS, Kansas City
76: Glenn Everhart, RCA Labs
77: Herm Fischer, Encino, CA (extensive contributions to version 4.0)
78: Carl Fongheiser, CWRU
79: Marcello Frutig, Catholic University, Sao Paulo, Brazil (X.25 support)
80: Hirofumi Fujii, Japan Nat'l Lab for High Energy Physics, Tokyo (Kanji)
81: Andy Fyfe, Caltech
82: Christine M. Gianone, CUCCA
83: John Gilmore, UC Berkeley
84: German Goldszmidt, IBM
85: Chris Green, Essex U, UK
86: Yekta Gursel, MIT
87: Jim Guyton, Rand Corp
88: Stan Hanks, Rice U.
89: Ken Harrenstein, SRI
90: James Harvey, Indiana/Purdue U (VMS)
91: Rob Healey, [email protected]
92: Chuck Hedrick, Rutgers U
93: Ron Heiby, Technical Systems Division, Motorola Computer Group
94: Steve Hemminger, Tektronix
95: Christian Hemsing, RWTH Aachen, Germany (OS-9)
96: Andrew Herbert, Monash Univ, Australia
97: Mike Hickey, ITI
98: Randy Huntziger, National Library of Medicine
99: Larry Jacobs, Transarc
100: Mark B. Johnson, Apple Computer
101: Peter Jones, U of Quebec Montreal
102: Phil Julian, SAS Institute
103: Marion Kananson, [email protected]
104: Sergey Kartashoff, Institute of..., Moscow, USSR
105: Howie Kaye, CUCCA
106: Rob Kedoin, Linotype Co, Hauppauge, NY (OS/2)
107: Terry Kennedy, St Peter's College, Jersey City, NJ (VAX/VMS, 2.11 BSD)
108: Douglas Kingston, morgan.com
109: Tom Kloos, Sequent Computer Systems
110: Jim Knutson, U of Texas at Austin
111: Thomas Krueger, UWM
112: Bo Kullmar, Central Bank of Sweden, Kista
113: John Kunze, UC Berkeley
114: Bob Larson, USC (OS-9)
115: Bert Laverman, Groningen U, Netherlands
116: David Lawyer, UC Irvine
117: S.O. Lidie, Lehigh U
118: Tor Lillqvist, Helsinki University, Finland
119: Kevin Lowey, U of Saskatchewan (OS/2)
120: David MacKenzie, Environmental Defense Fund, University of Maryland
121: John Mackin, University of Sidney, Australia
122: Martin Maclaren, Bath U, UK
123: Chris Maio, Columbia U CS Dept
124: Fulvio Marino, Olivetti, Ivrea, Italy
125: Peter Mauzey, AT&T
126: Tye McQueen, Utah State U
127: Hellmuth Michaelis
128: Leslie Mikesell, American Farm Bureau
129: Martin Minow, DEC (VAX/VMS)
130: Ray Moody, Purdue U
131: Bruce J Moore (Atari ST)
132: Steve Morley, Convex
133: Tony Movshon, NYU
134: Dan Murphy, ???
135: Gary Mussar,
136: Jim Noble, Planning Research Corporation (Macintosh)
137: Ian O'Brien, Bath U, UK
138: Paul Placeway, Ohio State U (Macintosh & more)
139: Piet W. Plomp, ICCE, Groningen University, Netherlands
140: Ken Poulton, HP Labs
141: Manfred Prange, Oakland U
142: Frank Prindle, NADC
143: Anton Rang
144: Scott Ribe
145: Alan Robiette, Oxford University, UK
146: Michel Robitaille, U of Montreal (Mac)
147: Kai Uwe Rommel, Technische Universitaet Muenchen (OS/2)
148: Larry Rosenman (Amiga)
149: Jay Rouman, U of Michigan
150: Jack Rouse, SAS Institute (Data General and/or Apollo)
151: Stew Rubenstein, Harvard U (VAX/VMS)
152: Eric Schnoebelen, Convex
153: Benn Schreiber, DEC
154: Dan Schullman, DEC (modems, DIAL command, etc)
155: John Schultz, 3M
156: Steven Schultz, Contel (PDP-11)
157: Gordon Scott, Micro Focus, Newbury UK
158: Gisbert W. Selke, WIdO, Bonn, Germany
159: David Sizeland, U of London Medical School
160: Bradley Smith, UCLA
161: Richard Smith, Cal State
162: Ryan Stanisfer
163: Peter Svanberg, Royal Techn. HS, Sweden
164: Andy Tanenbaum, Vrije U, Amsterdam, Netherlands
165: Markku Toijala, Helsinki U of Technology
166: Rick Troxel, NIH
167: Warren Tucker, Tridom Corp, Mountain Park, GA
168: Dave Tweten, AMES-NAS
169: Walter Underwood, Ford Aerospace
170: Pieter Van Der Linden, Centre Mondial, Paris
171: Ge van Geldorp, Netherlands
172: Fred van Kempen, MINIX User Group, Voorhout, Netherlands
173: Wayne Van Pelt, GE/CRD
174: Mark Vasoll, Oklahoma State U (V7 UNIX)
175: Paul Vixie (DEC)
176: Roger Wallace, Raytheon
177: Stephen Walton, Calif State U, Northridge (Amiga)
178: Jamie Watson, Switzerland (RS/6000)
179: Rick Watson, U of Texas (Macintosh)
180: Lauren Weinstein
181: Joachim Wiesel, U of Karlsruhe
182: Michael Williams, UCLA
183: Patrick Wolfe, Kuck & Associates, Inc.
184: Gregg Wonderly, Oklahoma State U (V7 UNIX)
185: Farrell Woods, Concurrent (formerly Masscomp)
186: Dave Woolley, CAP Communication Systems, London
187: Jack Woolley, SCT Corp
188: Ken Yap, U of Rochester
189: John Zeeff, Ann Arbor, MI
190: */
191: /*
192: ckcsym.h is used for for defining symbols that normally would be defined
193: using -D or -d on the cc command line, for use with compilers that don't
194: support this feature.
195: */
196: #include "ckcsym.h"
197: #include "ckcasc.h" /* ASCII character symbols */
198: #include "ckcdeb.h" /* Debug & other symbols */
199: #include "ckcker.h" /* Kermit symbols */
200: #include "ckcnet.h" /* Network symbols */
201: #ifndef NOSPL
202: #include "ckuusr.h"
203: #endif /* NOSPL */
204:
205: #ifndef NOSERVER
206: /* Text message definitions.. each should be 256 chars long, or less. */
207: #ifdef MAC
208: char *hlptxt = "\r\
209: Mac Kermit Server Commands:\r\
210: \r\
211: BYE\r\
212: FINISH\r\
213: GET filespec\r\
214: REMOTE CD directory\r\
215: REMOTE HELP\r\
216: SEND filespec\r\
217: \r\0";
218: #else
219: #ifdef AMIGA
220: char *hlptxt = "C-Kermit Server Commands:\n\
221: \n\
222: GET filespec, SEND filespec, FINISH, BYE, REMOTE HELP\n\
223: \n\0";
224: #else
225: #ifdef OS2
226: char *hlptxt = "C-Kermit Server REMOTE Commands:\n\
227: \n\
228: GET files REMOTE CD [dir] REMOTE DIRECTORY [files]\n\
229: SEND files REMOTE SPACE [dir] REMOTE HOST command\n\
230: FINISH REMOTE DELETE files REMOTE TYPE files\n\
231: BYE REMOTE HELP REMOTE SET parameter value\n\
232: \n\0";
233: #else
234: #ifdef MINIX
235: char *hlptxt = "C-Kermit Server REMOTE Commands:\n\
236: GET SEND BYE FINISH REMOTE: CD DEL DIR HELP HOST SET SPACE TYPE WHO\n\0";
237: #else
238: #ifdef VMS
239: char *hlptxt = "C-Kermit Server REMOTE Commands:\r\n\
240: \r\n\
241: GET files REMOTE CD [dir] REMOTE DIRECTORY [files]\r\n\
242: SEND files REMOTE SPACE [dir] REMOTE HOST command\r\n\
243: MAIL files REMOTE DELETE files REMOTE WHO [user]\r\n\
244: BYE REMOTE PRINT files REMOTE TYPE files\r\n\
245: FINISH REMOTE HELP REMOTE SET parameter value\r\n\
246: \0";
247: #else
248: char *hlptxt = "C-Kermit Server REMOTE Commands:\n\
249: \n\
250: GET files REMOTE CD [dir] REMOTE DIRECTORY [files]\n\
251: SEND files REMOTE SPACE [dir] REMOTE HOST command\n\
252: MAIL files REMOTE DELETE files REMOTE WHO [user]\n\
253: BYE REMOTE PRINT files REMOTE TYPE files\n\
254: FINISH REMOTE HELP REMOTE SET parameter value\n\
255: \n\0";
256: #endif
257: #endif
258: #endif
259: #endif
260: #endif
261:
262: #ifdef MINIX
263: char *srvtxt = "\r\n\
264: Entering server mode.\r\n\
265: \n\0";
266: #else
267: #ifdef OSK
268: char *srvtxt = "\r\l\
269: C-Kermit server starting. Return to your local machine by typing\r\l\
270: its escape sequence for closing the connection, and issue further\r\l\
271: commands from there. To shut down the C-Kermit server, issue the\r\l\
272: BYE command to logout, or the FINISH command and then reconnect.\r\l\
273: \l\0";
274: #else
275: char *srvtxt = "\r\n\
276: C-Kermit server starting. Return to your local machine by typing\r\n\
277: its escape sequence for closing the connection, and issue further\r\n\
278: commands from there. To shut down the C-Kermit server, issue the\r\n\
279: BYE command to logout, or the FINISH command and then reconnect.\r\n\
280: \r\n\0";
281: #endif
282: #endif
283: #else
284: char *srvtxt = "";
285: #endif /* NOSERVER */
286:
287: /* Declarations for Send-Init Parameters */
288:
289: int spsiz = DSPSIZ, /* Current packet size to send */
290: spmax = DSPSIZ, /* (PWP) Biggest packet size we can send */
291: /* (see rcalcpsz()) */
292: spsizr = DSPSIZ, /* Send-packet size requested */
293: spsizf = 0, /* Flag to override what you ask for */
294: rpsiz = DRPSIZ, /* Biggest we want to receive */
295: urpsiz = DRPSIZ, /* User-requested rpsiz */
296: maxrps = MAXRP, /* Maximum incoming long packet size */
297: maxsps = MAXSP, /* Maximum outbound l.p. size */
298: maxtry = MAXTRY, /* Maximum retries per packet */
299: wslots = 1, /* Window size in use */
300: wslotr = 1, /* Window size requested */
301: wslotn = 1, /* Window size negotiated */
302: timeouts = 0, /* For statistics reporting */
303: spackets = 0, /* ... */
304: rpackets = 0, /* ... */
305: retrans = 0, /* ... */
306: crunched = 0, /* ... */
307: wmax = 0, /* ... */
308: timint = DMYTIM, /* Timeout interval I use */
309: srvtim = DSRVTIM, /* Server command wait timeout */
310: srvdis = 0, /* Server file xfer display */
311: pkttim = DMYTIM, /* Normal packet wait timeout */
312: rtimo = URTIME, /* Timeout I want you to use */
313: timef = 0, /* Flag to override what you ask */
314: npad = MYPADN, /* How much padding to send */
315: mypadn = MYPADN, /* How much padding to ask for */
316: bctr = 1, /* Block check type requested */
317: bctu = 1, /* Block check type used */
318: ebq = MYEBQ, /* 8th bit prefix */
319: ebqflg = 0, /* 8th-bit quoting flag */
320: rqf = -1, /* Flag used in 8bq negotiation */
321: rq = 0, /* Received 8bq bid */
322: sq = 'Y', /* Sent 8bq bid */
323: rpt = 0, /* Repeat count */
324: rptq = MYRPTQ, /* Repeat prefix */
325: rptflg = 0; /* Repeat processing flag */
326:
327: int capas = 9, /* Position of Capabilities */
328: atcapb = 8, /* Attribute capability */
329: atcapr = 1, /* requested */
330: atcapu = 0, /* used */
331: swcapb = 4, /* Sliding Window capability */
332: swcapr = 1, /* requested (allowed) */
333: swcapu = 0, /* used */
334: lpcapb = 2, /* Long Packet capability */
335: lpcapr = 1, /* requested */
336: lpcapu = 0, /* used */
337: lscapb = 32, /* Locking Shift capability */
338: lscapr = 1, /* requested by default */
339: lscapu = 0; /* used */
340:
341: /* Flags for whether to use particular attributes */
342:
343: int atenci = 1, /* Encoding in */
344: atenco = 1, /* Encoding out */
345: atdati = 1, /* Date in */
346: atdato = 1, /* Date out */
347: atdisi = 1, /* Disposition in/out */
348: atdiso = 1,
349: atleni = 1, /* Length in/out (both kinds) */
350: atleno = 1,
351: atblki = 1, /* Blocksize in/out */
352: atblko = 1,
353: attypi = 1, /* File type in/out */
354: attypo = 1,
355: atsidi = 1, /* System ID in/out */
356: atsido = 1,
357: atsysi = 1, /* System-dependent parameters in/out */
358: atsyso = 1;
359:
360: CHAR padch = MYPADC, /* Padding character to send */
361: mypadc = MYPADC, /* Padding character to ask for */
362: seol = MYEOL, /* End-Of-Line character to send */
363: eol = MYEOL, /* End-Of-Line character to look for */
364: ctlq = CTLQ, /* Control prefix in incoming data */
365: myctlq = CTLQ; /* Outbound control character prefix */
366:
367: struct zattr iattr; /* Incoming file attributes */
368:
369: /* File related variables, mainly for the benefit of VAX/VMS */
370:
371: int fblksiz = DBLKSIZ; /* File blocksize */
372: int frecl = DLRECL; /* File record length */
373: int frecfm = XYFF_S; /* File record format (default = stream) */
374: int forg = XYFO_S; /* File organization (sequential) */
375: int fcctrl = XYFP_N; /* File carriage control (ctrl chars) */
376:
377: #ifdef VMS
378: /* VMS labeled file options */
379: int lf_opts = LBL_NAM;
380: #else
381: int lf_opts = 0;
382: #endif /* VMS */
383:
384: /* Packet-related variables */
385:
386: int pktnum = 0, /* Current packet number */
387: sndtyp = 0, /* Type of packet just sent */
388: rsn, /* Received packet sequence number */
389: rln, /* Received packet length */
390: size, /* Current size of output pkt data */
391: osize, /* Previous output packet data size */
392: maxsize, /* Max size for building data field */
393: spktl = 0, /* Length packet being sent */
394: rprintf, /* REMOTE PRINT flag */
395: rmailf; /* MAIL flag */
396:
397: CHAR
398: #ifdef NO_MORE /* Buffers used before sliding windows... */
399: sndpkt[MAXSP+100], /* Entire packet being sent */
400: recpkt[MAXRP+200], /* Packet most recently received */
401: data[MAXSP+4], /* Packet data buffer */
402: #endif
403: #ifdef DYNAMIC
404: *srvcmd = (CHAR *)0, /* Where to decode server command */
405: #else
406: srvcmd[MAXRP+4], /* Where to decode server command */
407: #endif
408: padbuf[95], /* Buffer for send-padding */
409: *recpkt,
410: *rdatap, /* Pointer to received packet data */
411: *data = (CHAR *)0, /* Pointer to send-packet data */
412: *srvptr, /* Pointer to srvcmd */
413: mystch = SOH, /* Outbound packet-start character */
414: stchr = SOH; /* Incoming packet-start character */
415:
416: /* File-related variables */
417:
418: char filnam[257]; /* Name of current file. */
419: char cmdfil[80]; /* Application file name. */
420:
421: int nfils = 0; /* Number of files in file group */
422: long fsize; /* Size of current file */
423: int wildxpand = 0; /* Who expands wildcards */
424: int clfils = 0; /* Flag for command-line files */
425: int stayflg = 0; /* Flag for "stay", i.e. "-S" */
426:
427: /* Communication line variables */
428:
429: char ttname[50]; /* Name of communication line. */
430:
431: #ifdef MAC
432: int connected = 0; /* true if connected */
433: int startconnected; /* initial state of connected */
434: #endif /* MAC */
435:
436: long speed = -1L; /* Line speed */
437: int mdmspd = 1; /* Modem changes speed flag */
438:
439: #ifndef NODIAL
440: int dialhng = 1; /* Whether to hangup before dialing */
441: int dialtmo = 0; /* Secs to wait for call to complete */
442: int dialksp = 0; /* Kermit spoof in modem */
443: int dialdpy = 0; /* Dial display */
444: int dialmnp = 0; /* Dial MNP-negotiation enabled */
445: char *dialini = (char *) 0; /* User-spec'd dialer init string */
446: #endif /* NODIAL */
447:
448: int parity, /* Parity specified, 0,'e','o',etc */
449: autopar = 0, /* Automatic parity change flag */
450: sosi = 0, /* Shift-In/Out flag */
451: flow, /* Flow control */
452: turn = 0, /* Line turnaround handshake flag */
453: turnch = XON, /* Line turnaround character */
454: duplex = 0, /* Duplex, full by default */
455: escape = DFESC, /* Escape character for connect */
456: delay = DDELAY, /* Initial delay before sending */
457: tnlm = 0, /* Terminal newline mode */
458: mdmtyp = 0; /* Modem type (initially none) */
459:
460: /* Networks for SET HOST */
461:
462: #define MYHOSTL 100
463: char myhost[MYHOSTL]; /* Local host name */
464: int network = 0; /* Network vs tty connection */
465: int nettype = NET_TCPB; /* Assume TCP/IP (BSD sockets) */
466:
467: #ifdef SUNX25
468: extern initpad();
469: int revcall = 0; /* X.25 reverse call not selected */
470: int closgr = -1; /* X.25 closed user group not selected */
471: int cudata = 0; /* X.25 call user data not specified */
472: char udata[MAXCUDATA]; /* X.25 call user data */
473: #endif /* SUNX25 */
474:
475: /* Other recent additions */
476:
477: int tlevel = -1; /* Take-file command level */
478: #ifndef NOSPL
479: extern int maclvl; /* Macro invocation level */
480: #endif /* NOSPL */
481: int carrier = CAR_AUT; /* Pay attention to carrier signal */
482: int cdtimo = 0; /* Carrier wait timeout */
483: int xitsta = GOOD_EXIT; /* Program exit status */
484: #ifdef VMS /* Default filename collision action */
485: int fncact = XYFX_X; /* REPLACE for VAX/VMS */
486: #else
487: int fncact = XYFX_B; /* BACKUP for everybody else */
488: #endif /* VMS */
489: int bgset = -1; /* BACKGROUND mode set explicitly */
490: #ifdef UNIX
491: int suspend = DFSUSP; /* Whether SUSPEND command, etc, */
492: #else /* is to be allowed. */
493: int suspend = 0;
494: #endif /* UNIX */
495:
496: /* Statistics variables */
497:
498: long filcnt, /* Number of files in transaction */
499: flci, /* Characters from line, current file */
500: flco, /* Chars to line, current file */
501: tlci, /* Chars from line in transaction */
502: tlco, /* Chars to line in transaction */
503: ffc, /* Chars to/from current file */
504: tfc, /* Chars to/from files in transaction */
505: rptn; /* Repeated characters compressed */
506:
507: int tsecs; /* Seconds for transaction */
508:
509: /* Flags */
510:
511: int deblog = 0, /* Flag for debug logging */
512: debses = 0, /* Flag for DEBUG SESSION */
513: pktlog = 0, /* Flag for packet logging */
514: seslog = 0, /* Session logging */
515: tralog = 0, /* Transaction logging */
516: displa = 0, /* File transfer display on/off */
517: stdouf = 0, /* Flag for output to stdout */
518: stdinf = 0, /* Flag for input from stdin */
519: xflg = 0, /* Flag for X instead of F packet */
520: hcflg = 0, /* Doing Host command */
521: fncnv = 1, /* Flag for file name conversion */
522: binary = 0, /* Flag for binary file */
523: savmod = 0, /* Saved file mode (whole session) */
524: bsave = 0, /* Saved file mode (per file) */
525: bsavef = 0, /* Flag if bsave was used. */
526: cmask = 0177, /* Connect byte mask */
527: fmask = 0377, /* File byte mask */
528: warn = 0, /* Flag for file warning */
529: quiet = 0, /* Be quiet during file transfer */
530: local = 0, /* Flag for external tty vs stdout */
531: server = 0, /* Flag for being a server */
532: cflg = 0, /* Connect before transaction */
533: cnflg = 0, /* Connect after transaction */
534: cxseen = 0, /* Flag for cancelling a file */
535: czseen = 0, /* Flag for cancelling file group */
536: discard = 0, /* Flag for file to be discarded */
537: keep = 0, /* Keep incomplete files */
538: unkcs = 1, /* Keep file w/unknown character set */
539: nakstate = 0, /* In a state where we can send NAKs */
540: dblchar = -1; /* Character to double when sending */
541:
542: /* Variables passed from command parser to protocol module */
543:
544: #ifndef NOSPL
545: _PROTOTYP( int parser, (int) ); /* The parser itself */
546: char *clcmds = NULL; /* Pointer to command-line commands */
547: #endif /* NOSPL */
548:
549: CHAR sstate = (CHAR) 0; /* Starting state for automaton */
550: CHAR zstate = (CHAR) 0; /* For remembering sstate */
551: char *cmarg = ""; /* Pointer to command data */
552: char *cmarg2 = ""; /* Pointer to 2nd command data */
553: char **cmlist; /* Pointer to file list in argv */
554:
555: /* Flags for the ENABLE and DISABLE commands */
556:
557: int en_cwd = 1; /* CD/CWD */
558: int en_del = 1; /* DELETE */
559: int en_dir = 1; /* DIRECTORY */
560: int en_fin = 1; /* FINISH/BYE */
561: int en_get = 1; /* GET */
562: #ifndef NOPUSH
563: int en_hos = 1; /* HOST enabled */
564: #else
565: int en_hos = 0; /* HOST disabled */
566: #endif /* NOPUSH */
567: int en_sen = 1; /* SEND */
568: int en_set = 1; /* SET */
569: int en_spa = 1; /* SPACE */
570: int en_typ = 1; /* TYPE */
571: int en_who = 1; /* WHO */
572: int en_bye = 1; /* BYE */
573:
574: /* Miscellaneous */
575:
576: char **xargv; /* Global copies of argv */
577: int xargc; /* and argc */
578: int xargs; /* an immutable copy of argc */
579: char *xarg0; /* and of argv[0] */
580:
581: extern char *dftty; /* Default tty name from ck?tio.c */
582: extern int dfloc; /* Default location: remote/local */
583: extern int dfprty; /* Default parity */
584: extern int dfflow; /* Default flow control */
585:
586: /*
587: Buffered file input and output buffers. See getpkt() in ckcfns.c
588: and zoutdump() in the system-dependent file i/o module (usually ck?fio.c).
589: */
590: #ifndef DYNAMIC
591: /* Now we allocate them dynamically, see getiobs() below. */
592: char zinbuffer[INBUFSIZE], zoutbuffer[OBUFSIZE];
593: #endif
594: char *zinptr, *zoutptr;
595: int zincnt, zoutcnt;
596:
597: _PROTOTYP( int getiobs, (void) );
598:
599: /* M A I N -- C-Kermit main program */
600:
601: #ifndef NOCCTRAP
602: #include <setjmp.h>
603: extern jmp_buf cmjbuf;
604: #ifdef GEMDOS /* Special for Atari ST */
605: cc_clean();
606: #endif /* GEMDOS */
607: #endif /* NOCCTRAP */
608:
609: #ifdef aegis
610: /* On the Apollo, intercept main to insert a cleanup handler */
611: int
612: ckcmai(argc,argv) int argc; char **argv;
613: #else
614: #ifdef MAC
615: int main (void)
616: #else
617: int
618: main(argc,argv) int argc; char **argv;
619: #endif /* MAC */
620: #endif /* aegis */
621: {
622:
623: /* Do some initialization */
624:
625: if (sysinit() < 0) /* System-dependent initialization. */
626: fatal("Can't initialize!");
627: connoi(); /* Console interrupts off */
628: #ifndef MAC
629: xargc = xargs = argc; /* Make global copies of argc */
630: xargv = argv; /* ...and argv. */
631: xarg0 = argv[0];
632: #endif /* MAC */
633: sstate = 0; /* No default start state. */
634: #ifdef DYNAMIC
635: if (getiobs() < 0)
636: fatal("Can't allocate i/o buffers!");
637: #endif /* DYNAMIC */
638: ckhost(myhost,MYHOSTL); /* Name of local host */
639: strcpy(ttname,dftty); /* Set up default tty name. */
640: local = dfloc; /* And whether it's local or remote. */
641: parity = dfprty; /* Set initial parity, */
642: flow = dfflow; /* and flow control. */
643:
644: #ifndef COHERENT
645: if (local) if (ttopen(ttname,&local,0,0) < 0) { /* If default tty line */
646: printf("%s: Can't open device\n",ttname); /* is external, open it */
647: local = 0; /* now... */
648: strcpy(ttname,CTTNAM);
649: }
650: #endif
651:
652: speed = ttgspd(); /* Get transmission speed. */
653:
654: #ifdef SUNX25
655: initpad(); /* Initialize X.25 PAD */
656: #endif /* SUNX25 */
657:
658: if (inibufs(SBSIZ,RBSIZ) < 0) /* Allocate packet buffers */
659: fatal("Can't allocate packet buffers!");
660:
661: #ifndef NOICP
662:
663: #ifdef MAC
664: cmdini();
665: #else /* Not MAC */
666: /* Attempt to take ini file before doing command line */
667:
668: *cmdfil = '\0'; /* Assume no command file. */
669: prescan(); /* But first check for -y option */
670:
671: #ifndef NOCCTRAP
672: setint(); /* Set up interrupts */
673: if (setjmp(cmjbuf)) { /* Control-C trap returns to here. */
674: doexit(GOOD_EXIT,-1); /* Exit with good status. */
675: } else {
676: #endif /* NOCCTRAP */
677: cmdini(); /* Sets tlevel */
678: while (tlevel > -1) { /* Execute init file. */
679: sstate = parser(0); /* Loop getting commands. */
680: if (sstate) proto(); /* Enter protocol if requested. */
681: }
682: #ifndef NOCCTRAP
683: }
684: #endif /* NOCCTRAP */
685:
686: /*
687: In UNIX there are two ways to invoke Kermit with a cmdfile:
688: (1) From the kermit command line, e.g. "kermit cmdfile [ options... ]"
689: argv[0] = "kermit"
690: argv[1] = "cmdfile"
691: (2) By executing a cmdfile whose first line is like "#!/path/kermit"
692: argv[0] = "/path/kermit" (sometimes just "kermit")
693: argv[1] = "/path/cmdfile"
694: */
695: if (argc > 1) {
696: if (*argv[1] != '-') {
697: if (zchki(argv[1]) > 0) {
698: strcpy(cmdfil,argv[1]);
699: }
700: }
701: }
702: if (*cmdfil) { /* If we got one, */
703: dotake(cmdfil); /* execute it */
704: while (tlevel > -1) { /* until it runs out. */
705: sstate = parser(1); /* Loop getting commands. */
706: if (sstate) proto(); /* Enter protocol if requested. */
707: }
708: }
709: *cmdfil = '\0';
710: #endif /* MAC */
711: #endif /* NOICP */
712:
713: #ifndef NOCMDL
714: /* Look for a UNIX-style command line... */
715:
716: if (argc > 1) { /* Command line arguments? */
717: sstate = cmdlin(); /* Yes, parse. */
718: zstate = sstate; /* Remember sstate around protocol */
719: if (cflg) conect(); /* Connect first if requested */
720: if (sstate) {
721: if (displa) concb((char)escape); /* (for console "interrupts") */
722: #ifndef NOCCTRAP
723: setint(); /* Set up interrupts */
724: if (setjmp(cmjbuf)) { /* Control-C trap returns to here. */
725: #ifdef GEMDOS
726: cc_clean();
727: #endif /* GEMDOS */
728: if (cnflg) conect(); /* connect again if requested, */
729: } else {
730: #endif /* NOCCTRAP */
731: proto(); /* Take any requested action, then */
732: if (!quiet) /* put cursor back at left margin, */
733: conoll("");
734: if (cnflg) conect(); /* connect if requested, */
735: #ifndef NOCCTRAP
736: }
737: #endif /* NOCCTRAP */
738: }
739: /*
740: If interactive commands were given on the command line (using the
741: -C "command, command, ..." option), assign them to a macro called
742: "cl_commands", then execute the macro and leave it defined for
743: subsequent re-execution if desired.
744: */
745: #ifndef NOSPL
746: if (clcmds) { /* Check for -C commands */
747: int x;
748: x = addmac("cl_commands",clcmds); /* Put macro in table */
749: if (x > -1) { /* If successful, */
750: dodo(x,NULL); /* set up for macro execution */
751: while (maclvl > -1) { /* Loop getting macro commands. */
752: sstate = parser(1);
753: if (sstate) proto(); /* Enter protocol if requested. */
754: }
755: }
756: }
757: #endif /* NOSPL */
758: #ifndef NOICP
759: /*
760: If a command-line action argument was given and -S ("stay") was not given,
761: exit now.
762: */
763: if ((cflg || cnflg || zstate) && !stayflg)
764: #endif /* NOICP */
765: doexit(GOOD_EXIT,xitsta); /* exit with good status */
766: }
767: #endif /* NOCMDL */
768:
769: #ifdef NOICP /* No interactive command parser */
770: else {
771: #ifndef NOCMDL
772: usage(); /* Command-line-only version */
773: doexit(BAD_EXIT,-1);
774: #else /* Neither one! */
775: doexit(BAD_EXIT,-1);
776: #endif /* NOCMDL */
777: }
778: #else /* not NOICP */
779: /*
780: If no action requested on command line, or if -S ("stay") was included,
781: enter the interactive command parser.
782: */
783: herald(); /* Display program herald. */
784:
785: #ifndef NOCCTRAP /* If not no Control-C trap */
786: ccagain:
787: if (setjmp(cmjbuf)) { /* Control-C trap returns to here. */
788: #ifdef GEMDOS
789: cc_clean();
790: #endif /* GEMDOS */
791: fixcmd(); /* Pop command stacks, etc. */
792: debug(F100,"ckcmai got interrupt","",0);
793: goto ccagain; /* set up trap again. */
794: } else {
795: debug(F100,"ckcmai setting interrupt trap","",0);
796: setint(); /* Set up command interrupt traps */
797: }
798: #else /* NOCCTRAP */
799: setint(); /* Set up command interrupt traps */
800: #endif /* NOCCTRAP */
801:
802: #ifdef MAC
803: while (1) {
804: extern char *lfiles; /* fake pointer cast */
805:
806: if (connected) {
807: debug(F100, "main: calling macparser", "", 0);
808: sstate = newparser(1, 1, 0L);
809:
810: /* ignore null command state */
811: if (sstate == 'n')
812: sstate = '\0';
813:
814: if (sstate)
815: proto();
816: }
817: else {
818: /*
819: * process take files the finder gave us.
820: */
821: if ((tlevel == -1) && lfiles)
822: startlfile();
823:
824: debug(F100, "main: calling parser", "", 0);
825: sstate = parser(0);
826: if (sstate == 'c') /* if MAC connect */
827: sstate = 0;
828: if (sstate)
829: proto();
830: }
831: }
832: #else /* Not MAC */
833:
834: /*
835: Running from an application file, or a command filename was
836: specified on the command line.
837: */
838: if (*cmdfil) dotake(cmdfil); /* Command file spec'd on cmd line */
839: while(1) { /* Loop getting commands. */
840: sstate = parser(0);
841: if (sstate) proto(); /* Enter protocol if requested. */
842: }
843: #endif /* MAC */
844: #endif /* NOICP */
845: }
846:
847: #ifdef DYNAMIC
848: /* Allocate file i/o buffers */
849:
850: char *zinbuffer, *zoutbuffer;
851:
852: int
853: getiobs() {
854: zinbuffer = (char *)malloc(INBUFSIZE);
855: if (!zinbuffer) return(-1);
856: zoutbuffer = (char *)malloc(OBUFSIZE);
857: if (!zoutbuffer) return(-1);
858: debug(F100,"getiobs ok","",0);
859: return(0);
860: }
861: #endif /* DYNAMIC */
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.