/*
 * 	Common include file
 *
 *		Jwahar Bammi
 *			usenet: mandrill!bammi@{decvax,sun}.UUCP
 *			csnet:  bammi@mandrill.ces.CWRU.edu
 *			arpa:   bammi@mandrill.ces.CWRU.edu
 *			CompuServe: 71515,155
 */

#include <stdio.h>
#include <ctype.h>
#include <setjmp.h>
#include <osbind.h>
#include "decl.h"

	/* See configurable parameters towards the end of the file */
	/* Leave the rest alone					  */


	
 	/* Common defines */
#ifndef FALSE
#define	FALSE 		0
#define TRUE 		1
#endif


#define EscSeq(x)	Bconout(2,(int)'\033'); Bconout(2,(int)x) /* Send Esc.
							Seq. to	 console */
#define CTRL(X)		(X & 037) /* CTRL-anything */

#define STOS	  "GEMDOS/TOS"
#define ZMDMVERSION	"1.62 -- 05/19/88"

/* Ward Christensen / CP/M parameters - Don't change these! */
#define ENQ 005
#define CAN ('X'&037)
#define XOFF ('s'&037)
#define XON ('q'&037)
#define SOH 1
#define STX 2
#define EOT 4
#define ACK 6
#define NAK 025
#define CPMEOF 032
#define WANTCRC 0103	/* send C not NAK to get crc not checksum */
#define TIMEOUT (-2)
#define RCDO (-3)
#define ERRORMAX 5
#define RETRYMAX 10	/* for dogs like compuserve */
#define WCEOT (-10)
#define SECSIZ 128	/* cp/m's Magic Number record size */
#define PATHLEN 128	/* ready for 4.2 bsd ? noooooo */
#define KSIZE 1024	/* record size with k option */
#define UNIXFILE 0x8000	/* happens to the the S_IFREG file mask bit for stat */
#define DEFBYTL 2000000000L	/* default rx file size */
#define WANTG 0107	/* Send G not NAK to get nonstop batch xmsn */

#define PURGELINE	while(Bconstat(1))Bconin(1);Lleft = 0

#define Bauxws(X)	 wr_modem(X)

#define RLOGFILE "rzlog"
#define zperr vfile
#define zperr2 vfile2

#define OK 0

#ifdef ERROR
#undef ERROR
#endif
#define ERROR (-1)

#define HOWMANY 133
/* Parameters for ZSINIT frame */
#define ZATTNLEN 32	/* Max length of attention string */

 	
 	/* Types */

#ifdef LONG
#undef LONG	/* Get rid of stupid portab.h definition */
#endif

#ifdef WORD
#undef WORD
#endif

#ifdef UWORD
#undef UWORD
#endif

struct	stat
{
	char	st_sp1[21];    /* Junk 	   */
	char	st_mode;       /* File attributes */
	int	st_time;       /* Mod Time	  */
	int     st_date;       /* Mod date	  */
	long	st_size;       /* File size	   */
	char	st_name[14];   /* File name	   */
};

/* The structure returned by Iorec(), really ptr to this type */
typedef struct {
	char *ibuf;
	int ibufsiz;
	int ibufhd;
	int ibuftl;
	int ibuflow;
	int ibufhi;
} IOREC;

typedef  struct {
	char *sbaud;
	int  ibaud;
	int  jbaud;
} BAUDS;

/*
 * updcrc macro derived from article Copyright (C) 1986 Stephen Satchell. 
 *  NOTE: First srgument must be in range 0 to 255.
 *        Second argument is referenced twice.
 * 
 * Programmers may incorporate any or all code into their programs, 
 * giving proper credit within the source. Publication of the 
 * source routines is permitted so long as proper credit is given 
 * to Stephen Satchell, Satchell Evaluations and Chuck Forsberg, 
 * Omen Technology.
 */
#ifndef IN_COMMON
extern unsigned int crctab[]; /* see definition in common.c */
extern unsigned long int crc_32_tab[]; /* see definition in common.c */
#endif

#define updcrc(cp, crc) \
( crctab[(((unsigned int)crc >> 8) & 255)] ^ ((unsigned int)crc << 8) ^ (unsigned int)cp)

#define UPDC32(octet, crc) \
(crc_32_tab[(((unsigned long)crc) ^ ((unsigned long)octet)) & 0xff] ^ (((unsigned long)crc) >> 8))


#define BAUD_STRING(s)	((s < 0) ? "**UNKNOWN**" : vbauds[s].sbaud)
#define BAUD_RATE(s)	((s < 0) ? 9600 : vbauds[s].jbaud)

/* -eof- */