给gkermit添加串口通信功能 2

linux-dash

A beautiful web dashboard for Linux

项目地址：https://gitcode.com/gh_mirrors/li/linux-dash

免费下载资源

fishbaoyu

4901人浏览 · 2009-12-10 20:32:00

fishbaoyu · 2009-12-10 20:32:00 发布

原本的程序不支持选择串口，自己添加一个参数 “l”来指定使用哪一个串口。也添加了进度的显示。

比如

发送：

gkermit -s -l /dev/ttyS2 file.bin

接收：

gkermit -r -l /dev/ttyS2

所做的工作基本就是把对stdin、stdout的操做改为对串口的操作。Linux<--->Linux,Win<--->Win, Win<--->Linux测试通过。

diff -uNr gku100/ANNOUNCE gku100U/ANNOUNCE --- gku100/ANNOUNCE 1999-12-27 04:28:38.000000000 +0800 +++ gku100U/ANNOUNCE 2009-12-09 17:15:30.000000000 +0800 @@ -103,3 +103,30 @@ Release 1.00 25 Dec 99. ------------------------------ + +Article: 10842 of comp.protocols.kermit.misc +From: fdc@watsun.cc.columbia.edu (Frank da Cruz) +Newsgroups: comp.protocols.kermit.misc +Subject: Announcing G-Kermit 1.00 +Date: 27 Dec 1999 21:19:05 GMT +Organization: Columbia University + +G-Kermit 1.00 is released. The web page is: + + http://www.columbia.edu/kermit/gkermit.html + +For those who missed the Beta test, G-Kermit is small, fast, and +portable Kermit protocol implementation for UNIX released under +the GPL. + +Prebuilt binaries are available for over 40 hardware/OS/version +combinations: + + http://www.columbia.edu/kermit/gkermit.html#down + +If you can send in binaries that are not listed, please let me +know. After allowing a few days for more binaries to come in, +we'll make a wider announcement. + +- Frank +------------------------------ diff -uNr gku100/README gku100U/README --- gku100/README 1999-12-27 10:20:24.000000000 +0800 +++ gku100U/README 2009-12-09 17:15:30.000000000 +0800 @@ -36,6 +36,9 @@ University. It is free software under the GNU Public License. See the COPYING file for details. + This software is OSI Certified Open Source Software. + OSI Certified is a certification mark of the Open Source Initiative. + G-Kermit is: . Fast . Small @@ -1011,4 +1014,10 @@ comp.protocols.kermit.misc The unmoderated Kermit newsgroup kermit-support@columbia.edu Technical support +Also visit: + + http://www.columbia.edu/kermit/gkermit.html + +for a more up-to-date version of this file, complete with download links. + (End of G-Kermit README) diff -uNr gku100/SOURCE.txt gku100U/SOURCE.txt --- gku100/SOURCE.txt 1970-01-01 08:00:00.000000000 +0800 +++ gku100U/SOURCE.txt 2009-12-09 17:15:30.000000000 +0800 @@ -0,0 +1,288 @@ + Gkermit代码分析 + +前言 + Cygwin串口设备映射 + linux下的/dev/ttyS[n]在cygwin会映射到Windows串口设备 //./COM[n + 1] + 例如 /dev/ttyS0 等价于 COM1 + + + +一、代码组织结构 + ++- . + +- gkermit.h 程序公共头文件 + + +- gkermit.c 程序入口、字符编解码、打包解包、有效性验证（main入口） + +- gcmdline.c 命令行分析相关的代码 + +- gunixio.c Unix IO 相关的操作 + + +- gproto.w 状态机源代码 + gproto.c 自动生成的代码 + + +- gwart.c 简易的lex分析器，用于处理.w代码，生成.c的文件 + + + +二、基本函数列表 + ------ 字符接口 ------ + gkermit.h --------------------------------------------------------------------------------- + #define tochar(ch) ((ch) + SP ) 转换整型到可打印字符，参见标准P13页 + #define xunchar(ch) ((ch) - SP ) tochar的反向操作 + #define ctl(ch) ((ch) ^ 64 ) 控制字符和可打印字符的转换 + #define zgetc(a) (((--zincnt)>=0) ? 如果缓冲为空则实际读取文件 + ((int)(*zinptr++) & 0xff) : + zfillbuf(a)) + + ------ 函数原型 ------ + gunixio.c --------------------------------------------------------------------------------- + SIGTYP doexit (int) 结束程序：正常或异常退出 + VOID sysinit (void) 系统初始化： + char dopar (char) Parity奇偶校验 + VOID tmsg (char *) 将参数指向的字符串输出到终端 + VOID tmsgl (char *) 将参数指向的字符串输出到终端（带换行） + int ttopen (char *) 打开设备 + int ttpkt (int) 设置通信设备工作在RAW模式 + int ttres (void) 复位通信设备 + int ttinl (char *, 读取一个包：以EOL结尾，包含超时机制 + int, + int, + char, + char, + int) + int ttol (char *, 发送一个包：原样发送上层提供的包 + int) + int ttchk (void) 查看输入是否正常 + int ttflui (void) 同步缓冲到设备 + long zchki (char *) 查看文件是否可被读取 + int zchko (char *) 查看文件是否可被写入 + int zopeni (char *) 打开现存的文件：就是用于发送的文件 + int zopeno (char *) 新建一个输出文件：就是用于存放接收到的文件 + int zclosi (void) 关闭输入文件句柄 + int zcloso (int) 关闭输出文件句柄 + int zfillbuf (int) 从文件读取到缓冲 + VOID zltor (char *, 本地到远程的文件名转换，同时处理文件名中的特殊字符：local to remote + char *, + int) + int zrtol (char *, 远程到本地的文件名转换，同时处理文件名中的特殊字符：remote to local + char *, + int, + int) + int zbackup (char *) 备份已有的文件：在文件名后加上“.~数字~” + + gkermit.c --------------------------------------------------------------------------------- + int input (void) 被状态机调用：获取输入文件的包 + VOID nxtpkt (void) 初始化下一个包的序列号 + int ack (void) 发送DATA是空的ACK回复包：调用 spacket 函数 + int ack1 (char *) 发送含有特定串的ACK回复包 + int nak (void) 发送拒绝包 + VOID tinit (void) “发送”传输回话初始化 + VOID errpkt (char *) 发送ERROR包 + int sinit (char) 发送 S(Init packet) + int sfile (void) 发送 F(File header packet) + int sdata (void) 发送 Send Data packet + int seof (char *) 发送 Send EOF packet + int seot (void) 发送 Send EOT packet + int resend (void) 包的重发 + int decode (int) 解析包的 data field + int encstr (char *) 从字符串编码生成数据包：调用 getpkt 函数 + int gattr (char *) 接收文件属性包 + int sattr (void) 发送文件属性包 + VOID ginit (void) “接收”传输会话初始化 + int scmd (char, char *) 发送kermit命令到server + VOID rinit (void) 接收 Init 包 + int gnfile (void) 获取下一个发送的文件名 + int rcvfil (void) 接收文件 + VOID spar (char *) 设置kermit运行参数：从收到的数据中获得参数 + char *rpar (void) 回复kermit运行参数：本地使用的参数 + VOID usage (void) 输出帮助信息 + + ------ 只在 gkermic.c 中使用的函数：非全局使用的函数 ------ + int spacket (char,int,int,char *) 构建一个包并发送：调用 ttol 函数发送 + int rpacket (void) 读取一个包并解析：调用 ttinl 函数读取 + unsigned int chk1 (char *,int) 12bit 块校验：调用了chksum函数 + unsigned int chk3 (char *,int) 16bit CRC校验 + unsigned int chksum (char *,int) 算数校验 + int getpkt (int) 从文件读取数据并构建包 + VOID encode (int,int) 将一个字符编码进包 + VOID decstr (char *) 解包并存到字符串缓冲之中：调用 decode 函数 + + + gcmdline.c -------------------------------------------------------------------------------- + int cmdlin (void) 命令行Parser，只是处理命令行参数，并 + 用提取的参数更新全局参数变量。 + + gproto.c ---------------------------------------------------------------------------------- + int gwart (void) 状态机调度表 + +三、函数调用关系 + 由于大部分系统相关的操作都在gunixio.c，于是下面的分析都是对gunixio的调用的分析。 + 为了使用windows的本地的函数进行替换。只要移植gunixio.c里的函数就可以了，其他的代码在mingw和vc中都可编译通过 + 以下是在gunixio的所有函数执行的时候加入输出语句。 + ttopen --打开串口 + ttpkt --设置串口工作在raw模式 + + G-Kermit CU-1.00, Columbia University, 1999-12-25 + * Open device /dev/ttyS0 + * Escape back to your local Kermit and give a SEND command. + + * KERMIT READY TO RECEIVE... + + ttinl --读取包：所有串口的读取read都是通过这个函数，gwart调用input->rpacket->ttinl->read + ttflui --清空串口缓冲：丢弃输入，发送输出，结束之后进行状态处理（状态调度表） + * recv INIT + ttol --写入包：所有串口的写入write都是通过这个函数 + ttinl --读取包 + ttflui --...... + * recv HEADER + zrtol --将远程的文件名转换为本地的 + zbackup --判断本地是否有同名的文件，并处理备份 + zchko --检查输出的文件是否可写 + zchki --检查输出的文件是否可读 + zopeno --打开输出文件的句柄 + ttol --送出包 + ttinl --读取包 + ttflui --...... + * recv ATTRIBUTES + * will RECEIVE 1 byte + ttol --送出包 + ttinl --读取包 + ttflui --...... + * recv DATA [complete] + ttol --送出包 + ttinl --读取包 + ttflui --...... + * recv EOF + zcloso + ttol --送出包 + ttinl --读取包 + ttflui --...... + * recv EOT + ttol --读取包 + * exchange filesize 0x1 [1] bytes + END + ttres + +详细输出模式 + G-Kermit CU-1.00, Columbia University, 1999-12-25: POSIX + MAXPATHLEN = 1024 + cmdlin action = v + ttopen + ttopen __STDC__ + ttopen SIG_V + ttopen nonblocking read/write + ttopen TINBUFSIZ = 4080 + ttopen xonxoff = 0 + ttopen noxonxoff = 0 + ttopen ttflags -1 + ttopen nomodes 0 + ttopen nonblock = 0 + ttpkt + input[v] + G-Kermit CU-1.00, Columbia University, 1999-12-25 + * Open device /dev/ttyS0 + * Escape back to your local Kermit and give a SEND command. + + * KERMIT READY TO RECEIVE... + + ttinl + ttinl read timo = 9 + ttinl length = 25 + PKT<-[^A9 S~' @-#Y3~*!J*0+++B"U1@G](27) rc=0 + rpacket type=S, seq=00, len=22 + chksum=1445 + ttflui + ttflui = 0, errno = 0 + input[S] + * recv INIT + spar attributes=1 longpackets=1 + spar whatami = 0x22 + spar streamok = -1 + spar sysid [U1] + spar recognizes peer + rpar streamok=-1 whatami=38 + chksum=1455 + ttol + PKT->[^A9 Y~' @-#Y3~*!J*0+++F"U1@Q](28) + ttinl + ttinl read timo = 7 + ttinl length = 13 + PKT<-[^A-!Ftest.txt&4;](15) rc=0 + rpacket type=F, seq=01, len=8 + crc=25883 + ttflui + ttflui = 0, errno = 0 + input[F] + * recv HEADER + zrtol + zbackup + zbackup A test.txt: 8 + zbackup B test.txt + zbackup test.txt.~2~: OK + rcvfil filename [test.txt] + zchko + zchki + zchko(.) x = 0 errno = 0 + zopeno + zopeno test.txt: 0 + crc=3239 + ttol + PKT->[^A-!Ytest.txt RG](16) + ttinl + ttinl read timo = 7 + ttinl length = 12 + PKT<-[^A,"A""B81!1)R0](14) rc=0 + rpacket type=A, seq=02, len=7 + crc=40080 + ttflui + ttflui = 0, errno = 0 + input[A] + * recv ATTRIBUTES + * will RECEIVE 1 byte + crc=58689 + ttol + PKT->[^A%"Y.5!](8) + ttinl + ttinl read timo = 7 + ttinl length = 7 + PKT<-[^A'#D#J'O!](9) rc=0 + rpacket type=D, seq=03, len=2 + crc=31681 + ttflui + ttflui = 0, errno = 0 + input[D] + * recv DATA [complete] + crc=64665 + ttol + PKT->[^A%#Y/R9](8) + ttinl + ttinl read timo = 7 + ttinl length = 5 + PKT<-[^A%$Z(,*](7) rc=0 + rpacket type=Z, seq=04, len=0 + crc=33546 + ttflui + ttflui = 0, errno = 0 + input[Z] + * recv EOF + zcloso + zcloso(test.txt) cx = 0 keep = 0 + crc=45457 + ttol + PKT->[^A%$Y+&1](8) + ttinl + ttinl read timo = 7 + ttinl length = 5 + PKT<-[^A%%B 8;](7) rc=0 + rpacket type=B, seq=05, len=0 + crc=1563 + ttflui + ttflui = 0, errno = 0 + input[B] + * recv EOT + crc=43081 + ttol + PKT->[^A%%Y*A)](8) + * exchange filesize 0x1 [1] bytes + END + ttres + exit 0 + diff -uNr gku100/gcmdline.c gku100U/gcmdline.c --- gku100/gcmdline.c 1999-12-27 04:05:38.000000000 +0800 +++ gku100U/gcmdline.c 2009-12-09 17:15:30.000000000 +0800 @@ -29,6 +29,8 @@ */ #include <stdio.h> +#include <string.h> +#include <stdlib.h> #include "gkermit.h" /* Externals */ @@ -53,7 +55,7 @@ _MYPROTOTYPE( VOID usage, (void) ); #ifndef NOGETENV -_MYPROTOTYPE( char * getenv, (char *) ); +/* _MYPROTOTYPE( char * getenv, (char *) ); */ #define GARGC 32 #define GBUFSIZ 256 static char gbuf[GBUFSIZ], *gargs[GARGC], *gptr = NULL; @@ -150,6 +152,16 @@ xp = *xargv+1; /* Pointer for bundled args */ while (x) { switch (x) { + case 'l': + if (*(xp+1)) fatal("invalid argument bundling after -l"); + if (xargc > 1) + { + strcpy(ttname,*(xargv + 1)); + xargc--; + xargv++; + } + break; + case 'r': /* Receive */ if (action) fatal("conflicting actions"); action = 'v'; @@ -163,12 +175,12 @@ if (zchki(*cmlist) < 0) fatal("file not found or not accessible"); while (--xargc > 0) { /* Traverse the list */ - *xargv++; + xargv++; if (**xargv == '-') break; nfils++; } - xargc++, *xargv--; /* Adjust argv/argc */ + xargc++, xargv--; /* Adjust argv/argc */ if (nfils < 1) fatal("missing filename for -s"); action = 's'; break; @@ -176,7 +188,7 @@ case 'g': /* get */ if (action) fatal("conflicting actions"); if (*(xp+1)) fatal("invalid argument bundling after -g"); - *xargv++, xargc--; + xargv++, xargc--; if ((xargc == 0) || (**xargv == '-')) fatal("missing filename for -g"); cmarg = *xargv; @@ -200,7 +212,7 @@ case 'p': /* Parity */ if (*(xp+1)) fatal("invalid argument bundling"); - *xargv++, xargc--; + xargv++, xargc--; if ((xargc < 1) || (**xargv == '-')) fatal("missing parity"); switch(x = **xargv) { @@ -219,12 +231,16 @@ case 'd': /* Debug */ p = xargv; - *p++; + p++; if ((xargc < 2) || (**p == '-')) { db = fopen("debug.log","w"); } else { - *xargv++, xargc--; + xargv++, xargc--; + if (strcmp(*xargv,"stdout") == 0) { + db = stdout; + } else { db = fopen(*xargv,"w"); + } } if (db) { extern char * versio, * build; @@ -243,7 +259,7 @@ case 'a': /* As-name */ if (*(xp+1)) fatal("invalid argument bundling after -a"); - *xargv++, xargc--; + xargv++, xargc--; if ((xargc == 0) || (**xargv == '-')) fatal("missing name for -a"); cmarg2 = *xargv; @@ -342,6 +358,7 @@ fprintf(stderr,"%s: %s./n",versio,build); fprintf(stderr,"Usage: gkermit [ options ]/n"); fprintf(stderr,"Options:/n"); + fprintf(stderr," -l Device to use,such as /dev/ttyS0/n"); fprintf(stderr," -r Receive files/n"); fprintf(stderr," -s fn Send files/n"); fprintf(stderr," -g fn Get files from server/n"); diff -uNr gku100/gkermit.c gku100U/gkermit.c --- gku100/gkermit.c 1999-12-27 10:11:20.000000000 +0800 +++ gku100U/gkermit.c 2009-12-09 17:15:30.000000000 +0800 @@ -56,6 +56,10 @@ #define _GKERMIT_C #include <stdio.h> +#include <string.h> +#include <stdlib.h> +#include <unistd.h> +#include <errno.h> #include "gkermit.h" /* Forward declarations of functions used within this module... */ @@ -76,6 +80,9 @@ extern char * zinptr; extern FILE * ofp; /* Output file pointer */ +extern long tfilelength; +extern long sfilelength; + /* Global variables declared here */ char *cmarg, *cmarg2 = NULL; /* Send filename pointers */ @@ -190,7 +197,7 @@ usage(); /* give usage message */ doexit(1); /* and quit. */ } - sysinit(); /* Set up interrupt handlers, etc */ + //sysinit(); /* Set up interrupt handlers, etc */ if (urpsiz > MAXRP) /* In case MAXRP < DEFRP... */ urpsiz = MAXRP; if (maxrp > 9020) @@ -212,8 +219,12 @@ if (start == 's' || start == 'r') /* If sending or getting*/ ttflui(); /* flush comm line input buffer */ gwart(); /* Do the protocol */ + if (sfilelength == tfilelength) + printf(" * exchange filesize 0x%lx [%ld] bytes/n",tfilelength,tfilelength); + printf("END/n"); } doexit(failure); /* Done, exit. */ + return(failure); /* To shut up picky compilers. */ } @@ -327,11 +338,14 @@ s = rpar(); /* Get our protocol parameters */ if (c == 'S') { /* Sending a file... */ tmsgl(versio); - tmsgl("Escape back to your local Kermit and give a RECEIVE command."); + printf(" * Open device %s/n",ttname); + tmsgl(" * Escape back to your local Kermit and give a RECEIVE command."); + tmsgl(""); + tmsgl(" * KERMIT READY TO SEND..."); tmsgl(""); - tmsgl("KERMIT READY TO SEND..."); sleep(delay); } + printf(" * send INIT/n"); return(spacket(c,seq,strlen(s),s)); /* Send S or I packet */ } @@ -360,6 +374,7 @@ maxsiz = spsiz - (bctr + 3); /* Maximum packet data field length */ if (spsiz > 94) maxsiz -= 4; /* Long packet has more fields */ nxtpkt(); /* Get next packet number */ + printf(" * send HEADER/n"); return(spacket('F',seq,x,xdata)); /* Send filename */ } @@ -367,7 +382,7 @@ sattr() { /* Build and send A packet */ int i, aln; int binary; - extern long filelength; + extern long tfilelength; nxtpkt(); /* Get next packet sequence number */ if (debug) fprintf(db,"sattr seq %d/n",seq); @@ -388,9 +403,9 @@ xdata[i++] = tochar(1); /* Length of value is 1 */ xdata[i++] = 'A'; /* A for ASCII */ } - if (filelength > -1L) { + if (tfilelength > -1L) { xdata[i] = '1'; /* File length in bytes */ - sprintf((char *) &xdata[i+2],"%ld",filelength); + sprintf((char *) &xdata[i+2],"%ld",tfilelength); aln = (int)strlen((char *)(xdata+i+2)); xdata[i+1] = tochar(aln); i += aln + 2; @@ -398,6 +413,7 @@ xdata[i] = NUL; /* Terminate last good field */ aln = (int)strlen((char *)xdata); /* Get overall length of attributes */ if (debug) fprintf(db,"sattr data %s/n",xdata); + printf(" * send ATTRIBUTES/n"); return(spacket('A',seq,aln,xdata)); /* Send it */ } #define FTBUFL 10 /* File type buffer */ @@ -428,7 +444,14 @@ text = 0; } break; - + case '1': + for (i =0; (i < aln) && (i < FTBUFL);i++) + ftbuf[i] = *s++; + ftbuf[i] = '/0'; + if (i < aln) s += (aln - i); + printf(" * will RECEIVE %s byte/n",ftbuf); + tfilelength = atol(ftbuf); + break; default: /* Unknown attribute */ s += aln; /* Just skip past it */ break; @@ -441,6 +464,9 @@ int sdata() { /* Send a data packet */ int x; + + int havesend = 0; + if (cx || cz) { /* Interrupted... */ if (debug) fprintf(db,"sdata interrupted cx = %d cz = %d/n",cx,cz); @@ -454,11 +480,27 @@ return(0); } nxtpkt(); /* Get next packet number */ - return(spacket('D',seq,x,xdata)); /* Send the packet */ + + havesend = spacket('D',seq,x,xdata);/* Send the packet */ + + if (sfilelength >= tfilelength) + { + sfilelength = tfilelength; + printf(" * send DATA [complete]"); + printf(" /n"); + } + else + { + printf(" * send DATA %3ld%%/r",(sfilelength * 100 / tfilelength)); + } + fflush(stdout); + + return(havesend); } int seof(s) char *s; { /* Send end-of-file packet */ + printf(" * send EOF/n"); if (debug) fprintf(db,"seof [%s]/n",s); if (zclosi() < 0) { /* Close the file */ if (debug) @@ -478,6 +520,7 @@ int seot() { /* Send end-of-transmission packet */ nxtpkt(); + printf(" * send EOT/n"); return(spacket('B',seq,0,"")); } @@ -658,7 +701,7 @@ chksum(p,len) char *p; int len; { /* Generate arithmetic checksum */ register unsigned int k, m; m = (parity) ? 0177 : 0377; - for (k = 0; len-- > 0; *p++) + for (k = 0; len-- > 0; p++) k += (unsigned)*p & m; return(k); } @@ -701,6 +744,7 @@ if (!c) c = -1; } else { /* or file... */ c = zgetc(text); + sfilelength++; } if (c < 0) { /* Watch out for empty file. */ first = -1; @@ -721,6 +765,7 @@ if (!next) next = -1; } else { next = zgetc(text); + sfilelength++; } if (next < 0) first = -1; /* If none, we're at EOF. */ osize = size; /* Remember current size. */ @@ -860,6 +905,7 @@ *osp++ = a; /* the repeat count. */ } else { putc((char)a,ofp); /* Use putc macro here to avoid */ + sfilelength++; if (ferror(ofp)) { /* function-call overhead. */ if (debug) fprintf(db,"decode putc a=%u errno=%u/n",a,errno); @@ -1025,28 +1071,35 @@ rinit() { /* RECEIVE initialization */ if (quiet) return; tmsgl(versio); - tmsgl("Escape back to your local Kermit and give a SEND command."); + printf(" * Open device %s/n",ttname); + tmsgl(" * Escape back to your local Kermit and give a SEND command."); tmsgl(""); - tmsgl("KERMIT READY TO RECEIVE..."); + tmsgl(" * KERMIT READY TO RECEIVE..."); + tmsgl(""); } VOID ginit() { /* GET initialization */ if (quiet) return; tmsgl(versio); - tmsgl("Escape back to your local Kermit and give a SERVER command."); + printf(" * Open device %s/n",ttname); + tmsgl(" * Escape back to your local Kermit and give a SERVER command."); tmsgl(""); - tmsgl("KERMIT READY TO GET..."); + tmsgl("* KERMIT READY TO GET..."); + tmsgl(""); } int gnfile() { /* Get name of next file to send */ + long filesize = 0; if (cz) /* Batch was canceled */ return(0); while (nfils-- > 0) { /* Otherwise continue thru list */ strncpy(filnam,*cmlist++,MAXPATHLEN); filnam[MAXPATHLEN-1] = NUL; - if (zchki(filnam) > -1) /* Skip files that can't be read */ + filesize = zchki(filnam); + if (filesize > -1) /* Skip files that can't be read */ + printf(" * file %s | HEX: 0x%lx | DEC: %ld/n",filnam,filesize,filesize); return(1); } return(0); /* None left */ diff -uNr gku100/gkermit.h gku100U/gkermit.h --- gku100/gkermit.h 2003-05-27 23:30:14.000000000 +0800 +++ gku100U/gkermit.h 2009-12-09 17:15:30.000000000 +0800 @@ -233,11 +233,7 @@ /* Externs */ -#ifdef ERRNO_H -#include <errno.h> -#else extern int errno; -#endif /* ERRNO_H */ #ifndef _GKERMIT_C extern int debug; #endif /* _GKERMIT_C */ diff -uNr gku100/gkermit.nr gku100U/gkermit.nr --- gku100/gkermit.nr 1999-12-27 23:27:52.000000000 +0800 +++ gku100U/gkermit.nr 1970-01-01 08:00:00.000000000 +0800 @@ -1,343 +0,0 @@ -./" @(#) gkermit.1 1.00 Columbia University 1999/12/25 -.TH GKERMIT 1C "25 Dec 1999" "UNIX G-Kermit" -.SH NAME -gkermit /- G-Kermit (GNU Kermit) 1.00 file transfer software. -.ll 80 -.SH SYNOPSIS -.nf -.sp -gkermit [ options ] -s file(s) Send files -gkermit [ options ] -g file(s) Get files -gkermit [ options ] -r Receive files -.PP -.SH DESCRIPTION -G-Kermit is a UNIX program for transferring files using the -Kermit protocol. G-Kermit is a product of Kermit Project at Columbia -University. It is free software under the GNU Public License. See the -COPYING file for details. -.PP -.SS INVOKING G-KERMIT -.PP -The G-Kermit binary is called "gkermit". It should be stored someplace -in your UNIX PATH; normally it is available as /usr/local/bin/gkermit. -To run G-Kermit, just type "gkermit" followed by command-line options that -tell it what to do. If no options are given, it prints a usage message -listing the available options. -.PP -If an option takes an argument, the argument is required; if an option does -not take an argument, no argument may be given (exception: -d). The action -options are -r, -s, and -g. Only one action option may be given. If no -action options are given, G-Kermit does nothing (except possibly to print its -usage message or create a debug.log file). Here are some examples ("$ " is -the shell prompt): -.nf -.sp - $ gkermit -s hello.c <-- Send the hello.c file - $ gkermit -s hello.* <-- Send all hello.* files - $ gkermit -r <-- Wait to receive files - $ gkermit -g hello.c <-- Get hello.c file - $ gkermit -g hello.//* <-- Get all hello.* files -.sp -.fi -Options that do not take arguments can be "bundled" with other options. -An option that takes an argument must always be followed by a space and -then its argument(s). Examples: -.nf -.sp - $ gkermit -is hello.o <-- Send hello.o in binary mode - $ gkermit -dr <-- Receive with debugging -.sp -.fi -.SS COMMAND-LINE OPTIONS -.sp -.nf - -r RECEIVE. Wait for incoming files. - -s fn SEND. Send file(s) specified by fn. - -g fn GET. Get specified file(s) from server. - -a fn AS-NAME. Alternative name for file. - -i IMAGE. Binary-mode transfer (default). - -T TEXT. Text-mode transfer. - -P PATH (filename) conversion disabled. - -w WRITEOVER when filenames collide. - -K KEEP incompletely received files. - -p x PARITY. x = e,o,m,s,n; default = n(one). - -e n PACKET LENGTH. n = 40-9000; default=4000. - -b n TIMEOUT. Per-packet timeout, seconds. - -x XON/XOFF. Set Xon/Xoff in the tty driver. - --x Unset Xon/Xoff in the tty driver. - -S STREAMING disabled. - -X EXTERNAL. G-Kermit is an external protocol. - -q QUIET. Suppress messages. - -d DEBUG. Write debugging info to ./debug.log. - -d fn DEBUG. Write debugging info to given file. - -h HELP. Display brief usage message. -.fi -.PP -You may supply options to G-Kermit on the command line or through the -GKERMIT environment variable, which can contain any valid gkermit -command-line options. These are processed before the actual command-line -options and so can be overridden by them. Example for bash or ksh, which you -can put in your profile if you want to always keep incomplete files, suppress -streaming, suppress messages, and use Space parity: -.nf -.sp - export GKERMIT="-K -S -q -p s" -.fi -.PP -.SS MECHANICS OF FILE TRANSFER -.PP -To transfer files with G-Kermit you must be connected through a terminal -emulator to the UNIX system where G-Kermit is running, meaning you are -online to UNIX and have access to the shell prompt (or to a menu that has -an option to invoke G-Kermit). The connection can be serial (direct or -dialed) or network (Telnet, Rlogin, X.25, etc). -.PP -When you tell G-Kermit to SEND a file (or files), e.g. with: -.nf -.sp - $ gkermit -Ts oofa.txt -.sp -.fi -it pauses for a second and then sends its first packet. What happens next -depends on the capabilities of your terminal emulator: -.PP -.in +0.5i -.ll -0.5i -.ta +0.2i -.ti -0.2i -/(bu If your emulator supports Kermit "autodownloads" then it receives the -file automatically and puts you back in the terminal screen when done. -.sp -.ti -0.2i -/(bu Otherwise, you'll need to take whatever action is required by your -emulator to get its attention: a mouse action, a keystroke like Alt-x, -or a character sequence like Ctrl-// or Ctrl-] followed by the letter -"c" (this is called "escaping back") and then tell it to receive the -file. When the transfer is complete, you must instruct your emulator -to go back to its terminal screen. -.ll +0.5i -.in -0.5i -.fi -.PP -During file transfer, most terminal emulators put up some kind of running -display of the file transfer progress. -.PP -When you tell G-Kermit to RECEIVE (with "gkermit -r"), this requires you to -escape back to your terminal emulator and instruct it to send the desired -file(s). -.PP -If your terminal emulator supports Kermit autodownloads AND Kermit server -mode, then you can use GET ("gkermit -g files...") rather than RECEIVE -("gkermit -r"), and the rest happens automatically, as when G-Kermit is -sending. -.SS INTERRUPTING FILE TRANSFER -.PP -G-Kermit supports file and group interruption. The method for interrupting -a transfer depends on your terminal emulator. For example, while the -file-transfer display is active, you might type the letter 'x' to cancel the -current file and go on to the next one (if any), and the letter 'z' to -cancel the group. Or there might be buttons you can click with your mouse. -.PP -When G-Kermit is in packet mode and your terminal emulator is in its -terminal screen, you can also type three (3) Ctrl-C characters in a row to -make G-Kermit exit and restore the normal terminal modes. -.PP -.SS TEXT AND BINARY TRANSFER MODE -.PP -When sending files in binary mode, G-Kermit sends every byte exactly as it -is stored on the disk. This mode is appropriate for program binaries, -graphics files, tar archives, compressed files, etc, and is G-Kermit's -default file transfer mode when sending. When receiving files in binary -mode, G-Kermit simply copies each byte to disk. (Obviously the bytes are -encoded for transmission, but the encoding and decoding procedures give a -replica of the original file after transfer.) -.PP -When sending files in text mode, G-Kermit converts the record format to the -common one that is defined for the Kermit protocol, namely lines terminated -by carriage return and linefeed (CRLF); the receiver converts the CRLFs to -whatever line-end or record-format convention is used on its platform. When -receiving files in text mode, G-Kermit simply strips carriage returns, -leaving only a linefeed at the end of each line, which is the UNIX -convention. -.PP -When receiving files, the sender's transfer mode (text or binary) -predominates if the sender gives this information to G-Kermit in a Kermit -File Attribute packet, which of course depends on whether your terminal -emulator's Kermit protocol has this feature. Otherwise, if you gave a -i or --T option on the gkermit command line, the corresponding mode is used; -otherwise the default mode (binary) is used. -.PP -Furthermore, when either sending or receiving, G-Kermit and your terminal -emulator's Kermit can inform each other of their OS type (UNIX in G-Kermit's -case). If your emulator supports this capability, which is called -"automatic peer recognition", and it tells G-Kermit that its platform is -also UNIX, G-Kermit and the emulator's Kermit automatically switch into -binary mode, since no record-format conversion is necessary in this case. -Automatic peer recognition is disabled automatically if you include the -i -(image) or -T (text) option. -.PP -When sending, G-Kermit sends all files in the same mode, text or binary. -There is no automatic per-file mode switching. When receiving, however, -per-file switching occurs automatically based on the incoming Attribute -packets, if any (explained below), that accompany each file. -.PP -.SS PATHNAMES -.PP -When SENDING a file, G-Kermit obtains the filenames from the command line. -It depends on the shell to expand metacharacters (wildcards and tilde). -.PP -G-Kermit uses the full pathname given to find and open the file, but then -strips the pathname before sending the name to the receiver. For example: -.nf -.sp - $ gkermit -s /etc/hosts -.sp -.fi -results in the receiver getting a file called "HOSTS" or "hosts" (the -directory part, "/etc/", is stripped). -.PP -However, if a pathname is included in the -a option, the directory part -is not stripped: -.nf -.sp - $ gkermit -s /etc/hosts -a /tmp/hosts -.sp -.fi -This example sends the /etc/hosts file but tells the receiver that its name -is "/tmp/hosts". What the receiver does with the pathname is, of course, up -to the receiver, which might have various options for dealing with incoming -pathnames. -.PP -When RECEIVING a file, G-Kermit does NOT strip the pathname. If the -incoming filename includes a path, G-Kermit tries to store the file in the -specified place. If the path does not exist, the transfer fails. The -incoming pathname can, of course, be overridden with the -a option. -.PP -.SS FILENAME CONVERSION -.PP -When sending a file, G-Kermit normally converts outbound filenames to -common form: uppercase, no more than one period, and no funny characters. -So, for example, gkermit.tar.gz would be sent as GKERMIT_TAR.GZ. -.PP -When receiving a file, if the name is all uppercase, G-Kermit converts it -to all lowercase. If the name contains any lowercase letters, G-Kermit -leaves the name alone. -.PP -If the automatic peer recognition feature is available in the terminal -emulator, and G-Kermit recognizes the emulator's platform as UNIX, G-Kermit -automatically disables filename conversion and sends and accepts filenames -literally. -.PP -You can force literal filenames by including the -P option on the command -line. -.PP -.SS FILENAME COLLISIONS -.PP -When G-Kermit receives a file whose name is the same as that of an existing -file, G-Kermit "backs up" the existing file by adding a unique suffix to its -name. The suffix is ".~n~", where n is a number. This kind of backup suffix -is compatible with GNU EMACS and various other popular applications. -.PP -To defeat the backup feature and have incoming files overwrite existing -files of the same name, include the -w (writeover) option on the command -line. -.PP -.SH RETURN VALUES -G-Kermit resturns an exit status code of 0 if all actions succeeded -and 1 if any actions failed. -.PP -.SH IMPLEMENTATION NOTES -G-Kermit is designed to be small, portable, and stable, and is intended for -use only on the "far end" of a connection; it does not make connections -itself, although it can be used as an external protocol by other programs that -do make connections. To keep it small and stable, it does not include sliding -windows, a command or scripting language or character-set translation. To -keep it portable and stable, it avoids use of system services that are not -standardized across all UNIX varieties and therefore, in particular, does not -support file timestamps, internal wildcard expansion, and other features that -are not implemented consistently (or at all) across all UNIXes. -.PP -.SH ENVIRONMENT -A GKERMIT environment variable may be defined (for example in your shell -profile) to include G-Kermit command-line options; these are processed by -G-Kermit before any options that are specified on the command line, and -therefore are overriden by command-line options. -.PP -.SH DIAGNOSTICS -If an error occurs during file -transfer G-Kermit sends an error packet to your terminal emulator to cancel -the transfer; an appropriate error message should be displayed on your -screen. -.PP -.SH ERRORS -File transfers can fail for a number of reasons: -.sp -.in +0.5i -.ll -0.5i -.ta +0.2i -.ti -0.2i -/(bu Lack of read access to a source file. -.ti -0.2i -/(bu Lack of write access to a target directory. -.ti -0.2i -/(bu Lack of adequate flow control. -.ti -0.2i -/(bu Use of streaming on an unreliable connection. -.ti -0.2i -/(bu Excessive unprefixing of control characters. -.ti -0.2i -/(bu Sending bare 8-bit data on a 7-bit connection. -.ti -0.2i -/(bu Packets too long for receiver's buffers. -.ti -0.2i -/(bu Timeout interval too short for connection. -.ti -0.2i -.ll +0.5i -.in -0.5i -.fi -.sp -and many others; these are covered in the references. -.PP -.SH REFERENCES -.PP -The Kermit protocol is specified in "Kermit, A File Transfer Protocol" by -Frank da Cruz, Digital Press (1987). A correctness proof of the Kermit -protocol appears in "Specification and Validation Methods", edited by Egon -Boerger, Oxford University Press (1995). "Using C-Kermit" by Frank da Cruz -and Christine M. Gianone, Digital Press (1997, or later edition) explains many -of the terms and techniques referenced here in case you are not familiar with -them, and also includes tutorials on data communications, extensive -troubleshooting and performance tips, etc. Various other books on Kermit are -available from Digital Press. Online resources include: -.nf -.sp - Web: http://www.columbia.edu/kermit/ - FTP: ftp://kermit.columbia.edu/kermit/g/ - News: comp.protocols.kermit.misc - Email: kermit-support@columbia.edu -.fi -.sp -Also see the README file distributed with G-Kermit for further detail. It -can also be found at ftp://kermit.columbia.edu/kermit/g/README. -.PP -.SH BUGS -The speed of a file transfer depends not only on the speed of the two -computers involved and the characteristics of the connection, but also on the -capabilities and configuration of the two Kermit programs. Kermit is a fast -and reliable protocol, but not all implementations of it are necessarily fast -or reliable. -.PP -Nonstreaming transfers on a TCP/IP connection might be inordinately slow -if one or both of the TCP/IP stacks uses the Nagle or Delayed ACK tricks. -Streaming is used automatically if the other Kermit supports it. -.PP -When receiving files in text mode, G-Kermit strips all carriage returns, -even if they aren't followed by linefeed. -.PP -A backups files are not guaranteed to have the highest number in their -backup suffix. -.PP -.SH AUTHOR -Frank da Cruz, the Kermit Project, Columbia University, New York City, -December 1999. -.br diff -uNr gku100/gproto.c gku100U/gproto.c --- gku100/gproto.c 1999-12-27 10:20:24.000000000 +0800 +++ gku100U/gproto.c 2009-12-09 17:15:30.000000000 +0800 @@ -35,6 +35,10 @@ #include <stdio.h> #include "gkermit.h" +extern long tfilelength; +extern long sfilelength; +extern int maxsiz; + _MYPROTOTYPE( int closof, (void) ); /* Close output file */ _MYPROTOTYPE( VOID errpkt, (char *) ); /* Send Error packet */ @@ -95,6 +99,7 @@ break; case 2: { /* Receive ACK to I packet */ + printf(" * recv INIT ACK/n"); spar(rdatap); /* Set parameters from it */ bctu = bctr; /* Switch to negotiated block check */ if (gnfile() > 0) { /* Is there a file to send? */ @@ -112,6 +117,7 @@ break; case 3: { /* Receive ACK to File header packet */ + printf(" * recv HEADER ACK/n"); if (attributes) { /* If attributes negotiated */ if (sattr() < 0) { /* Send file attributes */ errpkt("sattr"); @@ -132,6 +138,7 @@ break; case 4: { /* Receive ACK to Attribute packet */ + printf(" * recv ATTRIBUTES ACK/n"); if (*rdatap == 'N') { /* Check for refusal */ seof("D"); BEGIN sseof; @@ -150,6 +157,13 @@ break; case 5: { /* Receive ACK to Data packet */ + if (sfilelength >= tfilelength) { + //printf(" * recv DATA ACK /n"); + } + else { + //printf(" * recv DATA ACK /r"); + //fflush(stdout); + } if (*rdatap == 'X') /* Check for file cancellation */ cx = 1; else if (*rdatap == 'Z') /* Check for batch cancellation */ @@ -166,6 +180,13 @@ break; case 6: { /* Receive ACK to EOF */ + if (sfilelength >= tfilelength) { + printf(" * recv EOF ACK /n"); + } + else { + printf("/n"); + printf(" * recv EOF ACK /n"); + } if (gnfile() > 0) { /* Get next file from list */ if (sfile() > 0) BEGIN ssfil; @@ -177,13 +198,17 @@ } break; case 7: - { return(failure); } + { + printf(" * recv EOT ACK/n"); + return(failure); +} break; case 8: { tinit(); rinit(); BEGIN srini; } break; case 9: { /* Receive S packet */ + printf(" * recv INIT/n"); spar(rdatap); /* Set parameters from it */ ack1(rpar()); /* ACK with our parameters */ bctu = bctr; /* Switch to negotiated block check */ @@ -192,10 +217,14 @@ } break; case 10: - { ack(); return(failure); } + { + printf(" * recv EOT/n"); + ack(); return(failure); +} break; case 11: { /* Receive File header packet */ + printf(" * recv HEADER/n"); if (rcvfil() < 0) { errpkt("rcvfil"); } else { @@ -208,6 +237,7 @@ break; case 12: { /* Receive Attribute packet */ + printf(" * recv ATTRIBUTES/n"); if (gattr(rdatap) == 0) { ack(); } else { @@ -220,6 +250,14 @@ if (decode(datalen) < 0) { errpkt("Packet decoding error"); } else { + if (sfilelength >= tfilelength) { + sfilelength = tfilelength; + printf(" * recv DATA [complete]/n"); + } + else { + printf(" * recv DATA %3ld%%/r",(sfilelength * 100 / tfilelength)); + fflush(stdout); + } ack(); BEGIN srdat; } @@ -241,12 +279,22 @@ { /* Receive Data packet */ if (decode(datalen) < 0) errpkt("Packet decoding error"); - else + else { + if (sfilelength >= tfilelength) { + sfilelength = tfilelength; + printf(" * recv DATA [complete]/n"); + } + else { + printf(" * recv DATA %3ld%%/r",(sfilelength * 100 / tfilelength)); + fflush(stdout); + } ack(); + } } break; case 16: { /* Receive EOF packet */ + printf(" * recv EOF/n"); if (*rdatap == 'D') /* Check for Discard directive */ cx = 1; if (closof() < 0) { /* Close the output file */ diff -uNr gku100/gunixio.c gku100U/gunixio.c --- gku100/gunixio.c 1999-12-27 07:32:26.000000000 +0800 +++ gku100U/gunixio.c 2009-12-09 17:15:30.000000000 +0800 @@ -58,6 +58,7 @@ */ #include <stdio.h> /* Standard input/output */ +#include <stdlib.h> #ifdef POSIX #include <termios.h> /* Terminal modes */ @@ -75,6 +76,8 @@ #include <setjmp.h> /* Longjumps */ #include <sys/stat.h> /* File exist, file size */ #include <errno.h> /* Error symbols */ +#include <unistd.h> +#include <string.h> #include "gkermit.h" /* gkermit definitions */ /* All versions of HP-UX need Xon/Xoff */ @@ -212,6 +215,7 @@ static jmp_buf jbuf; /* Longjump buffer for timeouts */ +int handle = 0; /* Functions... */ SIGTYP @@ -221,19 +225,21 @@ ttres(); /* Reset the communication device */ #ifdef F_SETFL if (ttflags > -1) /* Restore its flags */ - fcntl(0,F_SETFL,ttflags); + fcntl(handle,F_SETFL,ttflags); #endif /* F_SETFL */ if (debug) { fprintf(db,"exit %d/n",x); fclose(db); } + if (handle != -1) + close(handle); exit(x); } VOID sysinit() { /* To be run first thing */ #ifdef F_SETFL - ttflags = fcntl(0,F_GETFL,0); /* Get and save stdin flags */ + ttflags = fcntl(handle,F_GETFL,0); /* Get and save stdin flags */ #endif /* F_SETFL */ #ifdef SIGINT signal(SIGINT,SIG_IGN); /* Ignore interrupts */ @@ -305,6 +311,14 @@ int ttopen(ttname) char *ttname; { /* "Open" the communication device */ + handle = open(ttname,O_RDWR|O_NOCTTY); + if (handle == -1) + { + printf(" * Error open device %s/n",ttname); + logerr("ttopen fcntl(handle,F_SETFL,O_NDELAY)"); + return -1; + } + if (debug) { /* Vital statistics for debug log */ #ifdef __STDC__ fprintf(db,"ttopen __STDC__/n"); @@ -362,8 +376,8 @@ #ifdef F_SETFL if (ttflags != -1) { /* Set nonbocking i/o on stdin */ errno = 0; - if (fcntl(0, F_SETFL,ttflags|O_NDELAY) == -1) - logerr("ttopen fcntl(0,F_SETFL,O_NDELAY)"); + if (fcntl(handle, F_SETFL,ttflags|O_NDELAY) == -1) + logerr("ttopen fcntl(handle,F_SETFL,O_NDELAY)"); else nonblock = 1; } @@ -377,16 +391,16 @@ if (debug) fprintf(db,"ttopen nonblock = %d/n", nonblock); #ifdef POSIX - tcgetattr(0,&ttold); /* Get stdin device attributes */ - tcgetattr(0,&ttraw); + tcgetattr(handle,&ttold); /* Get stdin device attributes */ + tcgetattr(handle,&ttraw); #else #ifdef SYSV - ioctl(0,TCGETA,&ttold); - ioctl(0,TCGETA,&ttraw); + ioctl(handle,TCGETA,&ttold); + ioctl(handle,TCGETA,&ttraw); #else #ifdef BSD - gtty(0,&ttold); - gtty(0,&ttraw); + gtty(handle,&ttold); + gtty(handle,&ttraw); #endif /* BSD */ #endif /* SYSV */ #endif /* POSIX */ @@ -453,10 +467,10 @@ #endif /* VINTR */ #ifdef POSIX - if (tcsetattr(0,TCSADRAIN,&ttraw) < 0) + if (tcsetattr(handle,TCSADRAIN,&ttraw) < 0) return(-1); #else - if (ioctl(0,TCSETAW,&ttraw) < 0) + if (ioctl(handle,TCSETAW,&ttraw) < 0) return(-1); #ifdef SYSV #endif /* SYSV */ @@ -478,7 +492,7 @@ } #endif /* SETXONXOFF */ ttraw.sg_flags &= ~(ECHO|CRMOD); /* No echo, etc */ - if (stty(0,&ttraw) < 0) return(-1); /* Set modes */ + if (stty(handle,&ttraw) < 0) return(-1); /* Set modes */ #else system("stty raw -echo"); #endif /* BSD */ @@ -492,22 +506,22 @@ int x = 0; if (havemodes) { /* Restore old modes */ #ifdef POSIX - x = tcsetattr(0,TCSADRAIN,&ttold); + x = tcsetattr(handle,TCSADRAIN,&ttold); #else #ifdef SYSV sleep(1); /* Let output finish */ - x = ioctl(0,TCSETAW,&ttold); + x = ioctl(handle,TCSETAW,&ttold); #else #ifdef BSD sleep(1); /* Let output finish */ - x = stty(0,&ttold); + x = stty(handle,&ttold); #else x = system("stty -raw echo"); #endif /* BSD */ #endif /* SYSV */ #endif /* POSIX */ } - write(1,"/015/012",2); + write(handle,"/015/012",2); raw = 0; return(x); } @@ -517,7 +531,7 @@ int x = 0; if (nonblock) { /* Try to read */ errno = 0; - x = read(0,&tinbuf[tlast],TINBUFSIZ-tlast); + x = read(handle,&tinbuf[tlast],TINBUFSIZ-tlast); #ifdef EXTRADEBUG fprintf(db,"ttchk read %d errno = %d/n",x,errno); #endif /* EXTRADEBUG */ @@ -544,13 +558,13 @@ tinptr = tinbuf; errno = 0; #ifdef POSIX - x = tcflush(0,TCIFLUSH); /* kernel/driver buffers */ + x = tcflush(handle,TCIFLUSH); /* kernel/driver buffers */ #else #ifdef SYSV - x = ioctl(0,TCFLSH,0); + x = ioctl(handle,TCFLSH,0); #else #ifdef BSD - x = ioctl(0,TIOCFLUSH,&n); + x = ioctl(handle,TIOCFLUSH,&n); #endif /* BSD */ #endif /* SYSV */ #endif /* POSIX */ @@ -607,7 +621,7 @@ } else { /* Otherwise... */ while (1) { /* Read until we have a packet */ #ifdef DUMBIO - x = read(0,&c,1); /* Dumb blocking read byte loop */ + x = read(handle,&c,1); /* Dumb blocking read byte loop */ if (x < 0) { logerr("ttinl XX read 1"); rc = -2; @@ -629,7 +643,7 @@ int x; if (tincnt < 1) { /* Need to fill our buffer */ errno = 0; - tincnt = read(0,tinbuf,TINBUFSIZ); + tincnt = read(handle,tinbuf,TINBUFSIZ); if (tincnt > -1) tlast = tincnt; if (debug) fprintf(db,"ttinl nonblock tincnt=%d errno=%d/n", @@ -639,15 +653,15 @@ /* Go back to blocking and wait for 1 char */ if (ttflags != -1) { errno = 0; - x = fcntl(0, F_SETFL, ttflags & ~O_NDELAY); + x = fcntl(handle, F_SETFL, ttflags & ~O_NDELAY); if (x == -1 || errno) logerr("ttinl fcntl O_NDELAY off"); errno = 0; - tincnt = read(0,tinbuf,1); + tincnt = read(handle,tinbuf,1); if (tincnt < 1 || errno) logerr("ttinl BL read"); errno = 0; - fcntl(0, F_SETFL, ttflags | O_NDELAY); + fcntl(handle, F_SETFL, ttflags | O_NDELAY); if (x == -1 || errno) logerr("ttinl fcntl O_NDELAY on"); } @@ -675,7 +689,7 @@ tincnt--; } else { #endif /* O_NDELAY */ - x = read(0,&c,1); /* Dumb read byte loop */ + x = read(handle,&c,1); /* Dumb read byte loop */ if (x < 0) { logerr("ttinl XX read 1"); rc = -2; @@ -820,7 +834,7 @@ return(n); #else while (n > 0) { /* Send the packet with write() */ - i = write(1,&s[m],n); /* Allowing for partial results */ + i = write(handle,&s[m],n); /* Allowing for partial results */ if (i < 0) { if (errno == EWOULDBLOCK) /* and even no results at all.. */ continue; @@ -849,7 +863,8 @@ /* File Functions */ char ofile[MAXPATHLEN]; /* Output filename */ -long filelength = -1L; +long tfilelength = -1L; /* Input File length */ +long sfilelength = 0L; /* Bytes of File have send */ long zchki(fn) char * fn; { /* Check if file is readable */ @@ -908,9 +923,9 @@ zopeni(name) char *name; { /* Open existing file for input */ ifp = fopen(name,"r"); if (debug) fprintf(db,"zopeni %s: %d/n",name, ifp ? 0 : errno); - filelength = zchki(name); - if (filelength < 0) - return((int)filelength); + tfilelength = zchki(name); + if (tfilelength < 0) + return((int)tfilelength); zincnt = 0; zinptr = zinbuf; return((ifp == NULL) ? -1 : 0); @@ -1142,7 +1157,7 @@ zfillbuf(text) int text; { /* Refill input file buffer */ if (zincnt < 1) { /* Nothing in buffer - must refill */ if (text) { /* Text mode needs LF/CRLF handling */ - int c; /* Current character */ + int c = 0; /* Current character */ for (zincnt = 0; /* Read a line */ zincnt < MAXRECORD - 1 && (c = getc(ifp)) != EOF && c != '/n'; zincnt++ diff -uNr gku100/gwart.c gku100U/gwart.c --- gku100/gwart.c 1999-12-18 01:04:22.000000000 +0800 +++ gku100U/gwart.c 2009-12-09 17:15:30.000000000 +0800 @@ -40,6 +40,8 @@ #include <stdio.h> #include <ctype.h> +#include <stdlib.h> +#include <string.h> #include "gkermit.h" #define TBL_TYPE "short" /* C data type of state table */ diff -uNr gku100/makefile gku100U/makefile --- gku100/makefile 1999-12-27 04:28:38.000000000 +0800 +++ gku100U/makefile 2009-12-09 17:15:30.000000000 +0800 @@ -28,17 +28,22 @@ # See README and COPYING for further information. # Sample installation values - change or override as needed. +prefix = /usr/local -BINDIR = /usr/local/bin -MANDIR = /usr/man/manl -TEXTDIR = /usr/local/doc -INFODIR = /usr/local/info -MANEXT = l +BINDIR = ${prefix}/bin +MANDIR = ${prefix}/share/man/man1 +TEXTDIR = ${prefix}/share/doc/gkermit +INFODIR = ${prefix}/share/info +MANEXT = 1 # Default compiler and flags CC=cc -CFLAGS= -DPOSIX -O $(KFLAGS) +CFLAGS= -Wall -DPOSIX -O $(KFLAGS) + +ifneq (,$(findstring debug,$(DEB_BUILD_OPTIONS))) + CFLAGS += -g +endif # Object files @@ -94,7 +99,7 @@ cc -o gkermit $(OBJECTS) clean: - rm -f $(OBJECTS) gproto.o gproto.c gwart.o gwart + rm -f $(OBJECTS) gproto.o gwart.o gwart gkermit install: @if test -f ./gkermit; then /