|
|
/*===========================================================================*//* 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 */
|
