project_files/hwc/rtl/system.c
author unc0rr
Sat, 11 Apr 2015 17:37:43 +0300
changeset 10910 df11dea74701
parent 10840 6d1986411733
child 11655 e15eb10f1703
permissions -rw-r--r--
Add ceil() function to fpcrtl of pas2c
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
7983
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
     1
#include "system.h"
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
     2
#include <string.h>
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
     3
#include <stdio.h>
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
     4
#include <stdlib.h>
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
     5
#include <wchar.h>
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
     6
8053
koda
parents: 8047
diff changeset
     7
#ifndef M_PI
koda
parents: 8047
diff changeset
     8
// some math.h do not have M_PI macros
koda
parents: 8047
diff changeset
     9
# define M_PI    3.14159265358979323846  /* pi */
koda
parents: 8047
diff changeset
    10
# define M_PI_2  1.57079632679489661923  /* pi/2 */
koda
parents: 8047
diff changeset
    11
# define M_PI_4  0.78539816339744830962  /* pi/4 */
koda
parents: 8047
diff changeset
    12
# define M_PIl   3.1415926535897932384626433832795029L  /* pi */
koda
parents: 8047
diff changeset
    13
# define M_PI_2l 1.5707963267948966192313216916397514L  /* pi/2 */
koda
parents: 8047
diff changeset
    14
# define M_PI_4l 0.7853981633974483096156608458198757L  /* pi/4 */
koda
parents: 8047
diff changeset
    15
#endif
koda
parents: 8047
diff changeset
    16
koda
parents: 8047
diff changeset
    17
double pi = M_PI;
koda
parents: 8047
diff changeset
    18
7983
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    19
int paramCount;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    20
string255 params[MAX_PARAMS];
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    21
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    22
string255 fpcrtl_copy(string255 s, Integer index, Integer count) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    23
    string255 result = STRINIT("");
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    24
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    25
    if (count < 1) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    26
        return result;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    27
    }
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    28
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    29
    if (index < 1) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    30
        index = 1;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    31
    }
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    32
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    33
    if (index > s.len) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    34
        return result;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    35
    }
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    36
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    37
    if (index + count > s.len + 1) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    38
        count = s.len + 1 - index;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    39
    }
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    40
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    41
    memcpy(result.str, s.str + index - 1, count);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    42
10128
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
    43
    result.len = count;
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
    44
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
    45
    return result;
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
    46
}
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
    47
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
    48
