/* SYSINC.H - System Dependent Include for VAX/VMS

   Copyright 1989-90 Lawrence J. Jones; All Rights Reserved
*/

#define SYSVER "      VAX/VMS Routines V2.1.1 Beta created 09:30 03/15/90"
#define DEFARCNAM ".ARC"
#define DEFWRKNAM ".ARC_TMP"
#define DEFBAKNAM ".ARC_BAK"
#define ALLFILES  "*.*"

#define PROTO(x) x

#define coreleft()  (~(unsigned)0)
#define opnarcrd(p) fopen(p, "rb", "ctx=stm", "mbc=20")
#define opnarcwr(p) fopen(p, "wb", "rfm=fix", "mrs=512", "ctx=stm", "mbc=20")
#define clsarc(f, name, date, time) clsfil(f, name, date, time)
#define opnfilrd(p) (image ? opnarcrd(p) : fopen(p, "r", "rop=rah"))
#define opnfilwr(p) (image ? opnarcwr(p) : \
      fopen(p, "w", "rfm=var", "rat=cr", "rop=wbh"))
#define putc_tst(c, t) \
   do { if (t && putc(c,t)==EOF) fatal("Write fail (disk full?)"); } while(0)
#define runarc(num, arg) (num,arg,puts("Error - run not supported on VMS"))

void clsfil PROTO((FILE *, char *, unsigned, unsigned));
void getstamp PROTO((FILE *, unsigned short *, unsigned short *));
void fatal PROTO((char *, ...));
char *dir PROTO((char *));
void rempath PROTO((int, char **));
char *strupr PROTO((char *));
char *makefnam PROTO((char *, char *, char *));
char *basename PROTO((char *));
int getfilch PROTO((FILE *));
int putfilch PROTO((int, FILE *));
int readhdr PROTO((struct heads *, FILE *));
void writehdr PROTO((struct heads *, FILE *));
void filecopy PROTO((FILE *, FILE *, long));