home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
vmskermit32.tar.gz
/
vmskermit32.tar
/
vmsglb.bli
< prev
next >
Wrap
Text File
|
1988-08-16
|
4KB
|
148 lines
MODULE KERGLB (IDENT = '2.0.002'
) =
BEGIN
SWITCHES LANGUAGE (COMMON);
!<BLF/WIDTH:100>
!++
! FACILITY:
!
! KERMIT common message processing global storage.
!
! ABSTRACT:
!
! This module contains all of the global storage locations used
! by KERMSG. These are in a separate module to make it possible
! to load the global storage into a common under P/OS.
!
! ENVIRONMENT:
!
! TOPS-10, P/OS, VAX/VMS
!
! AUTHOR: Nick Bush, CREATION DATE: 21-December-1983
!--
%SBTTL 'Table of Contents'
!
! TABLE OF CONTENTS:
!
%SBTTL 'Revision History'
!++
!
! 2.0.000 Extract this module from KERMSG.BLI.
!
! 2.0.001 By: Robert C. McQueen On: 16-Feb-1984
! Move SEND_TIMEOUT from KERMSG to this module.
!
! 2.0.002 By: Nick Bush On: 2-April-1984
! Add SRV_TIMEOUT from time between NAK's.
!--
%SBTTL 'Library files'
!
! INCLUDE FILES:
!
!
! KERMIT common definitions
!
REQUIRE 'KERCOM';
%SBTTL 'Global storage for KERMSG'
GLOBAL
!
! Receive parameters
!
RCV_PKT_SIZE, ! Receive packet size
RCV_NPAD, ! Padding length
RCV_PADCHAR, ! Padding character
RCV_TIMEOUT, ! Time out
RCV_EOL, ! EOL character
RCV_QUOTE_CHR, ! Quote character
RCV_SOH, ! Start of header character
RCV_8QUOTE_CHR, ! 8-bit quoting character
!
! Miscellaneous parameters
!
SET_REPT_CHR, ! Repeat character
!
! Send parameters
!
SND_PKT_SIZE, ! Send packet size
SND_NPAD, ! Padding length
SND_PADCHAR, ! Padding character
SND_TIMEOUT, ! Time out
SND_EOL, ! EOL character
SND_QUOTE_CHR, ! Quote character
SND_SOH, ! Start of header character
SEND_TIMEOUT, ! Time out
!
! Server parameters
!
SRV_TIMEOUT, ! Amount of time between NAK's in server
!
! Statistics
!
SND_TOTAL_CHARS, ! Total characters sent
RCV_TOTAL_CHARS, ! Total characters received
SND_DATA_CHARS, ! Total number of data characters sent
RCV_DATA_CHARS, ! Total number of data characters received
SND_NAKS, ! Total NAKs sent
RCV_NAKS, ! Total NAKs received
SND_COUNT, ! Count of total number of packets
RCV_COUNT, ! Count of total number packets received
SMSG_COUNT, ! Total number of packets sent
RMSG_COUNT, ! Total number of packets received
SMSG_TOTAL_CHARS, ! Total chars sent this file xfer
RMSG_TOTAL_CHARS, ! Total chars rcvd this file xfer
SMSG_DATA_CHARS, ! Total data chars this file xfer
RMSG_DATA_CHARS, ! Total data chars this file xfer
SMSG_NAKS, ! Total number of NAKs this file xfer
RMSG_NAKS, ! Total number of NAKs received
XFR_TIME, ! Amount of time last xfr took
TOTAL_TIME, ! Total time of all xfrs
! this file xfer
LAST_ERROR : VECTOR [CH$ALLOCATION (MAX_MSG + 1)], ! Last error message
!
! Misc constants.
!
FILE_NAME : VECTOR [CH$ALLOCATION (MAX_FILE_NAME)],
FILE_SIZE,
SI_RETRIES, ! Send init retries to attempt
PKT_RETRIES, ! Number of retries to try for a message
DELAY, ! Amount of time to delay
DUPLEX, ! Type of connection (half or full)
PARITY_TYPE, ! Type of parity to use
DEV_PARITY_FLAG, ! True if output device does
! parity, false if we do it
CHKTYPE, ! Type of block check desired
ABT_FLAG, ! True if aborted file should be discarded
DEBUG_FLAG, ! Debugging mode on/off
WARN_FLAG, ! File warning flag
IBM_FLAG, ! Talking to an IBM system
IBM_CHAR, ! Turnaround character for IBM mode
ECHO_FLAG, ! Local echo flag
CONNECT_FLAG, ! Connected flag; True if
! terminal and SET LINE are
! the same
ABT_CUR_FILE, ! Abort current file
ABT_ALL_FILE, ! Abort all files in stream
TYP_STS_FLAG, ! Type status next message
TY_FIL, ! Type file specs
TY_PKT, ! Type packet info
FIL_NORMAL_FORM, ! Use normal form file names
GEN_1DATA : VECTOR [CH$ALLOCATION (MAX_MSG)],! Data for generic command
GEN_1SIZE, ! Size of data in GEN_1DATA
GEN_2DATA : VECTOR [CH$ALLOCATION (MAX_MSG)],! Second argument for generic command
GEN_2SIZE, ! Size of data in GEN_2DATA
GEN_3DATA : VECTOR [CH$ALLOCATION (MAX_MSG)],! Third arg for generic command
GEN_3SIZE; ! Size of data in GEN_3DATA
%SBTTL 'End of KERGLB'
END ! End of module
ELUDOM