astring fpcrtl_copyA(astring s, Integer index, Integer count) {
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
    49
    astring result;
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
    50
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
    51
    result.len = 0;
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
    52
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
    53
    if (count < 1) {
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
    54
        return result;
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
    55
    }
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
    56
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
    57
    if (index < 1) {
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
    58
        index = 1;
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
    59
    }
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
    60
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
    61
    if (index > s.len) {
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
    62
        return result;
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
    63
    }
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
    64
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
    65
    if (index + count > s.len + 1) {
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
    66
        count = s.len + 1 - index;
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
    67
    }
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
    68
10131
4b4a043111f4 - pas2c recognizes typecasts in initialization expressions
unc0rr
parents: 10128
diff changeset
    69
    memcpy(result.s + 1, s.s + index, count);
10128
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
    70
7983
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    71
    result.len = count;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    72
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    73
    return result;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    74
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    75
10838
2abe883c9c21 teach pas2c how to insert() shortstrings
sheepluva
parents: 10625
diff changeset
    76
void fpcrtl_insert__vars(string255 *src, string255 *dst, SizeInt index) {
2abe883c9c21 teach pas2c how to insert() shortstrings
sheepluva
parents: 10625
diff changeset
    77
    int num_insert;
2abe883c9c21 teach pas2c how to insert() shortstrings
sheepluva
parents: 10625
diff changeset
    78
    int num_shift;
2abe883c9c21 teach pas2c how to insert() shortstrings
sheepluva
parents: 10625
diff changeset
    79
    int num_preshift;
2abe883c9c21 teach pas2c how to insert() shortstrings
sheepluva
parents: 10625
diff changeset
    80
2abe883c9c21 teach pas2c how to insert() shortstrings
sheepluva
parents: 10625
diff changeset
    81
    // nothing to do if empty string is inserted or index invalid
2abe883c9c21 teach pas2c how to insert() shortstrings
sheepluva
parents: 10625
diff changeset
    82
    if ((src->len == 0) || (index < 1) || (index > 255)) {
2abe883c9c21 teach pas2c how to insert() shortstrings
sheepluva
parents: 10625
diff changeset
    83
        return;
2abe883c9c21 teach pas2c how to insert() shortstrings
sheepluva
parents: 10625
diff changeset
    84
    }
2abe883c9c21 teach pas2c how to insert() shortstrings
sheepluva
parents: 10625
diff changeset
    85
2abe883c9c21 teach pas2c how to insert() shortstrings
sheepluva
parents: 10625
diff changeset
    86
    num_insert = src->len;
2abe883c9c21 teach pas2c how to insert() shortstrings
sheepluva
parents: 10625
diff changeset
    87
    // number of chars from start of destination string to end of insertion
2abe883c9c21 teach pas2c how to insert() shortstrings
sheepluva
parents: 10625
diff changeset
    88
    num_preshift = index - 1 + num_insert;
2abe883c9c21 teach pas2c how to insert() shortstrings
sheepluva
parents: 10625
diff changeset
    89
2abe883c9c21 teach pas2c how to insert() shortstrings
sheepluva
parents: 10625
diff changeset
    90
    // don't overflow on insert
2abe883c9c21 teach pas2c how to insert() shortstrings
sheepluva
parents: 10625
diff changeset
    91
    if (num_preshift > 255) {
2abe883c9c21 teach pas2c how to insert() shortstrings
sheepluva
parents: 10625
diff changeset
    92
        num_insert = 255 - (index - 1);
2abe883c9c21 teach pas2c how to insert() shortstrings
sheepluva
parents: 10625
diff changeset
    93
        num_shift = 0;
2abe883c9c21 teach pas2c how to insert() shortstrings
sheepluva
parents: 10625
diff changeset
    94
    }
2abe883c9c21 teach pas2c how to insert() shortstrings
sheepluva
parents: 10625
diff changeset
    95
    // shift trailing chars
2abe883c9c21 teach pas2c how to insert() shortstrings
sheepluva
parents: 10625
diff changeset
    96
    else {
2abe883c9c21 teach pas2c how to insert() shortstrings
sheepluva
parents: 10625
diff changeset
    97
        // number of bytes to be shifted
2abe883c9c21 teach pas2c how to insert() shortstrings
sheepluva
parents: 10625
diff changeset
    98
        num_shift = dst->len - (index - 1);
2abe883c9c21 teach pas2c how to insert() shortstrings
sheepluva
parents: 10625
diff changeset
    99
2abe883c9c21 teach pas2c how to insert() shortstrings
sheepluva
parents: 10625
diff changeset
   100
        if (num_shift > 0) {
2abe883c9c21 teach pas2c how to insert() shortstrings
sheepluva
parents: 10625
diff changeset
   101
            // don't overflow when shifting
2abe883c9c21 teach pas2c how to insert() shortstrings
sheepluva
parents: 10625
diff changeset
   102
            if (num_shift + num_preshift > 255)
2abe883c9c21 teach pas2c how to insert() shortstrings
sheepluva
parents: 10625
diff changeset
   103
                num_shift = 255 - num_preshift;
2abe883c9c21 teach pas2c how to insert() shortstrings
sheepluva
parents: 10625
diff changeset
   104
2abe883c9c21 teach pas2c how to insert() shortstrings
sheepluva
parents: 10625
diff changeset
   105
            // time to move some bytes!
2abe883c9c21 teach pas2c how to insert() shortstrings
sheepluva
parents: 10625
diff changeset
   106
            memmove(dst->str + num_preshift, dst->str + index - 1, num_shift);
2abe883c9c21 teach pas2c how to insert() shortstrings
sheepluva
parents: 10625
diff changeset
   107
        }
2abe883c9c21 teach pas2c how to insert() shortstrings
sheepluva
parents: 10625
diff changeset
   108
    }
2abe883c9c21 teach pas2c how to insert() shortstrings
sheepluva
parents: 10625
diff changeset
   109
2abe883c9c21 teach pas2c how to insert() shortstrings
sheepluva
parents: 10625
diff changeset
   110
    // actual byte insertion
2abe883c9c21 teach pas2c how to insert() shortstrings
sheepluva
parents: 10625
diff changeset
   111
    memmove(dst->str + index - 1, src->str, num_insert);
2abe883c9c21 teach pas2c how to insert() shortstrings
sheepluva
parents: 10625
diff changeset
   112
    // store new length
2abe883c9c21 teach pas2c how to insert() shortstrings
sheepluva
parents: 10625
diff changeset
   113
    dst->len = num_shift + num_preshift;
2abe883c9c21 teach pas2c how to insert() shortstrings
sheepluva
parents: 10625
diff changeset
   114
}
2abe883c9c21 teach pas2c how to insert() shortstrings
sheepluva
parents: 10625
diff changeset
   115
10131
4b4a043111f4 - pas2c recognizes typecasts in initialization expressions
unc0rr
parents: 10128
diff changeset
   116
void __attribute__((overloadable)) fpcrtl_delete__vars(string255 *s, SizeInt index, SizeInt count) {
7983
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   117
    // number of chars to be move
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   118
    int num_move;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   119
    int new_length;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   120
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   121
    if (index < 1) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   122
        // in fpc, if index < 1, the string won't be modified
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   123
        return;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   124
    }
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   125
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   126
    if(index > s->len){
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   127
        return;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   128
    }
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   129
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   130
    if (count > s->len - index + 1) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   131
        s->len = index - 1;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   132
        return;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   133
    }
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   134
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   135
    num_move = s->len - index + 1 - count;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   136
    new_length = s->len - count;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   137
