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