summaryrefslogtreecommitdiff
path: root/systems/knuth/local/GPCtypes.h
blob: 59196bcfa8450fe47cf654474ab8bc679cf4ad3d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
/* some typedefs to allow C extensions in GPC programs */
#include <stdio.h>

typedef enum {FALSE, TRUE} bool;
typedef struct Fdr* FDR;
typedef int (*t_InFunc) (void *,       char *, int, int *);
typedef int (*t_OutFunc)(void *, const char *, int, int *);
typedef enum { foReset, foRewrite, foAppend, foSeekRead, foSeekWrite, foSeekUpdate } TOpenMode;
typedef void      (*TOpenProc)  (void *, TOpenMode);
typedef size_t    (*TReadFunc)  (void *, char *, size_t);
typedef size_t    (*TWriteFunc) (void *, const char *, size_t);
typedef void      (*TFlushProc)  (void *);
typedef void      (*TCloseProc)  (void *);
typedef void      (*TDoneProc)   (void *);

typedef long long int UnixTimeType; /* This is hard-coded in the compiler. Do not change here. */
#define FILE_BUFSIZE 1024

typedef struct {
  int  Capacity;
  int  length;
  char string [256];  /* the length is actually variable */
} STRING;

typedef struct
{
  char Bound;
  char Force;
  char Extensions_valid;
  char Readable;
  char Writable;
  char Executable;
  char Existing;
  char Directory;
  long long int Size;
  UnixTimeType AccessTime;
  UnixTimeType ModificationTime;
  UnixTimeType ChangeTime;
  int  Error;
  FILE *CFile;
  STRING Name;
} GPC_BINDING;

struct Fdr {
  unsigned char *FilBuf; /* address of the file buffer in heap         */
  int   FilSta;          /* status bits; see below                     */
  int   FilSiz;          /* buffer size: if packed then in bits else bytes */
                         /* THE ABOVE FIELDS ACCESSED BY COMPILER      */
                         /* The fields below are used only by RTS      */
  /* Internal buffering and used for ReadStr/WriteStr */
  unsigned char *BufPtr; /* NOT the Standard Pascal file buffer, that is (*FilBuf) */
  int   BufSize;
  int   BufPos;
  int   Flags;
  char *FilNam;          /* Internal name of the file                  */
  char *ExtNam;          /* External name of the file                  */
  FILE *FilJfn;          /* FILE pointer                               */
  int   RtsSta;          /* run time system status bits                */
  FDR   NxtFdr;          /* FDR chain pointer                          */
  GPC_BINDING *Binding;  /* Binding of the file                        */
  char *BoundName;       /* Name the binding refers to as a CString    */
  int   BindingChanged;
  t_InFunc   hack_InFunc;
  t_OutFunc  hack_OutFunc;
  void      *PrivateData;
  TOpenProc  OpenProc;
  TReadFunc  ReadFunc;
  TWriteFunc WriteFunc;
  TFlushProc FlushProc;
  TCloseProc CloseProc;
  TDoneProc  DoneProc;
  unsigned char InternalBuffer [FILE_BUFSIZE]; /* NOT the Standard Pascal file buffer, that is (*FilBuf) */
};

/* FilSta bit definitions */

#define FiUnd      (1 << 0)  /* File buffer is totally undefined */
#define FiEof      (1 << 2)  /* End of file is true */
#define FiEln      (1 << 3)  /* End of line is true. Textfiles only */
#define FiTxt      (1 << 4)  /* It's a TEXT file */
#define FiExt      (1 << 5)  /* External file */
#define FiExtB     (1 << 6)  /* External or bound file */
#define FiPck      (1 << 7)  /* Packed file */
#define FiClr      (1 << 8)  /* Empty file */
#define FiLzy      (1 << 9)  /* This file is lazy */
#define FiEofOK    (1 << 10) /* Internal flag if FiUnd is set: Accept EOF without EOLN */
#define FiDacc     (1 << 11) /* This is a direct access file */
#define FiLget     (1 << 12) /* Must do a get before buffer reference (Lazy I/O) */
#define FiByte     (1 << 13) /* File buffer is actually one byte size */
#define FiBindable (1 << 15) /* File is bindable */

/* RtsSta bit definitions */

#define FiNOP    0 /* File has not been opened */
#define FiRONLY  (1 << 0) /* File opened but is read only */
#define FiORE    (1 << 1) /* File open for reading */
#define FiWRI    (1 << 2) /* File open for writing */
#define FiRND    (1 << 3) /* File open for random access */
#define FiWONLY  (1 << 4) /* File opened but is write only */
/* RtsSta: Device specific bits */
#define FiTTY    (1 << 10) /* TTY: flush output before GET */
#define FiSEEK   (1 << 12) /* File is seekable */
#define FiSIZEK  (1 << 13) /* Size of file is known */
#define FiFLUSH  (1 << 14) /* flush after write */

extern int _p_argc; /* argument count on command line */
extern char **_p_argv; /* argument vector on command line */
extern char **_p_envp; /* environment vector */