10131
4b4a043111f4 - pas2c recognizes typecasts in initialization expressions
unc0rr
parents: 10128
diff changeset
   138
    memmove(s->str + index - 1, s->str + index - 1 + count, num_move);
7983
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   139
    s->str[new_length] = 0;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   140
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   141
    s->len = new_length;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   142
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   143
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   144
10131
4b4a043111f4 - pas2c recognizes typecasts in initialization expressions
unc0rr
parents: 10128
diff changeset
   145
void __attribute__((overloadable)) fpcrtl_delete__vars(astring *s, SizeInt index, SizeInt count) {
4b4a043111f4 - pas2c recognizes typecasts in initialization expressions
unc0rr
parents: 10128
diff changeset
   146
    // number of chars to be move
4b4a043111f4 - pas2c recognizes typecasts in initialization expressions
unc0rr
parents: 10128
diff changeset
   147
    int num_move;
4b4a043111f4 - pas2c recognizes typecasts in initialization expressions
unc0rr
parents: 10128
diff changeset
   148
    int new_length;
4b4a043111f4 - pas2c recognizes typecasts in initialization expressions
unc0rr
parents: 10128
diff changeset
   149
4b4a043111f4 - pas2c recognizes typecasts in initialization expressions
unc0rr
parents: 10128
diff changeset
   150
    if (index < 1) {
4b4a043111f4 - pas2c recognizes typecasts in initialization expressions
unc0rr
parents: 10128
diff changeset
   151
        // in fpc, if index < 1, the string won't be modified
4b4a043111f4 - pas2c recognizes typecasts in initialization expressions
unc0rr
parents: 10128
diff changeset
   152
        return;
4b4a043111f4 - pas2c recognizes typecasts in initialization expressions
unc0rr
parents: 10128
diff changeset
   153
    }
4b4a043111f4 - pas2c recognizes typecasts in initialization expressions
unc0rr
parents: 10128
diff changeset
   154
4b4a043111f4 - pas2c recognizes typecasts in initialization expressions
unc0rr
parents: 10128
diff changeset
   155
    if(index > s->len){
4b4a043111f4 - pas2c recognizes typecasts in initialization expressions
unc0rr
parents: 10128
diff changeset
   156
        return;
4b4a043111f4 - pas2c recognizes typecasts in initialization expressions
unc0rr
parents: 10128
diff changeset
   157
    }
4b4a043111f4 - pas2c recognizes typecasts in initialization expressions
unc0rr
parents: 10128
diff changeset
   158
4b4a043111f4 - pas2c recognizes typecasts in initialization expressions
unc0rr
parents: 10128
diff changeset
   159
    if (count > s->len - index + 1) {
4b4a043111f4 - pas2c recognizes typecasts in initialization expressions
unc0rr
parents: 10128
diff changeset
   160
        s->len = index - 1;
4b4a043111f4 - pas2c recognizes typecasts in initialization expressions
unc0rr
parents: 10128
diff changeset
   161
        return;
4b4a043111f4 - pas2c recognizes typecasts in initialization expressions
unc0rr
parents: 10128
diff changeset
   162
    }
4b4a043111f4 - pas2c recognizes typecasts in initialization expressions
unc0rr
parents: 10128
diff changeset
   163
4b4a043111f4 - pas2c recognizes typecasts in initialization expressions
unc0rr
parents: 10128
diff changeset
   164
    num_move = s->len - index + 1 - count;
4b4a043111f4 - pas2c recognizes typecasts in initialization expressions
unc0rr
parents: 10128
diff changeset
   165
    new_length = s->len - count;
4b4a043111f4 - pas2c recognizes typecasts in initialization expressions
unc0rr
parents: 10128
diff changeset
   166
4b4a043111f4 - pas2c recognizes typecasts in initialization expressions
unc0rr
parents: 10128
diff changeset
   167
    memmove(s->s + index, s->s + index + count, num_move);
4b4a043111f4 - pas2c recognizes typecasts in initialization expressions
unc0rr
parents: 10128
diff changeset
   168
4b4a043111f4 - pas2c recognizes typecasts in initialization expressions
unc0rr
parents: 10128
diff changeset
   169
    s->len = new_length;
4b4a043111f4 - pas2c recognizes typecasts in initialization expressions
unc0rr
parents: 10128
diff changeset
   170
4b4a043111f4 - pas2c recognizes typecasts in initialization expressions
unc0rr
parents: 10128
diff changeset
   171
}
4b4a043111f4 - pas2c recognizes typecasts in initialization expressions
unc0rr
parents: 10128
diff changeset
   172
