192 lines
8.1 KiB
C
192 lines
8.1 KiB
C
|
/*===========================================================================*/
|
||
|
|
/* Copyright (c) 1987 - 1988, Future Soft Engineering, Inc. */
|
||
|
|
/* Houston, Texas */
|
||
|
|
/*===========================================================================*/
|
||
|
|
|
||
|
|
BOOL bKermitTaskRemote; /* slc nova 110 */
|
||
|
|
INT gKermitTaskCMD; /* slc nova 110 */
|
||
|
|
LPSTR glpKermitTaskParm1; /* slc nova 110 */
|
||
|
|
LPSTR glpKermitTaskParm2; /* slc nova 110 */
|
||
|
|
|
||
|
|
/* basic file transfer packet types */
|
||
|
|
#define KER_ACK 'Y'
|
||
|
|
#define KER_NACK 'N'
|
||
|
|
#define KER_SEND 'S'
|
||
|
|
#define KER_INIT 'I'
|
||
|
|
#define KER_FILE 'F'
|
||
|
|
#define KER_TEXT 'X'
|
||
|
|
#define KER_ATTRIB 'A'
|
||
|
|
#define KER_DATA 'D'
|
||
|
|
#define KER_EOF 'Z'
|
||
|
|
#define KER_BREAK 'B'
|
||
|
|
#define KER_ERROR 'E'
|
||
|
|
#define KER_RCV 'R'
|
||
|
|
#define KER_COMMAND 'C'
|
||
|
|
#define KER_KERMIT 'K'
|
||
|
|
#define KER_TIMEOUT 'T'
|
||
|
|
#define KER_ERRCHK 'Q'
|
||
|
|
|
||
|
|
#define KER_CMPLT 'C'
|
||
|
|
#define KER_ABORT 'A'
|
||
|
|
|
||
|
|
#define KER_GENERIC 'G'
|
||
|
|
|
||
|
|
/* generic packet types */
|
||
|
|
#define KER_LOGIN 'I'
|
||
|
|
#define KER_CHDIR 'C'
|
||
|
|
#define KER_LOGOUT 'L'
|
||
|
|
#define KER_FINISH 'F'
|
||
|
|
#define KER_DIR 'D'
|
||
|
|
#define KER_FREE 'U'
|
||
|
|
#define KER_DEL 'E'
|
||
|
|
#define KER_TYPE 'T'
|
||
|
|
#define KER_REN 'R'
|
||
|
|
#define KER_COPY 'K'
|
||
|
|
#define KER_WHO 'W'
|
||
|
|
#define KER_MESSAGE 'M'
|
||
|
|
#define KER_HELP 'H'
|
||
|
|
#define KER_STATUS 'Q'
|
||
|
|
#define KER_PROGRAM 'P'
|
||
|
|
#define KER_JOURNAL 'J'
|
||
|
|
#define KER_VAR 'V'
|
||
|
|
|
||
|
|
#define KER_NOPARITY '\0'
|
||
|
|
#define KER_ODDPARITY 'o'
|
||
|
|
#define KER_EVENPARITY 'e'
|
||
|
|
#define KER_MARKPARITY 'm'
|
||
|
|
#define KER_SPACEPARITY 's'
|
||
|
|
|
||
|
|
/* initialization packet subscripts and values */
|
||
|
|
#define KER_INIT_MAXL 0
|
||
|
|
#define KER_INIT_TIME 1
|
||
|
|
#define KER_INIT_NPAD 2
|
||
|
|
#define KER_INIT_PADC 3
|
||
|
|
#define KER_INIT_EOL 4
|
||
|
|
#define KER_INIT_QCTL 5
|
||
|
|
#define KER_INIT_QBIN 6
|
||
|
|
#define KER_INIT_CHKT 7
|
||
|
|
#define KER_INIT_REPT 8
|
||
|
|
|
||
|
|
#define KER_MAXPACKSIZE 94 /* Maximum packet size */
|
||
|
|
#define KER_RCVTIMEOUT 13 /* Seconds for receive time out */
|
||
|
|
#define KER_SNDTIMEOUT 8 /* Seconds for send time out */
|
||
|
|
#define KER_MAXTIMEOUT 60 /* Maximum timeout interval */
|
||
|
|
#define KER_MINTIMEOUT 2 /* Minumum timeout interval */
|
||
|
|
#define KER_NPAD 0 /* Number of padding characters I will need */
|
||
|
|
#define KER_PADCHAR 0 /* Padding character I need (NULL) */
|
||
|
|
#define KER_EOL 0x0D /* End-Of-Packet character */
|
||
|
|
#define KER_QUOTE '#' /* Control prefix character */
|
||
|
|
#define KER_8BITPREFIX '&' /* Eighth bit prefix character */
|
||
|
|
#define KER_BLOCKCHK1 '1' /* Block check type (1 byte) */
|
||
|
|
#define KER_BLOCKCHK2 '2' /* Block check type (2 byte) */
|
||
|
|
#define KER_BLOCKCHK3 '3' /* Block check type (3 byte) */
|
||
|
|
|
||
|
|
/* other kermit session constants */
|
||
|
|
#define KER_MAXRETRY 5 /* Times to retry a packet */
|
||
|
|
|
||
|
|
/* myh swat: set the buffer size for the number of bytes read in from file at a time */
|
||
|
|
#define BUFFSIZE 512
|
||
|
|
|
||
|
|
INT KER_bytetran; /* myh swat: number of bytes transfered from the buffer */
|
||
|
|
INT KER_buffsiz; /* myh swat: the buffer size read from the file; usually is */
|
||
|
|
/* BUFFSIZE, but the last buffer size can be smaller */
|
||
|
|
BYTE KER_buffer[BUFFSIZE]; /* myh swat: the buffer storing read in chars from file */
|
||
|
|
INT KER_debug;
|
||
|
|
BYTE KER_rem8bit;
|
||
|
|
|
||
|
|
typedef
|
||
|
|
struct {
|
||
|
|
INT KER_spsiz; /* Maximum send packet size */
|
||
|
|
INT KER_timint; /* Timeout for foreign host on sends */
|
||
|
|
INT KER_pad; /* How much padding to send */
|
||
|
|
BYTE KER_padchar; /* Padding character to send */
|
||
|
|
BYTE KER_eol; /* End-Of-Line character to send */
|
||
|
|
BYTE KER_quote; /* Quote character in incoming data */
|
||
|
|
BYTE KER_select8; /* 8th bit quote character to send either 'Y' or '&'*/
|
||
|
|
} KERPACKETSTRUCT;
|
||
|
|
typedef
|
||
|
|
struct {
|
||
|
|
INT KER_size; /* Size of present data */
|
||
|
|
INT KER_rpsiz; /* Maximum receive packet size */
|
||
|
|
INT KER_spsiz; /* Maximum send packet size */
|
||
|
|
INT KER_pad; /* How much padding to send */
|
||
|
|
INT KER_timint; /* Timeout for foreign host on sends */
|
||
|
|
INT KER_n; /* Packet number */
|
||
|
|
INT KER_numtry; /* Times this packet retried */
|
||
|
|
INT KER_oldtry; /* Times previous packet retried */
|
||
|
|
INT ttyfd; /* File descriptor of tty for I/O, 0 if remote */
|
||
|
|
INT KER_remote; /* -1 means we're a remote kermit */
|
||
|
|
INT KER_image; /* -1 means 8-bit mode */
|
||
|
|
INT KER_parflg; /* TRUE means use parity specified */
|
||
|
|
INT KER_turn; /* TRUE means look for turnaround char (XON) */
|
||
|
|
INT KER_lecho; /* TRUE for locally echo chars in connect mode */
|
||
|
|
INT KER_8flag; /* TRUE means 8th bit quoting is done */
|
||
|
|
INT KER_pktdeb; /* TRUE means log all packet to a file */
|
||
|
|
INT KER_filnamcnv; /* -1 means do file name case conversions */
|
||
|
|
INT KER_filecount; /* Number of files left to send */
|
||
|
|
INT KER_timeout; /* TRUE means a timeout has occurred. */
|
||
|
|
BYTE KER_state; /* Present state of the automaton */
|
||
|
|
BYTE KER_cchksum; /* Our (computed) checksum */
|
||
|
|
BYTE KER_padchar; /* Padding character to send */
|
||
|
|
BYTE KER_eol; /* End-Of-Line character to send */
|
||
|
|
BYTE KER_escchr; /* Connect command escape character */
|
||
|
|
BYTE KER_quote; /* Quote character in incoming data */
|
||
|
|
BYTE KER_select8; /* 8th bit quote character to send either 'Y' or '&'*/
|
||
|
|
BYTE KER_firstfile;
|
||
|
|
BYTE KER_getflag;
|
||
|
|
BYTE **KER_filelist; /* List of files to be sent */
|
||
|
|
BYTE *KER_filnam; /* Current file name */
|
||
|
|
BYTE recpkt[KER_MAXPACKSIZE]; /* Receive packet buffer */
|
||
|
|
BYTE packet[KER_MAXPACKSIZE]; /* Packet buffer */
|
||
|
|
BYTE KER_buff[KER_MAXPACKSIZE]; /* buffer for translations */
|
||
|
|
BYTE outstr[80]; /*output string for debugging and translations */
|
||
|
|
BYTE KERRCVFLAG; /* direct recieved buffers to screen, file or buffer*/
|
||
|
|
|
||
|
|
LONG KER_bytes; /* number of bytes received */
|
||
|
|
} KERMITSTRUCT;
|
||
|
|
|
||
|
|
BOOL FAR KER_Receive(BOOL);
|
||
|
|
BYTE NEAR KER_ReceiveInit();
|
||
|
|
BYTE NEAR KER_ReceiveFile();
|
||
|
|
BYTE NEAR KER_ReceiveData();
|
||
|
|
|
||
|
|
BOOL FAR KER_Send();
|
||
|
|
BYTE NEAR KER_SendInit();
|
||
|
|
BYTE NEAR KER_SendFile();
|
||
|
|
BYTE NEAR KER_SendData();
|
||
|
|
BYTE NEAR KER_SendGeneric(BYTE lKER_state);
|
||
|
|
|
||
|
|
VOID NEAR KER_Init(BYTE state);
|
||
|
|
INT NEAR KER_GetParity();
|
||
|
|
INT NEAR KER_GetTurnAroundTime();
|
||
|
|
INT NEAR KER_GetLocalEcho();
|
||
|
|
BYTE NEAR KER_Abort(WORD msgID);
|
||
|
|
BYTE NEAR KER_DoParity (BYTE ch);
|
||
|
|
VOID NEAR KER_SndPacket(BYTE type, INT num, INT len, BYTE *data);
|
||
|
|
BYTE NEAR KER_RcvPacket(INT*, INT*, BYTE*);
|
||
|
|
BYTE NEAR KER_CInChar();
|
||
|
|
BYTE NEAR KER_InChar();
|
||
|
|
INT NEAR KER_ModemWait();
|
||
|
|
INT NEAR KER_BufferFill(BYTE*);
|
||
|
|
VOID NEAR KER_BufferEmpty(BYTE buffer[],INT len,BYTE flag);
|
||
|
|
BOOL NEAR KER_GetNextFile();
|
||
|
|
BYTE NEAR KER_PrintErrPacket(BYTE*);
|
||
|
|
VOID NEAR KER_RcvPacketInit(BYTE*);
|
||
|
|
VOID NEAR KER_SndPacketInit(BYTE*);
|
||
|
|
VOID FAR KER_Answer();
|
||
|
|
VOID FAR KER_Server(BYTE, INT, INT);
|
||
|
|
VOID NEAR KER_DoGenericPack(BYTE*, INT, INT);
|
||
|
|
BOOL NEAR KER_DoDir(BYTE*);
|
||
|
|
INT_PTR APIENTRY dbKerRemote(HWND, UINT, WPARAM, LPARAM);
|
||
|
|
BOOL NEAR KER_RemoteParamsOK(HWND, INT);
|
||
|
|
VOID NEAR KER_DoRemoteShow(HWND, INT);
|
||
|
|
VOID NEAR KER_Remote(HWND, INT);
|
||
|
|
BYTE NEAR KER_Tinit();
|
||
|
|
INT NEAR KER_Encode(BYTE*, BYTE*, INT);
|
||
|
|
VOID NEAR KER_Pack(HWND, BYTE, INT, INT);
|
||
|
|
VOID NEAR KER_HandleTrans();
|
||
|
|
VOID NEAR KER_PutScreenStr(BYTE*);
|
||
|
|
VOID NEAR KER_bSetUp(BYTE state);
|
||
|
|
BYTE NEAR KER_AutoPar(); /* tge gold 01 */
|
||
|
|
VOID NEAR KER_ResetFromRemote(); /* tge gold 01 */
|