project_files/hwc/rtl/system.c
author koda
Tue, 13 Nov 2012 23:56:50 +0100
branchwebgl
changeset 8050 c82b68016c68
parent 8047 25a4daa6473c
child 8053 2e836bebb518
permissions -rw-r--r--
link main on osx
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
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
     7
int paramCount;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
     8
string255 params[MAX_PARAMS];
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
     9
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    10
string255 fpcrtl_copy(string255 s, Integer index, Integer count) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    11
    string255 result = STRINIT("");
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    12
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    13
    if (count < 1) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    14
        return result;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    15
    }
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    16
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    17
    if (index < 1) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    18
        index = 1;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    19
    }
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    20
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    21
    if (index > s.len) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    22
        return result;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    23
    }
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    24
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    25
    if (index + count > s.len + 1) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    26
        count = s.len + 1 - index;
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
    memcpy(result.str, s.str + index - 1, count);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    30
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    31
    result.str[count] = 0;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    32
    result.len = count;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    33
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
void fpcrtl_delete__vars(string255 *s, SizeInt index, SizeInt count) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    38
    // number of chars to be move
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    39
    int num_move;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    40
    int new_length;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    41
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    42
    string255 temp = *s;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    43
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    44
    if (index < 1) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    45
        // in fpc, if index < 1, the string won't be modified
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    46
        return;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    47
    }
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    48
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    49
    if(index > s->len){
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    50
        return;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    51
    }
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    52
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    53
    if (count > s->len - index + 1) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    54
        s->str[index - 1] = 0;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    55
        s->len = index - 1;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    56
        return;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    57
    }
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    58
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    59
    num_move = s->len - index + 1 - count;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    60
    new_length = s->len - count;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    61
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    62
    memmove(s->str + index - 1, temp.str + index - 1 + count, num_move);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    63
    s->str[new_length] = 0;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    64
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    65
    s->len = new_length;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    66
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    67
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    68
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    69
string255 fpcrtl_floatToStr(double n) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    70
    string255 t;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    71
    sprintf(t.str, "%f", n);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    72
    t.len = strlen(t.str);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    73
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    74
    return t;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    75
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    76
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    77
void fpcrtl_move__vars(void *src, void *dst, SizeInt count) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    78
    memmove(dst, src, count);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    79
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    80
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    81
Integer __attribute__((overloadable)) fpcrtl_pos(Char c, string255 str) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    82
    string255 t;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    83
    t.len = 1;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    84
    t.str[0] = c;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    85
    t.str[1] = 0;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    86
    return fpcrtl_pos(t, str);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    87
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    88
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    89
Integer __attribute__((overloadable)) fpcrtl_pos(string255 substr, string255 str) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    90
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    91
    char* p;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    92
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    93
    FIX_STRING(substr);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    94
    FIX_STRING(str);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    95
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    96
    if (str.len == 0) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    97
        return 0;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    98
    }
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    99
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   100
    if (substr.len == 0) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   101
        return 0;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   102
    }
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   103
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   104
    str.str[str.len] = 0;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   105
    substr.str[substr.len] = 0;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   106
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   107
    p = strstr(str.str, substr.str);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   108
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   109
    if (p == NULL) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   110
        return 0;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   111
    }
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   112
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   113
    return strlen(str.str) - strlen(p) + 1;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   114
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   115
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   116
Integer fpcrtl_length(string255 s) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   117
    return s.len;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   118
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   119
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   120
string255 fpcrtl_lowerCase(string255 s) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   121
    int i;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   122
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   123
    for (i = 0; i < s.len; i++) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   124
        if (s.str[i] >= 'A' && s.str[i] <= 'Z') {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   125
            s.str[i] += 'a' - 'A';
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   126
        }
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   127
    }
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   128
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   129
    return s;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   130
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   131
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   132
void fpcrtl_fillChar__vars(void *x, SizeInt count, Byte value) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   133
    memset(x, value, count);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   134
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   135
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   136
void fpcrtl_new__vars(void **p, int size) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   137
    *p = malloc(size);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   138
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   139
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   140
Integer fpcrtl_trunc(extended n) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   141
    return (int) n;
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
LongInt str_to_int(char *src)
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   145
{
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   146
    int i;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   147
    int len = strlen(src);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   148
    char *end;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   149
    for(i = 0; i < len; i++)
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   150
    {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   151
        if(src[i] == '$'){
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   152
            // hex
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   153
            return strtol(src + i + 1, &end, 16);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   154
        }
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   155
    }
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   156
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   157
    // decimal
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   158
    return atoi(src);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   159
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   160
void __attribute__((overloadable)) fpcrtl_val__vars(string255 s, LongInt *a,
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   161
        LongInt *c) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   162
    *c = 0; // no error
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   163
    FIX_STRING(s);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   164
    *a = str_to_int(s.str);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   165
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   166
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   167
void __attribute__((overloadable)) fpcrtl_val__vars(string255 s, Byte *a,
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   168
        LongInt *c) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   169
    *c = 0; // no error
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   170
    FIX_STRING(s);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   171
    *a = str_to_int(s.str);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   172
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   173
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   174
void __attribute__((overloadable)) fpcrtl_val__vars(string255 s, LongWord *a,
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   175
        LongInt *c) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   176
    *c = 0; // no error
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   177
    FIX_STRING(s);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   178
    *a = str_to_int(s.str);
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
LongInt fpcrtl_random(LongInt l) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   182
    return (LongInt) (rand() / (double) RAND_MAX * l);
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
void __attribute__((overloadable)) fpcrtl_str__vars(float x, string255 *s) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   186
    sprintf(s->str, "%f", x);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   187
    s->len = strlen(s->str);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   188
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   189
void __attribute__((overloadable)) fpcrtl_str__vars(double x, string255 *s) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   190
    sprintf(s->str, "%f", x);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   191
    s->len = strlen(s->str);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   192
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   193
void __attribute__((overloadable)) fpcrtl_str__vars(uint8_t x, string255 *s) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   194
    sprintf(s->str, "%u", x);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   195
    s->len = strlen(s->str);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   196
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   197
void __attribute__((overloadable)) fpcrtl_str__vars(int8_t x, string255 *s) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   198
    sprintf(s->str, "%d", x);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   199
    s->len = strlen(s->str);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   200
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   201
void __attribute__((overloadable)) fpcrtl_str__vars(uint16_t x, string255 *s) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   202
    sprintf(s->str, "%u", x);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   203
    s->len = strlen(s->str);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   204
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   205
void __attribute__((overloadable)) fpcrtl_str__vars(int16_t x, string255 *s) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   206
    sprintf(s->str, "%d", x);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   207
    s->len = strlen(s->str);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   208
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   209
void __attribute__((overloadable)) fpcrtl_str__vars(uint32_t x, string255 *s) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   210
    sprintf(s->str, "%u", x);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   211
    s->len = strlen(s->str);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   212
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   213
void __attribute__((overloadable)) fpcrtl_str__vars(int32_t x, string255 *s) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   214
    sprintf(s->str, "%d", x);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   215
    s->len = strlen(s->str);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   216
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   217
void __attribute__((overloadable)) fpcrtl_str__vars(uint64_t x, string255 *s) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   218
    sprintf(s->str, "%llu", x);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   219
    s->len = strlen(s->str);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   220
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   221
void __attribute__((overloadable)) fpcrtl_str__vars(int64_t x, string255 *s) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   222
    sprintf(s->str, "%lld", x);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   223
    s->len = strlen(s->str);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   224
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   225
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   226
/*
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   227
 * XXX No protection currently!
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   228
 */
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   229
void fpcrtl_interlockedIncrement__vars(int *i) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   230
    (*i)++;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   231
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   232
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   233
void fpcrtl_interlockedDecrement__vars(int *i) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   234
    (*i)--;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   235
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   236
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   237
/*
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   238
 * This function should be called when entering main
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   239
 */
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   240
void fpcrtl_init(int argc, char** argv) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   241
    int i;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   242
    paramCount = argc;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   243
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   244
    printf("ARGC = %d\n", paramCount);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   245
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   246
    for (i = 0; i < argc; i++) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   247
        if (strlen(argv[i]) > 255) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   248
            assert(0);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   249
        }
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   250
        strcpy(params[i].str, argv[i]);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   251
        params[i].len = strlen(params[i].str);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   252
    }
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   253
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   254
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   255
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   256
int fpcrtl_paramCount() {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   257
    return paramCount - 1; // ignore the first one
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   258
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   259
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   260
string255 fpcrtl_paramStr(int i) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   261
    return params[i];
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   262
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   263
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   264
int fpcrtl_UTF8ToUnicode(PWideChar dest, PChar src, SizeInt maxLen) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   265
    //return swprintf(dest, maxLen, L"%hs", "src"); //doesn't work in emscripten
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   266
    return 0;
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   267
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   268
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   269
uint32_t __attribute__((overloadable)) fpcrtl_lo(uint64_t i) {
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   270
    return (i & 0xFFFFFFFF);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   271
}
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
   272