7983
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   173
string255 fpcrtl_floatToStr(double n) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   174
    string255 t;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   175
    sprintf(t.str, "%f", n);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   176
    t.len = strlen(t.str);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   177
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   178
    return t;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   179
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   180
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   181
void fpcrtl_move__vars(void *src, void *dst, SizeInt count) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   182
    memmove(dst, src, count);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   183
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   184
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   185
Integer __attribute__((overloadable)) fpcrtl_pos(Char c, string255 str) {
10134
81d733899e06 Use strchr instead of strstr with specially constructed string255 struct (not tested)
unc0rr
parents: 10131
diff changeset
   186
81d733899e06 Use strchr instead of strstr with specially constructed string255 struct (not tested)
unc0rr
parents: 10131
diff changeset
   187
    unsigned char* p;
81d733899e06 Use strchr instead of strstr with specially constructed string255 struct (not tested)
unc0rr
parents: 10131
diff changeset
   188
81d733899e06 Use strchr instead of strstr with specially constructed string255 struct (not tested)
unc0rr
parents: 10131
diff changeset
   189
    if (str.len == 0) {
81d733899e06 Use strchr instead of strstr with specially constructed string255 struct (not tested)
unc0rr
parents: 10131
diff changeset
   190
        return 0;
81d733899e06 Use strchr instead of strstr with specially constructed string255 struct (not tested)
unc0rr
parents: 10131
diff changeset
   191
    }
81d733899e06 Use strchr instead of strstr with specially constructed string255 struct (not tested)
unc0rr
parents: 10131
diff changeset
   192
81d733899e06 Use strchr instead of strstr with specially constructed string255 struct (not tested)
unc0rr
parents: 10131
diff changeset
   193
    FIX_STRING(str);
81d733899e06 Use strchr instead of strstr with specially constructed string255 struct (not tested)
unc0rr
parents: 10131
diff changeset
   194
81d733899e06 Use strchr instead of strstr with specially constructed string255 struct (not tested)
unc0rr
parents: 10131
diff changeset
   195
    p = strchr(str.str, c);
81d733899e06 Use strchr instead of strstr with specially constructed string255 struct (not tested)
unc0rr
parents: 10131
diff changeset
   196
81d733899e06 Use strchr instead of strstr with specially constructed string255 struct (not tested)
unc0rr
parents: 10131
diff changeset
   197
    if (p == NULL) {
81d733899e06 Use strchr instead of strstr with specially constructed string255 struct (not tested)
unc0rr
parents: 10131
diff changeset
   198
        return 0;
81d733899e06 Use strchr instead of strstr with specially constructed string255 struct (not tested)
unc0rr
parents: 10131
diff changeset
   199
    }
81d733899e06 Use strchr instead of strstr with specially constructed string255 struct (not tested)
unc0rr
parents: 10131
diff changeset
   200
81d733899e06 Use strchr instead of strstr with specially constructed string255 struct (not tested)
unc0rr
parents: 10131
diff changeset
   201
    return p - (unsigned char*)&str.s;
7983
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   202
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   203
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   204
Integer __attribute__((overloadable)) fpcrtl_pos(string255 substr, string255 str) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   205
10131
4b4a043111f4 - pas2c recognizes typecasts in initialization expressions
unc0rr
parents: 10128
diff changeset
   206
    unsigned char* p;
7983
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   207
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   208
    if (str.len == 0) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   209
        return 0;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   210
    }
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   211
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   212
    if (substr.len == 0) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   213
        return 0;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   214
    }
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   215
10128
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
   216
    FIX_STRING(substr);
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
   217
    FIX_STRING(str);
