-
Notifications
You must be signed in to change notification settings - Fork 7
/
ptoc.h
47 lines (34 loc) · 898 Bytes
/
ptoc.h
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
#ifndef __PTOC_H__
#define __PTOC_H__
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdarg.h>
#include <assert.h>
#define items(x) (sizeof(x)/sizeof(*(x)))
typedef int integer;
typedef unsigned cardinal; /* unsigned integer */
typedef float real;
#if defined(TURBO_PASCAL) || defined(HP_PASCAL)
typedef unsigned word; /* It should have the same size as integer */
typedef unsigned char byte;
#endif
#ifdef TURBO_PASCAL
typedef long longint;
typedef signed char shortint;
typedef void* pointer;
typedef const char* asciiz;
#endif
typedef unsigned char boolean;
#define true (1)
#define false (0)
#define nil NULL
#define EXTERN extern
/*
* Pascal runtime library headers
*/
#include "io.h"
#include "array.h"
#include "paslib.h"
#include "set.h"
#endif