36 typedef int64_t Int64; |
36 typedef int64_t Int64; |
37 |
37 |
38 typedef LongInt Integer; |
38 typedef LongInt Integer; |
39 typedef float extended; |
39 typedef float extended; |
40 typedef float real; |
40 typedef float real; |
|
41 typedef float single; |
41 |
42 |
42 typedef bool boolean; |
43 typedef bool boolean; |
|
44 typedef int LongBool; |
43 |
45 |
44 typedef void * pointer; |
46 typedef void * pointer; |
45 typedef Byte * PByte; |
47 typedef Byte * PByte; |
46 typedef char * PChar; |
48 typedef char * PChar; |
47 typedef LongInt * PLongInt; |
49 typedef LongInt * PLongInt; |
70 void __FillChar(pointer p, int size, char fill); |
72 void __FillChar(pointer p, int size, char fill); |
71 string255 _strconcat(string255 a, string255 b); |
73 string255 _strconcat(string255 a, string255 b); |
72 string255 _strappend(string255 s, char c); |
74 string255 _strappend(string255 s, char c); |
73 string255 _strprepend(char c, string255 s); |
75 string255 _strprepend(char c, string255 s); |
74 bool _strcompare(string255 a, string255 b); |
76 bool _strcompare(string255 a, string255 b); |
|
77 bool _strncompare(string255 a, string255 b); |
75 char * _pchar(string255 s); |
78 char * _pchar(string255 s); |
76 |
79 |
77 int Length(string255 a); |
80 int Length(string255 a); |
78 string255 copy(string255 a, int s, int l); |
81 string255 copy(string255 a, int s, int l); |
79 string255 delete(string255 a, int s, int l); |
82 string255 delete(string255 a, int s, int l); |
80 |
83 |
81 #define STRINIT(a) {.len = sizeof(a) - 1, .str = a} |
84 #define STRINIT(a) {.len = sizeof(a) - 1, .str = a} |
82 |
85 |
83 typedef int file; |
86 typedef int file; |
|
87 typedef int TextFile; |
84 extern int FileMode; |
88 extern int FileMode; |
85 extern int IOResult; |
89 extern int IOResult; |
86 |
90 |
87 #define assign(a, b) assign_(&(a), b) |
91 #define assign(a, b) assign_(&(a), b) |
88 void assign_(int * f, string255 fileName); |
92 void assign_(int * f, string255 fileName); |