7983
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   218
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   219
    p = strstr(str.str, substr.str);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   220
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   221
    if (p == NULL) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   222
        return 0;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   223
    }
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   224
10131
4b4a043111f4 - pas2c recognizes typecasts in initialization expressions
unc0rr
parents: 10128
diff changeset
   225
    return p - (unsigned char*)&str.s;
4b4a043111f4 - pas2c recognizes typecasts in initialization expressions
unc0rr
parents: 10128
diff changeset
   226
}
4b4a043111f4 - pas2c recognizes typecasts in initialization expressions
unc0rr
parents: 10128
diff changeset
   227
4b4a043111f4 - pas2c recognizes typecasts in initialization expressions
unc0rr
parents: 10128
diff changeset
   228
Integer __attribute__((overloadable)) fpcrtl_pos(Char c, astring str) {
10134
81d733899e06 Use strchr instead of strstr with specially constructed string255 struct (not tested)
unc0rr
parents: 10131
diff changeset
   229
    unsigned char* p;
81d733899e06 Use strchr instead of strstr with specially constructed string255 struct (not tested)
unc0rr
parents: 10131
diff changeset
   230
81d733899e06 Use strchr instead of strstr with specially constructed string255 struct (not tested)
unc0rr
parents: 10131
diff changeset
   231
    if (str.len == 0) {
81d733899e06 Use strchr instead of strstr with specially constructed string255 struct (not tested)
unc0rr
parents: 10131
diff changeset
   232
        return 0;
81d733899e06 Use strchr instead of strstr with specially constructed string255 struct (not tested)
unc0rr
parents: 10131
diff changeset
   233
    }
81d733899e06 Use strchr instead of strstr with specially constructed string255 struct (not tested)
unc0rr
parents: 10131
diff changeset
   234
81d733899e06 Use strchr instead of strstr with specially constructed string255 struct (not tested)
unc0rr
parents: 10131
diff changeset
   235
    p = strchr(str.s + 1, c);
81d733899e06 Use strchr instead of strstr with specially constructed string255 struct (not tested)
unc0rr
parents: 10131
diff changeset
   236
81d733899e06 Use strchr instead of strstr with specially constructed string255 struct (not tested)
unc0rr
parents: 10131
diff changeset
   237
    if (p == NULL) {
81d733899e06 Use strchr instead of strstr with specially constructed string255 struct (not tested)
unc0rr
parents: 10131
diff changeset
   238
        return 0;
81d733899e06 Use strchr instead of strstr with specially constructed string255 struct (not tested)
unc0rr
parents: 10131
diff changeset
   239
    }
81d733899e06 Use strchr instead of strstr with specially constructed string255 struct (not tested)
unc0rr
parents: 10131
diff changeset
   240
81d733899e06 Use strchr instead of strstr with specially constructed string255 struct (not tested)
unc0rr
parents: 10131
diff changeset
   241
    return p - (unsigned char*)&str.s;
81d733899e06 Use strchr instead of strstr with specially constructed string255 struct (not tested)
unc0rr
parents: 10131
diff changeset
   242
7983
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   243
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   244
10128
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
   245
Integer __attribute__((overloadable)) fpcrtl_pos(string255 substr, astring str) {
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
   246
10131
4b4a043111f4 - pas2c recognizes typecasts in initialization expressions
unc0rr
parents: 10128
diff changeset
   247
    unsigned char* p;
10128
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
   248
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
   249
    if (str.len == 0) {
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
   250
        return 0;
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
   251
    }
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
   252
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
   253
    if (substr.len == 0) {
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
   254
        return 0;
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
   255
    }
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
   256
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
   257
    FIX_STRING(substr);
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
   258
    str.s[str.len] = 0;
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
   259
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
   260
    p = strstr(str.s + 1, substr.str);
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
   261
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
   262
    if (p == NULL) {
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
   263
        return 0;
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
   264
    }
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
   265
10131
4b4a043111f4 - pas2c recognizes typecasts in initialization expressions
unc0rr
parents: 10128
diff changeset
   266
    return p - (unsigned char *)&str.s;
10128
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
   267
}
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
   268
7983
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   269
Integer fpcrtl_length(string255 s) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   270
    return s.len;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   271
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   272
10128
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
   273
Integer fpcrtl_lengthA(astring s)
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
   274
{
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
   275
    return s.len;
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
   276
}
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
   277
0f6878b5395a Implement needed rtl functions
unc0rr
parents: 8850
diff changeset
   278
7983
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   279
string255 fpcrtl_lowerCase(string255 s) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   280
    int i;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   281
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   282
    for (i = 0; i < s.len; i++) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   283
        if (s.str[i] >= 'A' && s.str[i] <= 'Z') {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   284
            s.str[i] += 'a' - 'A';
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   285
        }
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   286
    }
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   287
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   288
    return s;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   289
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   290
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   291
void fpcrtl_fillChar__vars(void *x, SizeInt count, Byte value) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   292
    memset(x, value, count);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   293
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   294
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   295
void fpcrtl_new__vars(void **p, int size) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   296
    *p = malloc(size);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   297
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   298
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   299
Integer fpcrtl_trunc(extended n) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   300
    return (int) n;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   301
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   302
10910
df11dea74701 Add ceil() function to fpcrtl of pas2c
unc0rr
parents: 10840
diff changeset
   303
