author | alfadur |
Sat, 06 Oct 2018 01:24:27 +0300 | |
changeset 13875 | a966b1914792 |
parent 10910 | df11dea74701 |
child 13885 | 5f819b90d479 |
permissions | -rw-r--r-- |
7983 | 1 |
#ifndef SYSTEM_H_ |
2 |
#define SYSTEM_H_ |
|
3 |
||
10566
cc90ea6448c7
map halt(t) to exit(t) rather than assert(0). all test cases except gravity pass with pas2c now
sheepluva
parents:
10131
diff
changeset
|
4 |
#include <stdlib.h> |
7983 | 5 |
#include <time.h> |
8047
25a4daa6473c
cleanup headers, remove -I . from rtl lib to save a few warnings
koda
parents:
7983
diff
changeset
|
6 |
#include "Types.h" |
7983 | 7 |
#include "misc.h" |
8 |
||
9 |
extern double pi; |
|
10 |
||
11 |
typedef TDate* PDate; |
|
12 |
||
13 |
// dimension info for dynamic arrays |
|
14 |
typedef struct { |
|
15 |
int dim; |
|
16 |
int a[4]; // at most 4 |
|
17 |
} fpcrtl_dimension_t; |
|
18 |
||
19 |
/* |
|
20 |
* Copy returns a string which is a copy if the Count characters in S, starting at position Index. |
|
21 |
* If Count is larger than the length of the string S, the result is truncated. |
|
22 |
* If Index is larger than the length of the string S, then an empty string is returned. |
|
23 |
* Index is 1-based. |
|
24 |
*/ |
|
25 |
string255 fpcrtl_copy(string255 s, Integer Index, Integer Count); |
|
10127 | 26 |
astring fpcrtl_copyA(astring s, Integer Index, Integer Count); |
7983 | 27 |
|
28 |
/* |
|
10838 | 29 |
* Insert a shortstring in another at a specified index |
30 |
*/ |
|
31 |
void fpcrtl_insert__vars(string255 *src, string255 *dst, SizeInt index); |
|
32 |
#define fpcrtl_insert(src, dst, index) fpcrtl_insert__vars(&(src), &(dst), index); |
|
33 |
#define fpcrtl_Insert fpcrtl_insert |
|
34 |
||
35 |
/* |
|
7983 | 36 |
* Delete removes Count characters from string S, starting at position Index. |
37 |
* All characters after the deleted characters are shifted Count positions to the left, |
|
38 |
* and the length of the string is adjusted. |
|
39 |
*/ |
|
40 |
#define fpcrtl_delete(s, index, count) fpcrtl_delete__vars(&(s), index, count) |
|
10131
4b4a043111f4
- pas2c recognizes typecasts in initialization expressions
unc0rr
parents:
10127
diff
changeset
|
41 |
void __attribute__((overloadable)) fpcrtl_delete__vars(string255 *s, SizeInt index, SizeInt count); |
4b4a043111f4
- pas2c recognizes typecasts in initialization expressions
unc0rr
parents:
10127
diff
changeset
|
42 |
void __attribute__((overloadable)) fpcrtl_delete__vars(astring *s, SizeInt index, SizeInt count); |
10838 | 43 |
#define fpcrtl_Delete fpcrtl_delete |
7983 | 44 |
|
45 |
string255 fpcrtl_floatToStr(double n); |
|
46 |
||
47 |
/* |
|
48 |
* Move data from one location in memory to another |
|
49 |
*/ |
|
50 |
void fpcrtl_move__vars(void *src, void *dst, SizeInt count); |
|
51 |
#define fpcrtl_move(src, dst, count) fpcrtl_move__vars(&(src), &(dst), count); |
|
52 |
#define fpcrtl_Move fpcrtl_move |
|
53 |
||
54 |
Integer __attribute__((overloadable)) fpcrtl_pos(Char c, string255 str); |
|
55 |
Integer __attribute__((overloadable)) fpcrtl_pos(string255 substr, string255 str); |
|
10127 | 56 |
Integer __attribute__((overloadable)) fpcrtl_pos(string255 substr, astring str); |
10131
4b4a043111f4
- pas2c recognizes typecasts in initialization expressions
unc0rr
parents:
10127
diff
changeset
|
57 |
Integer __attribute__((overloadable)) fpcrtl_pos(Char c, astring str); |
7983 | 58 |
|
59 |
Integer fpcrtl_length(string255 s); |
|
60 |
#define fpcrtl_Length fpcrtl_length |
|
10124
aabd1b75d5a3
Even more explicit type conversions and other stuff to help pas2c use ansistrings
unc0rr
parents:
8850
diff
changeset
|
61 |
Integer fpcrtl_lengthA(astring s); |
aabd1b75d5a3
Even more explicit type conversions and other stuff to help pas2c use ansistrings
unc0rr
parents:
8850
diff
changeset
|
62 |
#define fpcrtl_LengthA fpcrtl_lengthA |
7983 | 63 |
|
10131
4b4a043111f4
- pas2c recognizes typecasts in initialization expressions
unc0rr
parents:
10127
diff
changeset
|
64 |
#define fpcrtl_SetLengthA(s, l) do{(s).len = (l);}while(0) |
4b4a043111f4
- pas2c recognizes typecasts in initialization expressions
unc0rr
parents:
10127
diff
changeset
|
65 |
|
7983 | 66 |
#define fpcrtl_sqr(x) ((x) * (x)) |
67 |
||
68 |
#define fpcrtl_odd(x) ((x) % 2 != 0 ? true : false) |
|
69 |
||
70 |
#define fpcrtl_StrLen strlen |
|
71 |
||
72 |
#define SizeOf sizeof |
|
73 |
||
74 |
string255 fpcrtl_lowerCase(string255 s); |
|
75 |
#define fpcrtl_LowerCase fpcrtl_lowerCase |
|
76 |
||
77 |
void fpcrtl_fillChar__vars(void *x, SizeInt count, Byte value); |
|
78 |
#define fpcrtl_fillChar(x, count, value) fpcrtl_fillChar__vars(&(x), count, value) |
|
79 |
#define fpcrtl_FillChar fpcrtl_fillChar |
|
80 |
||
81 |
void fpcrtl_new__vars(void **p, int size); |
|
82 |
#define fpcrtl_new(a) fpcrtl_new__vars((void **)&(a), sizeof(*(a))) |
|
83 |
||
84 |
#define fpcrtl_dispose free |
|
85 |
||
86 |
#define fpcrtl_freeMem(p, size) free(p) |
|
87 |
#define fpcrtl_FreeMem(p, size) free(p) |
|
88 |
||
89 |
#define fpcrtl_getMem(size) malloc(size) |
|
90 |
#define fpcrtl_GetMem fpcrtl_getMem |
|
91 |
||
92 |
#define fpcrtl_assigned(p) ((p) != NULL) |
|
93 |
#define fpcrtl_Assigned fpcrtl_assigned |
|
94 |
||
95 |
Integer fpcrtl_trunc(extended n); |
|
10910 | 96 |
Integer fpcrtl_ceil(extended n); |
7983 | 97 |
|
8850
ae8a957c69fd
engine to c now compiles with some manual intervention (as of bug 596)
koda
parents:
8047
diff
changeset
|
98 |
#define fpcrtl_val(s, a) fpcrtl_val__vars(s, &(a)) |
ae8a957c69fd
engine to c now compiles with some manual intervention (as of bug 596)
koda
parents:
8047
diff
changeset
|
99 |
void __attribute__((overloadable)) fpcrtl_val__vars(string255 s, LongInt *a); |
ae8a957c69fd
engine to c now compiles with some manual intervention (as of bug 596)
koda
parents:
8047
diff
changeset
|
100 |
void __attribute__((overloadable)) fpcrtl_val__vars(string255 s, Byte *a); |
ae8a957c69fd
engine to c now compiles with some manual intervention (as of bug 596)
koda
parents:
8047
diff
changeset
|
101 |
void __attribute__((overloadable)) fpcrtl_val__vars(string255 s, LongWord *a); |
7983 | 102 |
|
103 |
#define fpcrtl_randomize() srand(time(NULL)) |
|
104 |
||
105 |
/* |
|
106 |
* Random returns a random number larger or equal to 0 and strictly less than L |
|
107 |
*/ |
|
108 |
LongInt fpcrtl_random(LongInt l); |
|
109 |
||
110 |
string255 fpcrtl_paramStr(LongInt); |
|
111 |
#define fpcrtl_ParamStr fpcrtl_paramStr |
|
112 |
||
113 |
/* |
|
114 |
* Str returns a string which represents the value of X. X can be any numerical type. |
|
115 |
*/ |
|
116 |
#define fpcrtl_str(x, s) fpcrtl_str__vars(x, &(s)) |
|
117 |
void __attribute__((overloadable)) fpcrtl_str__vars(float x, string255 *s); |
|
118 |
void __attribute__((overloadable)) fpcrtl_str__vars(double x, string255 *s); |
|
119 |
void __attribute__((overloadable)) fpcrtl_str__vars(uint8_t x, string255 *s); |
|
120 |
void __attribute__((overloadable)) fpcrtl_str__vars(int8_t x, string255 *s); |
|
121 |
void __attribute__((overloadable)) fpcrtl_str__vars(uint16_t x, string255 *s); |
|
122 |
void __attribute__((overloadable)) fpcrtl_str__vars(int16_t x, string255 *s); |
|
123 |
void __attribute__((overloadable)) fpcrtl_str__vars(uint32_t x, string255 *s); |
|
124 |
void __attribute__((overloadable)) fpcrtl_str__vars(int32_t x, string255 *s); |
|
125 |
void __attribute__((overloadable)) fpcrtl_str__vars(uint64_t x, string255 *s); |
|
126 |
void __attribute__((overloadable)) fpcrtl_str__vars(int64_t x, string255 *s); |
|
127 |
||
128 |
void fpcrtl_interlockedIncrement__vars(int *i); |
|
129 |
void fpcrtl_interlockedDecrement__vars(int *i); |
|
130 |
||
131 |
#define fpcrtl_interlockedIncrement(i) fpcrtl_interlockedIncrement__vars(&(i)) |
|
132 |
#define fpcrtl_interlockedDecrement(i) fpcrtl_interlockedDecrement__vars(&(i)) |
|
133 |
||
134 |
#define fpcrtl_InterlockedIncrement fpcrtl_interlockedIncrement |
|
135 |
#define fpcrtl_InterlockedDecrement fpcrtl_interlockedDecrement |
|
136 |
||
137 |
void fpcrtl_init(int argc, char** argv); |
|
138 |
||
139 |
int fpcrtl_paramCount(); |
|
140 |
#define fpcrtl_ParamCount fpcrtl_paramCount |
|
141 |
||
142 |
string255 fpcrtl_paramStr(int i); |
|
143 |
#define fpcrtl_ParamStr fpcrtl_paramStr |
|
144 |
||
145 |
int fpcrtl_UTF8ToUnicode(PWideChar dest, PChar src, SizeInt maxLen); |
|
146 |
||
10566
cc90ea6448c7
map halt(t) to exit(t) rather than assert(0). all test cases except gravity pass with pas2c now
sheepluva
parents:
10131
diff
changeset
|
147 |
// #define fpcrtl_halt(t) assert(0) |
cc90ea6448c7
map halt(t) to exit(t) rather than assert(0). all test cases except gravity pass with pas2c now
sheepluva
parents:
10131
diff
changeset
|
148 |
#define fpcrtl_halt(t) exit(t) |
7983 | 149 |
|
150 |
#define fpcrtl_Load_GL_VERSION_2_0() 1 |
|
151 |
||
152 |
uint32_t __attribute__((overloadable)) fpcrtl_lo(uint64_t); |
|
153 |
#define fpcrtl_Lo fpcrtl_lo |
|
154 |
||
155 |
#define __SET_LENGTH2(arr, d, b) do{\ |
|
156 |
d.dim = 1;\ |
|
157 |
arr = realloc(arr, b * sizeof(typeof(*arr)));\ |
|
158 |
d.a[0] = b;\ |
|
159 |
}while(0) |
|
160 |
||
161 |
#define SET_LENGTH2(arr, b) __SET_LENGTH2(arr, arr##_dimension_info, (b)) |
|
162 |
||
163 |
#define __SET_LENGTH3(arr, d, b, c) do{\ |
|
164 |
d.dim = 2;\ |
|
165 |
for (int i = 0; i < d.a[0]; i++) {\ |
|
166 |
arr[i] = realloc(arr[i], c * sizeof(typeof(**arr)));\ |
|
167 |
}\ |
|
168 |
if (d.a[0] > b) {\ |
|
169 |
for (int i = b; i < d.a[0]; i++) {\ |
|
170 |
free(arr[i]);\ |
|
171 |
}\ |
|
172 |
arr = realloc(arr, b * sizeof(typeof(*arr)));\ |
|
173 |
} else if (d.a[0] < b) {\ |
|
174 |
arr = realloc(arr, b * sizeof(typeof(*arr)));\ |
|
175 |
for (int i = d.a[0]; i < b; i++) {\ |
|
176 |
arr[i] = malloc(c * sizeof(typeof(**arr)));\ |
|
177 |
memset(arr[i], 0, c * sizeof(typeof(**arr)));\ |
|
178 |
}\ |
|
179 |
}\ |
|
180 |
d.a[0] = b;\ |
|
181 |
d.a[1] = c;\ |
|
182 |
}while(0) |
|
183 |
||
184 |
#define SET_LENGTH3(arr, b, c) __SET_LENGTH3(arr, arr##_dimension_info, (b), (c)) |
|
185 |
||
186 |
#define fpcrtl_SetLength(...) macro_dispatcher(SET_LENGTH, __VA_ARGS__)(__VA_ARGS__) |
|
187 |
||
188 |
#endif /* SYSTEM_H_ */ |