Integer fpcrtl_ceil(extended n) {
df11dea74701 Add ceil() function to fpcrtl of pas2c
unc0rr
parents: 10840
diff changeset
   304
    return (int) (ceil(n));
df11dea74701 Add ceil() function to fpcrtl of pas2c
unc0rr
parents: 10840
diff changeset
   305
}
df11dea74701 Add ceil() function to fpcrtl of pas2c
unc0rr
parents: 10840
diff changeset
   306
7983
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   307
LongInt str_to_int(char *src)
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   308
{
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   309
    int i;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   310
    int len = strlen(src);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   311
    char *end;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   312
    for(i = 0; i < len; i++)
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   313
    {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   314
        if(src[i] == '$'){
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   315
            // hex
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   316
            return strtol(src + i + 1, &end, 16);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   317
        }
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   318
    }
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   319
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   320
    // decimal
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   321
    return atoi(src);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   322
}
8850
ae8a957c69fd engine to c now compiles with some manual intervention (as of bug 596)
koda
parents: 8053
diff changeset
   323
ae8a957c69fd engine to c now compiles with some manual intervention (as of bug 596)
koda
parents: 8053
diff changeset
   324
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: 8053
diff changeset
   325
{
7983
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   326
    FIX_STRING(s);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   327
    *a = str_to_int(s.str);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   328
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   329
8850
ae8a957c69fd engine to c now compiles with some manual intervention (as of bug 596)
koda
parents: 8053
diff changeset
   330
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: 8053
diff changeset
   331
{
7983
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   332
    FIX_STRING(s);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   333
    *a = str_to_int(s.str);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   334
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   335
8850
ae8a957c69fd engine to c now compiles with some manual intervention (as of bug 596)
koda
parents: 8053
diff changeset
   336
void __attribute__((overloadable)) fpcrtl_val__vars(string255 s, LongWord *a)
ae8a957c69fd engine to c now compiles with some manual intervention (as of bug 596)
koda
parents: 8053
diff changeset
   337
{
7983
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   338
    FIX_STRING(s);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   339
    *a = str_to_int(s.str);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   340
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   341
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   342
LongInt fpcrtl_random(LongInt l) {
10625
125e120165aa flake FrameTicks value of 0 now indicades that the frame should not be changed
sheepluva
parents: 10134
diff changeset
   343
    // random(0) is undefined in docs but effectively returns 0 in free pascal
125e120165aa flake FrameTicks value of 0 now indicades that the frame should not be changed
sheepluva
parents: 10134
diff changeset
   344
    if (l == 0) {
10840
6d1986411733 add newline after warning
sheepluva
parents: 10838
diff changeset
   345
        printf("WARNING: random(0) called!\n");
10625
125e120165aa flake FrameTicks value of 0 now indicades that the frame should not be changed
sheepluva
parents: 10134
diff changeset
   346
        return 0;
125e120165aa flake FrameTicks value of 0 now indicades that the frame should not be changed
sheepluva
parents: 10134
diff changeset
   347
    }
7983
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   348
    return (LongInt) (rand() / (double) RAND_MAX * l);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   349
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   350
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   351
void __attribute__((overloadable)) fpcrtl_str__vars(float x, string255 *s) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   352
    sprintf(s->str, "%f", x);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   353
    s->len = strlen(s->str);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   354
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   355
void __attribute__((overloadable)) fpcrtl_str__vars(double x, string255 *s) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   356
    sprintf(s->str, "%f", x);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   357
    s->len = strlen(s->str);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   358
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   359
void __attribute__((overloadable)) fpcrtl_str__vars(uint8_t x, string255 *s) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   360
    sprintf(s->str, "%u", x);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   361
    s->len = strlen(s->str);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   362
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   363
void __attribute__((overloadable)) fpcrtl_str__vars(int8_t x, string255 *s) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   364
    sprintf(s->str, "%d", x);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   365
    s->len = strlen(s->str);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   366
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   367
void __attribute__((overloadable)) fpcrtl_str__vars(uint16_t x, string255 *s) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   368
    sprintf(s->str, "%u", x);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   369
    s->len = strlen(s->str);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   370
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   371
void __attribute__((overloadable)) fpcrtl_str__vars(int16_t x, string255 *s) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   372
    sprintf(s->str, "%d", x);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   373
    s->len = strlen(s->str);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   374
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   375
void __attribute__((overloadable)) fpcrtl_str__vars(uint32_t x, string255 *s) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   376
    sprintf(s->str, "%u", x);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   377
    s->len = strlen(s->str);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   378
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   379
void __attribute__((overloadable)) fpcrtl_str__vars(int32_t x, string255 *s) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   380
    sprintf(s->str, "%d", x);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   381
    s->len = strlen(s->str);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   382
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   383
void __attribute__((overloadable)) fpcrtl_str__vars(uint64_t x, string255 *s) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   384
    sprintf(s->str, "%llu", x);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   385
    s->len = strlen(s->str);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   386
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   387
void __attribute__((overloadable)) fpcrtl_str__vars(int64_t x, string255 *s) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   388
    sprintf(s->str, "%lld", x);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   389
    s->len = strlen(s->str);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   390
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   391
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   392
/*
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   393
 * XXX No protection currently!
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   394
 */
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   395
void fpcrtl_interlockedIncrement__vars(int *i) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   396
    (*i)++;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   397
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   398
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   399
void fpcrtl_interlockedDecrement__vars(int *i) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   400
    (*i)--;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   401
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   402
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   403
/*
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   404
 * This function should be called when entering main
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   405
 */
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   406
void fpcrtl_init(int argc, char** argv) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   407
    int i;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   408
    paramCount = argc;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   409
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   410
    printf("ARGC = %d\n", paramCount);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   411
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   412
    for (i = 0; i < argc; i++) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   413
        if (strlen(argv[i]) > 255) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   414
            assert(0);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   415
        }
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   416
        strcpy(params[i].str, argv[i]);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   417
        params[i].len = strlen(params[i].str);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   418
    }
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   419
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   420
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   421
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   422
int fpcrtl_paramCount() {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   423
    return paramCount - 1; // ignore the first one
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   424
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   425
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   426
string255 fpcrtl_paramStr(int i) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   427
    return params[i];
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   428
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   429
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   430
int fpcrtl_UTF8ToUnicode(PWideChar dest, PChar src, SizeInt maxLen) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   431
    //return swprintf(dest, maxLen, L"%hs", "src"); //doesn't work in emscripten
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   432
    return 0;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   433
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   434
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   435
uint32_t __attribute__((overloadable)) fpcrtl_lo(uint64_t i) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   436
    return (i & 0xFFFFFFFF);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   437
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   438