RPA Toolkit
using standard C types.
authorMartin Stoilov <martin@rpasearch.com>
Wed, 13 Jul 2011 05:31:46 +0000 (22:31 -0700)
committerMartin Stoilov <martin@rpasearch.com>
Wed, 13 Jul 2011 06:33:43 +0000 (23:33 -0700)
165 files changed:
arch/darwin/i386/rtypes.h
arch/linux/i386/rtypes.h
arch/linux/x86_64/rtypes.h
arch/windows/i386/rtypes.h
phpext/prpa/prpa.c
rgrep/rpagrep.c
rgrep/rpagrep.h
rgrep/unix/main.c
rgrep/win32/main.c
rjs/linux/rjsrules.c
rjs/rjs.c
rjs/rjs.h
rjs/rjscompiler.c
rjs/rjscompiler.h
rjs/rjserror.h
rjs/rjsexec.c
rjs/rjsparser.c
rjs/rjsparser.h
rjs/rjsrules.h
rlib/rarray.c
rlib/rarray.h
rlib/rcarray.c
rlib/rcarray.h
rlib/rgc.h
rlib/rharray.c
rlib/rharray.h
rlib/rhash.c
rlib/rhash.h
rlib/rmap.c
rlib/rmap.h
rlib/rmem.c
rlib/rmem.h
rlib/rstring.c
rlib/rstring.h
rlib/rutf.c
rlib/rutf.h
rpa/doc/example/personname.c
rpa/rpacache.c
rpa/rpacache.h
rpa/rpacompiler.c
rpa/rpacompiler.h
rpa/rpadbex.c
rpa/rpadbex.h
rpa/rpaerror.h
rpa/rpaoptimization.c
rpa/rpaoptimization.h
rpa/rpaparser.c
rpa/rpaparser.h
rpa/rparecord.c
rpa/rparecord.h
rpa/rpastat.c
rpa/rpastat.h
rpa/rpastatpriv.h
rpa/rpavm.c
rpa/rpavm.h
rvm/rvmcodegen.c
rvm/rvmcodegen.h
rvm/rvmcodemap.c
rvm/rvmcodemap.h
rvm/rvmcpu.c
rvm/rvmcpu.h
rvm/rvmerror.h
rvm/rvmoperator.c
rvm/rvmoperator.h
rvm/rvmoperatoradd.c
rvm/rvmoperatoradd.h
rvm/rvmoperatorand.c
rvm/rvmoperatorand.h
rvm/rvmoperatorbin.c
rvm/rvmoperatorbin.h
rvm/rvmoperatorcast.c
rvm/rvmoperatorcast.h
rvm/rvmoperatorcat.h
rvm/rvmoperatorcmn.c
rvm/rvmoperatorcmn.h
rvm/rvmoperatorcmp.c
rvm/rvmoperatorcmp.h
rvm/rvmoperatordiv.c
rvm/rvmoperatordiv.h
rvm/rvmoperatoreq.c
rvm/rvmoperatoreq.h
rvm/rvmoperatorgreater.c
rvm/rvmoperatorgreater.h
rvm/rvmoperatorgreatereq.c
rvm/rvmoperatorgreatereq.h
rvm/rvmoperatorless.c
rvm/rvmoperatorless.h
rvm/rvmoperatorlesseq.c
rvm/rvmoperatorlesseq.h
rvm/rvmoperatorlogicand.c
rvm/rvmoperatorlogicand.h
rvm/rvmoperatorlogicnot.c
rvm/rvmoperatorlogicor.c
rvm/rvmoperatorlogicor.h
rvm/rvmoperatorlsl.c
rvm/rvmoperatorlsl.h
rvm/rvmoperatorlsr.c
rvm/rvmoperatorlsr.h
rvm/rvmoperatorlsru.c
rvm/rvmoperatorlsru.h
rvm/rvmoperatormod.c
rvm/rvmoperatormod.h
rvm/rvmoperatormul.c
rvm/rvmoperatormul.h
rvm/rvmoperatornot.c
rvm/rvmoperatornoteq.c
rvm/rvmoperatornoteq.h
rvm/rvmoperatoror.c
rvm/rvmoperatoror.h
rvm/rvmoperatorsub.c
rvm/rvmoperatorsub.h
rvm/rvmoperatorxor.c
rvm/rvmoperatorxor.h
rvm/rvmreg.c
rvm/rvmreg.h
rvm/rvmrelocmap.c
rvm/rvmrelocmap.h
rvm/rvmscope.c
rvm/rvmscope.h
tests/testmisc/asm-add.c
tests/testmisc/asm-adds.c
tests/testmisc/asm-b.c
tests/testmisc/asm-bitops.c
tests/testmisc/asm-bl.c
tests/testmisc/asm-callback.c
tests/testmisc/asm-cast.c
tests/testmisc/asm-clz.c
tests/testmisc/asm-cmp.c
tests/testmisc/asm-div.c
tests/testmisc/asm-eadd.c
tests/testmisc/asm-ecmp.c
tests/testmisc/asm-esub.c
tests/testmisc/asm-loadstore.c
tests/testmisc/asm-mul.c
tests/testmisc/asm-sbc.c
tests/testmisc/asm-shiftops.c
tests/testmisc/asm-stack.c
tests/testmisc/codegen-test.c
tests/testmisc/codemap-test.c
tests/testmisc/funcarg-test.c
tests/testmisc/loop-test.c
tests/testmisc/opmap-test.c
tests/testmisc/rcarray-test.c
tests/testmisc/rhash-test.c
tests/testmisc/rmap-test.c
tests/testmisc/rpagen-test.c
tests/testmisc/rvm-test.c
tests/testmisc/scope-test.c
tests/testmisc/speed-test.c
tests/testmisc/string-test.c
tests/testrpa/rpacompiler-altexp.c
tests/testrpa/rpacompiler-class.c
tests/testrpa/rpacompiler-exp.c
tests/testrpa/rpacompiler-minusexp.c
tests/testrpa/rpacompiler-notexp.c
tests/testrpa/rpacompiler-rule.c
tests/testrpa/rpacompiler-rulealtrec.c
tests/testrpa/rpacompiler-ruleloop.c
tests/testrpa/rpacompiler-ruleloopcls.c
tests/testrpa/rpacompiler-rulerec.c
tests/testrpa/rpaparser-test.c
tests/testrpa/rpavm-matchchr.c
tests/testrpa/rpavm-matchrng.c
tests/testrpa/rpavm-mnode.c
tests/testrpa/rpavm-ref.c

index c869477..0b81b5d 100644 (file)
@@ -23,18 +23,7 @@ typedef long rsword;
 /*
  * Common types. These types should be the same for most of the architectures.
  */
-typedef long rlong;
-typedef int rinteger;
-typedef short rshort;
-typedef char rchar;
-typedef unsigned long rulong;
-typedef unsigned int ruinteger;
-typedef unsigned short rushort;
-typedef unsigned char ruchar;
-typedef ruchar rbyte;
-typedef double rdouble;
-typedef float rfloat;
-typedef rinteger rboolean;
+typedef int rboolean;
 typedef void *rpointer;
 typedef const void *rconstpointer;
 typedef struct {ruint32 p1; ruint32 p2;} rpair_t;
index c869477..0b81b5d 100644 (file)
@@ -23,18 +23,7 @@ typedef long rsword;
 /*
  * Common types. These types should be the same for most of the architectures.
  */
-typedef long rlong;
-typedef int rinteger;
-typedef short rshort;
-typedef char rchar;
-typedef unsigned long rulong;
-typedef unsigned int ruinteger;
-typedef unsigned short rushort;
-typedef unsigned char ruchar;
-typedef ruchar rbyte;
-typedef double rdouble;
-typedef float rfloat;
-typedef rinteger rboolean;
+typedef int rboolean;
 typedef void *rpointer;
 typedef const void *rconstpointer;
 typedef struct {ruint32 p1; ruint32 p2;} rpair_t;
index 78c28aa..873b676 100644 (file)
@@ -23,18 +23,7 @@ typedef unsigned int ratomic_t;
 /*
  * Common types. These types should be the same for most of the architectures.
  */
-typedef long rlong;
-typedef int rinteger;
-typedef short rshort;
-typedef char rchar;
-typedef unsigned long rulong;
-typedef unsigned int ruinteger;
-typedef unsigned short rushort;
-typedef unsigned char ruchar;
-typedef ruchar rbyte;
-typedef double rdouble;
-typedef float rfloat;
-typedef rinteger rboolean;
+typedef int rboolean;
 typedef void *rpointer;
 typedef const void *rconstpointer;
 typedef struct {ruint32 p1; ruint32 p2;} rpair_t;
index af4ec39..9cc7987 100644 (file)
@@ -24,18 +24,7 @@ typedef long rsword;
 /*
  * Common types. These types should be the same for most of the architectures.
  */
-typedef long rlong;
-typedef int rinteger;
-typedef short rshort;
-typedef char rchar;
-typedef unsigned long rulong;
-typedef unsigned int ruinteger;
-typedef unsigned short rushort;
-typedef unsigned char ruchar;
-typedef ruchar rbyte;
-typedef double rdouble;
-typedef float rfloat;
-typedef rinteger rboolean;
+typedef int rboolean;
 typedef void *rpointer;
 typedef const void *rconstpointer;
 typedef struct {ruint32 p1; ruint32 p2;} rpair_t;
index 3a81070..3ebf6c4 100644 (file)
@@ -427,7 +427,7 @@ PHP_FUNCTION(rpa_dbex_cfgset)
 }
 
 
-static rchar *dbexmsg[] = {
+static char *dbexmsg[] = {
        "OK",
        "Out of memory",
        "Invalid input.",
@@ -449,7 +449,7 @@ static rchar *dbexmsg[] = {
 };
 
 
-static rchar *statmsg[] = {
+static char *statmsg[] = {
        "OK",
        "Execution error.",
        "Execution aborted by user.",
@@ -542,9 +542,9 @@ PHP_FUNCTION(rpa_stat_error)
 }
 
 
-static void rpa_records2array(const rchar *input, rarray_t *records, zval *zrecords)
+static void rpa_records2array(const char *input, rarray_t *records, zval *zrecords)
 {
-       rlong i;
+       long i;
 
        rparecord_t *record;
        array_init(zrecords);
@@ -742,7 +742,7 @@ PHP_FUNCTION(rpascan)
        char *bnf;
        int bnf_len;
        char *input;
-       const rchar *where = NULL;
+       const char *where = NULL;
        int input_len;
        zval *zerror = NULL;
        zval *zwhere = NULL;
index 1b7e504..51582b4 100644 (file)
@@ -106,7 +106,7 @@ void rpa_grep_close(rpa_grep_t *pGrep)
 }
 
 
-void rpa_grep_optimizations(rpa_grep_t *pGrep, rulong allow)
+void rpa_grep_optimizations(rpa_grep_t *pGrep, unsigned long allow)
 {
        rpa_dbex_cfgset(pGrep->hDbex, RPA_DBEXCFG_OPTIMIZATIONS, allow);
 }
@@ -227,9 +227,9 @@ int rpa_grep_match(rpa_grep_t *pGrep, const char* buffer, unsigned long size)
 
 int rpa_grep_parse(rpa_grep_t *pGrep, const char* buffer, unsigned long size)
 {
-       rlong ret;
-       rlong i;
-       rchar location[128];
+       long ret;
+       long i;
+       char location[128];
        rpastat_t *hStat;
        rarray_t *records = rpa_records_create();
        rparecord_t *prec;
@@ -268,7 +268,7 @@ int rpa_grep_parse(rpa_grep_t *pGrep, const char* buffer, unsigned long size)
                                prec = (rparecord_t *)rpa_records_slot(records, i);
                                if (prec->type & RPA_RECORD_END) {
                                        rpa_grep_output_utf8_string(pGrep, prec->rule);
-                                       r_snprintf(location, sizeof(location), " (%ld, %ld)", (rlong)(prec->input - input), (rlong)prec->inputsiz);
+                                       r_snprintf(location, sizeof(location), " (%ld, %ld)", (long)(prec->input - input), (long)prec->inputsiz);
                                        rpa_grep_output_utf8_string(pGrep, location);
                                        rpa_grep_output_utf8_string(pGrep, ": ");
                                        rpa_grep_output(pGrep, prec->input, prec->inputsiz, pGrep->encoding);
index ea05283..ba2190c 100644 (file)
@@ -86,7 +86,7 @@ void rpa_grep_dump_pattern_records(rpa_grep_t *pGrep);
 void rpa_grep_dump_pattern_info(rpa_grep_t *pGrep);
 void rpa_grep_dump_alias_info(rpa_grep_t *pGrep);
 void rpa_grep_debug_compile(rpa_grep_t *pGrep);
-void rpa_grep_optimizations(rpa_grep_t *pGrep, rulong allow);
+void rpa_grep_optimizations(rpa_grep_t *pGrep, unsigned long allow);
 
 void rpa_buffer_destroy(rpa_buffer_t *str);
 rpa_buffer_t * rpa_buffer_alloc(unsigned int size);
index d90b5c8..218592b 100644 (file)
@@ -291,7 +291,7 @@ end:
                minutes = milsec/60000;
                sec = (milsec%60000)/1000.0;
                fprintf(stdout, "\ntime: %0ldm%1.3fs, %ld KB (%ld KB/sec), stack: %ld KB, memory: %ld KB (leaked %ld Bytes), cachehit: %ld \n",
-                               minutes, sec, sckb, 1000*sckb/milsec, pGrep->usedstack / 1000, (rlong)r_debug_get_maxmem()/1000, (rlong)r_debug_get_allocmem(),
+                               minutes, sec, sckb, 1000*sckb/milsec, pGrep->usedstack / 1000, (long)r_debug_get_maxmem()/1000, (long)r_debug_get_allocmem(),
                                pGrep->cachehit);
        }
 
index 65eb738..65c8a50 100644 (file)
@@ -307,7 +307,7 @@ end:
                minutes = milsec/60000;
                sec = (milsec%60000)/1000.0;
                fwprintf(stdout, L"\ntime: %0ldm%1.3fs, %ld KB (%ld KB/sec), stack: %ld KB, memory: %ld KB (leaked %ld Bytes), cachehit: %ld \n", 
-                               minutes, sec, sckb, 1000*sckb/milsec, pGrep->usedstack / 1000, (rlong)r_debug_get_maxmem()/1000, (rlong)r_debug_get_allocmem(),
+                               minutes, sec, sckb, 1000*sckb/milsec, pGrep->usedstack / 1000, (long)r_debug_get_maxmem()/1000, (long)r_debug_get_allocmem(),
                                pGrep->cachehit);
        }
 
index 49daed3..27f171e 100644 (file)
@@ -6,9 +6,9 @@ extern char _binary_____________rjs_ecma262_rpa_end[];
 extern unsigned long *_binary_____________rjs_ecma262_rpa_size;
 
 
-const rchar *rjs_rules_get()
+const char *rjs_rules_get()
 {
-       const rchar *rules = _binary_____________rjs_ecma262_rpa_start;
+       const char *rules = _binary_____________rjs_ecma262_rpa_start;
        return rules;
 }
 
index 5f68b8f..25101ed 100644 (file)
--- a/rjs/rjs.c
+++ b/rjs/rjs.c
@@ -38,7 +38,7 @@ static rvm_switable_t rjsswitable[] = {
 };
 
 
-const rchar *rjs_version()
+const char *rjs_version()
 {
        return RJS_VERSION_STRING;
 }
@@ -71,7 +71,7 @@ error:
 
 void rjs_engine_destroy(rjs_engine_t *jse)
 {
-       rlong i;
+       long i;
        if (jse) {
                if (jse->cgs) {
                        for (i = 0; i < r_array_length(jse->cgs); i++) {
@@ -88,28 +88,28 @@ void rjs_engine_destroy(rjs_engine_t *jse)
 }
 
 
-rinteger rjs_engine_open(rjs_engine_t *jse)
+int rjs_engine_open(rjs_engine_t *jse)
 {
        return 0;
 }
 
 
-rinteger rjs_engine_addswitable(rjs_engine_t *jse, const rchar *tabname, rvm_switable_t *switalbe)
+int rjs_engine_addswitable(rjs_engine_t *jse, const char *tabname, rvm_switable_t *switalbe)
 {
        return rvm_cpu_addswitable(jse->cpu, tabname, switalbe);
 }
 
 
-static rinteger rjs_engine_parse(rjs_engine_t *jse, const rchar *script, rsize_t size, rarray_t *records, rjs_error_t *error)
+static int rjs_engine_parse(rjs_engine_t *jse, const char *script, rsize_t size, rarray_t *records, rjs_error_t *error)
 {
-       rlong res = 0;
+       long res = 0;
 
        res = rjs_parser_exec(jse->pa, script, size, records, error);
        return res;
 }
 
 
-rinteger rjs_engine_compile(rjs_engine_t *jse, const rchar *script, rsize_t size)
+int rjs_engine_compile(rjs_engine_t *jse, const char *script, rsize_t size)
 {
        rvm_codegen_t *topcg = NULL;
        rarray_t *records = rpa_records_create();
@@ -145,7 +145,7 @@ err:
 }
 
 
-rinteger rjs_engine_dumpast(rjs_engine_t *jse, const rchar *script, rsize_t size)
+int rjs_engine_dumpast(rjs_engine_t *jse, const char *script, rsize_t size)
 {
        rjs_error_t error;
        rarray_t *records = rpa_records_create();
@@ -157,7 +157,7 @@ rinteger rjs_engine_dumpast(rjs_engine_t *jse, const rchar *script, rsize_t size
        }
 
        if (records) {
-               rlong i;
+               long i;
                for (i = 0; i < rpa_records_length(records); i++)
                        rpa_record_dump(records, i);
        }
@@ -167,22 +167,22 @@ rinteger rjs_engine_dumpast(rjs_engine_t *jse, const rchar *script, rsize_t size
 }
 
 
-rinteger rjs_engine_compile_s(rjs_engine_t *jse, const rchar *script)
+int rjs_engine_compile_s(rjs_engine_t *jse, const char *script)
 {
        return rjs_engine_compile(jse, script, r_strlen(script));
 }
 
 
-rinteger rjs_engine_close(rjs_engine_t *jse)
+int rjs_engine_close(rjs_engine_t *jse)
 {
 
        return 0;
 }
 
 
-rinteger rjs_engine_run(rjs_engine_t *jse)
+int rjs_engine_run(rjs_engine_t *jse)
 {
-       rinteger res = 0;
+       int res = 0;
        rvm_codegen_t *cg = r_array_empty(jse->cgs) ? NULL : r_array_last(jse->cgs, rvm_codegen_t*);
 
        if (!cg) {
@@ -196,7 +196,7 @@ rinteger rjs_engine_run(rjs_engine_t *jse)
        }
 
        if (jse->cpu->error == RVM_E_USERABORT) {
-               rlong idx = RVM_CPUREG_GETIP(jse->cpu, PC) - rvm_codegen_getcode(cg, 0);
+               long idx = RVM_CPUREG_GETIP(jse->cpu, PC) - rvm_codegen_getcode(cg, 0);
                if (idx >= 0) {
                        r_printf("Aborted at source index: %ld\n", rvm_codegen_getsource(cg, idx));
                }
@@ -206,7 +206,7 @@ rinteger rjs_engine_run(rjs_engine_t *jse)
 }
 
 
-rvmreg_t * rjs_engine_exec(rjs_engine_t *jse, const rchar *script, rsize_t size)
+rvmreg_t * rjs_engine_exec(rjs_engine_t *jse, const char *script, rsize_t size)
 {
        if (rjs_engine_compile(jse, script, size) < 0)
                return NULL;
@@ -218,13 +218,13 @@ rvmreg_t * rjs_engine_exec(rjs_engine_t *jse, const rchar *script, rsize_t size)
 }
 
 
-rvmreg_t *rjs_engine_exec_s(rjs_engine_t *jse, const rchar *script)
+rvmreg_t *rjs_engine_exec_s(rjs_engine_t *jse, const char *script)
 {
        return rjs_engine_exec(jse, script, r_strlen(script));
 }
 
 
-static rinteger rjs_compiler_argarray_setup(rjs_compiler_t *co)
+static int rjs_compiler_argarray_setup(rjs_compiler_t *co)
 {
        rvm_varmap_t *v;
        rvmreg_t count = rvm_reg_create_long(0);
@@ -242,12 +242,12 @@ static rinteger rjs_compiler_argarray_setup(rjs_compiler_t *co)
 }
 
 
-static rinteger rjs_compiler_addarg(rjs_compiler_t *co, rvmreg_t *arg)
+static int rjs_compiler_addarg(rjs_compiler_t *co, rvmreg_t *arg)
 {
        rvm_varmap_t *v;
        rmap_t *a;
        rvmreg_t *count;
-       rlong index;
+       long index;
 
        v = rvm_scope_tiplookup_s(co->scope, "ARGS");
        if (!v) {
@@ -264,7 +264,7 @@ static rinteger rjs_compiler_addarg(rjs_compiler_t *co, rvmreg_t *arg)
 }
 
 
-rvmreg_t *rjs_engine_vexec(rjs_engine_t *jse, const rchar *script, rsize_t size, rsize_t nargs, va_list args)
+rvmreg_t *rjs_engine_vexec(rjs_engine_t *jse, const char *script, rsize_t size, rsize_t nargs, va_list args)
 {
        rvmreg_t arg;
        rsize_t i = 0;
@@ -286,7 +286,7 @@ rvmreg_t *rjs_engine_vexec(rjs_engine_t *jse, const rchar *script, rsize_t size,
 }
 
 
-rvmreg_t *rjs_engine_args_exec(rjs_engine_t *jse, const rchar *script, rsize_t size, rsize_t nargs, ...)
+rvmreg_t *rjs_engine_args_exec(rjs_engine_t *jse, const char *script, rsize_t size, rsize_t nargs, ...)
 {
        rvmreg_t *ret;
        va_list args;
@@ -297,7 +297,7 @@ rvmreg_t *rjs_engine_args_exec(rjs_engine_t *jse, const rchar *script, rsize_t s
 }
 
 
-rvmreg_t *rjs_engine_args_exec_s(rjs_engine_t *jse, const rchar *script, rsize_t nargs, ...)
+rvmreg_t *rjs_engine_args_exec_s(rjs_engine_t *jse, const char *script, rsize_t nargs, ...)
 {
        rvmreg_t *ret;
        va_list args;
index 35bf8fc..c29e8db 100644 (file)
--- a/rjs/rjs.h
+++ b/rjs/rjs.h
@@ -40,8 +40,8 @@ typedef struct rjs_engine_s {
        rarray_t *cgs;
        rarray_t *errors;
        rvmcpu_t *cpu;
-       rlong debugcompile:1;
-       rlong debugexec:1;
+       long debugcompile:1;
+       long debugexec:1;
 } rjs_engine_t;
 
 
@@ -54,22 +54,22 @@ typedef struct rjs_engine_s {
 #define RJS_SWI_ABORT(__j__, __e__) do { rjs_engine_abort((__j__), (__e__)); return; } while (0)
 
 
-const rchar *rjs_version();
+const char *rjs_version();
 
 rjs_engine_t *rjs_engine_create();
 void rjs_engine_destroy(rjs_engine_t *jse);
-rinteger rjs_engine_open(rjs_engine_t *jse);
-rinteger rjs_engine_compile(rjs_engine_t *jse, const rchar *script, rsize_t size);
-rinteger rjs_engine_compile_s(rjs_engine_t *jse, const rchar *script);
-rinteger rjs_engine_close(rjs_engine_t *jse);
-rinteger rjs_engine_run(rjs_engine_t *jse);
-rinteger rjs_engine_addswitable(rjs_engine_t *jse, const rchar *tabname, rvm_switable_t *switalbe);
-rinteger rjs_engine_dumpast(rjs_engine_t *jse, const rchar *script, rsize_t size);
-rvmreg_t *rjs_engine_exec(rjs_engine_t *jse, const rchar *script, rsize_t size);
-rvmreg_t *rjs_engine_vexec(rjs_engine_t *jse, const rchar *script, rsize_t size, rsize_t nargs, va_list args);
-rvmreg_t *rjs_engine_args_exec(rjs_engine_t *jse, const rchar *script, rsize_t size, rsize_t nargs, ...);
-rvmreg_t *rjs_engine_args_exec_s(rjs_engine_t *jse, const rchar *script, rsize_t nargs, ...);
-rvmreg_t *rjs_engine_exec_s(rjs_engine_t *jse, const rchar *script);
+int rjs_engine_open(rjs_engine_t *jse);
+int rjs_engine_compile(rjs_engine_t *jse, const char *script, rsize_t size);
+int rjs_engine_compile_s(rjs_engine_t *jse, const char *script);
+int rjs_engine_close(rjs_engine_t *jse);
+int rjs_engine_run(rjs_engine_t *jse);
+int rjs_engine_addswitable(rjs_engine_t *jse, const char *tabname, rvm_switable_t *switalbe);
+int rjs_engine_dumpast(rjs_engine_t *jse, const char *script, rsize_t size);
+rvmreg_t *rjs_engine_exec(rjs_engine_t *jse, const char *script, rsize_t size);
+rvmreg_t *rjs_engine_vexec(rjs_engine_t *jse, const char *script, rsize_t size, rsize_t nargs, va_list args);
+rvmreg_t *rjs_engine_args_exec(rjs_engine_t *jse, const char *script, rsize_t size, rsize_t nargs, ...);
+rvmreg_t *rjs_engine_args_exec_s(rjs_engine_t *jse, const char *script, rsize_t nargs, ...);
+rvmreg_t *rjs_engine_exec_s(rjs_engine_t *jse, const char *script);
 void rjs_engine_abort(rjs_engine_t *jse, rjs_error_t *error);
 rjs_engine_t *rjs_engine_get(rvmcpu_t *cpu);
 
index 7fff1b8..272d32e 100644 (file)
 #include "rjs/rjsparser.h"
 
 
-rinteger rjs_compiler_playreversechildrecords(rjs_compiler_t *co, rarray_t *records, rlong rec);
-static rinteger rjs_compiler_playrecord(rjs_compiler_t *co, rarray_t *records, rlong rec);
-static rinteger rjs_compiler_playchildrecords(rjs_compiler_t *co, rarray_t *records, rlong rec);
+int rjs_compiler_playreversechildrecords(rjs_compiler_t *co, rarray_t *records, long rec);
+static int rjs_compiler_playrecord(rjs_compiler_t *co, rarray_t *records, long rec);
+static int rjs_compiler_playchildrecords(rjs_compiler_t *co, rarray_t *records, long rec);
 
 
-void rjs_compiler_debughead(rjs_compiler_t *co, rarray_t *records, rlong rec)
+void rjs_compiler_debughead(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rvm_codegen_setsource(co->cg, rec);
        if (co->debug) {
@@ -42,7 +42,7 @@ void rjs_compiler_debughead(rjs_compiler_t *co, rarray_t *records, rlong rec)
 }
 
 
-void rjs_compiler_debugtail(rjs_compiler_t *co, rarray_t *records, rlong rec)
+void rjs_compiler_debugtail(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rvm_codegen_setsource(co->cg, rec);
        if (co->debug) {
@@ -56,7 +56,7 @@ void rjs_compiler_debugtail(rjs_compiler_t *co, rarray_t *records, rlong rec)
 }
 
 
-void rjs_compiler_adderror(rjs_compiler_t *co, rlong code, rparecord_t *prec)
+void rjs_compiler_adderror(rjs_compiler_t *co, long code, rparecord_t *prec)
 {
        co->error->type = RJS_ERRORTYPE_SYNTAX;
        co->error->error = code;
@@ -69,7 +69,7 @@ void rjs_compiler_adderror(rjs_compiler_t *co, rlong code, rparecord_t *prec)
 }
 
 
-static const rchar *rjs_compiler_record2str(rjs_compiler_t *co, rarray_t *records, rlong rec)
+static const char *rjs_compiler_record2str(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec = (rparecord_t *)r_array_slot(records, rpa_recordtree_get(records, rec, RPA_RECORD_END));
        rsize_t size = 16; /* Min size */
@@ -85,9 +85,9 @@ static const rchar *rjs_compiler_record2str(rjs_compiler_t *co, rarray_t *record
 }
 
 
-static rlong rjs_compiler_record_parentuid(rjs_compiler_t *co, rarray_t *records, rlong rec)
+static long rjs_compiler_record_parentuid(rjs_compiler_t *co, rarray_t *records, long rec)
 {
-       rlong parent = rpa_recordtree_parent(records, rec, RPA_RECORD_START);
+       long parent = rpa_recordtree_parent(records, rec, RPA_RECORD_START);
 
        if (parent < 0)
                return -1;
@@ -95,10 +95,10 @@ static rlong rjs_compiler_record_parentuid(rjs_compiler_t *co, rarray_t *records
 }
 
 
-static rlong rjs_compiler_record_lastofkind(rjs_compiler_t *co, rarray_t *records, rlong rec)
+static long rjs_compiler_record_lastofkind(rjs_compiler_t *co, rarray_t *records, long rec)
 {
-       rlong uid = rpa_record_getruleuid(records, rec);
-       rlong i;
+       long uid = rpa_record_getruleuid(records, rec);
+       long i;
 
        for (i = rpa_recordtree_next(records, rec, RPA_RECORD_START) ; i >= 0; i = rpa_recordtree_next(records, i, RPA_RECORD_START)) {
                if (rpa_record_getruleuid(records, i) == uid)
@@ -108,7 +108,7 @@ static rlong rjs_compiler_record_lastofkind(rjs_compiler_t *co, rarray_t *record
 }
 
 
-static rlong rjs_compiler_record2identifer(rjs_compiler_t *co, rarray_t *records, rlong rec)
+static long rjs_compiler_record2identifer(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rvm_varmap_t *v = NULL;
        rjs_coctx_t *ctx = NULL;
@@ -158,9 +158,9 @@ static rlong rjs_compiler_record2identifer(rjs_compiler_t *co, rarray_t *records
 }
 
 
-rjs_coctx_t *rjs_compiler_getctx(rjs_compiler_t *co, rulong type)
+rjs_coctx_t *rjs_compiler_getctx(rjs_compiler_t *co, unsigned long type)
 {
-       rlong i;
+       long i;
        rjs_coctx_t *ctx;
 
        for (i = r_array_length(co->coctx) - 1; i >= 0; i--) {
@@ -174,7 +174,7 @@ rjs_coctx_t *rjs_compiler_getctx(rjs_compiler_t *co, rulong type)
 
 rjs_coctx_t *rjs_compiler_gettopctx(rjs_compiler_t *co)
 {
-       rlong len = r_array_length(co->coctx);
+       long len = r_array_length(co->coctx);
 
        if (len)
                return r_array_index(co->coctx, len - 1, rjs_coctx_t*);
@@ -182,9 +182,9 @@ rjs_coctx_t *rjs_compiler_gettopctx(rjs_compiler_t *co)
 }
 
 
-rlong rjs_compiler_record2opcode(rparecord_t *prec)
+long rjs_compiler_record2opcode(rparecord_t *prec)
 {
-       const rchar *input = prec->input;
+       const char *input = prec->input;
        rsize_t size = prec->inputsiz;
 
        if (r_stringncmp("++", input,  size))
@@ -266,9 +266,9 @@ rlong rjs_compiler_record2opcode(rparecord_t *prec)
 }
 
 
-rlong rjs_compiler_record2unaryopcode(rparecord_t *prec)
+long rjs_compiler_record2unaryopcode(rparecord_t *prec)
 {
-       const rchar *input = prec->input;
+       const char *input = prec->input;
        rsize_t size = prec->inputsiz;
 
        if (r_stringncmp("+", input,  size))
@@ -284,7 +284,7 @@ rlong rjs_compiler_record2unaryopcode(rparecord_t *prec)
 }
 
 
-static rinteger rjs_compiler_internalvars_setup(rjs_compiler_t *co)
+static int rjs_compiler_internalvars_setup(rjs_compiler_t *co)
 {
        rvm_varmap_t *v;
 
@@ -301,13 +301,13 @@ static rinteger rjs_compiler_internalvars_setup(rjs_compiler_t *co)
 }
 
 
-rinteger rjs_compiler_rh_program(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_program(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rjs_coctx_global_t ctx;
        rparecord_t *prec;
-       rlong mainidx = rvm_codegen_invalid_addlabel_s(co->cg, NULL);
-       rlong allocsidx = rvm_codegen_invalid_addlabel_s(co->cg, NULL);
-       rlong start;
+       long mainidx = rvm_codegen_invalid_addlabel_s(co->cg, NULL);
+       long allocsidx = rvm_codegen_invalid_addlabel_s(co->cg, NULL);
+       long start;
 
        r_memset(&ctx, 0, sizeof(ctx));
        ctx.base.type = RJS_COCTX_GLOBAL;
@@ -342,7 +342,7 @@ error:
 }
 
 
-rinteger rjs_compiler_rh_varalloc(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_varalloc(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec;
        prec = (rparecord_t *)r_array_slot(records, rec);
@@ -362,7 +362,7 @@ rinteger rjs_compiler_rh_varalloc(rjs_compiler_t *co, rarray_t *records, rlong r
 }
 
 
-rinteger rjs_compiler_rh_varallocinit(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_varallocinit(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec;
        prec = (rparecord_t *)r_array_slot(records, rec);
@@ -383,7 +383,7 @@ rinteger rjs_compiler_rh_varallocinit(rjs_compiler_t *co, rarray_t *records, rlo
 }
 
 
-rinteger rjs_compiler_rh_initializer(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_initializer(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec;
        prec = (rparecord_t *)r_array_slot(records, rec);
@@ -403,11 +403,11 @@ rinteger rjs_compiler_rh_initializer(rjs_compiler_t *co, rarray_t *records, rlon
 }
 
 
-rinteger rjs_compiler_rh_identifier(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_identifier(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rvm_varmap_t *v;
        rparecord_t *prec;
-       rlong swiid = -1;
+       long swiid = -1;
        prec = (rparecord_t *)r_array_slot(records, rec);
        rjs_compiler_debughead(co, records, rec);
        rjs_compiler_debugtail(co, records, rec);
@@ -455,7 +455,7 @@ end:
 }
 
 
-rinteger rjs_compiler_rh_expression(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_expression(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec;
        prec = (rparecord_t *)r_array_slot(records, rec);
@@ -473,7 +473,7 @@ rinteger rjs_compiler_rh_expression(rjs_compiler_t *co, rarray_t *records, rlong
 }
 
 
-rinteger rjs_compiler_rh_lefthandsideexpression(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_lefthandsideexpression(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec;
        prec = (rparecord_t *)r_array_slot(records, rec);
@@ -491,7 +491,7 @@ rinteger rjs_compiler_rh_lefthandsideexpression(rjs_compiler_t *co, rarray_t *re
 }
 
 
-rinteger rjs_compiler_rh_lefthandsideexpressionaddr(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_lefthandsideexpressionaddr(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec;
        prec = (rparecord_t *)r_array_slot(records, rec);
@@ -510,7 +510,7 @@ rinteger rjs_compiler_rh_lefthandsideexpressionaddr(rjs_compiler_t *co, rarray_t
 }
 
 
-rinteger rjs_compiler_rh_decimalintegerliteral(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_decimalintegerliteral(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec;
        prec = (rparecord_t *)r_array_slot(records, rec);
@@ -529,7 +529,7 @@ rinteger rjs_compiler_rh_decimalintegerliteral(rjs_compiler_t *co, rarray_t *rec
 }
 
 
-rinteger rjs_compiler_rh_decimalnonintegerliteral(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_decimalnonintegerliteral(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec;
        prec = (rparecord_t *)r_array_slot(records, rec);
@@ -549,7 +549,7 @@ rinteger rjs_compiler_rh_decimalnonintegerliteral(rjs_compiler_t *co, rarray_t *
 }
 
 
-rinteger rjs_compiler_rh_stringcharacters(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_stringcharacters(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec;
        prec = (rparecord_t *)r_array_slot(records, rec);
@@ -563,14 +563,14 @@ rinteger rjs_compiler_rh_stringcharacters(rjs_compiler_t *co, rarray_t *records,
        rec = rpa_recordtree_get(records, rec, RPA_RECORD_END);
        prec = (rparecord_t *)r_array_slot(records, rec);
        rjs_compiler_debughead(co, records, rec);
-       co->stringcharacters.str = (rchar*)prec->input;
+       co->stringcharacters.str = (char*)prec->input;
        co->stringcharacters.size = prec->inputsiz;
        rjs_compiler_debugtail(co, records, rec);
        return 0;
 }
 
 
-rinteger rjs_compiler_rh_stringliteral(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_stringliteral(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec;
        prec = (rparecord_t *)r_array_slot(records, rec);
@@ -594,7 +594,7 @@ rinteger rjs_compiler_rh_stringliteral(rjs_compiler_t *co, rarray_t *records, rl
 }
 
 
-rinteger rjs_compiler_rh_binaryexpressionop(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_binaryexpressionop(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec;
        rjs_coctx_operation_t ctx;
@@ -624,7 +624,7 @@ error:
 }
 
 
-rinteger rjs_compiler_rh_unaryexpressionop(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_unaryexpressionop(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec;
        rjs_coctx_operation_t ctx;
@@ -652,7 +652,7 @@ error:
 }
 
 
-rinteger rjs_compiler_rh_assignmentexpressionop(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_assignmentexpressionop(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec;
        rjs_coctx_operation_t ctx;
@@ -684,7 +684,7 @@ error:
 }
 
 
-rinteger rjs_compiler_rh_newarrayexpression(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_newarrayexpression(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec;
        prec = (rparecord_t *)r_array_slot(records, rec);
@@ -701,7 +701,7 @@ rinteger rjs_compiler_rh_newarrayexpression(rjs_compiler_t *co, rarray_t *record
 }
 
 
-rinteger rjs_compiler_rh_memberexpressiondotop(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_memberexpressiondotop(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rjs_coctx_t *ctx = rjs_compiler_gettopctx(co);
        rparecord_t *prec;
@@ -730,7 +730,7 @@ rinteger rjs_compiler_rh_memberexpressiondotop(rjs_compiler_t *co, rarray_t *rec
 }
 
 
-rinteger rjs_compiler_rh_memberexpressionindexop(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_memberexpressionindexop(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rjs_coctx_t *ctx = rjs_compiler_gettopctx(co);
        rparecord_t *prec;
@@ -761,11 +761,11 @@ rinteger rjs_compiler_rh_memberexpressionindexop(rjs_compiler_t *co, rarray_t *r
 }
 
 
-rinteger rjs_compiler_rh_functiondeclaration(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_functiondeclaration(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rjs_coctx_function_t ctx;
        rparecord_t *prec;
-       rlong start, execidx, endidx, allocsidx;
+       long start, execidx, endidx, allocsidx;
 
        r_memset(&ctx, 0, sizeof(ctx));
        ctx.base.type = RJS_COCTX_FUNCTION;
@@ -818,7 +818,7 @@ error:
 }
 
 
-rinteger rjs_compiler_rh_functionparameter(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_functionparameter(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rjs_coctx_t *ctx = NULL;
        rjs_coctx_function_t *functx = NULL;
@@ -864,7 +864,7 @@ rinteger rjs_compiler_rh_functionparameter(rjs_compiler_t *co, rarray_t *records
 }
 
 
-rinteger rjs_compiler_rh_functioncall(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_functioncall(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec;
        rjs_coctx_functioncall_t ctx;
@@ -906,7 +906,7 @@ error:
 }
 
 
-rinteger rjs_compiler_rh_argument(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_argument(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec;
        rjs_coctx_functioncall_t *ctx = (rjs_coctx_functioncall_t *)rjs_compiler_getctx(co, RJS_COCTX_FUNCTIONCALL);
@@ -933,7 +933,7 @@ rinteger rjs_compiler_rh_argument(rjs_compiler_t *co, rarray_t *records, rlong r
 }
 
 
-rinteger rjs_compiler_rh_arguments(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_arguments(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec;
        rjs_coctx_functioncall_t *ctx = (rjs_coctx_functioncall_t *)rjs_compiler_getctx(co, RJS_COCTX_FUNCTIONCALL);
@@ -958,7 +958,7 @@ rinteger rjs_compiler_rh_arguments(rjs_compiler_t *co, rarray_t *records, rlong
 }
 
 
-rinteger rjs_compiler_rh_returnstatement(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_returnstatement(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec;
        prec = (rparecord_t *)r_array_slot(records, rec);
@@ -977,7 +977,7 @@ rinteger rjs_compiler_rh_returnstatement(rjs_compiler_t *co, rarray_t *records,
 }
 
 
-rinteger rjs_compiler_rh_ifstatement(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_ifstatement(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec;
        rjs_coctx_ifstatement_t ctx;
@@ -1010,7 +1010,7 @@ error:
 }
 
 
-rinteger rjs_compiler_rh_ifconditionop(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_ifconditionop(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec;
        rjs_coctx_ifstatement_t *ctx = (rjs_coctx_ifstatement_t *)rjs_compiler_getctx(co, RJS_COCTX_IFSTATEMENT);
@@ -1034,7 +1034,7 @@ rinteger rjs_compiler_rh_ifconditionop(rjs_compiler_t *co, rarray_t *records, rl
 }
 
 
-rinteger rjs_compiler_rh_iftruestatement(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_iftruestatement(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec;
        rjs_coctx_ifstatement_t *ctx = (rjs_coctx_ifstatement_t *)rjs_compiler_getctx(co, RJS_COCTX_IFSTATEMENT);
@@ -1060,7 +1060,7 @@ rinteger rjs_compiler_rh_iftruestatement(rjs_compiler_t *co, rarray_t *records,
 }
 
 
-rinteger rjs_compiler_rh_iffalsestatement(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_iffalsestatement(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec;
        rjs_coctx_ifstatement_t *ctx = (rjs_coctx_ifstatement_t *)rjs_compiler_getctx(co, RJS_COCTX_IFSTATEMENT);
@@ -1086,9 +1086,9 @@ rinteger rjs_compiler_rh_iffalsestatement(rjs_compiler_t *co, rarray_t *records,
 }
 
 
-rinteger rjs_compiler_rh_iterationfor(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_iterationfor(rjs_compiler_t *co, rarray_t *records, long rec)
 {
-       rlong childrec;
+       long childrec;
        rparecord_t *prec;
        rjs_coctx_iteration_t ctx;
 
@@ -1149,7 +1149,7 @@ error:
 }
 
 
-rinteger rjs_compiler_rh_iterationwhile(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_iterationwhile(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec;
        rjs_coctx_iteration_t ctx;
@@ -1186,7 +1186,7 @@ error:
 }
 
 
-rinteger rjs_compiler_rh_iterationdo(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_iterationdo(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec;
        rjs_coctx_iteration_t ctx;
@@ -1222,7 +1222,7 @@ error:
 }
 
 
-rinteger rjs_compiler_rh_dowhileexpressioncompare(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_dowhileexpressioncompare(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec;
        rjs_coctx_iteration_t *ctx = (rjs_coctx_iteration_t *)rjs_compiler_getctx(co, RJS_COCTX_ITERATION);
@@ -1249,7 +1249,7 @@ rinteger rjs_compiler_rh_dowhileexpressioncompare(rjs_compiler_t *co, rarray_t *
 }
 
 
-rinteger rjs_compiler_rh_forexpressioncompare(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_forexpressioncompare(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec;
        rjs_coctx_iteration_t *ctx = (rjs_coctx_iteration_t *)rjs_compiler_getctx(co, RJS_COCTX_ITERATION);
@@ -1275,7 +1275,7 @@ rinteger rjs_compiler_rh_forexpressioncompare(rjs_compiler_t *co, rarray_t *reco
 }
 
 
-rinteger rjs_compiler_rh_forexpressionincrement(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_forexpressionincrement(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec;
        rjs_coctx_iteration_t *ctx = (rjs_coctx_iteration_t *)rjs_compiler_getctx(co, RJS_COCTX_ITERATION);
@@ -1301,11 +1301,11 @@ rinteger rjs_compiler_rh_forexpressionincrement(rjs_compiler_t *co, rarray_t *re
 }
 
 
-rinteger rjs_compiler_rh_postfixexpressionop(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_postfixexpressionop(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec;
-       rlong opcode;
-       rlong opcoderec;
+       long opcode;
+       long opcoderec;
 
        if ((opcoderec = rpa_recordtree_lastchild(records, rec, RPA_RECORD_END)) < 0)
                return -1;
@@ -1330,11 +1330,11 @@ rinteger rjs_compiler_rh_postfixexpressionop(rjs_compiler_t *co, rarray_t *recor
 }
 
 
-rinteger rjs_compiler_rh_prefixexpressionop(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_prefixexpressionop(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec;
-       rlong opcode;
-       rlong opcoderec;
+       long opcode;
+       long opcoderec;
 
        if ((opcoderec = rpa_recordtree_firstchild(records, rec, RPA_RECORD_END)) < 0)
                return -1;
@@ -1360,7 +1360,7 @@ rinteger rjs_compiler_rh_prefixexpressionop(rjs_compiler_t *co, rarray_t *record
 }
 
 
-rinteger rjs_compiler_rh_newexpressioncall(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_newexpressioncall(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec;
        rjs_coctx_functioncall_t ctx;
@@ -1402,7 +1402,7 @@ error:
 }
 
 
-rinteger rjs_compiler_rh_this(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_this(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec;
        prec = (rparecord_t *)r_array_slot(records, rec);
@@ -1421,7 +1421,7 @@ rinteger rjs_compiler_rh_this(rjs_compiler_t *co, rarray_t *records, rlong rec)
 }
 
 
-rinteger rjs_compiler_rh_binaryoperator(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_binaryoperator(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec;
        rjs_coctx_t *ctx = rjs_compiler_gettopctx(co);
@@ -1443,7 +1443,7 @@ rinteger rjs_compiler_rh_binaryoperator(rjs_compiler_t *co, rarray_t *records, r
 }
 
 
-rinteger rjs_compiler_rh_unaryoperator(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_unaryoperator(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec;
        rjs_coctx_t *ctx = rjs_compiler_gettopctx(co);
@@ -1465,7 +1465,7 @@ rinteger rjs_compiler_rh_unaryoperator(rjs_compiler_t *co, rarray_t *records, rl
 }
 
 
-rinteger rjs_compiler_rh_identifiername(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_identifiername(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec;
        prec = (rparecord_t *)r_array_slot(records, rec);
@@ -1485,7 +1485,7 @@ rinteger rjs_compiler_rh_identifiername(rjs_compiler_t *co, rarray_t *records, r
 }
 
 
-rinteger rjs_compiler_rh_continue(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_continue(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec;
        rjs_coctx_t *ctx;
@@ -1514,7 +1514,7 @@ rinteger rjs_compiler_rh_continue(rjs_compiler_t *co, rarray_t *records, rlong r
 }
 
 
-rinteger rjs_compiler_rh_break(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_break(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec;
        rjs_coctx_t *ctx;
@@ -1544,7 +1544,7 @@ rinteger rjs_compiler_rh_break(rjs_compiler_t *co, rarray_t *records, rlong rec)
 }
 
 
-rinteger rjs_compiler_rh_syntaxerror(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_syntaxerror(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec;
        prec = (rparecord_t *)r_array_slot(records, rec);
@@ -1563,7 +1563,7 @@ rinteger rjs_compiler_rh_syntaxerror(rjs_compiler_t *co, rarray_t *records, rlon
 }
 
 
-rinteger rjs_compiler_rh_block(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_block(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec;
        prec = (rparecord_t *)r_array_slot(records, rec);
@@ -1585,7 +1585,7 @@ rinteger rjs_compiler_rh_block(rjs_compiler_t *co, rarray_t *records, rlong rec)
 }
 
 
-rinteger rjs_compiler_rh_(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_rh_(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec;
        prec = (rparecord_t *)r_array_slot(records, rec);
@@ -1686,7 +1686,7 @@ void rjs_compiler_destroy(rjs_compiler_t *co)
 }
 
 
-static rinteger rjs_compiler_rh_default(rjs_compiler_t *co, rarray_t *records, rlong rec)
+static int rjs_compiler_rh_default(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec;
 
@@ -1706,9 +1706,9 @@ static rinteger rjs_compiler_rh_default(rjs_compiler_t *co, rarray_t *records, r
 }
 
 
-static rinteger rjs_compiler_playchildrecords(rjs_compiler_t *co, rarray_t *records, rlong rec)
+static int rjs_compiler_playchildrecords(rjs_compiler_t *co, rarray_t *records, long rec)
 {
-       rlong child;
+       long child;
 
        for (child = rpa_recordtree_firstchild(records, rec, RPA_RECORD_START); child >= 0; child = rpa_recordtree_next(records, child, RPA_RECORD_START)) {
                if (rjs_compiler_playrecord(co, records, child) < 0)
@@ -1719,9 +1719,9 @@ static rinteger rjs_compiler_playchildrecords(rjs_compiler_t *co, rarray_t *reco
 }
 
 
-rinteger rjs_compiler_playreversechildrecords(rjs_compiler_t *co, rarray_t *records, rlong rec)
+int rjs_compiler_playreversechildrecords(rjs_compiler_t *co, rarray_t *records, long rec)
 {
-       rlong child;
+       long child;
 
        for (child = rpa_recordtree_lastchild(records, rec, RPA_RECORD_START); child >= 0; child = rpa_recordtree_prev(records, child, RPA_RECORD_START)) {
                if (rjs_compiler_playrecord(co, records, child) < 0)
@@ -1732,7 +1732,7 @@ rinteger rjs_compiler_playreversechildrecords(rjs_compiler_t *co, rarray_t *reco
 }
 
 
-static rinteger rjs_compiler_playrecord(rjs_compiler_t *co, rarray_t *records, rlong rec)
+static int rjs_compiler_playrecord(rjs_compiler_t *co, rarray_t *records, long rec)
 {
        rparecord_t *prec;
        prec = (rparecord_t *)r_array_slot(records, rec);
@@ -1743,9 +1743,9 @@ static rinteger rjs_compiler_playrecord(rjs_compiler_t *co, rarray_t *records, r
 }
 
 
-rinteger rjs_compiler_compile(rjs_compiler_t *co, const rchar *script, rsize_t scriptsize, rarray_t *records, rvm_codegen_t *cg, rjs_error_t *error)
+int rjs_compiler_compile(rjs_compiler_t *co, const char *script, rsize_t scriptsize, rarray_t *records, rvm_codegen_t *cg, rjs_error_t *error)
 {
-       rlong i;
+       long i;
        rvm_codelabel_t *labelerr;
 
        if (!co || !records || !cg || r_array_empty(records)) {
index 06b8d6f..c40289f 100644 (file)
@@ -48,7 +48,7 @@ extern "C" {
 
 
 typedef struct rjs_coctx_s {
-       rulong type;
+       unsigned long type;
 } rjs_coctx_t;
 
 
@@ -60,49 +60,49 @@ typedef struct rjs_coctx_global_s {
 
 typedef struct rjs_coctx_function_s {
        rjs_coctx_t base;
-       rlong start;
-       rlong execidx;
-       rlong endidx;
-       rlong allocsidx;
-       rlong execoff;
+       long start;
+       long execidx;
+       long endidx;
+       long allocsidx;
+       long execoff;
        rsize_t stackallocs;
 } rjs_coctx_function_t;
 
 
 typedef struct rjs_coctx_operation_s {
        rjs_coctx_t base;
-       rlong opcode;
+       long opcode;
 } rjs_coctx_operation_t;
 
 
 typedef struct rjs_coctx_functioncall_s {
        rjs_coctx_t base;
        rsize_t arguments;
-       ruchar setthis;
+       unsigned char setthis;
 } rjs_coctx_functioncall_t;
 
 
 typedef struct rjs_coctx_ifstatement_s {
        rjs_coctx_t base;
-       rlong start;
-       rlong trueidx;
-       rlong falseidx;
-       rlong endidx;
+       long start;
+       long trueidx;
+       long falseidx;
+       long endidx;
 } rjs_coctx_ifstatement_t;
 
 
 typedef struct rjs_coctx_iteration_s {
        rjs_coctx_t base;
-       rlong start;
-       rlong iterationidx;
-       rlong continueidx;
-       rlong endidx;
+       long start;
+       long iterationidx;
+       long continueidx;
+       long endidx;
 } rjs_coctx_iteration_t;
 
 
 
 typedef struct rjs_compiler_s rjs_compiler_t;
-typedef rinteger (*RJS_COMPILER_RH)(rjs_compiler_t *co, rarray_t *records, rlong rec);
+typedef int (*RJS_COMPILER_RH)(rjs_compiler_t *co, rarray_t *records, long rec);
 
 struct rjs_compiler_s {
        rvmcpu_t *cpu;
@@ -110,21 +110,21 @@ struct rjs_compiler_s {
        rvm_scope_t *scope;
        rjs_error_t *error;
        rarray_t *coctx;
-       rchar *temp;
+       char *temp;
        rstr_t stringcharacters;
-       const rchar *script;
+       const char *script;
        rsize_t scriptsize;
-       rlong headoff;
-       rlong opcode;
-       rulong debug:1;
+       long headoff;
+       long opcode;
+       unsigned long debug:1;
        RJS_COMPILER_RH handlers[RJS_COMPILER_NHANDLERS];
 };
 
 
 rjs_compiler_t *rjs_compiler_create(rvmcpu_t *cpu);
 void rjs_compiler_destroy(rjs_compiler_t *co);
-rinteger rjs_compiler_compile(rjs_compiler_t *co, const rchar *script, rsize_t scriptsize, rarray_t *records, rvm_codegen_t *cg, rjs_error_t *error);
-rjs_coctx_t *rjs_compiler_getctx(rjs_compiler_t *co, rulong type);
+int rjs_compiler_compile(rjs_compiler_t *co, const char *script, rsize_t scriptsize, rarray_t *records, rvm_codegen_t *cg, rjs_error_t *error);
+rjs_coctx_t *rjs_compiler_getctx(rjs_compiler_t *co, unsigned long type);
 
 #ifdef __cplusplus
 }
index 5893a02..99cfbf7 100644 (file)
 
 
 typedef struct rjs_error_s {
-       rlong type;
-       rlong error;
-       rlong offset;
-       rlong size;
-       rlong line;
-       rlong lineoffset;
-       const rchar *script;
+       long type;
+       long error;
+       long offset;
+       long size;
+       long line;
+       long lineoffset;
+       const char *script;
 } rjs_error_t;
 
 
index 1b60cbc..0de1ca8 100644 (file)
@@ -40,7 +40,7 @@ static int debugcompileonly = 0;
 static int statinfo = 0;
 
 
-static rchar *errormsg[] = {
+static char *errormsg[] = {
        "OK",
        "Undefined identifier",
        "Syntax error",
@@ -63,7 +63,7 @@ static rchar *errormsg[] = {
 
 static void rjs_exec_ltrim(rvmcpu_t *cpu, rvm_asmins_t *ins)
 {
-       const rchar *ptr, *list;
+       const char *ptr, *list;
        rsize_t size;
        rvmreg_t *r = NULL, *l = NULL;
        rstring_t *src, *dest;
@@ -99,7 +99,7 @@ static void rjs_exec_ltrim(rvmcpu_t *cpu, rvm_asmins_t *ins)
 
 static void rjs_exec_rtrim(rvmcpu_t *cpu, rvm_asmins_t *ins)
 {
-       const rchar *ptr, *list;
+       const char *ptr, *list;
        rsize_t size;
        rvmreg_t *r = NULL, *l = NULL;
        rstring_t *src, *dest;
@@ -135,7 +135,7 @@ static void rjs_exec_rtrim(rvmcpu_t *cpu, rvm_asmins_t *ins)
 
 static void rjs_exec_trim(rvmcpu_t *cpu, rvm_asmins_t *ins)
 {
-       const rchar *start, *ptr, *list;
+       const char *start, *ptr, *list;
        rsize_t size;
        rvmreg_t *r = NULL, *l = NULL;
        rstring_t *src, *dest;
@@ -258,10 +258,10 @@ int rjs_exec_script(rjs_engine_t *jse, rstr_t  *script)
 }
 
 
-rlong jrs_offset2line(const rchar *script, rlong offset)
+long jrs_offset2line(const char *script, long offset)
 {
-       rlong line = 0;
-       const rchar *ptr;
+       long line = 0;
+       const char *ptr;
 
        for (line = 1, ptr = script + offset; ptr >= script; --ptr) {
                if (*ptr == '\n')
@@ -274,17 +274,17 @@ rlong jrs_offset2line(const rchar *script, rlong offset)
 
 void rjs_display_errors(rjs_engine_t *jse, rstr_t *script)
 {
-       rlong i;
+       long i;
        rjs_error_t *err;
 
        for (i = 0; i < r_array_length(jse->errors); i++) {
                err = (rjs_error_t *)r_array_slot(jse->errors, i);
-               fprintf(stdout, "Line: %ld (%ld, %ld), Error Code: %ld, ", (rlong)err->line, err->offset, err->lineoffset, err->error);
+               fprintf(stdout, "Line: %ld (%ld, %ld), Error Code: %ld, ", (long)err->line, err->offset, err->lineoffset, err->error);
                fprintf(stdout, "%s: ", errormsg[err->error]);
                if (err->size) {
-                       fwrite(script->str + err->offset, sizeof(rchar), err->size, stdout);
+                       fwrite(script->str + err->offset, sizeof(char), err->size, stdout);
                } else {
-                       fwrite(script->str + err->lineoffset, sizeof(rchar), err->offset - err->lineoffset, stdout);
+                       fwrite(script->str + err->lineoffset, sizeof(char), err->offset - err->lineoffset, stdout);
                }
                fprintf(stdout, "\n");
        }
@@ -293,7 +293,7 @@ void rjs_display_errors(rjs_engine_t *jse, rstr_t *script)
 
 int main(int argc, char *argv[])
 {
-       rinteger i;
+       int i;
        rstr_t *script = NULL, *unmapscript = NULL;
        rstr_t line;
        rjs_engine_t *jse;
@@ -353,6 +353,6 @@ end:
        if (unmapscript)
                rjs_unmap_file(unmapscript);
        if (statinfo)
-               fprintf(stdout, "\nRJS Version: %s, memory: %ld Bytes (leaked %ld Bytes)\n", rjs_version(), (rlong)r_debug_get_maxmem(), (rlong)r_debug_get_allocmem());
+               fprintf(stdout, "\nRJS Version: %s, memory: %ld Bytes (leaked %ld Bytes)\n", rjs_version(), (long)r_debug_get_maxmem(), (long)r_debug_get_allocmem());
        return 0;
 }
index b15c1d1..48da31b 100644 (file)
@@ -34,8 +34,8 @@ void rjs_parser_dbex_error(rjs_parser_t *parser)
                r_printf(", Error Code: %ld", err.code);
        }
        if (err.mask & RPA_ERRINFO_OFFSET) {
-               rlong line = 1, i;
-               const rchar *ptr = rjs_rules_get();
+               long line = 1, i;
+               const char *ptr = rjs_rules_get();
                for (i = 0; i < err.offset; i++) {
                        if (ptr[i] == '\n')
                                line += 1;
@@ -83,10 +83,10 @@ void rjs_parser_destroy(rjs_parser_t *parser)
 }
 
 
-rlong rjs_parser_offset2line(const rchar *script, rlong offset)
+long rjs_parser_offset2line(const char *script, long offset)
 {
-       rlong line = 1;
-       const rchar *ptr;
+       long line = 1;
+       const char *ptr;
 
        for (line = 1, ptr = script + offset; ptr >= script; --ptr) {
                if (*ptr == '\n' && ptr != script + offset)
@@ -97,10 +97,10 @@ rlong rjs_parser_offset2line(const rchar *script, rlong offset)
 }
 
 
-rlong rjs_parser_offset2lineoffset(const rchar *script, rlong offset)
+long rjs_parser_offset2lineoffset(const char *script, long offset)
 {
-       rlong lineoffset = 0;
-       const rchar *ptr;
+       long lineoffset = 0;
+       const char *ptr;
 
        for (lineoffset = 0, ptr = script + offset; ptr > script; --ptr) {
                if (*ptr == '\n' && ptr != script + offset)
@@ -111,9 +111,9 @@ rlong rjs_parser_offset2lineoffset(const rchar *script, rlong offset)
 }
 
 
-rlong rjs_parser_exec(rjs_parser_t *parser, const rchar *script, rsize_t size, rarray_t *ast, rjs_error_t *error)
+long rjs_parser_exec(rjs_parser_t *parser, const char *script, rsize_t size, rarray_t *ast, rjs_error_t *error)
 {
-       rlong res = 0;
+       long res = 0;
        rpastat_t *stat = rpa_stat_create(parser->dbex, 4096);
        res = rpa_stat_parse(stat, rpa_dbex_last(parser->dbex), RPA_ENCODING_UTF8, script, script, script + size, ast);
        if (res < 0 && error) {
index ee99b75..d32be75 100644 (file)
@@ -41,9 +41,9 @@ typedef struct rjs_parser_s {
 
 rjs_parser_t *rjs_parser_create();
 void rjs_parser_destroy(rjs_parser_t *parser);
-rlong rjs_parser_exec(rjs_parser_t *parser, const rchar *script, rsize_t size, rarray_t *ast, rjs_error_t *error);
-rlong rjs_parser_offset2line(const rchar *script, rlong offset);
-rlong rjs_parser_offset2lineoffset(const rchar *script, rlong offset);
+long rjs_parser_exec(rjs_parser_t *parser, const char *script, rsize_t size, rarray_t *ast, rjs_error_t *error);
+long rjs_parser_offset2line(const char *script, long offset);
+long rjs_parser_offset2lineoffset(const char *script, long offset);
 
 
 #ifdef __cplusplus
index b52ae62..ed4dbdc 100644 (file)
@@ -28,7 +28,7 @@ extern "C" {
 
 #include "rtypes.h"
 
-const rchar *rjs_rules_get();
+const char *rjs_rules_get();
 rsize_t rjs_rules_size();
 
 
index 630e83c..b7c2a30 100644 (file)
@@ -180,9 +180,9 @@ void *r_array_slot_expand(rarray_t *array, rsize_t index)
 }
 
 
-rinteger r_array_move(rarray_t *array, rlong dest, rlong src, rlong size)
+int r_array_move(rarray_t *array, long dest, long src, long size)
 {
-       rlong i;
+       long i;
        if (src == dest)
                return 0;
        if (r_array_length(array) <= src || size <= 0)
index ff5fab4..de9c727 100644 (file)
@@ -62,7 +62,7 @@ robject_t *r_array_init(robject_t *obj, ruint32 type, r_object_cleanupfun cleanu
 rarray_t *r_array_create(rsize_t elt_size);
 void r_array_destroy(rarray_t *array);
 rsize_t r_array_add(rarray_t *array, rconstpointer data);
-rinteger r_array_move(rarray_t *array, rlong dest, rlong src, rlong size);
+int r_array_move(rarray_t *array, long dest, long src, long size);
 rsize_t r_array_removelast(rarray_t *array);
 rsize_t r_array_insert(rarray_t *array, rsize_t index, rconstpointer data);
 rsize_t r_array_replace(rarray_t *array, rsize_t index, rconstpointer data);
index 962413e..b829f1c 100644 (file)
@@ -112,7 +112,7 @@ robject_t *r_carray_copy(const robject_t *obj)
 }
 
 
-rinteger r_carray_replace(rcarray_t *carray, rsize_t index, rconstpointer data)
+int r_carray_replace(rcarray_t *carray, rsize_t index, rconstpointer data)
 {
        if (data)
                r_memcpy(r_carray_slot_expand(carray, index), data, carray->elt_size);
@@ -122,7 +122,7 @@ rinteger r_carray_replace(rcarray_t *carray, rsize_t index, rconstpointer data)
 }
 
 
-rinteger r_carray_add(rcarray_t *carray, rconstpointer data)
+int r_carray_add(rcarray_t *carray, rconstpointer data)
 {
        rsize_t index = r_carray_length(carray);
        r_carray_inclength(carray);
@@ -174,6 +174,6 @@ rpointer r_carray_slot_notused(rcarray_t *carray, rsize_t index)
        rsize_t offset = index & R_CARRAY_CHUNKMASK;
        rpointer chunk = r_array_index(carray->array, nchunk, rpointer);
 
-       rpointer v = (rpointer)(((rchar*)chunk) + (offset * carray->elt_size));
+       rpointer v = (rpointer)(((char*)chunk) + (offset * carray->elt_size));
        return v;
 }
index 93551c8..48cc160 100644 (file)
@@ -52,14 +52,14 @@ struct rcarray_s {
 #define r_carray_size(__carray__) (__carray__)->alloc_size
 #define r_carray_length(__carray__) (__carray__)->len
 #define r_carray_empty(__carray__) ((r_carray_length(__carray__)) ? 0 : 1)
-#define r_carray_slot(__carray__, __index__)(((rchar*)r_array_index((__carray__)->array, (__index__) >> R_CARRAY_CHUNKBITS, rpointer)) + ((__index__) & R_CARRAY_CHUNKMASK) * (__carray__)->elt_size)
+#define r_carray_slot(__carray__, __index__)(((char*)r_array_index((__carray__)->array, (__index__) >> R_CARRAY_CHUNKBITS, rpointer)) + ((__index__) & R_CARRAY_CHUNKMASK) * (__carray__)->elt_size)
 #define r_carray_index(__carray__, __index__, __type__) *((__type__*)r_carray_slot(__carray__, __index__))
 
 robject_t *r_carray_init(robject_t *obj, ruint32 type, r_object_cleanupfun cleanup, r_object_copyfun copy, rsize_t elt_size);
 rcarray_t *r_carray_create(rsize_t elt_size);
 void r_carray_destroy(rcarray_t *array);
-rinteger r_carray_replace(rcarray_t *carray, rsize_t index, rconstpointer data);
-rinteger r_carray_add(rcarray_t *carray, rconstpointer data);
+int r_carray_replace(rcarray_t *carray, rsize_t index, rconstpointer data);
+int r_carray_add(rcarray_t *carray, rconstpointer data);
 void r_carray_setlength(rcarray_t *carray, rsize_t len);
 void r_carray_inclength(rcarray_t *carray);
 void r_carray_inclength(rcarray_t *carray);
index b9aa871..2099a96 100644 (file)
@@ -32,7 +32,7 @@ extern "C" {
 typedef struct rgc_s {
        robject_t obj;
        rhead_t head[2];
-       ruinteger active;
+       unsigned int active;
 } rgc_t;
 
 
index a867079..e882af2 100644 (file)
@@ -55,7 +55,7 @@
  */
 static void r_array_oncopy_rstr(rarray_t *array)
 {
-       ruinteger index;
+       unsigned int index;
        rstr_t *src, *dst;
 
        for (index = 0; index < r_array_length(array); index++) {
@@ -71,7 +71,7 @@ static void r_array_oncopy_rstr(rarray_t *array)
  */
 static void r_array_oncleanup_rstr(rarray_t *array)
 {
-       ruinteger index;
+       unsigned int index;
        rstr_t *src;
 
        for (index = 0; index < r_array_length(array); index++) {
@@ -82,7 +82,7 @@ static void r_array_oncleanup_rstr(rarray_t *array)
 }
 
 
-robject_t *r_harray_init(robject_t *obj, ruint32 type, r_object_cleanupfun cleanup, r_object_copyfun copy, ruinteger elt_size)
+robject_t *r_harray_init(robject_t *obj, ruint32 type, r_object_cleanupfun cleanup, r_object_copyfun copy, unsigned int elt_size)
 {
        rharray_t *harray = (rharray_t*)obj;
        r_object_init(obj, type, cleanup, copy);
@@ -94,7 +94,7 @@ robject_t *r_harray_init(robject_t *obj, ruint32 type, r_object_cleanupfun clean
        return obj;
 }
 
-rharray_t *r_harray_create(ruinteger elt_size)
+rharray_t *r_harray_create(unsigned int elt_size)
 {
        rharray_t *harray;
 
@@ -140,10 +140,10 @@ void r_harray_cleanup(robject_t *obj)
 }
 
 
-rlong r_harray_add(rharray_t *harray, const rchar *name, rsize_t namesize, rconstpointer pval)
+long r_harray_add(rharray_t *harray, const char *name, rsize_t namesize, rconstpointer pval)
 {
        rstr_t *membrName;
-       rlong index, nameindex;
+       long index, nameindex;
 
        membrName = r_rstrdup(name, namesize);
        index = r_carray_add(harray->members, pval);
@@ -159,15 +159,15 @@ rlong r_harray_add(rharray_t *harray, const rchar *name, rsize_t namesize, rcons
 }
 
 
-rlong r_harray_add_s(rharray_t *harray, const rchar *name, rconstpointer pval)
+long r_harray_add_s(rharray_t *harray, const char *name, rconstpointer pval)
 {
        return r_harray_add(harray, name, r_strlen(name), pval);
 }
 
 
-rlong r_harray_replace(rharray_t *harray, const rchar *name, rsize_t namesize, rconstpointer pval)
+long r_harray_replace(rharray_t *harray, const char *name, rsize_t namesize, rconstpointer pval)
 {
-       rlong index = r_harray_lookup(harray, name, namesize);
+       long index = r_harray_lookup(harray, name, namesize);
 
        if (index < 0)
                return r_harray_add(harray, name, namesize, pval);
@@ -175,13 +175,13 @@ rlong r_harray_replace(rharray_t *harray, const rchar *name, rsize_t namesize, r
        return index;
 }
 
-rlong r_harray_replace_s(rharray_t *harray, const rchar *name, rconstpointer pval)
+long r_harray_replace_s(rharray_t *harray, const char *name, rconstpointer pval)
 {
        return r_harray_replace(harray, name, r_strlen(name), pval);
 }
 
 
-rlong r_harray_lookup(rharray_t *harray, const rchar *name, rsize_t namesize)
+long r_harray_lookup(rharray_t *harray, const char *name, rsize_t namesize)
 {
        rsize_t found;
 
@@ -189,17 +189,17 @@ rlong r_harray_lookup(rharray_t *harray, const rchar *name, rsize_t namesize)
        found = r_hash_lookup_indexval(harray->hash, &lookupstr);
        if (found == R_HASH_INVALID_INDEXVAL)
                return -1;
-       return (rlong)found;
+       return (long)found;
 }
 
 
-rlong r_harray_lookup_s(rharray_t *harray, const rchar *name)
+long r_harray_lookup_s(rharray_t *harray, const char *name)
 {
        return r_harray_lookup(harray, name, r_strlen(name));
 }
 
 
-rlong r_harray_taillookup(rharray_t *harray, const rchar *name, rsize_t namesize)
+long r_harray_taillookup(rharray_t *harray, const char *name, rsize_t namesize)
 {
        rsize_t found;
 
@@ -207,44 +207,44 @@ rlong r_harray_taillookup(rharray_t *harray, const rchar *name, rsize_t namesize
        found = r_hash_taillookup_indexval(harray->hash, &lookupstr);
        if (found == R_HASH_INVALID_INDEXVAL)
                return -1;
-       return (rlong)found;
+       return (long)found;
 }
 
 
-rlong r_harray_taillookup_s(rharray_t *harray, const rchar *name)
+long r_harray_taillookup_s(rharray_t *harray, const char *name)
 {
        return r_harray_lookup(harray, name, r_strlen(name));
 }
 
 
 
-rhash_node_t* r_harray_nodelookup(rharray_t *harray, rhash_node_t *cur, const rchar *name, rsize_t namesize)
+rhash_node_t* r_harray_nodelookup(rharray_t *harray, rhash_node_t *cur, const char *name, rsize_t namesize)
 {
        rstr_t lookupstr = {(char*)name, namesize};
        return r_hash_nodelookup(harray->hash, cur, &lookupstr);
 }
 
 
-rhash_node_t* r_harray_nodelookup_s(rharray_t *harray, rhash_node_t *cur, const rchar *name)
+rhash_node_t* r_harray_nodelookup_s(rharray_t *harray, rhash_node_t *cur, const char *name)
 {
        return r_harray_nodelookup(harray, cur, name, r_strlen(name));
 }
 
 
-rhash_node_t* r_harray_nodetaillookup(rharray_t *harray, rhash_node_t *cur, const rchar *name, rsize_t namesize)
+rhash_node_t* r_harray_nodetaillookup(rharray_t *harray, rhash_node_t *cur, const char *name, rsize_t namesize)
 {
        rstr_t lookupstr = {(char*)name, namesize};
        return r_hash_nodetaillookup(harray->hash, cur, &lookupstr);
 }
 
 
-rhash_node_t* r_harray_nodetaillookup_s(rharray_t *harray, rhash_node_t *cur, const rchar *name)
+rhash_node_t* r_harray_nodetaillookup_s(rharray_t *harray, rhash_node_t *cur, const char *name)
 {
        return r_harray_nodetaillookup(harray, cur, name, r_strlen(name));
 }
 
 
-rinteger r_harray_set(rharray_t *harray, rlong index, rconstpointer pval)
+int r_harray_set(rharray_t *harray, long index, rconstpointer pval)
 {
        if (index < 0)
                return -1;
index 7c04b24..c514509 100644 (file)
@@ -46,23 +46,23 @@ typedef struct rharray_s {
 } rharray_t;
 
 
-rharray_t *r_harray_create(ruinteger elt_size);
+rharray_t *r_harray_create(unsigned int elt_size);
 void r_harray_destroy(rharray_t *array);
-robject_t *r_harray_init(robject_t *obj, ruint32 type, r_object_cleanupfun cleanup, r_object_copyfun copy, ruinteger elt_size);
-rlong r_harray_add(rharray_t *harray, const rchar *name, rsize_t namesize, rconstpointer pval);
-rlong r_harray_add_s(rharray_t *harray, const rchar *name, rconstpointer pval);
-rlong r_harray_replace(rharray_t *harray, const rchar *name, rsize_t namesize, rconstpointer pval);
-rlong r_harray_replace_s(rharray_t *harray, const rchar *name, rconstpointer pval);
-rlong r_harray_lookup(rharray_t *harray, const rchar *name, rsize_t namesize);
-rlong r_harray_lookup_s(rharray_t *harray, const rchar *name);
-rlong r_harray_taillookup(rharray_t *harray, const rchar *name, rsize_t namesize);
-rlong r_harray_taillookup_s(rharray_t *harray, const rchar *name);
-rhash_node_t* r_harray_nodelookup(rharray_t *harray, rhash_node_t *cur, const rchar *name, rsize_t namesize);
-rhash_node_t* r_harray_nodelookup_s(rharray_t *harray, rhash_node_t *cur, const rchar *name);
-rhash_node_t* r_harray_nodetaillookup(rharray_t *harray, rhash_node_t *cur, const rchar *name, rsize_t namesize);
-rhash_node_t* r_harray_nodetaillookup_s(rharray_t *harray, rhash_node_t *cur, const rchar *name);
+robject_t *r_harray_init(robject_t *obj, ruint32 type, r_object_cleanupfun cleanup, r_object_copyfun copy, unsigned int elt_size);
+long r_harray_add(rharray_t *harray, const char *name, rsize_t namesize, rconstpointer pval);
+long r_harray_add_s(rharray_t *harray, const char *name, rconstpointer pval);
+long r_harray_replace(rharray_t *harray, const char *name, rsize_t namesize, rconstpointer pval);
+long r_harray_replace_s(rharray_t *harray, const char *name, rconstpointer pval);
+long r_harray_lookup(rharray_t *harray, const char *name, rsize_t namesize);
+long r_harray_lookup_s(rharray_t *harray, const char *name);
+long r_harray_taillookup(rharray_t *harray, const char *name, rsize_t namesize);
+long r_harray_taillookup_s(rharray_t *harray, const char *name);
+rhash_node_t* r_harray_nodelookup(rharray_t *harray, rhash_node_t *cur, const char *name, rsize_t namesize);
+rhash_node_t* r_harray_nodelookup_s(rharray_t *harray, rhash_node_t *cur, const char *name);
+rhash_node_t* r_harray_nodetaillookup(rharray_t *harray, rhash_node_t *cur, const char *name, rsize_t namesize);
+rhash_node_t* r_harray_nodetaillookup_s(rharray_t *harray, rhash_node_t *cur, const char *name);
 rpointer r_harray_get(rharray_t *harray, rsize_t index);
-rinteger r_harray_set(rharray_t *harray, rlong index, rconstpointer pval);
+int r_harray_set(rharray_t *harray, long index, rconstpointer pval);
 
 robject_t *r_harray_copy(const robject_t *obj);
 void r_harray_cleanup(robject_t *obj);
index 39d8d33..35b9de1 100644 (file)
@@ -25,7 +25,7 @@
 
 typedef union rhash_value_s {
        rpointer ptr;
-       rulong index;
+       unsigned long index;
 } rhash_value_t;
 
 struct rhash_node_s {
@@ -51,7 +51,7 @@ static void r_hash_node_destroy(rhash_node_t *node)
 
 rhash_node_t *r_hash_nodetaillookup(rhash_t* hash, rhash_node_t *cur, rconstpointer key)
 {
-       ruinteger nbucket = hash->hfunc(key) & r_hash_mask(hash);
+       unsigned int nbucket = hash->hfunc(key) & r_hash_mask(hash);
        rhead_t *bucket = &hash->buckets[nbucket];
        rhash_node_t *node;
        rlink_t *pos;
@@ -68,7 +68,7 @@ rhash_node_t *r_hash_nodetaillookup(rhash_t* hash, rhash_node_t *cur, rconstpoin
 
 rhash_node_t *r_hash_nodelookup(rhash_t* hash, rhash_node_t *cur, rconstpointer key)
 {
-       ruinteger nbucket = hash->hfunc(key) & r_hash_mask(hash);
+       unsigned int nbucket = hash->hfunc(key) & r_hash_mask(hash);
        rhead_t *bucket = &hash->buckets[nbucket];
        rhash_node_t *node;
        rlink_t *pos;
@@ -83,10 +83,10 @@ rhash_node_t *r_hash_nodelookup(rhash_t* hash, rhash_node_t *cur, rconstpointer
 }
 
 
-ruinteger r_hash_strhash(rconstpointer key)
+unsigned int r_hash_strhash(rconstpointer key)
 {
-       const rchar *str = (const rchar*) key;
-       ruinteger hash = 0;
+       const char *str = (const char*) key;
+       unsigned int hash = 0;
        int c;
 
        while ((c = *str++))
@@ -97,17 +97,17 @@ ruinteger r_hash_strhash(rconstpointer key)
 
 rboolean r_hash_strequal(rconstpointer key1, rconstpointer key2)
 {
-       return r_strcmp((const rchar*)key1, (const rchar*)key2) ? FALSE : TRUE;
+       return r_strcmp((const char*)key1, (const char*)key2) ? FALSE : TRUE;
 }
 
 
-ruinteger r_hash_rstrhash(rconstpointer key)
+unsigned int r_hash_rstrhash(rconstpointer key)
 {
        const rstr_t *k = (const rstr_t *)key;
-       const rchar *str = (const rchar*) k->str;
-       ruinteger i;
-       ruinteger size = k->size;
-       ruinteger hash = 0;
+       const char *str = (const char*) k->str;
+       unsigned int i;
+       unsigned int size = k->size;
+       unsigned int hash = 0;
 
        for (i = 0; i < size; i++, str++) {
                hash = *str + (hash << 6) + (hash << 16) - hash;
@@ -121,11 +121,11 @@ rboolean r_hash_rstrequal(rconstpointer key1, rconstpointer key2)
        const rstr_t *k1 = (const rstr_t *)key1;
        const rstr_t *k2 = (const rstr_t *)key2;
 
-       return (k1->size == k2->size && r_strncmp((const rchar*)k1->str, (const rchar*)k2->str, k1->size) == 0) ? TRUE : FALSE;
+       return (k1->size == k2->size && r_strncmp((const char*)k1->str, (const char*)k2->str, k1->size) == 0) ? TRUE : FALSE;
 }
 
 
-rhash_t *r_hash_create(ruinteger nbits, r_hash_equalfunc eqfunc, r_hash_hashfun hfunc)
+rhash_t *r_hash_create(unsigned int nbits, r_hash_equalfunc eqfunc, r_hash_hashfun hfunc)
 {
        rhash_t *hash;
 
@@ -142,9 +142,9 @@ void r_hash_destroy(rhash_t* hash)
 
 
 robject_t *r_hash_init(robject_t *obj, ruint32 type, r_object_cleanupfun cleanup, r_object_copyfun copy,
-                                               ruinteger nbits, r_hash_equalfunc eqfunc, r_hash_hashfun hfunc)
+                                               unsigned int nbits, r_hash_equalfunc eqfunc, r_hash_hashfun hfunc)
 {
-       ruinteger i;
+       unsigned int i;
        rsize_t size;
        rhash_t *hash = (rhash_t *)obj;
 
@@ -179,7 +179,7 @@ void r_hash_cleanup(robject_t *obj)
 
 void r_hash_insert(rhash_t* hash, rconstpointer key, rpointer value)
 {
-       ruinteger nbucket = hash->hfunc(key) & r_hash_mask(hash);
+       unsigned int nbucket = hash->hfunc(key) & r_hash_mask(hash);
        rhash_node_t *node = r_hash_node_create();
        rhead_t *buckethead = &hash->buckets[nbucket];
        if (node) {
@@ -204,7 +204,7 @@ void r_hash_remove(rhash_t* hash, rconstpointer key)
 
 void r_hash_removeall(rhash_t* hash)
 {
-       ruinteger nbucket;
+       unsigned int nbucket;
        rhead_t *head;
        rhash_node_t *node;
 
@@ -228,9 +228,9 @@ rpointer r_hash_lookup(rhash_t* hash, rconstpointer key)
 }
 
 
-void r_hash_insert_indexval(rhash_t* hash, rconstpointer key, rulong index)
+void r_hash_insert_indexval(rhash_t* hash, rconstpointer key, unsigned long index)
 {
-       ruinteger nbucket = hash->hfunc(key) & r_hash_mask(hash);
+       unsigned int nbucket = hash->hfunc(key) & r_hash_mask(hash);
        rhash_node_t *node = r_hash_node_create();
        rhead_t *buckethead = &hash->buckets[nbucket];
        if (node) {
@@ -242,7 +242,7 @@ void r_hash_insert_indexval(rhash_t* hash, rconstpointer key, rulong index)
 }
 
 
-rulong r_hash_lookup_indexval(rhash_t* hash, rconstpointer key)
+unsigned long r_hash_lookup_indexval(rhash_t* hash, rconstpointer key)
 {
        rhash_node_t *node = r_hash_nodelookup(hash, NULL, key);
        if (node)
@@ -251,7 +251,7 @@ rulong r_hash_lookup_indexval(rhash_t* hash, rconstpointer key)
 }
 
 
-rulong r_hash_taillookup_indexval(rhash_t* hash, rconstpointer key)
+unsigned long r_hash_taillookup_indexval(rhash_t* hash, rconstpointer key)
 {
        rhash_node_t *node = r_hash_nodetaillookup(hash, NULL, key);
        if (node)
@@ -266,7 +266,7 @@ rpointer r_hash_value(rhash_node_t *node)
 }
 
 
-rulong r_hash_indexval(rhash_node_t *node)
+unsigned long r_hash_indexval(rhash_node_t *node)
 {
        return node->value.index;
 }
index 14484c3..7d0cc0f 100644 (file)
@@ -33,42 +33,42 @@ extern "C" {
 typedef struct rhash_node_s rhash_node_t;
 typedef struct rhash_s rhash_t;
 typedef rboolean (*r_hash_equalfunc)(rconstpointer key1, rconstpointer key2);
-typedef ruinteger (*r_hash_hashfun)(rconstpointer key);
+typedef unsigned int (*r_hash_hashfun)(rconstpointer key);
 
 
 struct rhash_s {
        robject_t obj;
        rlist_t *buckets;
-       ruinteger nbits;
+       unsigned int nbits;
        r_hash_equalfunc eqfunc;
        r_hash_hashfun hfunc;
 };
 
 
-#define R_HASH_INVALID_INDEXVAL ((rulong)-1)
+#define R_HASH_INVALID_INDEXVAL ((unsigned long)-1)
 
 #define r_hash_size(__h__) (1 << (__h__)->nbits)
 #define r_hash_mask(__h__) (r_hash_size(__h__) - 1)
-rhash_t *r_hash_create(ruinteger nbits, r_hash_equalfunc eqfunc, r_hash_hashfun hfunc);
+rhash_t *r_hash_create(unsigned int nbits, r_hash_equalfunc eqfunc, r_hash_hashfun hfunc);
 void r_hash_destroy(rhash_t* hash);
 robject_t *r_hash_init(robject_t *obj, ruint32 type, r_object_cleanupfun cleanup, r_object_copyfun copy,
-                                               ruinteger nbits, r_hash_equalfunc eqfunc, r_hash_hashfun hfunc);
+                                               unsigned int nbits, r_hash_equalfunc eqfunc, r_hash_hashfun hfunc);
 
 void r_hash_insert(rhash_t* hash, rconstpointer key, rpointer value);
 void r_hash_remove(rhash_t* hash, rconstpointer key);
 void r_hash_removeall(rhash_t* hash);
 rpointer r_hash_lookup(rhash_t* hash, rconstpointer key);
-void r_hash_insert_indexval(rhash_t* hash, rconstpointer key, rulong index);
-rulong r_hash_lookup_indexval(rhash_t* hash, rconstpointer key);
-rulong r_hash_taillookup_indexval(rhash_t* hash, rconstpointer key);
+void r_hash_insert_indexval(rhash_t* hash, rconstpointer key, unsigned long index);
+unsigned long r_hash_lookup_indexval(rhash_t* hash, rconstpointer key);
+unsigned long r_hash_taillookup_indexval(rhash_t* hash, rconstpointer key);
 rhash_node_t *r_hash_nodelookup(rhash_t* hash, rhash_node_t *cur, rconstpointer key);
 rhash_node_t *r_hash_nodetaillookup(rhash_t* hash, rhash_node_t *cur, rconstpointer key);
 rpointer r_hash_value(rhash_node_t *node);
-rulong r_hash_indexval(rhash_node_t *node);
+unsigned long r_hash_indexval(rhash_node_t *node);
 
-ruinteger r_hash_strhash(rconstpointer key);
+unsigned int r_hash_strhash(rconstpointer key);
 rboolean r_hash_strequal(rconstpointer key1, rconstpointer key2);
-ruinteger r_hash_rstrhash(rconstpointer key);
+unsigned int r_hash_rstrhash(rconstpointer key);
 rboolean r_hash_rstrequal(rconstpointer key1, rconstpointer key2);
 
 
index a358bfa..654ad49 100644 (file)
@@ -28,27 +28,27 @@ typedef struct r_mapnode_s {
        rlink_t active;
        rlink_t hash;
        rsize_t index;
-       rlong nbucket;
+       long nbucket;
        rstring_t *key;
        union {
                rpointer p;
-               rchar data[0];
+               char data[0];
        } value;
 } r_mapnode_t;
 
 
 static rboolean r_map_rstrequal(rstr_t *key1, rstr_t *key2)
 {
-       return (key1->size == key2->size && r_strncmp((const rchar*)key1->str, (const rchar*)key2->str, key1->size) == 0) ? TRUE : FALSE;
+       return (key1->size == key2->size && r_strncmp((const char*)key1->str, (const char*)key2->str, key1->size) == 0) ? TRUE : FALSE;
 }
 
 
-static rulong r_map_rstrhash(const rstr_t *key)
+static unsigned long r_map_rstrhash(const rstr_t *key)
 {
-       const rchar *str = (const rchar*) key->str;
-       rulong i;
-       rulong size = key->size;
-       rulong hash = 0;
+       const char *str = (const char*) key->str;
+       unsigned long i;
+       unsigned long size = key->size;
+       unsigned long hash = 0;
 
        for (i = 0; i < size; i++, str++) {
                hash = *str + (hash << 6) + (hash << 16) - hash;
@@ -56,7 +56,7 @@ static rulong r_map_rstrhash(const rstr_t *key)
        return hash;
 }
 
-void r_mapnode_init(r_mapnode_t *node, const rchar *key, rsize_t size)
+void r_mapnode_init(r_mapnode_t *node, const char *key, rsize_t size)
 {
 //     node->key = r_rstrdup(key, size);
        node->key = r_string_create_strsize(key, size);
@@ -65,12 +65,12 @@ void r_mapnode_init(r_mapnode_t *node, const rchar *key, rsize_t size)
 }
 
 
-r_mapnode_t *r_map_getfreenode(rmap_t *map, const rchar *key, rsize_t size)
+r_mapnode_t *r_map_getfreenode(rmap_t *map, const char *key, rsize_t size)
 {
        r_mapnode_t *node = NULL;
 
        if (r_list_empty(&map->inactive)) {
-               rlong index = r_carray_add(map->data, NULL);
+               long index = r_carray_add(map->data, NULL);
                node = (r_mapnode_t*)r_carray_slot(map->data, index);
                r_mapnode_init(node, key, size);
                node->index = index;
@@ -113,7 +113,7 @@ void r_map_cleanup(robject_t *obj)
 }
 
 
-robject_t *r_map_init(robject_t *obj, ruint32 type, r_object_cleanupfun cleanup, r_object_copyfun copy, ruinteger elt_size, ruinteger nbits)
+robject_t *r_map_init(robject_t *obj, ruint32 type, r_object_cleanupfun cleanup, r_object_copyfun copy, unsigned int elt_size, unsigned int nbits)
 {
        rsize_t elt_realsize = R_SIZE_ALIGN(elt_size + sizeof(r_mapnode_t), sizeof(rword));
        rsize_t hashsize, i;
@@ -138,7 +138,7 @@ robject_t *r_map_init(robject_t *obj, ruint32 type, r_object_cleanupfun cleanup,
        return obj;
 }
 
-rmap_t *r_map_create(ruinteger elt_size, ruinteger nbits)
+rmap_t *r_map_create(unsigned int elt_size, unsigned int nbits)
 {
        rmap_t *map;
        map = (rmap_t*)r_object_create(sizeof(*map));
@@ -154,7 +154,7 @@ void r_map_destroy(rmap_t *map)
 }
 
 
-rlong r_map_gckey_add(rmap_t *map, rgc_t* gc, const rchar *name, rsize_t namesize, rconstpointer pval)
+long r_map_gckey_add(rmap_t *map, rgc_t* gc, const char *name, rsize_t namesize, rconstpointer pval)
 {
        r_mapnode_t *node;
 
@@ -170,55 +170,55 @@ rlong r_map_gckey_add(rmap_t *map, rgc_t* gc, const rchar *name, rsize_t namesiz
 }
 
 
-rlong r_map_gckey_add_s(rmap_t *map, rgc_t* gc, const rchar *name, rconstpointer pval)
+long r_map_gckey_add_s(rmap_t *map, rgc_t* gc, const char *name, rconstpointer pval)
 {
        return r_map_gckey_add(map, gc, name, r_strlen(name), pval);
 }
 
 
-rlong r_map_gckey_add_d(rmap_t *map, rgc_t* gc, double name, rconstpointer pval)
+long r_map_gckey_add_d(rmap_t *map, rgc_t* gc, double name, rconstpointer pval)
 {
-       rchar key[128];
+       char key[128];
        r_memset(key, 0, sizeof(key));
        r_snprintf(key, sizeof(key) - 1, "%.15f", name);
        return r_map_gckey_add_s(map, gc, key, pval);
 }
 
 
-rlong r_map_gckey_add_l(rmap_t *map, rgc_t* gc, long name, rconstpointer pval)
+long r_map_gckey_add_l(rmap_t *map, rgc_t* gc, long name, rconstpointer pval)
 {
-       rchar key[128];
+       char key[128];
        r_memset(key, 0, sizeof(key));
        r_snprintf(key, sizeof(key) - 1, "%ld", name);
        return r_map_gckey_add_s(map, gc, key, pval);
 }
 
 
-rlong r_map_add(rmap_t *map, const rchar *name, rsize_t namesize, rconstpointer pval)
+long r_map_add(rmap_t *map, const char *name, rsize_t namesize, rconstpointer pval)
 {
        return r_map_gckey_add(map, NULL, name, namesize, pval);
 }
 
 
-rlong r_map_add_s(rmap_t *map, const rchar *name, rconstpointer pval)
+long r_map_add_s(rmap_t *map, const char *name, rconstpointer pval)
 {
        return r_map_gckey_add_s(map, NULL, name, pval);
 }
 
 
-rlong r_map_add_l(rmap_t *map, long name, rconstpointer pval)
+long r_map_add_l(rmap_t *map, long name, rconstpointer pval)
 {
        return r_map_gckey_add_l(map, NULL, name, pval);
 }
 
 
-rlong r_map_add_d(rmap_t *map, double name, rconstpointer pval)
+long r_map_add_d(rmap_t *map, double name, rconstpointer pval)
 {
        return r_map_gckey_add_d(map, NULL, name, pval);
 }
 
 
-r_mapnode_t *r_map_node(rmap_t *map, rulong index)
+r_mapnode_t *r_map_node(rmap_t *map, unsigned long index)
 {
        r_mapnode_t *node;
        if (index >= r_carray_length(map->data))
@@ -230,7 +230,7 @@ r_mapnode_t *r_map_node(rmap_t *map, rulong index)
 }
 
 
-rstring_t *r_map_key(rmap_t *map, rulong index)
+rstring_t *r_map_key(rmap_t *map, unsigned long index)
 {
        r_mapnode_t *node = r_map_node(map, index);
        if (!node)
@@ -239,7 +239,7 @@ rstring_t *r_map_key(rmap_t *map, rulong index)
 }
 
 
-rpointer r_map_value(rmap_t *map, rulong index)
+rpointer r_map_value(rmap_t *map, unsigned long index)
 {
        r_mapnode_t *node = r_map_node(map, index);
        if (!node)
@@ -248,7 +248,7 @@ rpointer r_map_value(rmap_t *map, rulong index)
 }
 
 
-rlong r_map_setvalue(rmap_t *map, rlong index, rconstpointer pval)
+long r_map_setvalue(rmap_t *map, long index, rconstpointer pval)
 {
        r_mapnode_t *node = r_map_node(map, index);
        if (!node)
@@ -258,7 +258,7 @@ rlong r_map_setvalue(rmap_t *map, rlong index, rconstpointer pval)
 }
 
 
-rinteger r_map_delete(rmap_t *map, rulong index)
+int r_map_delete(rmap_t *map, unsigned long index)
 {
        r_mapnode_t *node = r_map_node(map, index);
        if (!node)
@@ -274,12 +274,12 @@ rinteger r_map_delete(rmap_t *map, rulong index)
 }
 
 
-rlong r_map_lookup(rmap_t *map, rlong current, const rchar *name, rsize_t namesize)
+long r_map_lookup(rmap_t *map, long current, const char *name, rsize_t namesize)
 {
-       rlong found = -1;
+       long found = -1;
        r_mapnode_t *node;
        rstr_t lookupstr = {(char*)name, namesize};
-       rulong nbucket;
+       unsigned long nbucket;
        rhead_t *bucket;
        rlink_t *pos;
 
@@ -303,40 +303,40 @@ rlong r_map_lookup(rmap_t *map, rlong current, const rchar *name, rsize_t namesi
                }
        }
 
-       return (rlong)found;
+       return (long)found;
 }
 
 
-rlong r_map_lookup_s(rmap_t *map, rlong current, const rchar *name)
+long r_map_lookup_s(rmap_t *map, long current, const char *name)
 {
        return r_map_lookup(map, current, name, r_strlen(name));
 }
 
 
-rlong r_map_lookup_l(rmap_t *map, rlong current, long name)
+long r_map_lookup_l(rmap_t *map, long current, long name)
 {
-       rchar key[128];
+       char key[128];
        r_memset(key, 0, sizeof(key));
        r_snprintf(key, sizeof(key) - 1, "%ld", name);
        return r_map_lookup_s(map, current, key);
 }
 
 
-rlong r_map_lookup_d(rmap_t *map, rlong current, double name)
+long r_map_lookup_d(rmap_t *map, long current, double name)
 {
-       rchar key[128];
+       char key[128];
        r_memset(key, 0, sizeof(key));
        r_snprintf(key, sizeof(key) - 1, "%.15f", name);
        return r_map_lookup_s(map, current, key);
 }
 
 
-rlong r_map_taillookup(rmap_t *map, rlong current, const rchar *name, rsize_t namesize)
+long r_map_taillookup(rmap_t *map, long current, const char *name, rsize_t namesize)
 {
-       rlong found = -1;
+       long found = -1;
        r_mapnode_t *node;
        rstr_t lookupstr = {(char*)name, namesize};
-       rulong nbucket;
+       unsigned long nbucket;
        rhead_t *bucket;
        rlink_t *pos;
 
@@ -360,17 +360,17 @@ rlong r_map_taillookup(rmap_t *map, rlong current, const rchar *name, rsize_t na
                }
        }
 
-       return (rlong)found;
+       return (long)found;
 }
 
 
-rlong r_map_taillookup_s(rmap_t *map, rlong current, const rchar *name)
+long r_map_taillookup_s(rmap_t *map, long current, const char *name)
 {
        return r_map_taillookup(map, current, name, r_strlen(name));
 }
 
 
-rlong r_map_first(rmap_t *map)
+long r_map_first(rmap_t *map)
 {
        r_mapnode_t *node;
        rlink_t *pos = r_list_first(&map->active);
@@ -382,7 +382,7 @@ rlong r_map_first(rmap_t *map)
 }
 
 
-rlong r_map_last(rmap_t *map)
+long r_map_last(rmap_t *map)
 {
        r_mapnode_t *node;
        rlink_t *pos = r_list_last(&map->active);
@@ -394,7 +394,7 @@ rlong r_map_last(rmap_t *map)
 }
 
 
-rlong r_map_next(rmap_t *map, rlong current)
+long r_map_next(rmap_t *map, long current)
 {
        r_mapnode_t *node = r_map_node(map, current);
        rlink_t *pos;
@@ -409,7 +409,7 @@ rlong r_map_next(rmap_t *map, rlong current)
 }
 
 
-rlong r_map_prev(rmap_t *map, rlong current)
+long r_map_prev(rmap_t *map, long current)
 {
        r_mapnode_t *node = r_map_node(map, current);
        rlink_t *pos;
index 90fbca0..f1f3b74 100644 (file)
@@ -38,8 +38,8 @@ extern "C" {
 
 typedef struct rmap_s {
        robject_t obj;
-       ruinteger nbits;
-       ruinteger elt_size;
+       unsigned int nbits;
+       unsigned int elt_size;
        rcarray_t *data;
        rlist_t *hash;
        rlist_t active;
@@ -47,18 +47,18 @@ typedef struct rmap_s {
 } rmap_t;
 
 
-rmap_t *r_map_create(ruinteger elt_size, ruinteger nbits);
+rmap_t *r_map_create(unsigned int elt_size, unsigned int nbits);
 void r_map_destroy(rmap_t *array);
-rlong r_map_lookup(rmap_t *map, rlong current, const rchar *name, rsize_t namesize);
-rlong r_map_lookup_s(rmap_t *map, rlong current, const rchar *name);
-rlong r_map_taillookup(rmap_t *map, rlong current, const rchar *name, rsize_t namesize);
-rlong r_map_taillookup_s(rmap_t *map, rlong current, const rchar *name);
-rlong r_map_lookup_d(rmap_t *map, rlong current, double name);
-rlong r_map_lookup_l(rmap_t *map, rlong current, long name);
-rlong r_map_add(rmap_t *map, const rchar *name, rsize_t namesize, rconstpointer pval);
-rlong r_map_add_s(rmap_t *map, const rchar *name, rconstpointer pval);
-rlong r_map_add_d(rmap_t *map, double name, rconstpointer pval);
-rlong r_map_add_l(rmap_t *map, long name, rconstpointer pval);
+long r_map_lookup(rmap_t *map, long current, const char *name, rsize_t namesize);
+long r_map_lookup_s(rmap_t *map, long current, const char *name);
+long r_map_taillookup(rmap_t *map, long current, const char *name, rsize_t namesize);
+long r_map_taillookup_s(rmap_t *map, long current, const char *name);
+long r_map_lookup_d(rmap_t *map, long current, double name);
+long r_map_lookup_l(rmap_t *map, long current, long name);
+long r_map_add(rmap_t *map, const char *name, rsize_t namesize, rconstpointer pval);
+long r_map_add_s(rmap_t *map, const char *name, rconstpointer pval);
+long r_map_add_d(rmap_t *map, double name, rconstpointer pval);
+long r_map_add_l(rmap_t *map, long name, rconstpointer pval);
 
 /*
  * The following functions allow the created keys (rstring_t objects) to be added to
@@ -67,19 +67,19 @@ rlong r_map_add_l(rmap_t *map, long name, rconstpointer pval);
  * GC memory management. Another possibility would be to get the key as a rstrit_t* and
  * make rmap_t completely get out of the memory management business.
  */
-rlong r_map_gckey_add(rmap_t *map, rgc_t* gc, const rchar *name, rsize_t namesize, rconstpointer pval);
-rlong r_map_gckey_add_s(rmap_t *map, rgc_t* gc, const rchar *name, rconstpointer pval);
-rlong r_map_gckey_add_d(rmap_t *map, rgc_t* gc, double name, rconstpointer pval);
-rlong r_map_gckey_add_l(rmap_t *map, rgc_t* gc, long name, rconstpointer pval);
-rlong r_map_setvalue(rmap_t *map, rlong index, rconstpointer pval);
-rstring_t *r_map_key(rmap_t *map, rulong index);
-rpointer r_map_value(rmap_t *map, rulong index);
-rinteger r_map_delete(rmap_t *map, rulong index);
+long r_map_gckey_add(rmap_t *map, rgc_t* gc, const char *name, rsize_t namesize, rconstpointer pval);
+long r_map_gckey_add_s(rmap_t *map, rgc_t* gc, const char *name, rconstpointer pval);
+long r_map_gckey_add_d(rmap_t *map, rgc_t* gc, double name, rconstpointer pval);
+long r_map_gckey_add_l(rmap_t *map, rgc_t* gc, long name, rconstpointer pval);
+long r_map_setvalue(rmap_t *map, long index, rconstpointer pval);
+rstring_t *r_map_key(rmap_t *map, unsigned long index);
+rpointer r_map_value(rmap_t *map, unsigned long index);
+int r_map_delete(rmap_t *map, unsigned long index);
 
-rlong r_map_first(rmap_t *map);
-rlong r_map_last(rmap_t *map);
-rlong r_map_next(rmap_t *map, rlong current);
-rlong r_map_prev(rmap_t *map, rlong current);
+long r_map_first(rmap_t *map);
+long r_map_last(rmap_t *map);
+long r_map_next(rmap_t *map, long current);
+long r_map_prev(rmap_t *map, long current);
 
 
 #ifdef __cplusplus
index 190d67b..271462a 100644 (file)
@@ -187,7 +187,7 @@ rpointer r_zmalloc(rsize_t size)
 }
 
 
-rpointer r_memset(rpointer s, rinteger c, rsize_t n)
+rpointer r_memset(rpointer s, int c, rsize_t n)
 {
        return memset((void*)s, (int)c, (size_t)n);
 }
index af829e2..72fdcc6 100644 (file)
@@ -34,7 +34,7 @@ rpointer r_realloc(rpointer ptr, rsize_t size);
 rpointer r_calloc(rsize_t nmemb, rsize_t size);
 void r_free(rpointer ptr);
 rpointer r_zmalloc(rsize_t size);
-rpointer r_memset(rpointer s, rinteger c, rsize_t n);
+rpointer r_memset(rpointer s, int c, rsize_t n);
 rpointer r_memcpy(rpointer dest, rconstpointer src, rsize_t n);
 rpointer r_memmove(rpointer dest, rconstpointer src, rsize_t n);
 rsize_t r_debug_get_allocmem();
index 8e55628..23f6c23 100644 (file)
 #include "rlib/rmem.h"
 
 
-rinteger r_strcmp(const rchar *s1, const rchar *s2)
+int r_strcmp(const char *s1, const char *s2)
 {
        return strcmp(s1, s2);
 }
 
 
-rinteger r_strncmp(const rchar *s1, const rchar *s2, rsize_t n)
+int r_strncmp(const char *s1, const char *s2, rsize_t n)
 {
        int ret = strncmp(s1, s2, (size_t)n);
        return ret;
 }
 
 
-rboolean r_stringncmp(const rchar *str, const rchar *s2, rsize_t n)
+rboolean r_stringncmp(const char *str, const char *s2, rsize_t n)
 {
        if (r_strlen(str) == n && r_strncmp(str, s2, (size_t)n) == 0)
                return 1;
@@ -48,25 +48,25 @@ rboolean r_stringncmp(const rchar *str, const rchar *s2, rsize_t n)
 }
 
 
-rsize_t r_strlen(const rchar *s)
+rsize_t r_strlen(const char *s)
 {
        return s ? strlen(s) : 0;
 }
 
 
-rchar *r_strstr(const rchar *haystack, const rchar *needle)
+char *r_strstr(const char *haystack, const char *needle)
 {
        return strstr(haystack, needle);
 }
 
 
-rchar *r_strchr(const rchar *s, rinteger c)
+char *r_strchr(const char *s, int c)
 {
        return strchr(s, c);
 }
 
 
-rchar *r_strtrimr(rchar *s, const char *chrs)
+char *r_strtrimr(char *s, const char *chrs)
 {
        int i;
        for (i = r_strlen(s) - 1; i >= 0 && r_strchr(chrs, s[i]) != NULL; i--)
@@ -75,22 +75,22 @@ rchar *r_strtrimr(rchar *s, const char *chrs)
 }
 
 
-rchar *r_strcpy(rchar *dest, const rchar *src)
+char *r_strcpy(char *dest, const char *src)
 {
-       return (rchar*) strcpy(dest, src);
+       return (char*) strcpy(dest, src);
 }
 
 
-rchar *r_strncpy(rchar *dest, const rchar *src, rsize_t n)
+char *r_strncpy(char *dest, const char *src, rsize_t n)
 {
-       return (rchar*) strncpy(dest, src, n);
+       return (char*) strncpy(dest, src, n);
 }
 
 
-rchar *r_strdup(const rchar *s)
+char *r_strdup(const char *s)
 {
        rsize_t size = r_strlen(s);
-       rchar *dupstr = (rchar*)r_zmalloc(size + 1);
+       char *dupstr = (char*)r_zmalloc(size + 1);
 
        if (dupstr) {
                r_strcpy(dupstr, s);
@@ -99,9 +99,9 @@ rchar *r_strdup(const rchar *s)
 }
 
 
-rchar *r_strndup(const rchar *s, rsize_t size)
+char *r_strndup(const char *s, rsize_t size)
 {
-       rchar *dupstr = (rchar*)r_zmalloc(size + 1);
+       char *dupstr = (char*)r_zmalloc(size + 1);
 
        if (dupstr) {
                r_strncpy(dupstr, s, size);
@@ -110,40 +110,40 @@ rchar *r_strndup(const rchar *s, rsize_t size)
 }
 
 
-rstr_t *r_rstrdup(const rchar *s, ruinteger size)
+rstr_t *r_rstrdup(const char *s, unsigned int size)
 {
-       rsize_t allocsize = sizeof(rstr_t) + size + sizeof(rchar);
+       rsize_t allocsize = sizeof(rstr_t) + size + sizeof(char);
        rstr_t *d = (rstr_t*)r_malloc(allocsize);
        if (d) {
                r_memset(d, 0, allocsize);
                d->size = size;
-               d->str = (rchar*)&d[1];
+               d->str = (char*)&d[1];
                if (s)
-                       r_memcpy((rchar*)d->str, s, size);
+                       r_memcpy((char*)d->str, s, size);
        }
        return d;
 }
 
 
-rinteger r_vsnprintf(rchar *str, ruinteger size, const rchar *format, va_list ap)
+int r_vsnprintf(char *str, unsigned int size, const char *format, va_list ap)
 {
        return vsnprintf(str, size, format, ap);
 }
 
 
-rchar *r_strcat(rchar *dest, const rchar *src)
+char *r_strcat(char *dest, const char *src)
 {
        return strcat(dest, src);
 }
 
 
-rchar *r_strncat(rchar *dest, const rchar *src, ruinteger n)
+char *r_strncat(char *dest, const char *src, unsigned int n)
 {
        return strncat(dest, src, n);
 }
 
 
-rinteger r_snprintf(rchar *str, ruinteger size, const rchar *format, ...)
+int r_snprintf(char *str, unsigned int size, const char *format, ...)
 {
        va_list ap;
        int ret;
@@ -155,7 +155,7 @@ rinteger r_snprintf(rchar *str, ruinteger size, const rchar *format, ...)
 }
 
 
-rinteger r_printf(const rchar *format, ...)
+int r_printf(const char *format, ...)
 {
        va_list ap;
        int ret;
@@ -167,19 +167,19 @@ rinteger r_printf(const rchar *format, ...)
 }
 
 
-rulong r_strtoul(const rchar *nptr, rchar **endptr, rinteger base)
+unsigned long r_strtoul(const char *nptr, char **endptr, int base)
 {
        return strtoul(nptr, endptr,base);
 }
 
 
-rlong r_strtol(const rchar *s, rchar **endptr, rinteger base)
+long r_strtol(const char *s, char **endptr, int base)
 {
        return strtol(s, endptr, base);
 }
 
 
-rdouble r_strtod(const rchar *s, rchar **endptr)
+double r_strtod(const char *s, char **endptr)
 {
        return strtod(s, endptr);
 }
@@ -219,7 +219,7 @@ void r_string_assign(rstring_t *string, const rstr_t *str)
 {
        if (str && str->size) {
                r_free(string->s.str);
-               string->s.str = (rchar*)r_malloc(str->size + 1);
+               string->s.str = (char*)r_malloc(str->size + 1);
                if (!string->s.str)
                        return;
                r_memset(string->s.str, 0, str->size + 1);
@@ -230,7 +230,7 @@ void r_string_assign(rstring_t *string, const rstr_t *str)
                 * Create empty string
                 */
                r_free(string->s.str);
-               string->s.str = (rchar*)r_malloc(1);
+               string->s.str = (char*)r_malloc(1);
                if (!string->s.str)
                        return;
                r_memset(string->s.str, 0, 1);
@@ -266,13 +266,13 @@ rstring_t *r_string_create_from_rstr(const rstr_t *str)
 }
 
 
-rstring_t *r_string_create_from_ansistr(const rchar *str)
+rstring_t *r_string_create_from_ansistr(const char *str)
 {
        rstr_t rstr;
 
        r_memset(&rstr, 0, sizeof(rstr));
        if (str) {
-               rstr.str = (rchar*)str;
+               rstr.str = (char*)str;
                rstr.size = r_strlen(str);
        }
        return r_string_create_from_rstr(&rstr);
@@ -281,10 +281,10 @@ rstring_t *r_string_create_from_ansistr(const rchar *str)
 
 
 
-rstring_t *r_string_create_from_double(rdouble d)
+rstring_t *r_string_create_from_double(double d)
 {
        char temp[128];
-       rinteger size;
+       int size;
 
        r_memset(temp, 0, sizeof(temp));
        size = r_snprintf(temp, sizeof(temp) - 1, "%f", d);
@@ -296,10 +296,10 @@ rstring_t *r_string_create_from_double(rdouble d)
 }
 
 
-rstring_t *r_string_create_from_long(rlong l)
+rstring_t *r_string_create_from_long(long l)
 {
        char temp[128];
-       rinteger size;
+       int size;
 
        r_memset(temp, 0, sizeof(temp));
        size = r_snprintf(temp, sizeof(temp) - 1, "%ld", l);
@@ -310,13 +310,13 @@ rstring_t *r_string_create_from_long(rlong l)
 }
 
 
-rstring_t *r_string_create_strsize(const rchar *str, ruinteger size)
+rstring_t *r_string_create_strsize(const char *str, unsigned int size)
 {
        rstr_t rstr;
 
        r_memset(&rstr, 0, sizeof(rstr));
        if (str) {
-               rstr.str = (rchar*)str;
+               rstr.str = (char*)str;
                rstr.size = size;
        }
        return r_string_create_from_rstr(&rstr);
index ff33379..1b692ef 100644 (file)
@@ -35,31 +35,31 @@ extern "C" {
 
 
 typedef struct rstr_s {
-       rchar *str;
+       char *str;
        rsize_t size;
 } rstr_t;
 
 
-rinteger r_strcmp(const rchar *s1, const rchar *s2);
-rinteger r_strncmp(const rchar *s1, const rchar *s2, rsize_t n);
-rboolean r_stringncmp(const rchar *str, const rchar *s2, rsize_t n);
-rsize_t r_strlen(const rchar *s);
-rchar *r_strstr(const rchar *haystack, const rchar *needle);
-rchar *r_strchr(const rchar *s, rinteger c);
-rchar *r_strdup(const rchar *s);
-rchar *r_strndup(const rchar *s, rsize_t size);
-rchar *r_strcpy(rchar *dest, const rchar *src);
-rchar *r_strncpy(rchar *dest, const rchar *src, rsize_t n);
-rchar *r_strcat(rchar *dest, const rchar *src);
-rchar *r_strncat(rchar *dest, const rchar *src, ruinteger n);
-rinteger r_snprintf(rchar *str, ruinteger size, const rchar *format, ...);
-rinteger r_printf(const rchar *format, ...);
+int r_strcmp(const char *s1, const char *s2);
+int r_strncmp(const char *s1, const char *s2, rsize_t n);
+rboolean r_stringncmp(const char *str, const char *s2, rsize_t n);
+rsize_t r_strlen(const char *s);
+char *r_strstr(const char *haystack, const char *needle);
+char *r_strchr(const char *s, int c);
+char *r_strdup(const char *s);
+char *r_strndup(const char *s, rsize_t size);
+char *r_strcpy(char *dest, const char *src);
+char *r_strncpy(char *dest, const char *src, rsize_t n);
+char *r_strcat(char *dest, const char *src);
+char *r_strncat(char *dest, const char *src, unsigned int n);
+int r_snprintf(char *str, unsigned int size, const char *format, ...);
+int r_printf(const char *format, ...);
 
-rulong r_strtoul(const rchar *nptr, rchar **endptr, rinteger base);
-rlong r_strtol(const rchar *s, rchar **endptr, rinteger base);
-rdouble r_strtod(const rchar *s, rchar **endptr);
+unsigned long r_strtoul(const char *nptr, char **endptr, int base);
+long r_strtol(const char *s, char **endptr, int base);
+double r_strtod(const char *s, char **endptr);
 
-rstr_t *r_rstrdup(const rchar *s, ruinteger size);
+rstr_t *r_rstrdup(const char *s, unsigned int size);
 
 
 typedef struct rstring_s {
@@ -71,10 +71,10 @@ typedef struct rstring_s {
 #define R_STRING2RSTR(__p__) &((rstring_t *)(__p__))->s
 #define r_string_empty(__p__) (!((__p__) && ((rstring_t *)(__p__))->s.size)) ? 1 : 0
 rstring_t *r_string_create();
-rstring_t *r_string_create_from_ansistr(const rchar *str);
-rstring_t *r_string_create_from_double(rdouble d);
-rstring_t *r_string_create_from_long(rlong l);
-rstring_t *r_string_create_strsize(const char *str, ruinteger size);
+rstring_t *r_string_create_from_ansistr(const char *str);
+rstring_t *r_string_create_from_double(double d);
+rstring_t *r_string_create_from_long(long l);
+rstring_t *r_string_create_strsize(const char *str, unsigned int size);
 rstring_t *r_string_create_from_rstr(const rstr_t *str);
 void r_string_destroy(rstring_t *string);
 robject_t *r_string_init(robject_t *obj, ruint32 type, r_object_cleanupfun cleanup, r_object_copyfun copy);
index 80a5f1d..d39a47e 100644 (file)
 #include "rlib/rutf.h"
 
 
-rinteger r_utf8_mbtowc(ruint32 *pwc, const ruchar *input, const ruchar *end)
+int r_utf8_mbtowc(ruint32 *pwc, const unsigned char *input, const unsigned char *end)
 {
-       rinteger n;
-       ruchar c;
+       int n;
+       unsigned char c;
 
        if (input >= end) {
                *pwc = (ruint32)0;
@@ -35,7 +35,7 @@ rinteger r_utf8_mbtowc(ruint32 *pwc, const ruchar *input, const ruchar *end)
                *pwc = c;
                return 1;
        }
-       n = (rinteger)(end - input);
+       n = (int)(end - input);
        if (c == 0xC0 || c == 0xC1 || (c >= 0xF5 && c <= 0xFF))
                goto error;
        if ((c >> 5) == 6) {
@@ -64,7 +64,7 @@ error:
 }
 
 
-rinteger r_utf8_wctomb(ruint32 wc, ruchar *output, ruint32 size)
+int r_utf8_wctomb(ruint32 wc, unsigned char *output, ruint32 size)
 {
        ruint32 count;
        if (wc <= 0x007F)
@@ -99,9 +99,9 @@ rinteger r_utf8_wctomb(ruint32 wc, ruchar *output, ruint32 size)
 }
 
 
-rinteger r_utf16_mbtowc(ruint32 *pwc, const ruchar *s, const ruchar *end)
+int r_utf16_mbtowc(ruint32 *pwc, const unsigned char *s, const unsigned char *end)
 {
-       rinteger n = (rinteger)(end - s);
+       int n = (int)(end - s);
        ruint32 wc1, wc2;
 
        if (s >= end) {
@@ -134,7 +134,7 @@ error:
 }
 
 
-rinteger r_utf16_wctomb(ruint32 wc, ruchar *output, ruint32 size)
+int r_utf16_wctomb(ruint32 wc, unsigned char *output, ruint32 size)
 {
        ruint32 wc1, wc2;
 
@@ -142,18 +142,18 @@ rinteger r_utf16_wctomb(ruint32 wc, ruchar *output, ruint32 size)
                if (wc < 0x10000) {
                        if (size < 2)
                                return 0;
-                       output[0] = (ruchar) wc;
-                       output[1] = (ruchar) (wc >> 8);
+                       output[0] = (unsigned char) wc;
+                       output[1] = (unsigned char) (wc >> 8);
                        return 2;
                } else if (wc <= 0x10FFFF) {
                        if (size < 4) 
                                return 0;
                        wc1 = 0xd800 + ((wc - 0x10000) >> 10);
                        wc2 = 0xdc00 + ((wc - 0x10000) & 0x3ff);
-                       output[0] = (ruchar) wc1;
-                       output[1] = (ruchar) (wc1 >> 8);
-                       output[2] = (ruchar) wc2;
-                       output[3] = (ruchar) (wc2 >> 8);
+                       output[0] = (unsigned char) wc1;
+                       output[1] = (unsigned char) (wc1 >> 8);
+                       output[2] = (unsigned char) wc2;
+                       output[3] = (unsigned char) (wc2 >> 8);
                        return 4;
                }
        }
index d5e55cd..c391e66 100644 (file)
@@ -28,10 +28,10 @@ extern "C" {
 #endif
 
 
-rinteger r_utf8_mbtowc(ruint32 *pwc, const ruchar *input, const ruchar *end);
-rinteger r_utf8_wctomb(ruint32 wc, ruchar *output, ruint32 size);
-rinteger r_utf16_mbtowc(ruint32 *pwc, const ruchar *s, const ruchar *end);
-rinteger r_utf16_wctomb(ruint32 wc, ruchar *output, ruint32 size);
+int r_utf8_mbtowc(ruint32 *pwc, const unsigned char *input, const unsigned char *end);
+int r_utf8_wctomb(ruint32 wc, unsigned char *output, ruint32 size);
+int r_utf16_mbtowc(ruint32 *pwc, const unsigned char *s, const unsigned char *end);
+int r_utf16_wctomb(ruint32 wc, unsigned char *output, ruint32 size);
 
 
 #ifdef __cplusplus
index 0eda53e..782d779 100644 (file)
@@ -28,7 +28,7 @@
  */
 int main(int argc, char *argv[])
 {
-       rlong i;
+       long i;
        rpadbex_t *dbex;
        rpastat_t *stat;
        rparecord_t *record;
index 962ed45..03d65db 100644 (file)
 #include "rlib/rmem.h"
 #include "rpa/rparecord.h"
 
-#define RPA_MCACHE_BUCKET(_top_, _ruleid_) ( ( (((rulong)(_top_))<<3) ^ ((((rulong)(_ruleid_))>>5)) ) & RPA_MCACHE_MASK)
+#define RPA_MCACHE_BUCKET(_top_, _ruleid_) ( ( (((unsigned long)(_top_))<<3) ^ ((((unsigned long)(_ruleid_))>>5)) ) & RPA_MCACHE_MASK)
 
 
 rpacache_t *rpa_cache_create()
 {
-       rlong i;
+       long i;
        rpacache_t *cache = (rpacache_t*) r_zmalloc(sizeof(*cache));
 
        if (!cache)
@@ -41,7 +41,7 @@ rpacache_t *rpa_cache_create()
 
 void rpa_cache_destroy(rpacache_t *cache)
 {
-       rlong i;
+       long i;
        if (!cache)
                return;
        for (i = 0; i < RPA_MCACHE_SIZE; i++) {
@@ -56,16 +56,16 @@ void rpa_cache_invalidate(rpacache_t *cache)
 }
 
 
-void rpa_cache_disable(rpacache_t *cache, rlong disable)
+void rpa_cache_disable(rpacache_t *cache, long disable)
 {
        cache->disalbled = disable;
 }
 
 
-void rpa_cache_set(rpacache_t *cache, rlong top, rlong ruleid, rlong ret, rarray_t *records, rlong startrec, rlong size)
+void rpa_cache_set(rpacache_t *cache, long top, long ruleid, long ret, rarray_t *records, long startrec, long size)
 {
-       rlong i;
-       rulong bucket = RPA_MCACHE_BUCKET(top, ruleid);
+       long i;
+       unsigned long bucket = RPA_MCACHE_BUCKET(top, ruleid);
        rarray_t *cacherecords;
 
        if (cache->disalbled)
@@ -89,9 +89,9 @@ void rpa_cache_set(rpacache_t *cache, rlong top, rlong ruleid, rlong ret, rarray
 }
 
 
-rpacachedentry_t *rpa_cache_lookup(rpacache_t *cache, rlong top, rlong ruleid)
+rpacachedentry_t *rpa_cache_lookup(rpacache_t *cache, long top, long ruleid)
 {
-       rulong bucket = RPA_MCACHE_BUCKET(top, ruleid);
+       unsigned long bucket = RPA_MCACHE_BUCKET(top, ruleid);
        rpacachedentry_t *entry = &cache->entry[bucket];
 
        if (cache->disalbled)
index 253f6e8..a3bb5f7 100644 (file)
@@ -35,29 +35,29 @@ extern "C" {
 
 
 typedef struct rpacachedentry_s {
-       rlong ruleid;
-       rlong top;
-       rlong ret;
-       rlong startrec;
-       rlong recsize;
-       rulong serial;
+       long ruleid;
+       long top;
+       long ret;
+       long startrec;
+       long recsize;
+       unsigned long serial;
        rarray_t *records;
 } rpacachedentry_t;
 
 typedef struct rpacache_s {
        rpacachedentry_t entry[RPA_MCACHE_SIZE];
-       rlong hit;
-       rlong disalbled;
-       rulong serial;
+       long hit;
+       long disalbled;
+       unsigned long serial;
 } rpacache_t;
 
 
 rpacache_t *rpa_cache_create();
 void rpa_cache_destroy(rpacache_t *cache);
-void rpa_cache_disable(rpacache_t *cache, rlong disable);
+void rpa_cache_disable(rpacache_t *cache, long disable);
 void rpa_cache_invalidate(rpacache_t *cache);
-void rpa_cache_set(rpacache_t *cache, rlong top, rlong ruleid, rlong ret, rarray_t *records, rlong startrec, rlong size);
-rpacachedentry_t *rpa_cache_lookup(rpacache_t *cache, rlong top, rlong ruleid);
+void rpa_cache_set(rpacache_t *cache, long top, long ruleid, long ret, rarray_t *records, long startrec, long size);
+rpacachedentry_t *rpa_cache_lookup(rpacache_t *cache, long top, long ruleid);
 #ifdef __cplusplus
 }
 #endif
index 4ff9349..2c55986 100644 (file)
 #include "rlib/rstring.h"
 
 
-static rlong rpa_codegen_add_numlabel_s(rvm_codegen_t *cg, const rchar *alphaname, rlong numname)
+static long rpa_codegen_add_numlabel_s(rvm_codegen_t *cg, const char *alphaname, long numname)
 {
 #if 0
        /*
         * The alphaname and numname, might be used for
         * debugging at some point, but not used for now
         */
-       rchar label[128];
+       char label[128];
 
        r_memset(label, 0, sizeof(label));
        r_snprintf(label, sizeof(label) - 1, "L%07ld__%s:", numname, alphaname);
@@ -41,14 +41,14 @@ static rlong rpa_codegen_add_numlabel_s(rvm_codegen_t *cg, const rchar *alphanam
 }
 
 
-static rlong rpa_codegen_invalid_add_numlabel_s(rvm_codegen_t *cg, const rchar *alphaname, rlong numname)
+static long rpa_codegen_invalid_add_numlabel_s(rvm_codegen_t *cg, const char *alphaname, long numname)
 {
 #if 0
        /*
         * The alphaname and numname, might be used for
         * debugging at some point, but not used for now
         */
-       rchar label[128];
+       char label[128];
 
        r_memset(label, 0, sizeof(label));
        r_snprintf(label, sizeof(label) - 1, "L%07ld__%s:", numname, alphaname);
@@ -59,25 +59,25 @@ static rlong rpa_codegen_invalid_add_numlabel_s(rvm_codegen_t *cg, const rchar *
 }
 
 
-void rpa_compiler_index_reference_nan(rpa_compiler_t *co, rulong index)
+void rpa_compiler_index_reference_nan(rpa_compiler_t *co, unsigned long index)
 {
        rvm_codegen_index_addrelocins(co->cg, RVM_RELOC_BRANCH, index, rvm_asm(RVM_BL, DA, XX, XX, 0));
 }
 
 
-void rpa_compiler_reference_nan(rpa_compiler_t *co, const rchar *name, rsize_t namesize)
+void rpa_compiler_reference_nan(rpa_compiler_t *co, const char *name, rsize_t namesize)
 {
        rpa_compiler_index_reference_nan(co, rvm_codemap_lookupadd(co->cg->codemap, name, namesize));
 }
 
 
-void rpa_compiler_reference_nan_s(rpa_compiler_t *co, const rchar *name)
+void rpa_compiler_reference_nan_s(rpa_compiler_t *co, const char *name)
 {
        rpa_compiler_reference_nan(co, name, r_strlen(name));
 }
 
 
-void rpa_compiler_index_reference_opt(rpa_compiler_t *co, rulong index)
+void rpa_compiler_index_reference_opt(rpa_compiler_t *co, unsigned long index)
 {
        rvm_codegen_index_addrelocins(co->cg, RVM_RELOC_BRANCH, index, rvm_asm(RVM_BL, DA, XX, XX, 0));
        rvm_codegen_addins(co->cg, rvm_asml(RVM_MOVS, R0, R0, XX, 0));
@@ -86,19 +86,19 @@ void rpa_compiler_index_reference_opt(rpa_compiler_t *co, rulong index)
 }
 
 
-void rpa_compiler_reference_opt(rpa_compiler_t *co, const rchar *name, rsize_t namesize)
+void rpa_compiler_reference_opt(rpa_compiler_t *co, const char *name, rsize_t namesize)
 {
        rpa_compiler_index_reference_opt(co, rvm_codemap_lookupadd(co->cg->codemap, name, namesize));
 }
 
 
-void rpa_compiler_reference_opt_s(rpa_compiler_t *co, const rchar *name)
+void rpa_compiler_reference_opt_s(rpa_compiler_t *co, const char *name)
 {
        rpa_compiler_reference_opt(co, name, r_strlen(name));
 }
 
 
-void rpa_compiler_index_reference_mul(rpa_compiler_t *co, rulong index)
+void rpa_compiler_index_reference_mul(rpa_compiler_t *co, unsigned long index)
 {
        rvm_codegen_addins(co->cg, rvm_asm(RVM_PUSH, R_TOP, XX, XX, 0));
        rvm_codegen_index_addrelocins(co->cg, RVM_RELOC_BRANCH, index, rvm_asm(RVM_BL, DA, XX, XX, 0));
@@ -111,20 +111,20 @@ void rpa_compiler_index_reference_mul(rpa_compiler_t *co, rulong index)
 }
 
 
-void rpa_compiler_reference_mul(rpa_compiler_t *co, const rchar *name, rsize_t namesize)
+void rpa_compiler_reference_mul(rpa_compiler_t *co, const char *name, rsize_t namesize)
 {
        rpa_compiler_index_reference_mul(co, rvm_codemap_lookupadd(co->cg->codemap, name, namesize));
 
 }
 
 
-void rpa_compiler_reference_mul_s(rpa_compiler_t *co, const rchar *name)
+void rpa_compiler_reference_mul_s(rpa_compiler_t *co, const char *name)
 {
        rpa_compiler_reference_mul(co, name, r_strlen(name));
 }
 
 
-void rpa_compiler_index_reference_mop(rpa_compiler_t *co, rulong index)
+void rpa_compiler_index_reference_mop(rpa_compiler_t *co, unsigned long index)
 {
        rvm_codegen_addins(co->cg, rvm_asm(RVM_PUSH, R_TOP, XX, XX, 0));
        rvm_codegen_index_addrelocins(co->cg, RVM_RELOC_BRANCH, index, rvm_asm(RVM_BL, DA, XX, XX, 0));
@@ -137,19 +137,19 @@ void rpa_compiler_index_reference_mop(rpa_compiler_t *co, rulong index)
 }
 
 
-void rpa_compiler_reference_mop(rpa_compiler_t *co, const rchar *name, rsize_t namesize)
+void rpa_compiler_reference_mop(rpa_compiler_t *co, const char *name, rsize_t namesize)
 {
        rpa_compiler_index_reference_mop(co, rvm_codemap_lookupadd(co->cg->codemap, name, namesize));
 }
 
 
-void rpa_compiler_reference_mop_s(rpa_compiler_t *co, const rchar *name)
+void rpa_compiler_reference_mop_s(rpa_compiler_t *co, const char *name)
 {
        rpa_compiler_reference_mop(co, name, r_strlen(name));
 }
 
 
-void rpa_compiler_index_reference(rpa_compiler_t *co, rulong index, ruinteger qflag)
+void rpa_compiler_index_reference(rpa_compiler_t *co, unsigned long index, unsigned int qflag)
 {
        if (qflag == RPA_MATCH_OPTIONAL) {
                rpa_compiler_index_reference_opt(co, index);
@@ -163,13 +163,13 @@ void rpa_compiler_index_reference(rpa_compiler_t *co, rulong index, ruinteger qf
 }
 
 
-void rpa_compiler_reference(rpa_compiler_t *co, const rchar *name, rsize_t namesize, ruinteger qflag)
+void rpa_compiler_reference(rpa_compiler_t *co, const char *name, rsize_t namesize, unsigned int qflag)
 {
        rpa_compiler_index_reference(co, rvm_codemap_lookupadd(co->cg->codemap, name, namesize), qflag);
 }
 
 
-void rpa_compiler_reference_s(rpa_compiler_t *co, const rchar *name, ruinteger qflag)
+void rpa_compiler_reference_s(rpa_compiler_t *co, const char *name, unsigned int qflag)
 {
        rpa_compiler_reference(co, name, r_strlen(name), qflag);
 }
@@ -201,37 +201,37 @@ void rpa_compiler_destroy(rpa_compiler_t *co)
 }
 
 
-rpa_rulepref_t *rpa_compiler_rulepref_lookup(rpa_compiler_t *co, const rchar *name, ruinteger namesize)
+rpa_rulepref_t *rpa_compiler_rulepref_lookup(rpa_compiler_t *co, const char *name, unsigned int namesize)
 {
-       rlong index = r_harray_lookup(co->ruleprefs, name, namesize);
+       long index = r_harray_lookup(co->ruleprefs, name, namesize);
        if (index < 0)
                return NULL;
        return (rpa_rulepref_t *)r_harray_slot(co->ruleprefs, index);
 }
 
 
-rpa_rulepref_t *rpa_compiler_rulepref_lookup_s(rpa_compiler_t *co, const rchar *name)
+rpa_rulepref_t *rpa_compiler_rulepref_lookup_s(rpa_compiler_t *co, const char *name)
 {
        return rpa_compiler_rulepref_lookup(co, name, r_strlen(name));
 }
 
 
-rpa_rulepref_t *rpa_compiler_rulepref(rpa_compiler_t *co, const rchar *name, ruinteger namesize)
+rpa_rulepref_t *rpa_compiler_rulepref(rpa_compiler_t *co, const char *name, unsigned int namesize)
 {
-       rlong index = r_harray_lookup(co->ruleprefs, name, namesize);
+       long index = r_harray_lookup(co->ruleprefs, name, namesize);
        if (index < 0)
                index = r_harray_add(co->ruleprefs, name, namesize, NULL);
        return (rpa_rulepref_t *)r_harray_slot(co->ruleprefs, index);
 }
 
 
-rpa_rulepref_t *rpa_compiler_rulepref_s(rpa_compiler_t *co, const rchar *name)
+rpa_rulepref_t *rpa_compiler_rulepref_s(rpa_compiler_t *co, const char *name)
 {
        return rpa_compiler_rulepref(co, name, r_strlen(name));
 }
 
 
-void rpa_compiler_rulepref_set_ruleid(rpa_compiler_t *co, const rchar *name, ruinteger namesize, rlong ruleid)
+void rpa_compiler_rulepref_set_ruleid(rpa_compiler_t *co, const char *name, unsigned int namesize, long ruleid)
 {
        rpa_rulepref_t *rulepref = rpa_compiler_rulepref(co, name, namesize);
 
@@ -240,13 +240,13 @@ void rpa_compiler_rulepref_set_ruleid(rpa_compiler_t *co, const rchar *name, rui
 }
 
 
-void rpa_compiler_rulepref_set_ruleid_s(rpa_compiler_t *co, const rchar *name, rlong ruleid)
+void rpa_compiler_rulepref_set_ruleid_s(rpa_compiler_t *co, const char *name, long ruleid)
 {
        rpa_compiler_rulepref_set_ruleid(co, name, r_strlen(name), ruleid);
 }
 
 
-void rpa_compiler_rulepref_set_ruleuid(rpa_compiler_t *co, const rchar *name, ruinteger namesize, rlong ruleuid)
+void rpa_compiler_rulepref_set_ruleuid(rpa_compiler_t *co, const char *name, unsigned int namesize, long ruleuid)
 {
        rpa_rulepref_t *rulepref = rpa_compiler_rulepref(co, name, namesize);
 
@@ -255,13 +255,13 @@ void rpa_compiler_rulepref_set_ruleuid(rpa_compiler_t *co, const rchar *name, ru
 }
 
 
-void rpa_compiler_rulepref_set_ruleuid_s(rpa_compiler_t *co, const rchar *name, rlong ruleuid)
+void rpa_compiler_rulepref_set_ruleuid_s(rpa_compiler_t *co, const char *name, long ruleuid)
 {
        rpa_compiler_rulepref_set_ruleuid(co, name, r_strlen(name), ruleuid);
 }
 
 
-void rpa_compiler_rulepref_set_flag(rpa_compiler_t *co, const rchar *name, ruinteger namesize, rulong flag)
+void rpa_compiler_rulepref_set_flag(rpa_compiler_t *co, const char *name, unsigned int namesize, unsigned long flag)
 {
        rpa_rulepref_t *rulepref = rpa_compiler_rulepref(co, name, namesize);
 
@@ -270,13 +270,13 @@ void rpa_compiler_rulepref_set_flag(rpa_compiler_t *co, const rchar *name, ruint
 }
 
 
-void rpa_compiler_rulepref_set_flag_s(rpa_compiler_t *co, const rchar *name, rulong flag)
+void rpa_compiler_rulepref_set_flag_s(rpa_compiler_t *co, const char *name, unsigned long flag)
 {
        rpa_compiler_rulepref_set_flag(co, name, r_strlen(name), flag);
 }
 
 
-void rpa_compiler_rulepref_clear_flag(rpa_compiler_t *co, const rchar *name, ruinteger namesize, rulong flag)
+void rpa_compiler_rulepref_clear_flag(rpa_compiler_t *co, const char *name, unsigned int namesize, unsigned long flag)
 {
        rpa_rulepref_t *rulepref = rpa_compiler_rulepref(co, name, namesize);
 
@@ -285,13 +285,13 @@ void rpa_compiler_rulepref_clear_flag(rpa_compiler_t *co, const rchar *name, rui
 }
 
 
-void rpa_compiler_rulepref_clear_flag_s(rpa_compiler_t *co, const rchar *name, rulong flag)
+void rpa_compiler_rulepref_clear_flag_s(rpa_compiler_t *co, const char *name, unsigned long flag)
 {
        rpa_compiler_rulepref_clear_flag(co, name, r_strlen(name), flag);
 }
 
 
-void rpa_compiler_rulepref_set(rpa_compiler_t *co, const rchar *name, ruinteger namesize, rlong ruleid, rlong ruleuid, rulong flags)
+void rpa_compiler_rulepref_set(rpa_compiler_t *co, const char *name, unsigned int namesize, long ruleid, long ruleuid, unsigned long flags)
 {
        rpa_rulepref_t *rulepref = rpa_compiler_rulepref(co, name, namesize);
 
@@ -302,18 +302,18 @@ void rpa_compiler_rulepref_set(rpa_compiler_t *co, const rchar *name, ruinteger
 }
 
 
-void rpa_compiler_rulepref_set_s(rpa_compiler_t *co, const rchar *name, rlong ruleid, rlong ruleuid, rulong flags)
+void rpa_compiler_rulepref_set_s(rpa_compiler_t *co, const char *name, long ruleid, long ruleuid, unsigned long flags)
 {
        rpa_compiler_rulepref_set(co, name, r_strlen(name), ruleid, ruleuid, flags);
 }
 
 
-#define RPA_RULEBLOB_SIZE (RPA_RULENAME_MAXSIZE + sizeof(rpa_ruledata_t) + 2*sizeof(rulong))
+#define RPA_RULEBLOB_SIZE (RPA_RULENAME_MAXSIZE + sizeof(rpa_ruledata_t) + 2*sizeof(unsigned long))
 
-rlong rpa_compiler_addblob(rpa_compiler_t *co, rlong ruleid, rlong ruleuid, rulong flags, const rchar *name, rulong namesize)
+long rpa_compiler_addblob(rpa_compiler_t *co, long ruleid, long ruleuid, unsigned long flags, const char *name, unsigned long namesize)
 {
-       rchar blob[RPA_RULEBLOB_SIZE];
-       rchar *ptr;
+       char blob[RPA_RULEBLOB_SIZE];
+       char *ptr;
        rpa_ruledata_t *pblob = (rpa_ruledata_t *)blob;
 
        if (namesize >= RPA_RULENAME_MAXSIZE)
@@ -332,18 +332,18 @@ rlong rpa_compiler_addblob(rpa_compiler_t *co, rlong ruleid, rlong ruleuid, rulo
 }
 
 
-rlong rpa_compiler_addblob_s(rpa_compiler_t *co, rlong ruleid, rlong ruleuid, rulong flags, const rchar *name)
+long rpa_compiler_addblob_s(rpa_compiler_t *co, long ruleid, long ruleuid, unsigned long flags, const char *name)
 {
        return 0;
 }
 
 
-rinteger rpa_compiler_loop_begin(rpa_compiler_t *co, const rchar *name, ruinteger namesize)
+int rpa_compiler_loop_begin(rpa_compiler_t *co, const char *name, unsigned int namesize)
 {
        rpa_ruledef_t exp;
-       rlong ruleuid = 0;
-       rlong ruleid = 0;
-       rulong flags = 0;
+       long ruleuid = 0;
+       long ruleid = 0;
+       unsigned long flags = 0;
 
        r_memset(&exp, 0, sizeof(exp));
        exp.rulepref = rpa_compiler_rulepref_lookup(co, name, namesize);
@@ -374,13 +374,13 @@ rinteger rpa_compiler_loop_begin(rpa_compiler_t *co, const rchar *name, ruintege
 }
 
 
-rinteger rpa_compiler_loop_begin_s(rpa_compiler_t *co, const rchar *name)
+int rpa_compiler_loop_begin_s(rpa_compiler_t *co, const char *name)
 {
        return rpa_compiler_loop_begin(co, name, r_strlen(name));
 }
 
 
-rinteger rpa_compiler_loop_end(rpa_compiler_t *co)
+int rpa_compiler_loop_end(rpa_compiler_t *co)
 {
        rpa_ruledef_t exp = r_array_pop(co->expressions, rpa_ruledef_t);
 
@@ -421,12 +421,12 @@ rinteger rpa_compiler_loop_end(rpa_compiler_t *co)
 }
 
 
-rinteger rpa_compiler_rule_begin(rpa_compiler_t *co, const rchar *name, ruinteger namesize)
+int rpa_compiler_rule_begin(rpa_compiler_t *co, const char *name, unsigned int namesize)
 {
        rpa_ruledef_t exp;
-       rlong ruleuid = 0;
-       rlong ruleid = 0;
-       rulong flags = 0;
+       long ruleuid = 0;
+       long ruleid = 0;
+       unsigned long flags = 0;
 
        r_memset(&exp, 0, sizeof(exp));
        exp.rulepref = rpa_compiler_rulepref_lookup(co, name, namesize);
@@ -454,13 +454,13 @@ rinteger rpa_compiler_rule_begin(rpa_compiler_t *co, const rchar *name, ruintege
 }
 
 
-rinteger rpa_compiler_rule_begin_s(rpa_compiler_t *co, const rchar *name)
+int rpa_compiler_rule_begin_s(rpa_compiler_t *co, const char *name)
 {
        return rpa_compiler_rule_begin(co, name, r_strlen(name));
 }
 
 
-rinteger rpa_compiler_rule_end(rpa_compiler_t *co)
+int rpa_compiler_rule_end(rpa_compiler_t *co)
 {
        rpa_ruledef_t exp = r_array_pop(co->expressions, rpa_ruledef_t);
 
@@ -498,12 +498,12 @@ rinteger rpa_compiler_rule_end(rpa_compiler_t *co)
 }
 
 
-rinteger rpa_compiler_inlinerule_begin(rpa_compiler_t *co, const rchar *name, ruinteger namesize, ruinteger flags)
+int rpa_compiler_inlinerule_begin(rpa_compiler_t *co, const char *name, unsigned int namesize, unsigned int flags)
 {
        rpa_ruledef_t exp;
-       rlong ruleuid = 0;
-       rlong ruleid = 0;
-       rulong ruleflags = 0;
+       long ruleuid = 0;
+       long ruleid = 0;
+       unsigned long ruleflags = 0;
 
        r_memset(&exp, 0, sizeof(exp));
        exp.rulepref = rpa_compiler_rulepref_lookup(co, name, namesize);
@@ -530,13 +530,13 @@ rinteger rpa_compiler_inlinerule_begin(rpa_compiler_t *co, const rchar *name, ru
 }
 
 
-rinteger rpa_compiler_inlinerule_begin_s(rpa_compiler_t *co, const rchar *name, ruinteger flags)
+int rpa_compiler_inlinerule_begin_s(rpa_compiler_t *co, const char *name, unsigned int flags)
 {
        return rpa_compiler_inlinerule_begin(co, name, r_strlen(name), flags);
 }
 
 
-rinteger rpa_compiler_inlinerule_end(rpa_compiler_t *co)
+int rpa_compiler_inlinerule_end(rpa_compiler_t *co)
 {
        rpa_ruledef_t exp = r_array_pop(co->expressions, rpa_ruledef_t);
 
@@ -567,7 +567,7 @@ rinteger rpa_compiler_inlinerule_end(rpa_compiler_t *co)
 }
 
 
-rinteger rpa_compiler_exp_begin(rpa_compiler_t *co, ruinteger flags)
+int rpa_compiler_exp_begin(rpa_compiler_t *co, unsigned int flags)
 {
        rpa_ruledef_t exp;
 
@@ -584,7 +584,7 @@ rinteger rpa_compiler_exp_begin(rpa_compiler_t *co, ruinteger flags)
 }
 
 
-rinteger rpa_compiler_exp_end(rpa_compiler_t *co)
+int rpa_compiler_exp_end(rpa_compiler_t *co)
 {
        rpa_ruledef_t exp = r_array_pop(co->expressions, rpa_ruledef_t);
 
@@ -605,7 +605,7 @@ rinteger rpa_compiler_exp_end(rpa_compiler_t *co)
 }
 
 
-rinteger rpa_compiler_altexp_begin(rpa_compiler_t *co, ruinteger flags)
+int rpa_compiler_altexp_begin(rpa_compiler_t *co, unsigned int flags)
 {
        rpa_ruledef_t exp;
 
@@ -622,7 +622,7 @@ rinteger rpa_compiler_altexp_begin(rpa_compiler_t *co, ruinteger flags)
 }
 
 
-rinteger rpa_compiler_altexp_end(rpa_compiler_t *co)
+int rpa_compiler_altexp_end(rpa_compiler_t *co)
 {
        rpa_ruledef_t exp = r_array_pop(co->expressions, rpa_ruledef_t);
 
@@ -643,7 +643,7 @@ rinteger rpa_compiler_altexp_end(rpa_compiler_t *co)
 }
 
 
-rinteger rpa_compiler_branch_begin(rpa_compiler_t *co, ruinteger flags)
+int rpa_compiler_branch_begin(rpa_compiler_t *co, unsigned int flags)
 {
        rpa_ruledef_t exp;
 
@@ -661,7 +661,7 @@ rinteger rpa_compiler_branch_begin(rpa_compiler_t *co, ruinteger flags)
 }
 
 
-rinteger rpa_compiler_branch_end(rpa_compiler_t *co)
+int rpa_compiler_branch_end(rpa_compiler_t *co)
 {
        rpa_ruledef_t exp = r_array_pop(co->expressions, rpa_ruledef_t);
 
@@ -684,7 +684,7 @@ rinteger rpa_compiler_branch_end(rpa_compiler_t *co)
 }
 
 
-rinteger rpa_compiler_nonloopybranch_begin(rpa_compiler_t *co, ruinteger flags)
+int rpa_compiler_nonloopybranch_begin(rpa_compiler_t *co, unsigned int flags)
 {
        rpa_ruledef_t exp;
 
@@ -704,7 +704,7 @@ rinteger rpa_compiler_nonloopybranch_begin(rpa_compiler_t *co, ruinteger flags)
 }
 
 
-rinteger rpa_compiler_nonloopybranch_end(rpa_compiler_t *co)
+int rpa_compiler_nonloopybranch_end(rpa_compiler_t *co)
 {
        rpa_ruledef_t exp = r_array_pop(co->expressions, rpa_ruledef_t);
 
@@ -728,7 +728,7 @@ rinteger rpa_compiler_nonloopybranch_end(rpa_compiler_t *co)
 }
 
 
-rinteger rpa_compiler_class_begin(rpa_compiler_t *co, ruinteger flags)
+int rpa_compiler_class_begin(rpa_compiler_t *co, unsigned int flags)
 {
        rpa_ruledef_t exp;
 
@@ -745,7 +745,7 @@ rinteger rpa_compiler_class_begin(rpa_compiler_t *co, ruinteger flags)
 }
 
 
-rinteger rpa_compiler_class_end(rpa_compiler_t *co)
+int rpa_compiler_class_end(rpa_compiler_t *co)
 {
        rpa_ruledef_t exp = r_array_pop(co->expressions, rpa_ruledef_t);
 
@@ -765,7 +765,7 @@ rinteger rpa_compiler_class_end(rpa_compiler_t *co)
 }
 
 
-rinteger rpa_compiler_notexp_begin(rpa_compiler_t *co, ruinteger flags)
+int rpa_compiler_notexp_begin(rpa_compiler_t *co, unsigned int flags)
 {
        rpa_ruledef_t exp;
 
@@ -783,7 +783,7 @@ rinteger rpa_compiler_notexp_begin(rpa_compiler_t *co, ruinteger flags)
 }
 
 
-rinteger rpa_compiler_notexp_end(rpa_compiler_t *co)
+int rpa_compiler_notexp_end(rpa_compiler_t *co)
 {
        rpa_ruledef_t exp = r_array_pop(co->expressions, rpa_ruledef_t);
 
@@ -805,7 +805,7 @@ rinteger rpa_compiler_notexp_end(rpa_compiler_t *co)
 }
 
 
-rinteger rpa_compiler_negexp_begin(rpa_compiler_t *co, ruinteger flags)
+int rpa_compiler_negexp_begin(rpa_compiler_t *co, unsigned int flags)
 {
        rpa_ruledef_t exp;
 
@@ -824,7 +824,7 @@ rinteger rpa_compiler_negexp_begin(rpa_compiler_t *co, ruinteger flags)
 }
 
 
-rinteger rpa_compiler_negexp_end(rpa_compiler_t *co)
+int rpa_compiler_negexp_end(rpa_compiler_t *co)
 {
        rpa_ruledef_t exp = r_array_pop(co->expressions, rpa_ruledef_t);
 
index d24d6d6..5c5de47 100644 (file)
@@ -39,9 +39,9 @@ extern "C" {
  * rpa_ruledata_t and access in runtime.
  */
 typedef struct rpa_rulepref_s {
-       rlong ruleid;
-       rlong ruleuid;
-       rulong flags;
+       long ruleid;
+       long ruleuid;
+       unsigned long flags;
 } rpa_rulepref_t;
 
 
@@ -49,17 +49,17 @@ typedef struct rpa_rulepref_s {
  * This should be renamed to rpa_expdef_s
  */
 typedef struct rpa_ruledef_s {
-       rulong branch;
-       rulong start;
-       rlong startidx;
-       rlong dataidx;
-       rlong endidx;
-       rlong loopidx;
-       rlong successidx;
-       rlong failidx;
-       rlong againidx;
-       ruinteger ruleuid;
-       ruinteger flags;
+       unsigned long branch;
+       unsigned long start;
+       long startidx;
+       long dataidx;
+       long endidx;
+       long loopidx;
+       long successidx;
+       long failidx;
+       long againidx;
+       unsigned int ruleuid;
+       unsigned int flags;
        rpa_rulepref_t *rulepref;
 } rpa_ruledef_t;
 
@@ -69,72 +69,72 @@ typedef struct rpa_compiler_s {
        rharray_t *ruleprefs;
        rarray_t *expressions;
        rvm_scope_t *scope;
-       rulong fpoff;
+       unsigned long fpoff;
        rpair_t currange;
 } rpa_compiler_t;
 
 
 rpa_compiler_t *rpa_compiler_create();
 void rpa_compiler_destroy(rpa_compiler_t *co);
-rlong rpa_compiler_addblob(rpa_compiler_t *co, rlong ruleid, rlong ruleuid, rulong flags, const rchar *name, rulong namesize);
-rlong rpa_compiler_addblob_s(rpa_compiler_t *co, rlong ruleid, rlong ruleuid, rulong flags, const rchar *name);
-
-rinteger rpa_compiler_loop_begin(rpa_compiler_t *co, const rchar *name, ruinteger namesize);
-rinteger rpa_compiler_loop_begin_s(rpa_compiler_t *co, const rchar *name);
-rinteger rpa_compiler_loop_end(rpa_compiler_t *co);
-
-rinteger rpa_compiler_rule_begin(rpa_compiler_t *co, const rchar *name, ruinteger namesize);
-rinteger rpa_compiler_rule_begin_s(rpa_compiler_t *co, const rchar *name);
-rinteger rpa_compiler_rule_end(rpa_compiler_t *co);
-
-rinteger rpa_compiler_inlinerule_begin(rpa_compiler_t *co, const rchar *name, ruinteger namesize, ruinteger flags);
-rinteger rpa_compiler_inlinerule_begin_s(rpa_compiler_t *co, const rchar *name, ruinteger flags);
-rinteger rpa_compiler_inlinerule_end(rpa_compiler_t *co);
-
-rinteger rpa_compiler_exp_begin(rpa_compiler_t *co, ruinteger flags);
-rinteger rpa_compiler_exp_end(rpa_compiler_t *co);
-
-rinteger rpa_compiler_altexp_begin(rpa_compiler_t *co, ruinteger flags);
-rinteger rpa_compiler_altexp_end(rpa_compiler_t *co);
-
-rinteger rpa_compiler_branch_begin(rpa_compiler_t *co, ruinteger flags);
-rinteger rpa_compiler_branch_end(rpa_compiler_t *co);
-
-rinteger rpa_compiler_nonloopybranch_begin(rpa_compiler_t *co, ruinteger flags);
-rinteger rpa_compiler_nonloopybranch_end(rpa_compiler_t *co);
-
-rinteger rpa_compiler_class_begin(rpa_compiler_t *co, ruinteger flags);
-rinteger rpa_compiler_class_end(rpa_compiler_t *co);
-
-rinteger rpa_compiler_notexp_begin(rpa_compiler_t *co, ruinteger flags);
-rinteger rpa_compiler_notexp_end(rpa_compiler_t *co);
-
-void rpa_compiler_index_reference(rpa_compiler_t *co, rulong index, ruinteger qflag);
-void rpa_compiler_index_reference_nan(rpa_compiler_t *co, rulong index);
-void rpa_compiler_index_reference_opt(rpa_compiler_t *co, rulong index);
-void rpa_compiler_index_reference_mul(rpa_compiler_t *co, rulong index);
-void rpa_compiler_index_reference_mop(rpa_compiler_t *co, rulong index);
-void rpa_compiler_reference(rpa_compiler_t *co, const rchar *name, rsize_t namesize, ruinteger qflag);
-void rpa_compiler_reference_nan(rpa_compiler_t *co, const rchar *name, rsize_t namesize);
-void rpa_compiler_reference_opt(rpa_compiler_t *co, const rchar *name, rsize_t namesize);
-void rpa_compiler_reference_mul(rpa_compiler_t *co, const rchar *name, rsize_t namesize);
-void rpa_compiler_reference_mop(rpa_compiler_t *co, const rchar *name, rsize_t namesize);
-void rpa_compiler_reference_s(rpa_compiler_t *co, const rchar *name, ruinteger qflag);
-void rpa_compiler_reference_nan_s(rpa_compiler_t *co, const rchar *name);
-void rpa_compiler_reference_opt_s(rpa_compiler_t *co, const rchar *name);
-void rpa_compiler_reference_mul_s(rpa_compiler_t *co, const rchar *name);
-void rpa_compiler_reference_mop_s(rpa_compiler_t *co, const rchar *name);
-
-void rpa_compiler_rulepref_set_ruleid(rpa_compiler_t *co, const rchar *name, ruinteger namesize, rlong ruleid);
-void rpa_compiler_rulepref_set_ruleid_s(rpa_compiler_t *co, const rchar *name, rlong ruleid);
-void rpa_compiler_rulepref_set_ruleuid(rpa_compiler_t *co, const rchar *name, ruinteger namesize, rlong ruleuid);
-void rpa_compiler_rulepref_set_ruleuid_s(rpa_compiler_t *co, const rchar *name, rlong ruleuid);
-void rpa_compiler_rulepref_set_flag(rpa_compiler_t *co, const rchar *name, ruinteger namesize, rulong flag);
-void rpa_compiler_rulepref_set_flag_s(rpa_compiler_t *co, const rchar *name, rulong flag);
-void rpa_compiler_rulepref_clear_flag(rpa_compiler_t *co, const rchar *name, ruinteger namesize, rulong flag);
-void rpa_compiler_rulepref_clear_flag_s(rpa_compiler_t *co, const rchar *name, rulong flag);
-void rpa_compiler_rulepref_set(rpa_compiler_t *co, const rchar *name, ruinteger namesize, rlong ruleid, rlong ruleuid, rulong flags);
-void rpa_compiler_rulepref_set_s(rpa_compiler_t *co, const rchar *name, rlong ruleid, rlong ruleuid, rulong flags);
+long rpa_compiler_addblob(rpa_compiler_t *co, long ruleid, long ruleuid, unsigned long flags, const char *name, unsigned long namesize);
+long rpa_compiler_addblob_s(rpa_compiler_t *co, long ruleid, long ruleuid, unsigned long flags, const char *name);
+
+int rpa_compiler_loop_begin(rpa_compiler_t *co, const char *name, unsigned int namesize);
+int rpa_compiler_loop_begin_s(rpa_compiler_t *co, const char *name);
+int rpa_compiler_loop_end(rpa_compiler_t *co);
+
+int rpa_compiler_rule_begin(rpa_compiler_t *co, const char *name, unsigned int namesize);
+int rpa_compiler_rule_begin_s(rpa_compiler_t *co, const char *name);
+int rpa_compiler_rule_end(rpa_compiler_t *co);
+
+int rpa_compiler_inlinerule_begin(rpa_compiler_t *co, const char *name, unsigned int namesize, unsigned int flags);
+int rpa_compiler_inlinerule_begin_s(rpa_compiler_t *co, const char *name, unsigned int flags);
+int rpa_compiler_inlinerule_end(rpa_compiler_t *co);
+
+int rpa_compiler_exp_begin(rpa_compiler_t *co, unsigned int flags);
+int rpa_compiler_exp_end(rpa_compiler_t *co);
+
+int rpa_compiler_altexp_begin(rpa_compiler_t *co, unsigned int flags);
+int rpa_compiler_altexp_end(rpa_compiler_t *co);
+
+int rpa_compiler_branch_begin(rpa_compiler_t *co, unsigned int flags);
+int rpa_compiler_branch_end(rpa_compiler_t *co);
+
+int rpa_compiler_nonloopybranch_begin(rpa_compiler_t *co, unsigned int flags);
+int rpa_compiler_nonloopybranch_end(rpa_compiler_t *co);
+
+int rpa_compiler_class_begin(rpa_compiler_t *co, unsigned int flags);
+int rpa_compiler_class_end(rpa_compiler_t *co);
+
+int rpa_compiler_notexp_begin(rpa_compiler_t *co, unsigned int flags);
+int rpa_compiler_notexp_end(rpa_compiler_t *co);
+
+void rpa_compiler_index_reference(rpa_compiler_t *co, unsigned long index, unsigned int qflag);
+void rpa_compiler_index_reference_nan(rpa_compiler_t *co, unsigned long index);
+void rpa_compiler_index_reference_opt(rpa_compiler_t *co, unsigned long index);
+void rpa_compiler_index_reference_mul(rpa_compiler_t *co, unsigned long index);
+void rpa_compiler_index_reference_mop(rpa_compiler_t *co, unsigned long index);
+void rpa_compiler_reference(rpa_compiler_t *co, const char *name, rsize_t namesize, unsigned int qflag);
+void rpa_compiler_reference_nan(rpa_compiler_t *co, const char *name, rsize_t namesize);
+void rpa_compiler_reference_opt(rpa_compiler_t *co, const char *name, rsize_t namesize);
+void rpa_compiler_reference_mul(rpa_compiler_t *co, const char *name, rsize_t namesize);
+void rpa_compiler_reference_mop(rpa_compiler_t *co, const char *name, rsize_t namesize);
+void rpa_compiler_reference_s(rpa_compiler_t *co, const char *name, unsigned int qflag);
+void rpa_compiler_reference_nan_s(rpa_compiler_t *co, const char *name);
+void rpa_compiler_reference_opt_s(rpa_compiler_t *co, const char *name);
+void rpa_compiler_reference_mul_s(rpa_compiler_t *co, const char *name);
+void rpa_compiler_reference_mop_s(rpa_compiler_t *co, const char *name);
+
+void rpa_compiler_rulepref_set_ruleid(rpa_compiler_t *co, const char *name, unsigned int namesize, long ruleid);
+void rpa_compiler_rulepref_set_ruleid_s(rpa_compiler_t *co, const char *name, long ruleid);
+void rpa_compiler_rulepref_set_ruleuid(rpa_compiler_t *co, const char *name, unsigned int namesize, long ruleuid);
+void rpa_compiler_rulepref_set_ruleuid_s(rpa_compiler_t *co, const char *name, long ruleuid);
+void rpa_compiler_rulepref_set_flag(rpa_compiler_t *co, const char *name, unsigned int namesize, unsigned long flag);
+void rpa_compiler_rulepref_set_flag_s(rpa_compiler_t *co, const char *name, unsigned long flag);
+void rpa_compiler_rulepref_clear_flag(rpa_compiler_t *co, const char *name, unsigned int namesize, unsigned long flag);
+void rpa_compiler_rulepref_clear_flag_s(rpa_compiler_t *co, const char *name, unsigned long flag);
+void rpa_compiler_rulepref_set(rpa_compiler_t *co, const char *name, unsigned int namesize, long ruleid, long ruleuid, unsigned long flags);
+void rpa_compiler_rulepref_set_s(rpa_compiler_t *co, const char *name, long ruleid, long ruleuid, unsigned long flags);
 #ifdef __cplusplus
 }
 #endif
index 7ff9312..9441723 100644 (file)
@@ -30,7 +30,7 @@
 #include "rlib/rmem.h"
 #include "rlib/rutf.h"
 
-typedef rinteger (*rpa_dbex_recordhandler)(rpadbex_t *dbex, rlong rec);
+typedef int (*rpa_dbex_recordhandler)(rpadbex_t *dbex, long rec);
 
 #define RPA_RULEINFO_NONE 0
 #define RPA_RULEINFO_NAMEDRULE 1
@@ -47,11 +47,11 @@ typedef rinteger (*rpa_dbex_recordhandler)(rpadbex_t *dbex, rlong rec);
 
 
 typedef struct rpa_ruleinfo_s {
-       rlong startrec;
-       rlong sizerecs;
-       rlong codeoff;
-       rlong codesiz;
-       rulong type;
+       long startrec;
+       long sizerecs;
+       long codeoff;
+       long codesiz;
+       unsigned long type;
 } rpa_ruleinfo_t;
 
 
@@ -66,25 +66,25 @@ struct rpadbex_s {
        rarray_t *text;
        rpa_dbex_recordhandler *handlers;
        rpa_errinfo_t err;
-       rulong headoff;
-       rulong optimizations:1;
-       rulong debug:1;
-       rulong compiled:1;
+       unsigned long headoff;
+       unsigned long optimizations:1;
+       unsigned long debug:1;
+       unsigned long compiled:1;
 };
 
 static rparecord_t *rpa_dbex_rulerecord(rpadbex_t *dbex, rparule_t rid);
-static rparecord_t *rpa_dbex_record(rpadbex_t *dbex, rlong rec);
-static rinteger rpa_dbex_rulename(rpadbex_t *dbex, rlong rec, const rchar **name, rsize_t *namesize);
-static rinteger rpa_parseinfo_loopdetect(rpadbex_t *dbex, rlong parent, rlong loopto);
-static rlong rpa_dbex_firstinlined(rpadbex_t *dbex);
-static rinteger rpa_dbex_findinlined(rpadbex_t *dbex, rlong startrec);
-static rinteger rpa_dbex_playchildrecords(rpadbex_t *dbex, rlong rec);
-static rinteger rpa_dbex_playreversechildrecords(rpadbex_t *dbex, rlong rec);
-static rinteger rpa_dbex_playrecord(rpadbex_t *dbex, rlong rec);
-static rinteger rpa_dbex_rh_default(rpadbex_t *dbex, rlong rec);
+static rparecord_t *rpa_dbex_record(rpadbex_t *dbex, long rec);
+static int rpa_dbex_rulename(rpadbex_t *dbex, long rec, const char **name, rsize_t *namesize);
+static int rpa_parseinfo_loopdetect(rpadbex_t *dbex, long parent, long loopto);
+static long rpa_dbex_firstinlined(rpadbex_t *dbex);
+static int rpa_dbex_findinlined(rpadbex_t *dbex, long startrec);
+static int rpa_dbex_playchildrecords(rpadbex_t *dbex, long rec);
+static int rpa_dbex_playreversechildrecords(rpadbex_t *dbex, long rec);
+static int rpa_dbex_playrecord(rpadbex_t *dbex, long rec);
+static int rpa_dbex_rh_default(rpadbex_t *dbex, long rec);
 
 
-void rpa_dbex_debug_recordhead(rpadbex_t *dbex, rlong rec)
+void rpa_dbex_debug_recordhead(rpadbex_t *dbex, long rec)
 {
        if (dbex->debug) {
                rarray_t *records = dbex->records;
@@ -98,7 +98,7 @@ void rpa_dbex_debug_recordhead(rpadbex_t *dbex, rlong rec)
 }
 
 
-void rpa_dbex_debug_recordtail(rpadbex_t *dbex, rlong rec)
+void rpa_dbex_debug_recordtail(rpadbex_t *dbex, long rec)
 {
        if (dbex->debug) {
                rarray_t *records = dbex->records;
@@ -111,7 +111,7 @@ void rpa_dbex_debug_recordtail(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rinteger rpa_dbex_rh_default(rpadbex_t *dbex, rlong rec)
+static int rpa_dbex_rh_default(rpadbex_t *dbex, long rec)
 {
        rarray_t *records = dbex->records;
        rparecord_t *prec;
@@ -133,7 +133,7 @@ static rinteger rpa_dbex_rh_default(rpadbex_t *dbex, rlong rec)
 
 
 
-static rinteger rpa_dbex_playrecord(rpadbex_t *dbex, rlong rec)
+static int rpa_dbex_playrecord(rpadbex_t *dbex, long rec)
 {
        rarray_t *records = dbex->records;
        rparecord_t *prec = (rparecord_t *)r_array_slot(records, rec);
@@ -145,9 +145,9 @@ static rinteger rpa_dbex_playrecord(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rinteger rpa_dbex_playchildrecords(rpadbex_t *dbex, rlong rec)
+static int rpa_dbex_playchildrecords(rpadbex_t *dbex, long rec)
 {
-       rlong child;
+       long child;
        rarray_t *records = dbex->records;
 
        for (child = rpa_recordtree_firstchild(records, rec, RPA_RECORD_START); child >= 0; child = rpa_recordtree_next(records, child, RPA_RECORD_START)) {
@@ -158,9 +158,9 @@ static rinteger rpa_dbex_playchildrecords(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rinteger rpa_dbex_playreversechildrecords(rpadbex_t *dbex, rlong rec)
+static int rpa_dbex_playreversechildrecords(rpadbex_t *dbex, long rec)
 {
-       rlong child;
+       long child;
        rarray_t *records = dbex->records;
 
        for (child = rpa_recordtree_lastchild(records, rec, RPA_RECORD_START); child >= 0; child = rpa_recordtree_prev(records, child, RPA_RECORD_START)) {
@@ -172,7 +172,7 @@ static rinteger rpa_dbex_playreversechildrecords(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rlong rpa_dbex_getmatchchr(rulong matchtype)
+static long rpa_dbex_getmatchchr(unsigned long matchtype)
 {
        switch (matchtype & RPA_MATCH_MASK) {
        default:
@@ -193,7 +193,7 @@ static rlong rpa_dbex_getmatchchr(rulong matchtype)
 }
 
 
-static rlong rpa_dbex_getmatchspecialchr(rulong matchtype)
+static long rpa_dbex_getmatchspecialchr(unsigned long matchtype)
 {
        switch (matchtype & RPA_MATCH_MASK) {
        default:
@@ -214,10 +214,10 @@ static rlong rpa_dbex_getmatchspecialchr(rulong matchtype)
 }
 
 
-static rinteger rpa_record2long(rparecord_t *prec, ruint32 *num)
+static int rpa_record2long(rparecord_t *prec, ruint32 *num)
 {
-       rchar *endptr = NULL;
-       rchar buffer[64];
+       char *endptr = NULL;
+       char buffer[64];
 
        if (!prec || !num || prec->inputsiz == 0 || prec->inputsiz >= sizeof(buffer))
                return -1;
@@ -234,9 +234,9 @@ static rinteger rpa_record2long(rparecord_t *prec, ruint32 *num)
 }
 
 
-static rinteger rpa_dbex_rh_uid(rpadbex_t *dbex, rlong rec)
+static int rpa_dbex_rh_uid(rpadbex_t *dbex, long rec)
 {
-       const rchar *name = NULL;
+       const char *name = NULL;
        rsize_t namesize;
        ruint32 uid = 0;
        rparecord_t *pnumrec;
@@ -274,9 +274,9 @@ static rinteger rpa_dbex_rh_uid(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rinteger rpa_dbex_rh_abort(rpadbex_t *dbex, rlong rec)
+static int rpa_dbex_rh_abort(rpadbex_t *dbex, long rec)
 {
-       const rchar *name = NULL;
+       const char *name = NULL;
        rsize_t namesize;
        rarray_t *records = dbex->records;
        rparecord_t *prec;
@@ -301,9 +301,9 @@ static rinteger rpa_dbex_rh_abort(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rinteger rpa_dbex_rh_emit(rpadbex_t *dbex, rlong rec)
+static int rpa_dbex_rh_emit(rpadbex_t *dbex, long rec)
 {
-       const rchar *name = NULL;
+       const char *name = NULL;
        rsize_t namesize;
        rarray_t *records = dbex->records;
        rparecord_t *prec;
@@ -328,9 +328,9 @@ static rinteger rpa_dbex_rh_emit(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rinteger rpa_dbex_rh_noemit(rpadbex_t *dbex, rlong rec)
+static int rpa_dbex_rh_noemit(rpadbex_t *dbex, long rec)
 {
-       const rchar *name = NULL;
+       const char *name = NULL;
        rsize_t namesize;
        rarray_t *records = dbex->records;
        rparecord_t *prec;
@@ -355,9 +355,9 @@ static rinteger rpa_dbex_rh_noemit(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rinteger rpa_dbex_setemit(rpadbex_t *dbex, rboolean emit)
+static int rpa_dbex_setemit(rpadbex_t *dbex, rboolean emit)
 {
-       rlong i;
+       long i;
        rpa_ruleinfo_t *info;
 
        for (i = 0; i < r_array_length(dbex->rules->names); i++) {
@@ -375,7 +375,7 @@ static rinteger rpa_dbex_setemit(rpadbex_t *dbex, rboolean emit)
 }
 
 
-static rinteger rpa_dbex_rh_emitall(rpadbex_t *dbex, rlong rec)
+static int rpa_dbex_rh_emitall(rpadbex_t *dbex, long rec)
 {
        rarray_t *records = dbex->records;
        rparecord_t *prec;
@@ -397,7 +397,7 @@ static rinteger rpa_dbex_rh_emitall(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rinteger rpa_dbex_rh_emitnone(rpadbex_t *dbex, rlong rec)
+static int rpa_dbex_rh_emitnone(rpadbex_t *dbex, long rec)
 {
        rarray_t *records = dbex->records;
        rparecord_t *prec;
@@ -419,9 +419,9 @@ static rinteger rpa_dbex_rh_emitnone(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rinteger rpa_dbex_rh_namedrule(rpadbex_t *dbex, rlong rec)
+static int rpa_dbex_rh_namedrule(rpadbex_t *dbex, long rec)
 {
-       const rchar *name = NULL;
+       const char *name = NULL;
        rsize_t namesize;
        rarray_t *records = dbex->records;
        rparecord_t *prec = (rparecord_t *) r_array_slot(dbex->records, rec);
@@ -471,7 +471,7 @@ static rinteger rpa_dbex_rh_namedrule(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rinteger rpa_dbex_rh_anonymousrule(rpadbex_t *dbex, rlong rec)
+static int rpa_dbex_rh_anonymousrule(rpadbex_t *dbex, long rec)
 {
        rarray_t *records = dbex->records;
        rparecord_t *prec = (rparecord_t *) r_array_slot(dbex->records, rec);
@@ -498,7 +498,7 @@ static rinteger rpa_dbex_rh_anonymousrule(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rinteger rpa_dbex_rh_char(rpadbex_t *dbex, rlong rec)
+static int rpa_dbex_rh_char(rpadbex_t *dbex, long rec)
 {
        rparecord_t *prec;
        rarray_t *records = dbex->records;
@@ -515,7 +515,7 @@ static rinteger rpa_dbex_rh_char(rpadbex_t *dbex, rlong rec)
        prec = rpa_dbex_record(dbex, rec);
        R_ASSERT(prec);
        rpa_dbex_debug_recordhead(dbex, rec);
-       if (r_utf8_mbtowc(&wc, (const ruchar*) prec->input, (const ruchar*)prec->input + prec->inputsiz) < 0) {
+       if (r_utf8_mbtowc(&wc, (const unsigned char*) prec->input, (const unsigned char*)prec->input + prec->inputsiz) < 0) {
 
                return -1;
        }
@@ -526,7 +526,7 @@ static rinteger rpa_dbex_rh_char(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rinteger rpa_dbex_rh_specialchar(rpadbex_t *dbex, rlong rec)
+static int rpa_dbex_rh_specialchar(rpadbex_t *dbex, long rec)
 {
        ruint32 wc = 0;
        rarray_t *records = dbex->records;
@@ -543,7 +543,7 @@ static rinteger rpa_dbex_rh_specialchar(rpadbex_t *dbex, rlong rec)
        prec = rpa_dbex_record(dbex, rec);
        R_ASSERT(prec);
        rpa_dbex_debug_recordhead(dbex, rec);
-       if (r_utf8_mbtowc(&wc, (const ruchar*) prec->input, (const ruchar*)prec->input + prec->inputsiz) < 0) {
+       if (r_utf8_mbtowc(&wc, (const unsigned char*) prec->input, (const unsigned char*)prec->input + prec->inputsiz) < 0) {
 
                return -1;
        }
@@ -554,7 +554,7 @@ static rinteger rpa_dbex_rh_specialchar(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rinteger rpa_dbex_rh_cls(rpadbex_t *dbex, rlong rec)
+static int rpa_dbex_rh_cls(rpadbex_t *dbex, long rec)
 {
        rarray_t *records = dbex->records;
        rparecord_t *prec;
@@ -578,7 +578,7 @@ static rinteger rpa_dbex_rh_cls(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rinteger rpa_dbex_rh_clschar(rpadbex_t *dbex, rlong rec)
+static int rpa_dbex_rh_clschar(rpadbex_t *dbex, long rec)
 {
        ruint32 wc = 0;
        rarray_t *records = dbex->records;
@@ -595,7 +595,7 @@ static rinteger rpa_dbex_rh_clschar(rpadbex_t *dbex, rlong rec)
        prec = rpa_dbex_record(dbex, rec);
        R_ASSERT(prec);
        rpa_dbex_debug_recordhead(dbex, rec);
-       if (r_utf8_mbtowc(&wc, (const ruchar*) prec->input, (const ruchar*)prec->input + prec->inputsiz) < 0) {
+       if (r_utf8_mbtowc(&wc, (const unsigned char*) prec->input, (const unsigned char*)prec->input + prec->inputsiz) < 0) {
 
                return -1;
        }
@@ -606,7 +606,7 @@ static rinteger rpa_dbex_rh_clschar(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rinteger rpa_dbex_rh_minexp(rpadbex_t *dbex, rlong rec)
+static int rpa_dbex_rh_minexp(rpadbex_t *dbex, long rec)
 {
        rarray_t *records = dbex->records;
        rparecord_t *prec;
@@ -630,7 +630,7 @@ static rinteger rpa_dbex_rh_minexp(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rinteger rpa_dbex_rh_exp(rpadbex_t *dbex, rlong rec)
+static int rpa_dbex_rh_exp(rpadbex_t *dbex, long rec)
 {
        rarray_t *records = dbex->records;
        rparecord_t *prec;
@@ -654,7 +654,7 @@ static rinteger rpa_dbex_rh_exp(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rinteger rpa_dbex_rh_orop(rpadbex_t *dbex, rlong rec)
+static int rpa_dbex_rh_orop(rpadbex_t *dbex, long rec)
 {
        rarray_t *records = dbex->records;
        rparecord_t *prec;
@@ -678,7 +678,7 @@ static rinteger rpa_dbex_rh_orop(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rinteger rpa_dbex_rh_norop(rpadbex_t *dbex, rlong rec)
+static int rpa_dbex_rh_norop(rpadbex_t *dbex, long rec)
 {
        rarray_t *records = dbex->records;
        rparecord_t *prec;
@@ -702,7 +702,7 @@ static rinteger rpa_dbex_rh_norop(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rinteger rpa_dbex_rh_notop(rpadbex_t *dbex, rlong rec)
+static int rpa_dbex_rh_notop(rpadbex_t *dbex, long rec)
 {
        rarray_t *records = dbex->records;
        rparecord_t *prec;
@@ -726,7 +726,7 @@ static rinteger rpa_dbex_rh_notop(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rinteger rpa_dbex_rh_range(rpadbex_t *dbex, rlong rec)
+static int rpa_dbex_rh_range(rpadbex_t *dbex, long rec)
 {
        rarray_t *records = dbex->records;
        rparecord_t *prec;
@@ -754,7 +754,7 @@ static rinteger rpa_dbex_rh_range(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rinteger rpa_dbex_rh_numrange(rpadbex_t *dbex, rlong rec)
+static int rpa_dbex_rh_numrange(rpadbex_t *dbex, long rec)
 {
        rarray_t *records = dbex->records;
        rparecord_t *prec;
@@ -791,7 +791,7 @@ static rinteger rpa_dbex_rh_numrange(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rinteger rpa_dbex_rh_clsnum(rpadbex_t *dbex, rlong rec)
+static int rpa_dbex_rh_clsnum(rpadbex_t *dbex, long rec)
 {
        rarray_t *records = dbex->records;
        rparecord_t *prec;
@@ -819,7 +819,7 @@ static rinteger rpa_dbex_rh_clsnum(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rinteger rpa_dbex_rh_beginchar(rpadbex_t *dbex, rlong rec)
+static int rpa_dbex_rh_beginchar(rpadbex_t *dbex, long rec)
 {
        rarray_t *records = dbex->records;
        rparecord_t *prec;
@@ -836,7 +836,7 @@ static rinteger rpa_dbex_rh_beginchar(rpadbex_t *dbex, rlong rec)
        prec = rpa_dbex_record(dbex, rec);
        R_ASSERT(prec);
        rpa_dbex_debug_recordhead(dbex, rec);
-       if (r_utf8_mbtowc(&wc, (const ruchar*) prec->input, (const ruchar*)prec->input + prec->inputsiz) < 0) {
+       if (r_utf8_mbtowc(&wc, (const unsigned char*) prec->input, (const unsigned char*)prec->input + prec->inputsiz) < 0) {
 
                return -1;
        }
@@ -846,7 +846,7 @@ static rinteger rpa_dbex_rh_beginchar(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rinteger rpa_dbex_rh_endchar(rpadbex_t *dbex, rlong rec)
+static int rpa_dbex_rh_endchar(rpadbex_t *dbex, long rec)
 {
        rarray_t *records = dbex->records;
        rparecord_t *prec;
@@ -863,7 +863,7 @@ static rinteger rpa_dbex_rh_endchar(rpadbex_t *dbex, rlong rec)
        prec = rpa_dbex_record(dbex, rec);
        R_ASSERT(prec);
        rpa_dbex_debug_recordhead(dbex, rec);
-       if (r_utf8_mbtowc(&wc, (const ruchar*) prec->input, (const ruchar*)prec->input + prec->inputsiz) < 0) {
+       if (r_utf8_mbtowc(&wc, (const unsigned char*) prec->input, (const unsigned char*)prec->input + prec->inputsiz) < 0) {
 
                return -1;
        }
@@ -873,7 +873,7 @@ static rinteger rpa_dbex_rh_endchar(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rinteger rpa_dbex_rh_branch(rpadbex_t *dbex, rlong rec)
+static int rpa_dbex_rh_branch(rpadbex_t *dbex, long rec)
 {
        rarray_t *records = dbex->records;
        rparecord_t *prec;
@@ -922,9 +922,9 @@ static void rpa_dbex_rh_loopref(rpadbex_t *dbex, rparecord_t *prec)
 }
 
 
-static rinteger rpa_dbex_rh_aref(rpadbex_t *dbex, rlong rec)
+static int rpa_dbex_rh_aref(rpadbex_t *dbex, long rec)
 {
-       const rchar *name = NULL;
+       const char *name = NULL;
        rsize_t namesize;
        rpa_ruleinfo_t *info;
        rarray_t *records = dbex->records;
@@ -989,12 +989,12 @@ rpadbex_t *rpa_dbex_create(void)
 
        dbex->co = rpa_compiler_create();
        dbex->pa = rpa_parser_create();
-       dbex->text = r_array_create(sizeof(rchar *));
+       dbex->text = r_array_create(sizeof(char *));
        dbex->records = r_array_create(sizeof(rparecord_t));
        dbex->temprecords = r_array_create(sizeof(rparecord_t));
        dbex->rules = r_harray_create(sizeof(rpa_ruleinfo_t));
-       dbex->recstack = r_array_create(sizeof(rulong));
-       dbex->inlinestack = r_array_create(sizeof(rulong));
+       dbex->recstack = r_array_create(sizeof(unsigned long));
+       dbex->inlinestack = r_array_create(sizeof(unsigned long));
        dbex->handlers = r_zmalloc(sizeof(rpa_dbex_recordhandler) * RPA_PRODUCTION_COUNT);
        rpa_dbex_cfgset(dbex, RPA_DBEXCFG_OPTIMIZATIONS, 1);
 
@@ -1036,7 +1036,7 @@ void rpa_dbex_destroy(rpadbex_t *dbex)
        int i;
        if (dbex) {
                for (i = 0; i < r_array_length(dbex->text); i++)
-                       r_free(r_array_index(dbex->text, i, rchar*));
+                       r_free(r_array_index(dbex->text, i, char*));
                rpa_compiler_destroy(dbex->co);
                rpa_parser_destroy(dbex->pa);
                r_harray_destroy(dbex->rules);
@@ -1051,18 +1051,18 @@ void rpa_dbex_destroy(rpadbex_t *dbex)
 }
 
 
-static rinteger rpa_parseinfo_loopdetect_do(rpadbex_t *dbex, rlong parent, rlong loopto, rinteger inderction)
+static int rpa_parseinfo_loopdetect_do(rpadbex_t *dbex, long parent, long loopto, int inderction)
 {
        rsize_t namesiz;
-       const rchar *name;
-       rlong i;
-       rinteger ret = 0;
+       const char *name;
+       long i;
+       int ret = 0;
        rparecord_t *prec;
 
        if (parent == loopto && inderction > 0)
                return 1;
        for (i = 0; i < r_array_length(dbex->recstack); i++) {
-               if (parent == r_array_index(dbex->recstack, i, rlong))
+               if (parent == r_array_index(dbex->recstack, i, long))
                        return 0;
        }
        r_array_add(dbex->recstack, &parent);
@@ -1109,7 +1109,7 @@ static rinteger rpa_parseinfo_loopdetect_do(rpadbex_t *dbex, rlong parent, rlong
 }
 
 
-static rinteger rpa_parseinfo_loopdetect(rpadbex_t *dbex, rlong parent, rlong loopto)
+static int rpa_parseinfo_loopdetect(rpadbex_t *dbex, long parent, long loopto)
 {
        if (parent != loopto) {
                /*
@@ -1123,9 +1123,9 @@ static rinteger rpa_parseinfo_loopdetect(rpadbex_t *dbex, rlong parent, rlong lo
 }
 
 
-static void rpa_parseinfo_marklooppath(rpadbex_t *dbex, rlong parent)
+static void rpa_parseinfo_marklooppath(rpadbex_t *dbex, long parent)
 {
-       rlong i;
+       long i;
 
        if (rpa_parseinfo_loopdetect(dbex, parent, parent) > 0) {
                rpa_record_setusertype(dbex->records, parent, RPA_LOOP_PATH, RVALSET_OR);
@@ -1136,7 +1136,7 @@ static void rpa_parseinfo_marklooppath(rpadbex_t *dbex, rlong parent)
 }
 
 
-static rinteger rpa_parseinfo_rule_checkforloop(rpadbex_t *dbex, const char *name, rsize_t namesize, rlong loopto)
+static int rpa_parseinfo_rule_checkforloop(rpadbex_t *dbex, const char *name, rsize_t namesize, long loopto)
 {
        rpa_ruleinfo_t *info = info = (rpa_ruleinfo_t *)r_harray_get(dbex->rules, rpa_dbex_lookup(dbex, name, namesize));
 
@@ -1148,7 +1148,7 @@ static rinteger rpa_parseinfo_rule_checkforloop(rpadbex_t *dbex, const char *nam
 
 static void rpa_dbex_buildloopinfo(rpadbex_t *dbex)
 {
-       ruinteger i, p;
+       unsigned int i, p;
        rharray_t *rules = dbex->rules;
        rpa_ruleinfo_t *info;
 
@@ -1180,9 +1180,9 @@ static void rpa_dbex_buildruleinfo(rpadbex_t *dbex)
 {
        rparecord_t *rec;
        rpa_ruleinfo_t info;
-       ruinteger nrecords;
-       rlong i;
-       const rchar *name = NULL;
+       unsigned int nrecords;
+       long i;
+       const char *name = NULL;
        rsize_t namesize = 0;
 
        if (dbex->rules) {
@@ -1232,10 +1232,10 @@ static void rpa_dbex_buildruleinfo(rpadbex_t *dbex)
 }
 
 
-static rlong rpa_dbex_copy_handler(rarray_t *records, rlong rec, rpointer userdata)
+static long rpa_dbex_copy_handler(rarray_t *records, long rec, rpointer userdata)
 {
        rpadbex_t *dbex = (rpadbex_t *)userdata;
-       rlong index;
+       long index;
 
        rparecord_t *prec = (rparecord_t *)r_array_slot(records, rec);
        if (prec->ruleuid == RPA_PRODUCTION_OCCURENCE && (prec->type & RPA_RECORD_START)) {
@@ -1244,7 +1244,7 @@ static rlong rpa_dbex_copy_handler(rarray_t *records, rlong rec, rpointer userda
                 */
        } else if (prec->ruleuid == RPA_PRODUCTION_OCCURENCE && (prec->type & (RPA_RECORD_END))) {
                ruint32 usertype = RPA_MATCH_NONE;
-               rlong lastrec = 0;
+               long lastrec = 0;
                /*
                 * Don't copy it but set the usertype of the previous record accordingly.
                 */
@@ -1284,7 +1284,7 @@ static rlong rpa_dbex_copy_handler(rarray_t *records, rlong rec, rpointer userda
 
 static void rpa_dbex_copyrecords(rpadbex_t *dbex)
 {
-       rinteger i;
+       int i;
        rarray_t *records = dbex->temprecords;
 
        for (i = rpa_recordtree_get(records, 0, RPA_RECORD_START); i >= 0; i = rpa_recordtree_next(records, i, RPA_RECORD_START))
@@ -1292,7 +1292,7 @@ static void rpa_dbex_copyrecords(rpadbex_t *dbex)
 }
 
 
-static rparecord_t *rpa_dbex_record(rpadbex_t *dbex, rlong rec)
+static rparecord_t *rpa_dbex_record(rpadbex_t *dbex, long rec)
 {
        rparecord_t *prec;
 
@@ -1310,7 +1310,7 @@ static rparecord_t *rpa_dbex_rulerecord(rpadbex_t *dbex, rparule_t rid)
 {
        rparecord_t *prec;
        rpa_ruleinfo_t *info;
-       rlong rec;
+       long rec;
 
        if (!dbex || !dbex->rules)
                return NULL;
@@ -1325,7 +1325,7 @@ static rparecord_t *rpa_dbex_rulerecord(rpadbex_t *dbex, rparule_t rid)
 }
 
 
-static rinteger rpa_dbex_rulename(rpadbex_t *dbex, rlong rec, const rchar **name, rsize_t *namesize)
+static int rpa_dbex_rulename(rpadbex_t *dbex, long rec, const char **name, rsize_t *namesize)
 {
        rparecord_t *pnamerec = rpa_dbex_record(dbex, rpa_recordtree_firstchild(dbex->records, rpa_recordtree_get(dbex->records, rec, RPA_RECORD_START), RPA_RECORD_END));
        if (!pnamerec || !(pnamerec->ruleuid & RPA_PRODUCTION_RULENAME))
@@ -1336,7 +1336,7 @@ static rinteger rpa_dbex_rulename(rpadbex_t *dbex, rlong rec, const rchar **name
 }
 
 
-rinteger rpa_dbex_open(rpadbex_t *dbex)
+int rpa_dbex_open(rpadbex_t *dbex)
 {
        if (!dbex)
                return -1;
@@ -1358,10 +1358,10 @@ void rpa_dbex_close(rpadbex_t *dbex)
 }
 
 
-rlong rpa_dbex_load(rpadbex_t *dbex, const rchar *rules, rsize_t size)
+long rpa_dbex_load(rpadbex_t *dbex, const char *rules, rsize_t size)
 {
-       rlong ret;
-       rchar *text;
+       long ret;
+       char *text;
 
        if (!dbex)
                return -1;
@@ -1382,8 +1382,8 @@ rlong rpa_dbex_load(rpadbex_t *dbex, const rchar *rules, rsize_t size)
                return -1;
        }
        if (ret != size) {
-               rlong line = 1;
-               rchar *ptext = text;
+               long line = 1;
+               char *ptext = text;
                ptext += ret;
                for (line = 1; ptext >= text; --ptext) {
                        if (*ptext == '\n')
@@ -1399,16 +1399,16 @@ rlong rpa_dbex_load(rpadbex_t *dbex, const rchar *rules, rsize_t size)
 }
 
 
-rlong rpa_dbex_load_s(rpadbex_t *dbex, const rchar *rules)
+long rpa_dbex_load_s(rpadbex_t *dbex, const char *rules)
 {
        return rpa_dbex_load(dbex, rules, r_strlen(rules));
 }
 
 
-void rpa_dbex_dumpindented(rpadbex_t *dbex, rlong rec, rinteger level, const rchar *rulelabel)
+void rpa_dbex_dumpindented(rpadbex_t *dbex, long rec, int level, const char *rulelabel)
 {
-       rchar buffer[1024];
-       rinteger i, size;
+       char buffer[1024];
+       int i, size;
        rparecord_t *prec = rpa_dbex_record(dbex, rpa_recordtree_get(dbex->records, rec, RPA_RECORD_END));
 
        if (!prec)
@@ -1430,33 +1430,33 @@ void rpa_dbex_dumpindented(rpadbex_t *dbex, rlong rec, rinteger level, const rch
 }
 
 
-static rlong rpa_dbex_firstinlined(rpadbex_t *dbex)
+static long rpa_dbex_firstinlined(rpadbex_t *dbex)
 {
-       rlong ret = r_array_empty(dbex->inlinestack) ? -1 : r_array_index(dbex->inlinestack, 0, rlong);
+       long ret = r_array_empty(dbex->inlinestack) ? -1 : r_array_index(dbex->inlinestack, 0, long);
        return ret;
 }
 
 
-static rinteger rpa_dbex_findinlined(rpadbex_t *dbex, rlong startrec)
+static int rpa_dbex_findinlined(rpadbex_t *dbex, long startrec)
 {
-       rlong i;
+       long i;
        for (i = 0; i < r_array_length(dbex->inlinestack); i++) {
-               if (r_array_index(dbex->inlinestack, i, rlong) == startrec)
+               if (r_array_index(dbex->inlinestack, i, long) == startrec)
                        return 1;
        }
        return 0;
 }
 
 
-static void rpa_dbex_dumptree_do(rpadbex_t *dbex, rlong rec, rinteger level)
+static void rpa_dbex_dumptree_do(rpadbex_t *dbex, long rec, int level)
 {
        rparecord_t *prec = rpa_dbex_record(dbex, rec);
        if (prec && prec->ruleuid == RPA_PRODUCTION_RULENAME)
                return;
        if (prec && (prec->ruleuid == RPA_PRODUCTION_AREF || prec->ruleuid == RPA_PRODUCTION_CREF)) {
-               const rchar *name = NULL;
+               const char *name = NULL;
                rsize_t namesize = 0;
-               rinteger loop = 0;
+               int loop = 0;
                rpa_ruleinfo_t *info;
 
                if (rpa_dbex_rulename(dbex, rec, &name, &namesize) >= 0) {
@@ -1471,7 +1471,7 @@ static void rpa_dbex_dumptree_do(rpadbex_t *dbex, rlong rec, rinteger level)
                                         */
                                        rparecord_t *prulestart = rpa_dbex_record(dbex, rpa_recordtree_get(dbex->records, info->startrec, RPA_RECORD_START));
                                        rparecord_t *pruleend = rpa_dbex_record(dbex, rpa_recordtree_get(dbex->records, info->startrec, RPA_RECORD_END));
-                                       rulong optional = (prulestart->usertype & RPA_MATCH_OPTIONAL);
+                                       unsigned long optional = (prulestart->usertype & RPA_MATCH_OPTIONAL);
                                        prulestart->usertype |= (prec->usertype & RPA_MATCH_OPTIONAL);
                                        pruleend->usertype |= (prec->usertype & RPA_MATCH_OPTIONAL);
                                        r_array_add(dbex->inlinestack, &info->startrec);
@@ -1495,7 +1495,7 @@ static void rpa_dbex_dumptree_do(rpadbex_t *dbex, rlong rec, rinteger level)
 }
 
 
-rinteger rpa_dbex_dumptree(rpadbex_t *dbex, rparule_t rid)
+int rpa_dbex_dumptree(rpadbex_t *dbex, rparule_t rid)
 {
        rpa_ruleinfo_t *info;
 
@@ -1520,11 +1520,11 @@ rinteger rpa_dbex_dumptree(rpadbex_t *dbex, rparule_t rid)
 }
 
 
-rinteger rpa_dbex_dumpproductions(rpadbex_t *dbex)
+int rpa_dbex_dumpproductions(rpadbex_t *dbex)
 {
-       rinteger ret = 0;
+       int ret = 0;
        rparule_t rid;
-       rchar buffer[512];
+       char buffer[512];
 
        if (!dbex)
                return -1;
@@ -1546,9 +1546,9 @@ rinteger rpa_dbex_dumpproductions(rpadbex_t *dbex)
 }
 
 
-rinteger rpa_dbex_dumprecords(rpadbex_t *dbex)
+int rpa_dbex_dumprecords(rpadbex_t *dbex)
 {
-       rlong i;
+       long i;
 
        if (!dbex)
                return -1;
@@ -1563,9 +1563,9 @@ rinteger rpa_dbex_dumprecords(rpadbex_t *dbex)
 }
 
 
-rinteger rpa_dbex_dumpinfo(rpadbex_t *dbex)
+int rpa_dbex_dumpinfo(rpadbex_t *dbex)
 {
-       rlong i;
+       long i;
        rpa_ruleinfo_t *info;
 
        if (!dbex)
@@ -1597,12 +1597,12 @@ rinteger rpa_dbex_dumpinfo(rpadbex_t *dbex)
 }
 
 
-rinteger rpa_dbex_dumpuids(rpadbex_t *dbex)
+int rpa_dbex_dumpuids(rpadbex_t *dbex)
 {
-       rlong i;
-       rlong rec;
+       long i;
+       long rec;
        rpa_ruleinfo_t *info;
-       rchar *buffer = r_zmalloc(32 * sizeof(rchar));
+       char *buffer = r_zmalloc(32 * sizeof(char));
 
        if (!dbex)
                return -1;
@@ -1638,7 +1638,7 @@ rinteger rpa_dbex_dumpuids(rpadbex_t *dbex)
 }
 
 
-rinteger rpa_dbex_dumpcode(rpadbex_t* dbex, rparule_t rid)
+int rpa_dbex_dumpcode(rpadbex_t* dbex, rparule_t rid)
 {
        rpa_ruleinfo_t *info;
        if (!dbex)
@@ -1675,7 +1675,7 @@ rsize_t rpa_dbex_strlen(rpadbex_t *dbex, rparule_t rid)
 }
 
 
-rsize_t rpa_dbex_strncpy(rpadbex_t *dbex, rchar *dst, rparule_t rid, rsize_t n)
+rsize_t rpa_dbex_strncpy(rpadbex_t *dbex, char *dst, rparule_t rid, rsize_t n)
 {
        rparecord_t *prec;
        rsize_t size;
@@ -1695,7 +1695,7 @@ rsize_t rpa_dbex_strncpy(rpadbex_t *dbex, rchar *dst, rparule_t rid, rsize_t n)
 }
 
 
-const rchar *rpa_dbex_name(rpadbex_t *dbex, rparule_t rid)
+const char *rpa_dbex_name(rpadbex_t *dbex, rparule_t rid)
 {
        rstr_t *name;
 
@@ -1746,7 +1746,7 @@ rparule_t rpa_dbex_last(rpadbex_t *dbex)
 }
 
 
-rparule_t rpa_dbex_lookup(rpadbex_t *dbex, const rchar *name, rsize_t namesize)
+rparule_t rpa_dbex_lookup(rpadbex_t *dbex, const char *name, rsize_t namesize)
 {
        rparule_t ret;
 
@@ -1766,7 +1766,7 @@ rparule_t rpa_dbex_lookup(rpadbex_t *dbex, const rchar *name, rsize_t namesize)
 }
 
 
-rparule_t rpa_dbex_lookup_s(rpadbex_t *dbex, const rchar *name)
+rparule_t rpa_dbex_lookup_s(rpadbex_t *dbex, const char *name)
 {
        return rpa_dbex_lookup(dbex, name, r_strlen(name));
 }
@@ -1803,7 +1803,7 @@ rparule_t rpa_dbex_prev(rpadbex_t *dbex, rparule_t rid)
 }
 
 
-rlong rpa_dbex_lasterror(rpadbex_t *dbex)
+long rpa_dbex_lasterror(rpadbex_t *dbex)
 {
        if (!dbex)
                return -1;
@@ -1811,7 +1811,7 @@ rlong rpa_dbex_lasterror(rpadbex_t *dbex)
 }
 
 
-rlong rpa_dbex_lasterrorinfo(rpadbex_t *dbex, rpa_errinfo_t *errinfo)
+long rpa_dbex_lasterrorinfo(rpadbex_t *dbex, rpa_errinfo_t *errinfo)
 {
        if (!dbex || !errinfo)
                return -1;
@@ -1820,15 +1820,15 @@ rlong rpa_dbex_lasterrorinfo(rpadbex_t *dbex, rpa_errinfo_t *errinfo)
 }
 
 
-const rchar *rpa_dbex_version()
+const char *rpa_dbex_version()
 {
        return "2.0";
 }
 
 
-static rinteger rpa_dbex_compile_rule(rpadbex_t *dbex, rparule_t rid)
+static int rpa_dbex_compile_rule(rpadbex_t *dbex, rparule_t rid)
 {
-       rlong codeoff;
+       long codeoff;
        rpa_ruleinfo_t *info = (rpa_ruleinfo_t *)r_harray_get(dbex->rules, rid);
 
        if (!info)
@@ -1847,7 +1847,7 @@ static rinteger rpa_dbex_compile_rule(rpadbex_t *dbex, rparule_t rid)
 }
 
 
-rinteger rpa_dbex_compile(rpadbex_t *dbex)
+int rpa_dbex_compile(rpadbex_t *dbex)
 {
        rparule_t rid;
        rvm_codelabel_t *labelerr;
@@ -1899,7 +1899,7 @@ rvm_asmins_t *rpa_dbex_executable(rpadbex_t *dbex)
 }
 
 
-rlong rpa_dbex_executableoffset(rpadbex_t *dbex, rparule_t rid)
+long rpa_dbex_executableoffset(rpadbex_t *dbex, rparule_t rid)
 {
        rpa_ruleinfo_t *info;
 
@@ -1922,7 +1922,7 @@ rlong rpa_dbex_executableoffset(rpadbex_t *dbex, rparule_t rid)
 }
 
 
-rlong rpa_dbex_cfgset(rpadbex_t *dbex, rulong cfg, rulong val)
+long rpa_dbex_cfgset(rpadbex_t *dbex, unsigned long cfg, unsigned long val)
 {
        if (!dbex)
                return -1;
@@ -1937,7 +1937,7 @@ rlong rpa_dbex_cfgset(rpadbex_t *dbex, rulong cfg, rulong val)
 }
 
 
-rlong rpa_dbex_cfgget(rpadbex_t *dbex, rulong cfg)
+long rpa_dbex_cfgget(rpadbex_t *dbex, unsigned long cfg)
 {
        if (!dbex)
                return -1;
index e3d0696..460e3a2 100644 (file)
@@ -64,7 +64,7 @@ typedef struct rpadbex_s rpadbex_t;
  * @typedef rparule_t
  * @brief Unique BNF rule identifier.
  */
-typedef rlong rparule_t;
+typedef long rparule_t;
 
 #define RPA_DBEXCFG_OPTIMIZATIONS 1
 #define RPA_DBEXCFG_DEBUG 2
@@ -74,7 +74,7 @@ typedef rlong rparule_t;
  *
  * @return NULL terminated version string.
  */
-const rchar *rpa_dbex_version();
+const char *rpa_dbex_version();
 
 
 /**
@@ -103,7 +103,7 @@ void rpa_dbex_destroy(rpadbex_t *dbex);
  * @return The error code of the last occurred error. If this function fails the
  * return value is negative.
  */
-rlong rpa_dbex_lasterror(rpadbex_t *dbex);
+long rpa_dbex_lasterror(rpadbex_t *dbex);
 
 /**
  * @brief Get error information for the last occurred error.
@@ -114,7 +114,7 @@ rlong rpa_dbex_lasterror(rpadbex_t *dbex);
  * @return Return 0 if the function is successful or negative otherwise. If this function fails the
  * return value is negative.
  */
-rlong rpa_dbex_lasterrorinfo(rpadbex_t *dbex, rpa_errinfo_t *errinfo);
+long rpa_dbex_lasterrorinfo(rpadbex_t *dbex, rpa_errinfo_t *errinfo);
 
 
 /**
@@ -130,7 +130,7 @@ rlong rpa_dbex_lasterrorinfo(rpadbex_t *dbex, rpa_errinfo_t *errinfo);
  *         Use @ref rpa_dbex_lasterror or @ref rpa_dbex_lasterrorinfo to retrieve the error
  *         information.
  */
-rinteger rpa_dbex_open(rpadbex_t *dbex);
+int rpa_dbex_open(rpadbex_t *dbex);
 
 
 /**
@@ -156,7 +156,7 @@ void rpa_dbex_close(rpadbex_t *dbex);
  *         Use @ref rpa_dbex_lasterror or @ref rpa_dbex_lasterrorinfo to retrieve the error
  *         information.
  */
-rinteger rpa_dbex_compile(rpadbex_t *dbex);
+int rpa_dbex_compile(rpadbex_t *dbex);
 
 
 /**
@@ -170,7 +170,7 @@ rinteger rpa_dbex_compile(rpadbex_t *dbex);
  *         Use @ref rpa_dbex_lasterror or @ref rpa_dbex_lasterrorinfo to retrieve the error
  *         information.
  */
-rlong rpa_dbex_load(rpadbex_t *dbex, const rchar *buffer, rsize_t size);
+long rpa_dbex_load(rpadbex_t *dbex, const char *buffer, rsize_t size);
 
 
 /**
@@ -184,7 +184,7 @@ rlong rpa_dbex_load(rpadbex_t *dbex, const rchar *buffer, rsize_t size);
  *         Use @ref rpa_dbex_lasterror or @ref rpa_dbex_lasterrorinfo to retrieve the error
  *         information.
  */
-rlong rpa_dbex_load_s(rpadbex_t *dbex, const rchar *buffer);
+long rpa_dbex_load_s(rpadbex_t *dbex, const char *buffer);
 
 
 /**
@@ -213,7 +213,7 @@ rvm_asmins_t *rpa_dbex_executable(rpadbex_t *dbex);
  *         Use @ref rpa_dbex_lasterror or @ref rpa_dbex_lasterrorinfo to retrieve the error
  *         information.
  */
-rlong rpa_dbex_executableoffset(rpadbex_t *dbex, rparule_t rid);
+long rpa_dbex_executableoffset(rpadbex_t *dbex, rparule_t rid);
 
 
 /**
@@ -229,7 +229,7 @@ rlong rpa_dbex_executableoffset(rpadbex_t *dbex, rparule_t rid);
  * @param namesize The size of the buffer to be used.
  * @return Unique ID for the specified production name.
  */
-rparule_t rpa_dbex_lookup(rpadbex_t *dbex, const rchar *name, rsize_t namesize);
+rparule_t rpa_dbex_lookup(rpadbex_t *dbex, const char *name, rsize_t namesize);
 
 
 /**
@@ -237,7 +237,7 @@ rparule_t rpa_dbex_lookup(rpadbex_t *dbex, const rchar *name, rsize_t namesize);
  *
  * Same as @ref rpa_dbex_lookup, but the name parameter is NULL terminated string.
  */
-rparule_t rpa_dbex_lookup_s(rpadbex_t *dbex, const rchar *name);
+rparule_t rpa_dbex_lookup_s(rpadbex_t *dbex, const char *name);
 
 
 /**
@@ -251,7 +251,7 @@ rparule_t rpa_dbex_lookup_s(rpadbex_t *dbex, const rchar *name);
  * @param rid Rule id
  * @return Returns the name of the specified ID or NULL in case of error.
  */
-const rchar *rpa_dbex_name(rpadbex_t *dbex, rparule_t rid);
+const char *rpa_dbex_name(rpadbex_t *dbex, rparule_t rid);
 
 
 /**
@@ -317,7 +317,7 @@ rsize_t rpa_dbex_strlen(rpadbex_t *dbex, rparule_t rid);
  * @param size to be copied
  * @return Return the number of bytes written in the buffer.
  */
-rsize_t rpa_dbex_strncpy(rpadbex_t *dbex, rchar *dest, rparule_t rid, rsize_t size);
+rsize_t rpa_dbex_strncpy(rpadbex_t *dbex, char *dest, rparule_t rid, rsize_t size);
 
 
 /**
@@ -335,7 +335,7 @@ rsize_t rpa_dbex_strncpy(rpadbex_t *dbex, rchar *dest, rparule_t rid, rsize_t si
  *   - 0 Dissable debugging
  *   - 1 Enable debugging
  */
-rlong rpa_dbex_cfgset(rpadbex_t *dbex, rulong cfg, rulong val);
+long rpa_dbex_cfgset(rpadbex_t *dbex, unsigned long cfg, unsigned long val);
 
 
 /**
@@ -349,7 +349,7 @@ rlong rpa_dbex_cfgset(rpadbex_t *dbex, rulong cfg, rulong val);
  * - RPA_DBEXCFG_OPTIMIZATIONS
  * - RPA_DBEXCFG_DEBUG
  */
-rlong rpa_dbex_cfgget(rpadbex_t *dbex, rulong cfg);
+long rpa_dbex_cfgget(rpadbex_t *dbex, unsigned long cfg);
 
 
 /**
@@ -360,7 +360,7 @@ rlong rpa_dbex_cfgget(rpadbex_t *dbex, rulong cfg);
  * @param rid production ID.
  * @return Return 0 on success or negative if error occurred.
  */
-rinteger rpa_dbex_dumptree(rpadbex_t *dbex, rparule_t rid);
+int rpa_dbex_dumptree(rpadbex_t *dbex, rparule_t rid);
 
 /**
  * @brief Dump the compiled byte code for the specified production ID
@@ -370,7 +370,7 @@ rinteger rpa_dbex_dumptree(rpadbex_t *dbex, rparule_t rid);
  * @param rid production ID.
  * @return Return 0 on success or negative if error occurred.
  */
-rinteger rpa_dbex_dumpcode(rpadbex_t* dbex, rparule_t rid);
+int rpa_dbex_dumpcode(rpadbex_t* dbex, rparule_t rid);
 
 
 /**
@@ -382,7 +382,7 @@ rinteger rpa_dbex_dumpcode(rpadbex_t* dbex, rparule_t rid);
  * @param dbex Pointer to @ref rpadbex_t object.
  * @return Return 0 on success or negative if error occurred.
  */
-rinteger rpa_dbex_dumprecords(rpadbex_t *dbex);
+int rpa_dbex_dumprecords(rpadbex_t *dbex);
 
 /**
  * @brief Print the content of BNF productions database.
@@ -391,7 +391,7 @@ rinteger rpa_dbex_dumprecords(rpadbex_t *dbex);
  * @param dbex Pointer to @ref rpadbex_t object.
  * @return Return 0 on success or negative if error occurred.
  */
-rinteger rpa_dbex_dumpproductions(rpadbex_t *dbex);
+int rpa_dbex_dumpproductions(rpadbex_t *dbex);
 
 /**
  * @brief Print debug information about the state of the BNF productions database.
@@ -400,7 +400,7 @@ rinteger rpa_dbex_dumpproductions(rpadbex_t *dbex);
  * @param dbex Pointer to @ref rpadbex_t object.
  * @return Return 0 on success or negative if error occurred.
  */
-rinteger rpa_dbex_dumpinfo(rpadbex_t *dbex);
+int rpa_dbex_dumpinfo(rpadbex_t *dbex);
 
 /**
  * @brief Print the production user IDs in a format suitable to be
@@ -409,7 +409,7 @@ rinteger rpa_dbex_dumpinfo(rpadbex_t *dbex);
  * If you define user IDs for your productions you can dump all user IDs
  * in a format suitable to be included in a C/C++ source code.
  */
-rinteger rpa_dbex_dumpuids(rpadbex_t *dbex);
+int rpa_dbex_dumpuids(rpadbex_t *dbex);
 
 /**
  * @example personname.c
index c694673..073fccb 100644 (file)
@@ -74,7 +74,7 @@ struct rpa_errinfo_s {
         * - @ref RPA_ERRINFO_RULEUID
         * - @ref RPA_ERRINFO_NAME
         */
-       rulong mask;
+       unsigned long mask;
 
        /**
         * Error code:
@@ -82,28 +82,28 @@ struct rpa_errinfo_s {
         * - @ref RPA_E_OUTOFMEM
         * - ...
         */
-       rlong code;
+       long code;
 
        /**
         * Error offset in the BNF schema
         */
-       rlong offset;
+       long offset;
 
        /**
         * Error line in the BNF schema
         */
-       rlong line;
+       long line;
 
        /**
         * Error rule user ID. If the engine can determine the ruleuid of the rule generating the error,
         * this field will be set accordingly
         */
-       rlong ruleuid;
+       long ruleuid;
 
        /**
         * Error rule name
         */
-       rchar name[128];
+       char name[128];
 };
 
 
index f8fefef..9436ca4 100644 (file)
@@ -22,7 +22,7 @@
 #include "rpa/rpaparser.h"
 
 
-static rlong rpa_copy_handler(rarray_t *records, rlong rec, rpointer userdata)
+static long rpa_copy_handler(rarray_t *records, long rec, rpointer userdata)
 {
        rarray_t *dst = (rarray_t *)userdata;
        rparecord_t *prec = (rparecord_t *)rpa_record_get(records, rec);
@@ -31,7 +31,7 @@ static rlong rpa_copy_handler(rarray_t *records, rlong rec, rpointer userdata)
 }
 
 
-static rlong rpa_copy_singletonorop_handler(rarray_t *records, rlong rec, rpointer userdata)
+static long rpa_copy_singletonorop_handler(rarray_t *records, long rec, rpointer userdata)
 {
        rarray_t *dst = (rarray_t *)userdata;
        rparecord_t *prec = (rparecord_t *)rpa_record_get(records, rec);
@@ -52,9 +52,9 @@ static rlong rpa_copy_singletonorop_handler(rarray_t *records, rlong rec, rpoint
 }
 
 
-static rlong rpa_singleton_handler(rarray_t *records, rlong rec, rpointer userdata)
+static long rpa_singleton_handler(rarray_t *records, long rec, rpointer userdata)
 {
-       rlong first, last;
+       long first, last;
        rparecord_t *prec = rpa_record_get(records, rec);
 
        if (prec->ruleuid == RPA_PRODUCTION_ALTBRANCH && (prec->type & RPA_RECORD_START)) {
@@ -72,7 +72,7 @@ static rlong rpa_singleton_handler(rarray_t *records, rlong rec, rpointer userda
 }
 
 
-void rpa_optimiztion_orop(rarray_t *records, rlong orop)
+void rpa_optimiztion_orop(rarray_t *records, long orop)
 {
        rarray_t *temp;
 
index 2a521a4..4de4eb4 100644 (file)
@@ -28,7 +28,7 @@ extern "C" {
 #endif
 
 
-void rpa_optimiztion_orop(rarray_t *records, rlong orop);
+void rpa_optimiztion_orop(rarray_t *records, long orop);
 
 
 #ifdef __cplusplus
index 1a18ec1..93adc4d 100644 (file)
@@ -24,7 +24,7 @@
 #include "rpa/rpaparser.h"
 #include "rpa/rpastatpriv.h"
 
-static rinteger rpa_parser_init(rpa_parser_t *pa);
+static int rpa_parser_init(rpa_parser_t *pa);
 
 
 rpa_parser_t *rpa_parser_create()
@@ -53,23 +53,23 @@ void rpa_parser_destroy(rpa_parser_t *pa)
 }
 
 
-rlong rpa_parser_load(rpa_parser_t *pa, const rchar *prods, rsize_t size, rarray_t *records)
+long rpa_parser_load(rpa_parser_t *pa, const char *prods, rsize_t size, rarray_t *records)
 {
-       rlong ret = 0;
+       long ret = 0;
        rpa_compiler_t *co = pa->co;
        rpastat_t *stat = pa->stat;
 
        rpa_stat_cachedisable(stat, 0);
        if (rpa_stat_exec(stat, rvm_codegen_getcode(co->cg, 0), pa->main, RPA_ENCODING_UTF8, prods, prods, prods + size, records) < 0)
                return -1;
-       ret = (rlong)RVM_CPUREG_GETL(stat->cpu, R0);
+       ret = (long)RVM_CPUREG_GETL(stat->cpu, R0);
        if (ret < 0)
                return 0;
        return ret;
 }
 
 
-rlong rpa_parser_load_s(rpa_parser_t *pa, const rchar *prods, rarray_t *records)
+long rpa_parser_load_s(rpa_parser_t *pa, const char *prods, rarray_t *records)
 {
        return rpa_parser_load(pa, prods, r_strlen(prods), records);
 }
@@ -1454,7 +1454,7 @@ static void rpa_production_orexp(rpa_parser_t *pa)
 }
 
 
-static rinteger rpa_parser_init(rpa_parser_t *pa)
+static int rpa_parser_init(rpa_parser_t *pa)
 {
        rvm_codelabel_t *err;
        rpa_compiler_t *co = pa->co;
index 9a67445..988d928 100644 (file)
@@ -81,14 +81,14 @@ enum {
 typedef struct rpa_parser_s {
        rpa_compiler_t *co;
        rpastat_t *stat;
-       rulong main;
+       unsigned long main;
 } rpa_parser_t;
 
 
 rpa_parser_t *rpa_parser_create();
 void rpa_parser_destroy(rpa_parser_t *pa);
-rlong rpa_parser_load(rpa_parser_t *pa, const rchar *prods, rsize_t size, rarray_t *records);
-rlong rpa_parser_load_s(rpa_parser_t *pa, const rchar *prods, rarray_t *records);
+long rpa_parser_load(rpa_parser_t *pa, const char *prods, rsize_t size, rarray_t *records);
+long rpa_parser_load_s(rpa_parser_t *pa, const char *prods, rarray_t *records);
 
 #ifdef __cplusplus
 }
index 98953b1..53dca3c 100644 (file)
@@ -24,7 +24,7 @@
 #include "rpa/rparecord.h"
 
 
-rparecord_t *rpa_record_get(rarray_t *records, rlong rec)
+rparecord_t *rpa_record_get(rarray_t *records, long rec)
 {
        rparecord_t *prec;
 
@@ -38,10 +38,10 @@ rparecord_t *rpa_record_get(rarray_t *records, rlong rec)
 }
 
 
-rlong rpa_recordtree_get(rarray_t *records, rlong rec, rulong type)
+long rpa_recordtree_get(rarray_t *records, long rec, unsigned long type)
 {
-       rlong i, s = 0;
-       ruinteger startrec = (type & RPA_RECORD_START) ? 1 : 0;
+       long i, s = 0;
+       unsigned int startrec = (type & RPA_RECORD_START) ? 1 : 0;
        rparecord_t *prec;
 
        if (rec < 0 || rec >= r_array_length(records))
@@ -79,7 +79,7 @@ rlong rpa_recordtree_get(rarray_t *records, rlong rec, rulong type)
 }
 
 
-rlong rpa_recordtree_firstchild(rarray_t *records, rlong rec, rulong type)
+long rpa_recordtree_firstchild(rarray_t *records, long rec, unsigned long type)
 {
        rparecord_t *prec;
 
@@ -99,7 +99,7 @@ rlong rpa_recordtree_firstchild(rarray_t *records, rlong rec, rulong type)
 }
 
 
-rlong rpa_recordtree_lastchild(rarray_t *records, rlong rec, rulong type)
+long rpa_recordtree_lastchild(rarray_t *records, long rec, unsigned long type)
 {
        rparecord_t *prec;
 
@@ -119,7 +119,7 @@ rlong rpa_recordtree_lastchild(rarray_t *records, rlong rec, rulong type)
 }
 
 
-rlong rpa_recordtree_next(rarray_t *records, rlong rec, rulong type)
+long rpa_recordtree_next(rarray_t *records, long rec, unsigned long type)
 {
        rparecord_t *prec;
 
@@ -139,7 +139,7 @@ rlong rpa_recordtree_next(rarray_t *records, rlong rec, rulong type)
 }
 
 
-rlong rpa_recordtree_prev(rarray_t *records, rlong rec, rulong type)
+long rpa_recordtree_prev(rarray_t *records, long rec, unsigned long type)
 {
        rparecord_t *prec;
 
@@ -159,9 +159,9 @@ rlong rpa_recordtree_prev(rarray_t *records, rlong rec, rulong type)
 }
 
 
-rlong rpa_recordtree_parent(rarray_t *records, rlong rec, rulong type)
+long rpa_recordtree_parent(rarray_t *records, long rec, unsigned long type)
 {
-       rlong last = -1, parent = -1;
+       long last = -1, parent = -1;
 
        if (rec < 0 || rec >= r_array_length(records))
                return -1;
@@ -175,20 +175,20 @@ rlong rpa_recordtree_parent(rarray_t *records, rlong rec, rulong type)
 }
 
 
-rlong rpa_recordtree_size(rarray_t *records, rlong rec)
+long rpa_recordtree_size(rarray_t *records, long rec)
 {
-       rlong first = rpa_recordtree_get(records, rec, RPA_RECORD_START);
-       rlong last = rpa_recordtree_get(records, rec, RPA_RECORD_END);
+       long first = rpa_recordtree_get(records, rec, RPA_RECORD_START);
+       long last = rpa_recordtree_get(records, rec, RPA_RECORD_END);
        if (first < 0 || last < 0)
                return -1;
        return (last - first + 1);
 }
 
 
-rlong rpa_recordtree_copy(rarray_t *dst, rarray_t *src, rlong rec)
+long rpa_recordtree_copy(rarray_t *dst, rarray_t *src, long rec)
 {
        rparecord_t *prec;
-       rlong size, i;
+       long size, i;
        rec = rpa_recordtree_get(src, rec, RPA_RECORD_START);
        size = rpa_recordtree_size(src, rec);
 
@@ -200,9 +200,9 @@ rlong rpa_recordtree_copy(rarray_t *dst, rarray_t *src, rlong rec)
 }
 
 
-rlong rpa_recordtree_walk(rarray_t *records, rlong rec, rlong level, rpa_recordtree_callback callback, rpointer userdata)
+long rpa_recordtree_walk(rarray_t *records, long rec, long level, rpa_recordtree_callback callback, rpointer userdata)
 {
-       rlong child;
+       long child;
 
        if (level > 128)
                return -1;
@@ -238,7 +238,7 @@ static void rpa_recordptr_setusertype(rparecord_t *prec, ruint32 usertype, rvals
 }
 
 
-rlong rpa_record_getruleuid(rarray_t *records, rlong rec)
+long rpa_record_getruleuid(rarray_t *records, long rec)
 {
        rparecord_t *prec;
 
@@ -252,7 +252,7 @@ rlong rpa_record_getruleuid(rarray_t *records, rlong rec)
 }
 
 
-void rpa_record_setusertype(rarray_t *records, rlong rec, ruint32 usertype, rvalset_t op)
+void rpa_record_setusertype(rarray_t *records, long rec, ruint32 usertype, rvalset_t op)
 {
        rparecord_t *prec;
 
@@ -271,7 +271,7 @@ void rpa_record_setusertype(rarray_t *records, rlong rec, ruint32 usertype, rval
 }
 
 
-rlong rpa_record_getusertype(rarray_t *records, rlong rec)
+long rpa_record_getusertype(rarray_t *records, long rec)
 {
        rparecord_t *prec;
 
@@ -285,9 +285,9 @@ rlong rpa_record_getusertype(rarray_t *records, rlong rec)
 }
 
 
-rinteger rpa_record_optchar(rparecord_t *prec, rinteger defc)
+int rpa_record_optchar(rparecord_t *prec, int defc)
 {
-       rinteger optc = defc;
+       int optc = defc;
 
        if ((prec->usertype & RPA_MATCH_MASK) == RPA_MATCH_OPTIONAL)
                optc = '?';
@@ -301,9 +301,9 @@ rinteger rpa_record_optchar(rparecord_t *prec, rinteger defc)
 }
 
 
-rinteger rpa_record_loopchar(rparecord_t *prec, rinteger defc)
+int rpa_record_loopchar(rparecord_t *prec, int defc)
 {
-       rinteger loopc = defc;
+       int loopc = defc;
 
        if ((prec->usertype & RPA_LOOP_PATH) && (prec->usertype & RPA_NONLOOP_PATH)) {
                /*
@@ -321,14 +321,14 @@ rinteger rpa_record_loopchar(rparecord_t *prec, rinteger defc)
 }
 
 
-void rpa_record_dump(rarray_t *records, rlong rec)
+void rpa_record_dump(rarray_t *records, long rec)
 {
        rparecord_t *prec;
-       rlong start, end, first, last, next, prev, parent;
-       rchar buf[240];
-       rinteger bufsize = sizeof(buf) - 1;
-       rinteger n = 0, size;
-       rchar optc = ' ';
+       long start, end, first, last, next, prev, parent;
+       char buf[240];
+       int bufsize = sizeof(buf) - 1;
+       int n = 0, size;
+       char optc = ' ';
 
        if (rec < 0 || rec >= r_array_length(records))
                return;
@@ -381,11 +381,11 @@ void rpa_record_dump(rarray_t *records, rlong rec)
 }
 
 
-void rpa_record_dumpindented(rarray_t *records, rlong rec, rinteger level)
+void rpa_record_dumpindented(rarray_t *records, long rec, int level)
 {
-       rchar buffer[1024];
+       char buffer[1024];
        rparecord_t *prec;
-       rinteger i, size;
+       int i, size;
 
        if (rec < 0 || rec >= r_array_length(records))
                return;
@@ -424,13 +424,13 @@ void rpa_records_destroy(rarray_t *records)
 }
 
 
-rlong rpa_records_length(rarray_t *records)
+long rpa_records_length(rarray_t *records)
 {
        return r_array_length(records);
 }
 
 
-rparecord_t *rpa_records_slot(rarray_t *records, rlong index)
+rparecord_t *rpa_records_slot(rarray_t *records, long index)
 {
        if (index < 0 || index >= r_array_length(records))
                return NULL;
index 4b94300..cb9379d 100644 (file)
@@ -84,7 +84,7 @@ typedef struct rparecord_s rparecord_t;
 /**
  * Tree walk callback
  */
-typedef rlong (*rpa_recordtree_callback)(rarray_t *records, rlong rec, rpointer userdata);
+typedef long (*rpa_recordtree_callback)(rarray_t *records, long rec, rpointer userdata);
 
 
 /**
@@ -94,9 +94,9 @@ typedef rlong (*rpa_recordtree_callback)(rarray_t *records, rlong rec, rpointer
 struct rparecord_s {
        ruint32 top;                    /**< This is a private member, used by the engine and is not significant to the user */
        ruint32 size;                   /**< This is a private member, used by the engine and is not significant to the user */
-       const rchar *rule;              /**< Name of the rule that generated this record. This pointer points to memory allocated
+       const char *rule;               /**< Name of the rule that generated this record. This pointer points to memory allocated
                                                         *   inside @ref rpadbex_t, so make sure rpadbex_t object is still valid while accessing this pointer. */
-       const rchar *input;             /**< Pointer in the input stream. This pointer points to memory inside the input buffer
+       const char *input;              /**< Pointer in the input stream. This pointer points to memory inside the input buffer
                                                         *   passed to @ref rpa_stat_parse, make sure this memory is still valid while accessing this pointer. */
        rsize_t inputoff;               /**< Input offset, calculated from the start parameter passed to @ref rpa_stat_parse */
        rsize_t inputsiz;               /**< Size of input */
@@ -108,35 +108,35 @@ struct rparecord_s {
 };
 
 
-rlong rpa_recordtree_walk(rarray_t *src, rlong rec, rlong level, rpa_recordtree_callback callaback, rpointer userdata);
-rlong rpa_recordtree_get(rarray_t *records, rlong rec, rulong type);
-rlong rpa_recordtree_firstchild(rarray_t *records, rlong rec, rulong type);
-rlong rpa_recordtree_lastchild(rarray_t *records, rlong rec, rulong type);
-rlong rpa_recordtree_next(rarray_t *records, rlong rec, rulong type);
-rlong rpa_recordtree_prev(rarray_t *records, rlong rec, rulong type);
-rlong rpa_recordtree_parent(rarray_t *records, rlong rec, rulong type);
-rlong rpa_recordtree_size(rarray_t *records, rlong rec);                                       /* Size of the tree */
-rlong rpa_recordtree_copy(rarray_t *dst, rarray_t *src, rlong rec);
+long rpa_recordtree_walk(rarray_t *src, long rec, long level, rpa_recordtree_callback callaback, rpointer userdata);
+long rpa_recordtree_get(rarray_t *records, long rec, unsigned long type);
+long rpa_recordtree_firstchild(rarray_t *records, long rec, unsigned long type);
+long rpa_recordtree_lastchild(rarray_t *records, long rec, unsigned long type);
+long rpa_recordtree_next(rarray_t *records, long rec, unsigned long type);
+long rpa_recordtree_prev(rarray_t *records, long rec, unsigned long type);
+long rpa_recordtree_parent(rarray_t *records, long rec, unsigned long type);
+long rpa_recordtree_size(rarray_t *records, long rec);                                 /* Size of the tree */
+long rpa_recordtree_copy(rarray_t *dst, rarray_t *src, long rec);
 
 /**
  * Return a pointer to a record at offset rec
  * @param records An array of records populated by a @ref rpa_stat_parse operation.
  * @param rec record offset.
  */
-rparecord_t *rpa_record_get(rarray_t *records, rlong rec);
+rparecord_t *rpa_record_get(rarray_t *records, long rec);
 
 
-void rpa_record_dumpindented(rarray_t *records, rlong rec, rinteger level);
-void rpa_record_dump(rarray_t *records, rlong rec);
-rlong rpa_record_getruleuid(rarray_t *records, rlong rec);
-void rpa_record_setusertype(rarray_t *records, rlong rec, ruint32 usertype, rvalset_t op);
-rlong rpa_record_getusertype(rarray_t *records, rlong rec);
-rinteger rpa_record_optchar(rparecord_t *prec, rinteger defc);
-rinteger rpa_record_loopchar(rparecord_t *prec, rinteger defc);
+void rpa_record_dumpindented(rarray_t *records, long rec, int level);
+void rpa_record_dump(rarray_t *records, long rec);
+long rpa_record_getruleuid(rarray_t *records, long rec);
+void rpa_record_setusertype(rarray_t *records, long rec, ruint32 usertype, rvalset_t op);
+long rpa_record_getusertype(rarray_t *records, long rec);
+int rpa_record_optchar(rparecord_t *prec, int defc);
+int rpa_record_loopchar(rparecord_t *prec, int defc);
 rarray_t *rpa_records_create();
 void rpa_records_destroy(rarray_t *records);
-rlong rpa_records_length(rarray_t *records);
-rparecord_t *rpa_records_slot(rarray_t *records, rlong index);
+long rpa_records_length(rarray_t *records);
+rparecord_t *rpa_records_slot(rarray_t *records, long index);
 
 #ifdef __cplusplus
 }
index 9363981..9d5e49f 100644 (file)
@@ -27,7 +27,7 @@
 #include "rlib/rcharconv.h"
 
 
-rpastat_t *rpa_stat_create(rpadbex_t *dbex, rulong stacksize)
+rpastat_t *rpa_stat_create(rpadbex_t *dbex, unsigned long stacksize)
 {
        rpastat_t *stat = (rpastat_t *) r_zmalloc(sizeof(*stat));
        if (stacksize == 0)
@@ -56,15 +56,15 @@ void rpa_stat_destroy(rpastat_t *stat)
 }
 
 
-void rpa_stat_cachedisable(rpastat_t *stat, ruinteger disable)
+void rpa_stat_cachedisable(rpastat_t *stat, unsigned int disable)
 {
        rpa_cache_disable(stat->cache, disable);
 }
 
 
-rinteger rpa_stat_init(rpastat_t *stat, ruinteger encoding, const rchar *input, const rchar *start, const rchar *end, rarray_t *records)
+int rpa_stat_init(rpastat_t *stat, unsigned int encoding, const char *input, const char *start, const char *end, rarray_t *records)
 {
-       rulong size;
+       unsigned long size;
 
        if (!stat) {
                return -1;
@@ -98,7 +98,7 @@ rinteger rpa_stat_init(rpastat_t *stat, ruinteger encoding, const rchar *input,
        RVM_CPUREG_SETU(stat->cpu, R_LOO, 0);
        RVM_CPUREG_SETU(stat->cpu, R_TOP, -1);
        if (stat->records) {
-               RVM_CPUREG_SETL(stat->cpu, R_REC, (rlong)(r_array_length(stat->records) - 1));
+               RVM_CPUREG_SETL(stat->cpu, R_REC, (long)(r_array_length(stat->records) - 1));
        }
        return 0;
 }
@@ -110,9 +110,9 @@ void rpa_stat_cacheinvalidate(rpastat_t *stat)
 }
 
 
-rlong rpa_stat_exec(rpastat_t *stat, rvm_asmins_t *prog, rword off, ruinteger encoding, const rchar *input, const rchar *start, const rchar *end, rarray_t *records)
+long rpa_stat_exec(rpastat_t *stat, rvm_asmins_t *prog, rword off, unsigned int encoding, const char *input, const char *start, const char *end, rarray_t *records)
 {
-       rlong ret;
+       long ret;
 
        if (!stat) {
                return -1;
@@ -139,7 +139,7 @@ rlong rpa_stat_exec(rpastat_t *stat, rvm_asmins_t *prog, rword off, ruinteger en
                }
                return -1;
        }
-       ret = (rlong)RVM_CPUREG_GETL(stat->cpu, R0);
+       ret = (long)RVM_CPUREG_GETL(stat->cpu, R0);
        if (ret < 0) {
                return 0;
        }
@@ -147,11 +147,11 @@ rlong rpa_stat_exec(rpastat_t *stat, rvm_asmins_t *prog, rword off, ruinteger en
 }
 
 
-static rlong rpa_stat_exec_rid(rpastat_t *stat, rparule_t rid, ruinteger encoding, const rchar *input, const rchar *start, const rchar *end, rarray_t *records)
+static long rpa_stat_exec_rid(rpastat_t *stat, rparule_t rid, unsigned int encoding, const char *input, const char *start, const char *end, rarray_t *records)
 {
-       rlong topsiz = 0;
+       long topsiz = 0;
        rpainput_t *ptp;
-       rlong offset;
+       long offset;
        rvm_asmins_t *exec;
 
 
@@ -175,9 +175,9 @@ static rlong rpa_stat_exec_rid(rpastat_t *stat, rparule_t rid, ruinteger encodin
 }
 
 
-rlong rpa_stat_scan(rpastat_t *stat, rparule_t rid, ruinteger encoding, const rchar *input, const rchar *start, const rchar *end, const rchar **where)
+long rpa_stat_scan(rpastat_t *stat, rparule_t rid, unsigned int encoding, const char *input, const char *start, const char *end, const char **where)
 {
-       rlong ret;
+       long ret;
 
        while (input < end) {
                ret = rpa_stat_exec_rid(stat, rid, encoding, input, start, end, NULL);
@@ -193,19 +193,19 @@ rlong rpa_stat_scan(rpastat_t *stat, rparule_t rid, ruinteger encoding, const rc
 }
 
 
-rlong rpa_stat_match(rpastat_t *stat, rparule_t rid, ruinteger encoding, const rchar *input, const rchar *start, const rchar *end)
+long rpa_stat_match(rpastat_t *stat, rparule_t rid, unsigned int encoding, const char *input, const char *start, const char *end)
 {
        return rpa_stat_exec_rid(stat, rid, encoding, input, start, end, NULL);
 }
 
 
-rlong rpa_stat_parse(rpastat_t *stat, rparule_t rid, ruinteger encoding, const rchar *input, const rchar *start, const rchar *end, rarray_t *records)
+long rpa_stat_parse(rpastat_t *stat, rparule_t rid, unsigned int encoding, const char *input, const char *start, const char *end, rarray_t *records)
 {
        return rpa_stat_exec_rid(stat, rid, encoding, input, start, end, records);
 }
 
 
-rinteger rpa_stat_abort(rpastat_t *stat)
+int rpa_stat_abort(rpastat_t *stat)
 {
        if (!stat) {
                return -1;
@@ -216,9 +216,9 @@ rinteger rpa_stat_abort(rpastat_t *stat)
 }
 
 
-rinteger rpa_stat_matchchr(rpastat_t *stat, rssize_t top, rulong wc)
+int rpa_stat_matchchr(rpastat_t *stat, rssize_t top, unsigned long wc)
 {
-       rinteger ret = 0;
+       int ret = 0;
        rpainput_t *in = &stat->instack[top];
 
        if (in->eof)
@@ -232,9 +232,9 @@ rinteger rpa_stat_matchchr(rpastat_t *stat, rssize_t top, rulong wc)
 }
 
 
-rinteger rpa_stat_matchspchr(rpastat_t *stat, rssize_t top, rulong wc)
+int rpa_stat_matchspchr(rpastat_t *stat, rssize_t top, unsigned long wc)
 {
-       rinteger ret = 0;
+       int ret = 0;
        rpainput_t *in = &stat->instack[top];
 
        if (in->eof)
@@ -262,9 +262,9 @@ rinteger rpa_stat_matchspchr(rpastat_t *stat, rssize_t top, rulong wc)
 }
 
 
-rinteger rpa_stat_matchrng(rpastat_t *stat, rssize_t top, rulong wc1, rulong wc2)
+int rpa_stat_matchrng(rpastat_t *stat, rssize_t top, unsigned long wc1, unsigned long wc2)
 {
-       rinteger ret = 0;
+       int ret = 0;
        rpainput_t *in = &stat->instack[top];
 
        if (in->eof)
@@ -278,30 +278,30 @@ rinteger rpa_stat_matchrng(rpastat_t *stat, rssize_t top, rulong wc1, rulong wc2
 }
 
 
-static rinteger rpa_stat_utf8_getchar(ruint32 *pwc, rpastat_t *stat, const rchar *input)
+static int rpa_stat_utf8_getchar(ruint32 *pwc, rpastat_t *stat, const char *input)
 {
-       return r_utf8_mbtowc(pwc, (const ruchar*)input, (const ruchar*)stat->end);
+       return r_utf8_mbtowc(pwc, (const unsigned char*)input, (const unsigned char*)stat->end);
 }
 
 
-static rinteger rpa_stat_byte_getchar(ruint32 *pwc, rpastat_t *stat, const rchar *input)
+static int rpa_stat_byte_getchar(ruint32 *pwc, rpastat_t *stat, const char *input)
 {
        if (input >= stat->end) {
                *pwc = (unsigned int)0;
                return 0;
        }
-       *pwc = *((const ruchar*)input);
+       *pwc = *((const unsigned char*)input);
        return 1;
 }
 
 
-static int rpa_stat_utf16_getchar(ruint32 *pwc, rpastat_t *stat, const rchar *input)
+static int rpa_stat_utf16_getchar(ruint32 *pwc, rpastat_t *stat, const char *input)
 {
-       return r_utf16_mbtowc(pwc, (const ruchar*)input, (const ruchar*)stat->end);
+       return r_utf16_mbtowc(pwc, (const unsigned char*)input, (const unsigned char*)stat->end);
 }
 
 
-rlong rpa_stat_shift(rpastat_t *stat, rssize_t top)
+long rpa_stat_shift(rpastat_t *stat, rssize_t top)
 {
        rpainput_t * ptp = &stat->instack[top];
 
@@ -309,20 +309,20 @@ rlong rpa_stat_shift(rpastat_t *stat, rssize_t top)
                return -1;
        ptp++;
        top++;
-       if (top >= (rlong)stat->ip.serial) {
-               rinteger inc = 0;
+       if (top >= (long)stat->ip.serial) {
+               int inc = 0;
                ptp->input = stat->ip.input;
                if (ptp->input < stat->end) {
                        switch (stat->encoding & RPA_ENCODING_MASK) {
                        default:
                        case RPA_ENCODING_UTF8:
-                               inc = rpa_stat_utf8_getchar(&ptp->wc, stat, (const rchar*)stat->ip.input);
+                               inc = rpa_stat_utf8_getchar(&ptp->wc, stat, (const char*)stat->ip.input);
                                break;
                        case RPA_ENCODING_UTF16LE:
-                               inc = rpa_stat_utf16_getchar(&ptp->wc, stat, (const rchar*)stat->ip.input);
+                               inc = rpa_stat_utf16_getchar(&ptp->wc, stat, (const char*)stat->ip.input);
                                break;
                        case RPA_ENCODING_BYTE:
-                               inc = rpa_stat_byte_getchar(&ptp->wc, stat, (const rchar*)stat->ip.input);
+                               inc = rpa_stat_byte_getchar(&ptp->wc, stat, (const char*)stat->ip.input);
                                break;
                        };
                        if (stat->encoding & RPA_ENCODING_ICASE)
@@ -340,7 +340,7 @@ rlong rpa_stat_shift(rpastat_t *stat, rssize_t top)
 }
 
 
-rlong rpa_stat_lasterror(rpastat_t *stat)
+long rpa_stat_lasterror(rpastat_t *stat)
 {
        if (!stat)
                return -1;
@@ -348,7 +348,7 @@ rlong rpa_stat_lasterror(rpastat_t *stat)
 }
 
 
-rlong rpa_stat_lasterrorinfo(rpastat_t *stat, rpa_errinfo_t *errinfo)
+long rpa_stat_lasterrorinfo(rpastat_t *stat, rpa_errinfo_t *errinfo)
 {
        if (!stat || !errinfo)
                return -1;
index b48f460..b2f0581 100644 (file)
@@ -79,7 +79,7 @@ typedef struct rpastat_s rpastat_t;
  * @param stacksize Execution stack size. The size is specified in byts.
  * @return Returns a pointer to newly created @ref rpastat_t object or NULL if error occurred.
  */
-rpastat_t *rpa_stat_create(rpadbex_t *dbex, rulong stacksize);
+rpastat_t *rpa_stat_create(rpadbex_t *dbex, unsigned long stacksize);
 
 
 /**
@@ -115,7 +115,7 @@ void rpa_stat_destroy(rpastat_t *stat);
  * @return If successful return the size of the matched string in bytes, if no match was found
  *                     return 0, return negative in case of error.
  */
-rlong rpa_stat_scan(rpastat_t *stat, rparule_t rid, ruinteger encoding, const rchar *input, const rchar *start, const rchar *end, const rchar **where);
+long rpa_stat_scan(rpastat_t *stat, rparule_t rid, unsigned int encoding, const char *input, const char *start, const char *end, const char **where);
 
 /**
  * @brief Parse an input stream
@@ -140,7 +140,7 @@ rlong rpa_stat_scan(rpastat_t *stat, rparule_t rid, ruinteger encoding, const rc
  * @return If successful return the size of the matched string in bytes, if the input stream cannot be matched against the BNF
  *                     return 0, return negative in case of error.
  */
-rlong rpa_stat_parse(rpastat_t *stat, rparule_t rid, ruinteger encoding, const rchar *input, const rchar *start, const rchar *end, rarray_t *records);
+long rpa_stat_parse(rpastat_t *stat, rparule_t rid, unsigned int encoding, const char *input, const char *start, const char *end, rarray_t *records);
 
 /**
  * @brief Match an input stream
@@ -163,7 +163,7 @@ rlong rpa_stat_parse(rpastat_t *stat, rparule_t rid, ruinteger encoding, const r
  * @return If successful return the size of the matched string in bytes, if the input stream cannot be matched against the BNF
  *                     return 0, return negative in case of error.
  */
-rlong rpa_stat_match(rpastat_t *stat, rparule_t rid, ruinteger encoding, const rchar *input, const rchar *start, const rchar *end);
+long rpa_stat_match(rpastat_t *stat, rparule_t rid, unsigned int encoding, const char *input, const char *start, const char *end);
 
 
 /**
@@ -191,7 +191,7 @@ rlong rpa_stat_match(rpastat_t *stat, rparule_t rid, ruinteger encoding, const r
  * @return If successful return the size of the matched string in bytes, if the input stream cannot be matched against the BNF
  *                     return 0, return negative in case of error.
  */
-rlong rpa_stat_exec(rpastat_t *stat, rvm_asmins_t *prog, rword off, ruinteger encoding, const rchar *input, const rchar *start, const rchar *end, rarray_t *records);
+long rpa_stat_exec(rpastat_t *stat, rvm_asmins_t *prog, rword off, unsigned int encoding, const char *input, const char *start, const char *end, rarray_t *records);
 
 
 /**
@@ -201,7 +201,7 @@ rlong rpa_stat_exec(rpastat_t *stat, rvm_asmins_t *prog, rword off, ruinteger en
  * @param stat Pointer to object of type @ref rpastat_t
  * @return If sucessful return 0, otherwise return negative.
  */
-rinteger rpa_stat_abort(rpastat_t *stat);
+int rpa_stat_abort(rpastat_t *stat);
 
 
 /**
@@ -211,7 +211,7 @@ rinteger rpa_stat_abort(rpastat_t *stat);
  * @return The error code of the last occurred error. If this function fails the
  * return value is negative.
  */
-rlong rpa_stat_lasterror(rpastat_t *stat);
+long rpa_stat_lasterror(rpastat_t *stat);
 
 /**
  * @brief Get error information for the last occurred error.
@@ -222,7 +222,7 @@ rlong rpa_stat_lasterror(rpastat_t *stat);
  * @return Return 0 if the function is successful or negative otherwise. If this function fails the
  * return value is negative.
  */
-rlong rpa_stat_lasterrorinfo(rpastat_t *stat, rpa_errinfo_t *errinfo);
+long rpa_stat_lasterrorinfo(rpastat_t *stat, rpa_errinfo_t *errinfo);
 
 
 /**
index 99c21e5..36d7573 100644 (file)
@@ -44,28 +44,28 @@ extern "C" {
 
 struct rpastat_s {
        rpadbex_t *dbex;
-       const rchar *input;
-       const rchar *start;
-       const rchar *end;
+       const char *input;
+       const char *start;
+       const char *end;
        rpa_errinfo_t err;
-       ruinteger encoding;
-       ruinteger debug;
+       unsigned int encoding;
+       unsigned int debug;
        rarray_t *records;
        rpainput_t *instackbuffer;
        rpainput_t *instack;                    /* instack = &instackbuffer[1]; This allows R_TOP = -1, without any additional checks */
-       rulong instacksize;
+       unsigned long instacksize;
        rpacache_t *cache;
        rpainmap_t ip;
        rvmcpu_t *cpu;
 };
 
-rinteger rpa_stat_init(rpastat_t *stat, ruinteger encoding, const rchar *input, const rchar *start, const rchar *end, rarray_t *records);
-void rpa_stat_cachedisable(rpastat_t *stat, ruinteger disable);
+int rpa_stat_init(rpastat_t *stat, unsigned int encoding, const char *input, const char *start, const char *end, rarray_t *records);
+void rpa_stat_cachedisable(rpastat_t *stat, unsigned int disable);
 void rpa_stat_cacheinvalidate(rpastat_t *stat);
-rinteger rpa_stat_matchchr(rpastat_t *stat, rssize_t top, rulong wc);
-rinteger rpa_stat_matchspchr(rpastat_t *stat, rssize_t top, rulong wc);
-rinteger rpa_stat_matchrng(rpastat_t *stat, rssize_t top, rulong wc1, rulong wc2);
-rlong rpa_stat_shift(rpastat_t *stat, rssize_t top);
+int rpa_stat_matchchr(rpastat_t *stat, rssize_t top, unsigned long wc);
+int rpa_stat_matchspchr(rpastat_t *stat, rssize_t top, unsigned long wc);
+int rpa_stat_matchrng(rpastat_t *stat, rssize_t top, unsigned long wc1, unsigned long wc2);
+long rpa_stat_shift(rpastat_t *stat, rssize_t top);
 
 
 #ifdef __cplusplus
index 29d93af..c093407 100644 (file)
@@ -27,7 +27,7 @@
 static void rpavm_swi_shift(rvmcpu_t *cpu, rvm_asmins_t *ins)
 {
        rpastat_t *stat = (rpastat_t *)cpu->userdata1;
-       rlong top = RVM_CPUREG_GETL(cpu, R_TOP);
+       long top = RVM_CPUREG_GETL(cpu, R_TOP);
 
        if ((top = rpa_stat_shift(stat, top)) >= 0)
                RVM_CPUREG_SETL(cpu, R_TOP, top);
@@ -232,7 +232,7 @@ static void rpavm_swi_matchrng_mop(rvmcpu_t *cpu, rvm_asmins_t *ins)
 static void rpavm_swi_emittail(rvmcpu_t *cpu, rvm_asmins_t *ins)
 {
        rpastat_t *stat = (rpastat_t *)cpu->userdata1;
-       rlong index = RVM_CPUREG_GETL(cpu, R_REC);
+       long index = RVM_CPUREG_GETL(cpu, R_REC);
 
        if (stat->records)
                r_array_setlength(stat->records, index + 1);
@@ -242,9 +242,9 @@ static void rpavm_swi_emittail(rvmcpu_t *cpu, rvm_asmins_t *ins)
 static void rpavm_swi_abort(rvmcpu_t *cpu, rvm_asmins_t *ins)
 {
        rpa_ruledata_t *ruledata = RVM_CPUREG_GETP(cpu, ins->op1);
-       rstr_t name = {(rchar*)ruledata + ruledata->name, ruledata->namesize};
+       rstr_t name = {(char*)ruledata + ruledata->name, ruledata->namesize};
        rpastat_t *stat = (rpastat_t *)cpu->userdata1;
-       rlong index = RVM_CPUREG_GETL(cpu, R_REC);
+       long index = RVM_CPUREG_GETL(cpu, R_REC);
        rword tp = RVM_CPUREG_GETU(cpu, ins->op2);
 
 
@@ -267,9 +267,9 @@ static void rpavm_swi_emitstart(rvmcpu_t *cpu, rvm_asmins_t *ins)
        rpa_ruledata_t *ruledata = RVM_CPUREG_GETP(cpu, ins->op1);
        rpastat_t *stat = (rpastat_t *)cpu->userdata1;
        rparecord_t *rec;
-       rlong index = RVM_CPUREG_GETL(cpu, R_REC);
+       long index = RVM_CPUREG_GETL(cpu, R_REC);
        rword tp = RVM_CPUREG_GETU(cpu, ins->op2);
-       rstr_t name = {(rchar*)ruledata + ruledata->name, ruledata->namesize};
+       rstr_t name = {(char*)ruledata + ruledata->name, ruledata->namesize};
 
        if (stat->debug)
                r_printf("%ld: %s, %s, tp = %ld\n", RVM_CPUREG_GETU(cpu, FP), "START", name.str, tp);
@@ -300,11 +300,11 @@ static void rpavm_swi_emitend(rvmcpu_t *cpu, rvm_asmins_t *ins)
        rpa_ruledata_t *ruledata = RVM_CPUREG_GETP(cpu, ins->op1);
        rpastat_t *stat = (rpastat_t *)cpu->userdata1;
        rparecord_t *rec, *startrec;
-       rlong startindex = RVM_CPUREG_GETL(cpu, R1) + 1;
-       rlong index = RVM_CPUREG_GETL(cpu, R_REC);
+       long startindex = RVM_CPUREG_GETL(cpu, R1) + 1;
+       long index = RVM_CPUREG_GETL(cpu, R_REC);
        rword tp = RVM_CPUREG_GETU(cpu, ins->op2);
        rword tplen = RVM_CPUREG_GETU(cpu, ins->op3);
-       rstr_t name = {(rchar*)ruledata + ruledata->name, ruledata->namesize};
+       rstr_t name = {(char*)ruledata + ruledata->name, ruledata->namesize};
 
        if (stat->debug)
                r_printf("%ld: %s, %s, tp = %ld, tplen = %ld\n", RVM_CPUREG_GETU(cpu, FP), "END ", name.str, tp, tplen);
@@ -339,7 +339,7 @@ static void rpavm_swi_prninfo(rvmcpu_t *cpu, rvm_asmins_t *ins)
        if (!stat->debug)
                return;
        if (ruledata) {
-               name.str = (rchar*)ruledata + ruledata->name;
+               name.str = (char*)ruledata + ruledata->name;
                name.size = ruledata->namesize;
        }
 
@@ -351,12 +351,12 @@ static void rpavm_swi_prninfo(rvmcpu_t *cpu, rvm_asmins_t *ins)
 static void rpavm_swi_setcache(rvmcpu_t *cpu, rvm_asmins_t *ins)
 {
        rpastat_t *stat = (rpastat_t *)cpu->userdata1;
-       rlong r0 = RVM_CPUREG_GETL(cpu, R0);
-       rlong ruleid = RVM_CPUREG_GETL(cpu, ins->op1);
-       rlong prevrec = RVM_CPUREG_GETL(cpu, ins->op2);
-       rlong endrec = RVM_CPUREG_GETL(cpu, ins->op3);
-       rlong top = RVM_CPUREG_GETL(cpu, R_OTP);
-       rlong startrec = 0;
+       long r0 = RVM_CPUREG_GETL(cpu, R0);
+       long ruleid = RVM_CPUREG_GETL(cpu, ins->op1);
+       long prevrec = RVM_CPUREG_GETL(cpu, ins->op2);
+       long endrec = RVM_CPUREG_GETL(cpu, ins->op3);
+       long top = RVM_CPUREG_GETL(cpu, R_OTP);
+       long startrec = 0;
 
        if (r0 > 0 && prevrec != endrec) {
                startrec = prevrec + 1;
@@ -371,9 +371,9 @@ static void rpavm_swi_checkcache(rvmcpu_t *cpu, rvm_asmins_t *ins)
 {
        rpastat_t *stat = (rpastat_t *)cpu->userdata1;
        rpacachedentry_t *entry;
-       rlong ruleid = RVM_CPUREG_GETL(cpu, ins->op1);
-       rlong top = RVM_CPUREG_GETL(cpu, ins->op2);
-       rlong r0 = 0;
+       long ruleid = RVM_CPUREG_GETL(cpu, ins->op1);
+       long top = RVM_CPUREG_GETL(cpu, ins->op2);
+       long r0 = 0;
        entry = rpa_cache_lookup(stat->cache, top, ruleid);
        if (entry) {
                r0 = entry->ret;
@@ -430,10 +430,10 @@ static rvm_switable_t rpavm_swi_table[] = {
 };
 
 
-rvmcpu_t *rpavm_cpu_create(rulong stacksize)
+rvmcpu_t *rpavm_cpu_create(unsigned long stacksize)
 {
        rvmcpu_t *cpu = rvm_cpu_create(stacksize);
-       rinteger tableid = rvm_cpu_addswitable(cpu, "rpavm_swi_table", rpavm_swi_table);
+       int tableid = rvm_cpu_addswitable(cpu, "rpavm_swi_table", rpavm_swi_table);
 
        if (tableid != RPAVM_SWI_TABLEID) {
                rpavm_cpu_destroy(cpu);
index 908f35b..4654ab9 100644 (file)
@@ -76,30 +76,30 @@ extern "C" {
 
 
 typedef struct rpainput_s {
-       const rchar *input;
+       const char *input;
        ruint32 wc;
        ruint32 iwc;
-       ruchar eof;
+       unsigned char eof;
 } rpainput_t;
 
 
 typedef struct rpainmap_s {
-       const rchar *input;
-       rulong serial;
+       const char *input;
+       unsigned long serial;
 } rpainmap_t;
 
 
 typedef struct rpa_ruledata_s {
-       rlong size;
-       rlong ruleid;
-       rlong ruleuid;
-       rulong flags;
-       rulong namesize;
-       rulong name;
+       long size;
+       long ruleid;
+       long ruleuid;
+       unsigned long flags;
+       unsigned long namesize;
+       unsigned long name;
 } rpa_ruledata_t;
 
 
-rvmcpu_t *rpavm_cpu_create(rulong stacksize);
+rvmcpu_t *rpavm_cpu_create(unsigned long stacksize);
 void rpavm_cpu_destroy(rvmcpu_t * vm);
 
 
index a92e095..609c6ae 100644 (file)
@@ -32,7 +32,7 @@ rvm_codegen_t *rvm_codegen_create()
                return (NULL);
        r_memset(cg, 0, sizeof(*cg));
        cg->code = r_array_create(sizeof(rvm_asmins_t));
-       cg->data = r_array_create(sizeof(rbyte));
+       cg->data = r_array_create(sizeof(ruint8));
        cg->codemap = rvm_codemap_create();
        cg->relocmap = rvm_relocmap_create();
        cg->sourceidx = r_array_create(sizeof(rsize_t));
@@ -66,15 +66,15 @@ void rvm_codegen_setsource(rvm_codegen_t *cg, rsize_t srcidx)
 }
 
 
-rlong rvm_codegen_getsource(rvm_codegen_t *cg, rsize_t codeidx)
+long rvm_codegen_getsource(rvm_codegen_t *cg, rsize_t codeidx)
 {
        if (codeidx >= r_array_length(cg->sourceidx))
                return -1;
-       return r_array_index(cg->sourceidx, codeidx, rlong);
+       return r_array_index(cg->sourceidx, codeidx, long);
 }
 
 
-rvm_asmins_t *rvm_codegen_getcode(rvm_codegen_t *cg, ruinteger index)
+rvm_asmins_t *rvm_codegen_getcode(rvm_codegen_t *cg, unsigned int index)
 {
        return (rvm_asmins_t *)r_array_slot(cg->code, index);
 }
@@ -85,7 +85,7 @@ rsize_t rvm_codegen_getcodesize(rvm_codegen_t *cg)
        return r_array_length(cg->code);
 }
 
-void rvm_codegen_setcodesize(rvm_codegen_t *cg, ruinteger size)
+void rvm_codegen_setcodesize(rvm_codegen_t *cg, unsigned int size)
 {
        r_array_setlength(cg->code, size);
 }
@@ -101,9 +101,9 @@ rsize_t rvm_codegen_addins(rvm_codegen_t *cg, rvm_asmins_t ins)
 }
 
 
-rlong rvm_codegen_redefinelabel(rvm_codegen_t *cg, rlong index, rulong offset)
+long rvm_codegen_redefinelabel(rvm_codegen_t *cg, long index, unsigned long offset)
 {
-       rlong codeidx = rvm_codemap_lookupadd_s(cg->codemap, ".code");
+       long codeidx = rvm_codemap_lookupadd_s(cg->codemap, ".code");
        rvm_codelabel_t *label = rvm_codemap_label(cg->codemap, index);
 
        if (!label)
@@ -113,19 +113,19 @@ rlong rvm_codegen_redefinelabel(rvm_codegen_t *cg, rlong index, rulong offset)
 }
 
 
-rlong rvm_codegen_redefinelabel_default(rvm_codegen_t *cg, rlong index)
+long rvm_codegen_redefinelabel_default(rvm_codegen_t *cg, long index)
 {
        return rvm_codegen_redefinelabel(cg, index, rvm_codegen_getcodesize(cg));
 }
 
 
-rlong rvm_codegen_validlabel(rvm_codegen_t *cg, rlong index)
+long rvm_codegen_validlabel(rvm_codegen_t *cg, long index)
 {
        return rvm_codemap_validindex(cg->codemap, index);
 }
 
 
-rlong rvm_codegen_redefinepointer(rvm_codegen_t *cg, rlong index, rpointer data)
+long rvm_codegen_redefinepointer(rvm_codegen_t *cg, long index, rpointer data)
 {
        rvm_codelabel_t *label = rvm_codemap_label(cg->codemap, index);
 
@@ -137,75 +137,75 @@ rlong rvm_codegen_redefinepointer(rvm_codegen_t *cg, rlong index, rpointer data)
 }
 
 
-rlong rvm_codegen_addlabel(rvm_codegen_t *cg, const rchar* name, ruinteger namesize, rulong offset)
+long rvm_codegen_addlabel(rvm_codegen_t *cg, const char* name, unsigned int namesize, unsigned long offset)
 {
        return rvm_codemap_addoffset(cg->codemap, name, namesize, rvm_codemap_lookupadd_s(cg->codemap, ".code"), RVM_CODE2BYTE_OFFSET(offset));
 }
 
 
-rlong rvm_codegen_addlabel_s(rvm_codegen_t *cg, const rchar* name, rulong offset)
+long rvm_codegen_addlabel_s(rvm_codegen_t *cg, const char* name, unsigned long offset)
 {
        return rvm_codegen_addlabel(cg, name, r_strlen(name), offset);
 }
 
 
-rlong rvm_codegen_addlabel_default(rvm_codegen_t *cg, const rchar* name, ruinteger namesize)
+long rvm_codegen_addlabel_default(rvm_codegen_t *cg, const char* name, unsigned int namesize)
 {
        return rvm_codegen_addlabel(cg, name, namesize, rvm_codegen_getcodesize(cg));
 }
 
 
-rlong rvm_codegen_addlabel_default_s(rvm_codegen_t *cg, const rchar* name)
+long rvm_codegen_addlabel_default_s(rvm_codegen_t *cg, const char* name)
 {
        return rvm_codegen_addlabel_default(cg, name, r_strlen(name));
 }
 
 
-rlong rvm_codegen_invalid_addlabel(rvm_codegen_t *cg, const rchar* name, ruinteger namesize)
+long rvm_codegen_invalid_addlabel(rvm_codegen_t *cg, const char* name, unsigned int namesize)
 {
        return rvm_codemap_invalid_add(cg->codemap, name, namesize);
 }
 
 
-rlong rvm_codegen_invalid_addlabel_s(rvm_codegen_t *cg, const rchar* name)
+long rvm_codegen_invalid_addlabel_s(rvm_codegen_t *cg, const char* name)
 {
        return rvm_codegen_invalid_addlabel(cg, name, r_strlen(name));
 }
 
 
-rsize_t rvm_codegen_addlabelins(rvm_codegen_t *cg, const rchar* name, ruinteger namesize, rvm_asmins_t ins)
+rsize_t rvm_codegen_addlabelins(rvm_codegen_t *cg, const char* name, unsigned int namesize, rvm_asmins_t ins)
 {
        rvm_codemap_addoffset(cg->codemap, name, namesize, rvm_codemap_lookupadd_s(cg->codemap, ".code"), RVM_CODE2BYTE_OFFSET(rvm_codegen_getcodesize(cg)));
        return rvm_codegen_addins(cg, ins);
 }
 
 
-rsize_t rvm_codegen_addlabelins_s(rvm_codegen_t *cg, const rchar* name, rvm_asmins_t ins)
+rsize_t rvm_codegen_addlabelins_s(rvm_codegen_t *cg, const char* name, rvm_asmins_t ins)
 {
        return rvm_codegen_addlabelins(cg, name, r_strlen(name), ins);
 }
 
 
-rsize_t rvm_codegen_index_addrelocins(rvm_codegen_t *cg, rvm_reloctype_t type, rulong index, rvm_asmins_t ins)
+rsize_t rvm_codegen_index_addrelocins(rvm_codegen_t *cg, rvm_reloctype_t type, unsigned long index, rvm_asmins_t ins)
 {
        rvm_relocmap_add(cg->relocmap, RVM_RELOC_CODE, type, rvm_codegen_getcodesize(cg), index);
        return rvm_codegen_addins(cg, ins);
 }
 
 
-rsize_t rvm_codegen_addrelocins(rvm_codegen_t *cg, rvm_reloctype_t type, const rchar* name, ruinteger namesize, rvm_asmins_t ins)
+rsize_t rvm_codegen_addrelocins(rvm_codegen_t *cg, rvm_reloctype_t type, const char* name, unsigned int namesize, rvm_asmins_t ins)
 {
        return rvm_codegen_index_addrelocins(cg, type, rvm_codemap_lookupadd(cg->codemap, name, namesize), ins);
 }
 
 
-rsize_t rvm_codegen_addrelocins_s(rvm_codegen_t *cg, rvm_reloctype_t type, const rchar* name, rvm_asmins_t ins)
+rsize_t rvm_codegen_addrelocins_s(rvm_codegen_t *cg, rvm_reloctype_t type, const char* name, rvm_asmins_t ins)
 {
        return rvm_codegen_addrelocins(cg, type, name, r_strlen(name), ins);
 }
 
 
-rinteger rvm_codegen_relocate(rvm_codegen_t *cg, rvm_codelabel_t **err)
+int rvm_codegen_relocate(rvm_codegen_t *cg, rvm_codelabel_t **err)
 {
        rvm_codemap_addpointer_s(cg->codemap, ".code", r_array_slot(cg->code, 0));
        rvm_codemap_addpointer_s(cg->codemap, ".data", r_array_slot(cg->data, 0));
@@ -213,22 +213,22 @@ rinteger rvm_codegen_relocate(rvm_codegen_t *cg, rvm_codelabel_t **err)
 }
 
 
-rsize_t rvm_codegen_insertins(rvm_codegen_t *cg, ruinteger index, rvm_asmins_t ins)
+rsize_t rvm_codegen_insertins(rvm_codegen_t *cg, unsigned int index, rvm_asmins_t ins)
 {
        return r_array_insert(cg->code, index, &ins);
 }
 
 
-rsize_t rvm_codegen_replaceins(rvm_codegen_t *cg, ruinteger index, rvm_asmins_t ins)
+rsize_t rvm_codegen_replaceins(rvm_codegen_t *cg, unsigned int index, rvm_asmins_t ins)
 {
        return r_array_replace(cg->code, index, &ins);
 
 }
 
 
-ruinteger rvm_codegen_funcstart(rvm_codegen_t *cg, const rchar* name, ruinteger namesize, ruinteger args)
+unsigned int rvm_codegen_funcstart(rvm_codegen_t *cg, const char* name, unsigned int namesize, unsigned int args)
 {
-       ruinteger start;
+       unsigned int start;
        rvm_codegen_addins(cg, rvm_asm(RVM_NOP, XX, XX, XX, 0));
        start = rvm_codegen_addlabelins(cg, name, namesize, rvm_asm(RVM_PUSHM, DA, XX, XX, BIT(FP)|BIT(SP)|BIT(LR)));
        rvm_codegen_addins(cg, rvm_asm(RVM_MOV, FP, SP, XX, 0));
@@ -238,15 +238,15 @@ ruinteger rvm_codegen_funcstart(rvm_codegen_t *cg, const rchar* name, ruinteger
 }
 
 
-ruinteger rvm_codegen_funcstart_s(rvm_codegen_t *cg, const rchar* name, ruinteger args)
+unsigned int rvm_codegen_funcstart_s(rvm_codegen_t *cg, const char* name, unsigned int args)
 {
        return rvm_codegen_funcstart(cg, name, r_strlen(name), args);
 }
 
 
-ruinteger rvm_codegen_vargs_funcstart(rvm_codegen_t *cg, const rchar* name, ruinteger namesize)
+unsigned int rvm_codegen_vargs_funcstart(rvm_codegen_t *cg, const char* name, unsigned int namesize)
 {
-       ruinteger start;
+       unsigned int start;
        rvm_codegen_addins(cg, rvm_asm(RVM_NOP, XX, XX, XX, 0));
        start = rvm_codegen_addlabelins(cg, name, namesize, rvm_asm(RVM_PUSHM, DA, XX, XX, BIT(FP)|BIT(SP)|BIT(LR)));
        rvm_codegen_addins(cg, rvm_asm(RVM_MOV, FP, SP, XX, 0));
@@ -256,7 +256,7 @@ ruinteger rvm_codegen_vargs_funcstart(rvm_codegen_t *cg, const rchar* name, ruin
 }
 
 
-ruinteger rvm_codegen_vargs_funcstart_s(rvm_codegen_t *cg, const rchar* name)
+unsigned int rvm_codegen_vargs_funcstart_s(rvm_codegen_t *cg, const char* name)
 {
        return rvm_codegen_vargs_funcstart(cg, name, r_strlen(name));
 }
@@ -269,10 +269,10 @@ void rvm_codegen_funcend(rvm_codegen_t *cg)
        rvm_codegen_addins(cg, rvm_asm(RVM_BX, LR, XX, XX, 0));
 }
 
-rlong rvm_codegen_adddata(rvm_codegen_t *cg, const rchar *name, ruinteger namesize, rconstpointer data, rsize_t size)
+long rvm_codegen_adddata(rvm_codegen_t *cg, const char *name, unsigned int namesize, rconstpointer data, rsize_t size)
 {
        rpointer buffer;
-       rulong cursize = R_SIZE_ALIGN(r_array_length(cg->data), sizeof(rword));
+       unsigned long cursize = R_SIZE_ALIGN(r_array_length(cg->data), sizeof(rword));
 
        r_array_setlength(cg->data, cursize + size + sizeof(rword) + 1);
        buffer = r_array_slot(cg->data, cursize);
@@ -282,27 +282,27 @@ rlong rvm_codegen_adddata(rvm_codegen_t *cg, const rchar *name, ruinteger namesi
 }
 
 
-rlong rvm_codegen_adddata_s(rvm_codegen_t *cg, const rchar *name, rconstpointer data, rsize_t size)
+long rvm_codegen_adddata_s(rvm_codegen_t *cg, const char *name, rconstpointer data, rsize_t size)
 {
        return rvm_codegen_adddata(cg, name, r_strlen(name), data, size);
 }
 
 
-rlong rvm_codegen_addstring(rvm_codegen_t *cg, const rchar *name, ruinteger namesize, const rchar* data)
+long rvm_codegen_addstring(rvm_codegen_t *cg, const char *name, unsigned int namesize, const char* data)
 {
        return rvm_codegen_adddata(cg, name, namesize, data, r_strlen(data) + 1);
 }
 
 
-rlong rvm_codegen_addstring_s(rvm_codegen_t *cg, const rchar *name, const rchar* data)
+long rvm_codegen_addstring_s(rvm_codegen_t *cg, const char *name, const char* data)
 {
        return rvm_codegen_addstring(cg, name, r_strlen(name), data);
 }
 
 
-rlong rvm_codegen_add_numlabel_s(rvm_codegen_t *cg, const rchar *alphaname, rlong numname)
+long rvm_codegen_add_numlabel_s(rvm_codegen_t *cg, const char *alphaname, long numname)
 {
-       rchar label[128];
+       char label[128];
 
        r_memset(label, 0, sizeof(label));
        r_snprintf(label, sizeof(label) - 1, "L%07ld__%s:", numname, alphaname);
@@ -310,9 +310,9 @@ rlong rvm_codegen_add_numlabel_s(rvm_codegen_t *cg, const rchar *alphaname, rlon
 }
 
 
-rlong rvm_codegen_invalid_add_numlabel_s(rvm_codegen_t *cg, const rchar *alphaname, rlong numname)
+long rvm_codegen_invalid_add_numlabel_s(rvm_codegen_t *cg, const char *alphaname, long numname)
 {
-       rchar label[128];
+       char label[128];
 
        r_memset(label, 0, sizeof(label));
        r_snprintf(label, sizeof(label) - 1, "L%07ld__%s:", numname, alphaname);
index 2c68b35..e5f970d 100644 (file)
@@ -41,53 +41,53 @@ extern "C" {
 typedef struct rvm_codegen_s {
        rarray_t *code;
        rarray_t *data;
-       ruinteger codeoff;
+       unsigned int codeoff;
        rarray_t *sourceidx;
        rvm_codemap_t *codemap;
        rvm_relocmap_t *relocmap;
        rsize_t cursrcidx;
-       rulong userdata;
+       unsigned long userdata;
 } rvm_codegen_t;
 
 
 rvm_codegen_t *rvm_codegen_create();
 void rvm_codegen_destroy(rvm_codegen_t *cg);
 void rvm_codegen_setsource(rvm_codegen_t *cg, rsize_t srcidx);
-rlong rvm_codegen_getsource(rvm_codegen_t *cg, rsize_t codeidx);
-ruinteger rvm_codegen_funcstart(rvm_codegen_t *cg, const rchar* name, ruinteger namesize, ruinteger args);
-ruinteger rvm_codegen_funcstart_s(rvm_codegen_t *cg, const rchar* name, ruinteger args);
-ruinteger rvm_codegen_vargs_funcstart(rvm_codegen_t *cg, const rchar* name, ruinteger namesize);
-ruinteger rvm_codegen_vargs_funcstart_s(rvm_codegen_t *cg, const rchar* name);
+long rvm_codegen_getsource(rvm_codegen_t *cg, rsize_t codeidx);
+unsigned int rvm_codegen_funcstart(rvm_codegen_t *cg, const char* name, unsigned int namesize, unsigned int args);
+unsigned int rvm_codegen_funcstart_s(rvm_codegen_t *cg, const char* name, unsigned int args);
+unsigned int rvm_codegen_vargs_funcstart(rvm_codegen_t *cg, const char* name, unsigned int namesize);
+unsigned int rvm_codegen_vargs_funcstart_s(rvm_codegen_t *cg, const char* name);
 void rvm_codegen_funcend(rvm_codegen_t *cg);
 rsize_t rvm_codegen_addins(rvm_codegen_t *cg, rvm_asmins_t ins);
-rsize_t rvm_codegen_addlabelins(rvm_codegen_t *cg, const rchar* name, ruinteger namesize, rvm_asmins_t ins);
-rsize_t rvm_codegen_addlabelins_s(rvm_codegen_t *cg, const rchar* name, rvm_asmins_t ins);
-rsize_t rvm_codegen_index_addrelocins(rvm_codegen_t *cg, rvm_reloctype_t type, rulong index, rvm_asmins_t ins);
-rsize_t rvm_codegen_addrelocins(rvm_codegen_t *cg, rvm_reloctype_t type, const rchar* name, ruinteger namesize, rvm_asmins_t ins);
-rsize_t rvm_codegen_addrelocins_s(rvm_codegen_t *cg, rvm_reloctype_t type, const rchar* name, rvm_asmins_t ins);
-rsize_t rvm_codegen_insertins(rvm_codegen_t *cg, ruinteger index, rvm_asmins_t ins);
-rsize_t rvm_codegen_replaceins(rvm_codegen_t *cg, ruinteger index, rvm_asmins_t ins);
-rvm_asmins_t *rvm_codegen_getcode(rvm_codegen_t *cg, ruinteger index);
+rsize_t rvm_codegen_addlabelins(rvm_codegen_t *cg, const char* name, unsigned int namesize, rvm_asmins_t ins);
+rsize_t rvm_codegen_addlabelins_s(rvm_codegen_t *cg, const char* name, rvm_asmins_t ins);
+rsize_t rvm_codegen_index_addrelocins(rvm_codegen_t *cg, rvm_reloctype_t type, unsigned long index, rvm_asmins_t ins);
+rsize_t rvm_codegen_addrelocins(rvm_codegen_t *cg, rvm_reloctype_t type, const char* name, unsigned int namesize, rvm_asmins_t ins);
+rsize_t rvm_codegen_addrelocins_s(rvm_codegen_t *cg, rvm_reloctype_t type, const char* name, rvm_asmins_t ins);
+rsize_t rvm_codegen_insertins(rvm_codegen_t *cg, unsigned int index, rvm_asmins_t ins);
+rsize_t rvm_codegen_replaceins(rvm_codegen_t *cg, unsigned int index, rvm_asmins_t ins);
+rvm_asmins_t *rvm_codegen_getcode(rvm_codegen_t *cg, unsigned int index);
 rsize_t rvm_codegen_getcodesize(rvm_codegen_t *cg);
-void rvm_codegen_setcodesize(rvm_codegen_t *cg, ruinteger size);
+void rvm_codegen_setcodesize(rvm_codegen_t *cg, unsigned int size);
 void rvm_codegen_clear(rvm_codegen_t *cg);
-rinteger rvm_codegen_relocate(rvm_codegen_t *cg, rvm_codelabel_t **err);
-rlong rvm_codegen_validlabel(rvm_codegen_t *cg, rlong index);
-rlong rvm_codegen_redefinelabel(rvm_codegen_t *cg, rlong index, rulong offset);
-rlong rvm_codegen_redefinelabel_default(rvm_codegen_t *cg, rlong index);
-rlong rvm_codegen_redefinepointer(rvm_codegen_t *cg, rlong index, rpointer data);
-rlong rvm_codegen_addlabel(rvm_codegen_t *cg, const rchar* name, ruinteger namesize, rulong offset);
-rlong rvm_codegen_addlabel_s(rvm_codegen_t *cg, const rchar* name, rulong offset);
-rlong rvm_codegen_addlabel_default(rvm_codegen_t *cg, const rchar* name, ruinteger namesize);
-rlong rvm_codegen_addlabel_default_s(rvm_codegen_t *cg, const rchar* name);
-rlong rvm_codegen_invalid_addlabel(rvm_codegen_t *cg, const rchar* name, ruinteger namesize);
-rlong rvm_codegen_invalid_addlabel_s(rvm_codegen_t *cg, const rchar* name);
-rlong rvm_codegen_adddata(rvm_codegen_t *cg, const rchar *name, ruinteger namesize, rconstpointer data, rsize_t size);
-rlong rvm_codegen_adddata_s(rvm_codegen_t *cg, const rchar *name, rconstpointer data, rsize_t size);
-rlong rvm_codegen_addstring(rvm_codegen_t *cg, const rchar *name, ruinteger namesize, const rchar* data);
-rlong rvm_codegen_addstring_s(rvm_codegen_t *cg, const rchar *name, const rchar* data);
-rlong rvm_codegen_add_numlabel_s(rvm_codegen_t *cg, const rchar *alphaname, rlong numname);
-rlong rvm_codegen_invalid_add_numlabel_s(rvm_codegen_t *cg, const rchar *alphaname, rlong numname);
+int rvm_codegen_relocate(rvm_codegen_t *cg, rvm_codelabel_t **err);
+long rvm_codegen_validlabel(rvm_codegen_t *cg, long index);
+long rvm_codegen_redefinelabel(rvm_codegen_t *cg, long index, unsigned long offset);
+long rvm_codegen_redefinelabel_default(rvm_codegen_t *cg, long index);
+long rvm_codegen_redefinepointer(rvm_codegen_t *cg, long index, rpointer data);
+long rvm_codegen_addlabel(rvm_codegen_t *cg, const char* name, unsigned int namesize, unsigned long offset);
+long rvm_codegen_addlabel_s(rvm_codegen_t *cg, const char* name, unsigned long offset);
+long rvm_codegen_addlabel_default(rvm_codegen_t *cg, const char* name, unsigned int namesize);
+long rvm_codegen_addlabel_default_s(rvm_codegen_t *cg, const char* name);
+long rvm_codegen_invalid_addlabel(rvm_codegen_t *cg, const char* name, unsigned int namesize);
+long rvm_codegen_invalid_addlabel_s(rvm_codegen_t *cg, const char* name);
+long rvm_codegen_adddata(rvm_codegen_t *cg, const char *name, unsigned int namesize, rconstpointer data, rsize_t size);
+long rvm_codegen_adddata_s(rvm_codegen_t *cg, const char *name, rconstpointer data, rsize_t size);
+long rvm_codegen_addstring(rvm_codegen_t *cg, const char *name, unsigned int namesize, const char* data);
+long rvm_codegen_addstring_s(rvm_codegen_t *cg, const char *name, const char* data);
+long rvm_codegen_add_numlabel_s(rvm_codegen_t *cg, const char *alphaname, long numname);
+long rvm_codegen_invalid_add_numlabel_s(rvm_codegen_t *cg, const char *alphaname, long numname);
 
 #ifdef __cplusplus
 }
index 4a117cf..9250f3b 100644 (file)
@@ -39,9 +39,9 @@ rvm_codemap_t *rvm_codemap_create()
 
 void rvm_codemap_destroy(rvm_codemap_t *codemap)
 {
-       rlong i;
+       long i;
        rvm_codelabel_t *label;
-       rlong len = r_array_length(codemap->labels);
+       long len = r_array_length(codemap->labels);
 
        for (i = 0; i < len; i++) {
                label = (rvm_codelabel_t*)r_array_slot(codemap->labels, i);
@@ -55,7 +55,7 @@ void rvm_codemap_destroy(rvm_codemap_t *codemap)
 
 void rvm_codemap_clear(rvm_codemap_t *codemap)
 {
-       rlong i;
+       long i;
        rvm_codelabel_t *label;
 
        for (i = 0; i < r_array_length(codemap->labels); i++) {
@@ -67,7 +67,7 @@ void rvm_codemap_clear(rvm_codemap_t *codemap)
 }
 
 
-rvm_codelabel_t *rvm_codemap_label(rvm_codemap_t *codemap, rlong index)
+rvm_codelabel_t *rvm_codemap_label(rvm_codemap_t *codemap, long index)
 {
        if (index < 0 || index >= r_array_length(codemap->labels))
                return NULL;
@@ -75,17 +75,17 @@ rvm_codelabel_t *rvm_codemap_label(rvm_codemap_t *codemap, rlong index)
 }
 
 
-static rlong rvm_codemap_dolookup(rvm_codemap_t *codemap, const rchar *name, ruinteger namesize)
+static long rvm_codemap_dolookup(rvm_codemap_t *codemap, const char *name, unsigned int namesize)
 {
        rstr_t lookupstr = {(char*)name, namesize};
        return r_hash_lookup_indexval(codemap->hash, &lookupstr);
 }
 
 
-static rlong rvm_codemap_add(rvm_codemap_t *codemap, const rchar *name, ruinteger namesize)
+static long rvm_codemap_add(rvm_codemap_t *codemap, const char *name, unsigned int namesize)
 {
        rvm_codelabel_t *label = NULL;
-       rlong labelidx = -1;
+       long labelidx = -1;
 
        labelidx = rvm_codemap_dolookup(codemap, name, namesize);
        if (labelidx < 0) {
@@ -100,7 +100,7 @@ static rlong rvm_codemap_add(rvm_codemap_t *codemap, const rchar *name, ruintege
 }
 
 
-void rvm_codelabel_setoffset(rvm_codelabel_t *label, rulong base, rulong offset)
+void rvm_codelabel_setoffset(rvm_codelabel_t *label, unsigned long base, unsigned long offset)
 {
        label->base = base;
        label->value = offset;
@@ -124,9 +124,9 @@ void rvm_codelabel_setinvalid(rvm_codelabel_t *label)
 }
 
 
-rlong rvm_codemap_addoffset(rvm_codemap_t *codemap, const rchar *name, ruinteger namesize, rulong base, rulong offset)
+long rvm_codemap_addoffset(rvm_codemap_t *codemap, const char *name, unsigned int namesize, unsigned long base, unsigned long offset)
 {
-       rlong labelidx = rvm_codemap_add(codemap, name, namesize);
+       long labelidx = rvm_codemap_add(codemap, name, namesize);
        rvm_codelabel_t *label = rvm_codemap_label(codemap, labelidx);
        if (label)
                rvm_codelabel_setoffset(label, base, offset);
@@ -134,15 +134,15 @@ rlong rvm_codemap_addoffset(rvm_codemap_t *codemap, const rchar *name, ruinteger
 }
 
 
-rlong rvm_codemap_addoffset_s(rvm_codemap_t *codemap, const rchar *name, rulong base, rulong offset)
+long rvm_codemap_addoffset_s(rvm_codemap_t *codemap, const char *name, unsigned long base, unsigned long offset)
 {
        return rvm_codemap_addoffset(codemap, name, r_strlen(name), base, offset);
 }
 
 
-rlong rvm_codemap_addpointer(rvm_codemap_t *codemap, const rchar *name, ruinteger namesize, rpointer ptr)
+long rvm_codemap_addpointer(rvm_codemap_t *codemap, const char *name, unsigned int namesize, rpointer ptr)
 {
-       rlong labelidx = rvm_codemap_add(codemap, name, namesize);
+       long labelidx = rvm_codemap_add(codemap, name, namesize);
        rvm_codelabel_t *label = rvm_codemap_label(codemap, labelidx);
 
        if (label) {
@@ -152,15 +152,15 @@ rlong rvm_codemap_addpointer(rvm_codemap_t *codemap, const rchar *name, ruintege
 }
 
 
-rlong rvm_codemap_addpointer_s(rvm_codemap_t *codemap, const rchar *name, rpointer ptr)
+long rvm_codemap_addpointer_s(rvm_codemap_t *codemap, const char *name, rpointer ptr)
 {
        return rvm_codemap_addpointer(codemap, name, r_strlen(name), ptr);
 }
 
 
-rlong rvm_codemap_invalid_add(rvm_codemap_t *codemap, const rchar *name, ruinteger namesize)
+long rvm_codemap_invalid_add(rvm_codemap_t *codemap, const char *name, unsigned int namesize)
 {
-       rlong labelidx = rvm_codemap_add(codemap, name, namesize);
+       long labelidx = rvm_codemap_add(codemap, name, namesize);
        rvm_codelabel_t *label = rvm_codemap_label(codemap, labelidx);
 
        if (label) {
@@ -170,7 +170,7 @@ rlong rvm_codemap_invalid_add(rvm_codemap_t *codemap, const rchar *name, ruinteg
 }
 
 
-rlong rvm_codemap_validindex(rvm_codemap_t *codemap, rlong labelidx)
+long rvm_codemap_validindex(rvm_codemap_t *codemap, long labelidx)
 {
        rvm_codelabel_t *label = rvm_codemap_label(codemap, labelidx);
 
@@ -180,22 +180,22 @@ rlong rvm_codemap_validindex(rvm_codemap_t *codemap, rlong labelidx)
 }
 
 
-rlong rvm_codemap_invalid_add_s(rvm_codemap_t *codemap, const rchar *name)
+long rvm_codemap_invalid_add_s(rvm_codemap_t *codemap, const char *name)
 {
        return rvm_codemap_invalid_add(codemap, name, r_strlen(name));
 }
 
 
-rlong rvm_codemap_lastlabel(rvm_codemap_t *codemap)
+long rvm_codemap_lastlabel(rvm_codemap_t *codemap)
 {
        return r_array_length(codemap->labels) - 1;
 }
 
 
-rlong rvm_codemap_lookupadd(rvm_codemap_t *codemap, const rchar *name, ruinteger namesize)
+long rvm_codemap_lookupadd(rvm_codemap_t *codemap, const char *name, unsigned int namesize)
 {
        rstr_t lookupstr = {(char*)name, namesize};
-       rlong labelidx = r_hash_lookup_indexval(codemap->hash, &lookupstr);
+       long labelidx = r_hash_lookup_indexval(codemap->hash, &lookupstr);
 
        if (labelidx < 0)
                labelidx = rvm_codemap_invalid_add(codemap, name, namesize);
@@ -203,28 +203,28 @@ rlong rvm_codemap_lookupadd(rvm_codemap_t *codemap, const rchar *name, ruinteger
 }
 
 
-rlong rvm_codemap_lookupadd_s(rvm_codemap_t *codemap, const rchar *name)
+long rvm_codemap_lookupadd_s(rvm_codemap_t *codemap, const char *name)
 {
        return rvm_codemap_lookupadd(codemap, name, r_strlen(name));
 }
 
 
-rlong rvm_codemap_lookup(rvm_codemap_t *codemap, const rchar *name, ruinteger namesize)
+long rvm_codemap_lookup(rvm_codemap_t *codemap, const char *name, unsigned int namesize)
 {
        rstr_t lookupstr = {(char*)name, namesize};
-       rlong labelidx = r_hash_lookup_indexval(codemap->hash, &lookupstr);
+       long labelidx = r_hash_lookup_indexval(codemap->hash, &lookupstr);
 
        return labelidx;
 }
 
 
-rlong rvm_codemap_lookup_s(rvm_codemap_t *codemap, const rchar *name)
+long rvm_codemap_lookup_s(rvm_codemap_t *codemap, const char *name)
 {
        return rvm_codemap_lookup(codemap, name, r_strlen(name));
 }
 
 
-rword rvm_codemap_resolve(rvm_codemap_t *codemap, rlong index, rvm_codelabel_t **err)
+rword rvm_codemap_resolve(rvm_codemap_t *codemap, long index, rvm_codelabel_t **err)
 {
        rvm_codelabel_t *label = rvm_codemap_label(codemap, index);
        rword value;
@@ -247,7 +247,7 @@ rword rvm_codemap_resolve(rvm_codemap_t *codemap, rlong index, rvm_codelabel_t *
 
 void rvm_codemap_dump(rvm_codemap_t *codemap)
 {
-       rinteger i = 0;
+       int i = 0;
 
        for (i = 0; i < r_array_length(codemap->labels); i++) {
                rvm_codelabel_t *label = rvm_codemap_label(codemap, i);
index 8666e36..fcb8907 100644 (file)
@@ -38,10 +38,10 @@ typedef struct rvm_codelabel_s {
                RVM_CODELABEL_POINTER,
                RVM_CODELABEL_INVALID,
        } type;
-       rulong base;
+       unsigned long base;
        rword value;
        rstr_t *name;
-       rulong size; // Optional, used for function declarations
+       unsigned long size; // Optional, used for function declarations
 } rvm_codelabel_t;
 
 
@@ -54,22 +54,22 @@ typedef struct rvm_codemap_s {
 rvm_codemap_t *rvm_codemap_create();
 void rvm_codemap_destroy(rvm_codemap_t *codemap);
 void rvm_codemap_clear(rvm_codemap_t *codemap);
-rlong rvm_codemap_invalid_add(rvm_codemap_t *codemap, const rchar *name, ruinteger namesize);
-rlong rvm_codemap_invalid_add_s(rvm_codemap_t *codemap, const rchar *name);
-rlong rvm_codemap_addoffset(rvm_codemap_t *codemap, const rchar *name, ruinteger namesize, rulong base, rulong offset);
-rlong rvm_codemap_addoffset_s(rvm_codemap_t *codemap, const rchar *name, rulong base, rulong offset);
-rlong rvm_codemap_addpointer(rvm_codemap_t *codemap, const rchar *name, ruinteger namesize, rpointer ptr);
-rlong rvm_codemap_addpointer_s(rvm_codemap_t *codemap, const rchar *name, rpointer ptr);
-rlong rvm_codemap_lookupadd(rvm_codemap_t *codemap, const rchar *name, ruinteger namesize);
-rlong rvm_codemap_lookupadd_s(rvm_codemap_t *codemap, const rchar *name);
-rlong rvm_codemap_lookup(rvm_codemap_t *codemap, const rchar *name, ruinteger namesize);
-rlong rvm_codemap_lookup_s(rvm_codemap_t *codemap, const rchar *name);
-rlong rvm_codemap_lastlabel(rvm_codemap_t *codemap);
-rvm_codelabel_t *rvm_codemap_label(rvm_codemap_t *codemap, rlong index);
-rlong rvm_codemap_validindex(rvm_codemap_t *codemap, rlong labelidx);
-rword rvm_codemap_resolve(rvm_codemap_t *codemap, rlong index, rvm_codelabel_t **err);
+long rvm_codemap_invalid_add(rvm_codemap_t *codemap, const char *name, unsigned int namesize);
+long rvm_codemap_invalid_add_s(rvm_codemap_t *codemap, const char *name);
+long rvm_codemap_addoffset(rvm_codemap_t *codemap, const char *name, unsigned int namesize, unsigned long base, unsigned long offset);
+long rvm_codemap_addoffset_s(rvm_codemap_t *codemap, const char *name, unsigned long base, unsigned long offset);
+long rvm_codemap_addpointer(rvm_codemap_t *codemap, const char *name, unsigned int namesize, rpointer ptr);
+long rvm_codemap_addpointer_s(rvm_codemap_t *codemap, const char *name, rpointer ptr);
+long rvm_codemap_lookupadd(rvm_codemap_t *codemap, const char *name, unsigned int namesize);
+long rvm_codemap_lookupadd_s(rvm_codemap_t *codemap, const char *name);
+long rvm_codemap_lookup(rvm_codemap_t *codemap, const char *name, unsigned int namesize);
+long rvm_codemap_lookup_s(rvm_codemap_t *codemap, const char *name);
+long rvm_codemap_lastlabel(rvm_codemap_t *codemap);
+rvm_codelabel_t *rvm_codemap_label(rvm_codemap_t *codemap, long index);
+long rvm_codemap_validindex(rvm_codemap_t *codemap, long labelidx);
+rword rvm_codemap_resolve(rvm_codemap_t *codemap, long index, rvm_codelabel_t **err);
 void rvm_codemap_dump(rvm_codemap_t *codemap);
-void rvm_codelabel_setoffset(rvm_codelabel_t *label, rulong base, rulong offset);
+void rvm_codelabel_setoffset(rvm_codelabel_t *label, unsigned long base, unsigned long offset);
 void rvm_codelabel_setpointer(rvm_codelabel_t *label, rpointer ptr);
 void rvm_codelabel_setinvalid(rvm_codelabel_t *label);
 
index 79655b4..df53173 100644 (file)
@@ -598,7 +598,7 @@ static void rvm_op_asr(rvmcpu_t *cpu, rvm_asmins_t *ins)
 
 static void rvm_op_ror(rvmcpu_t *cpu, rvm_asmins_t *ins)
 {
-       ruinteger i;
+       unsigned int i;
        rword res, op2 = RVM_CPUREG_GETU(cpu, ins->op2), op3 = RVM_CPUREG_GETU(cpu, ins->op3);
        
        res = op2;
@@ -710,8 +710,8 @@ static void rvm_op_swi(rvmcpu_t *cpu, rvm_asmins_t *ins)
 {
        rvmcpu_swi swi;
        rvm_switable_t *switable;
-       ruinteger ntable = (ruinteger) RVM_SWI_TABLE(ins->swi);
-       ruinteger nswi = (ruinteger) RVM_SWI_NUM(ins->swi);
+       unsigned int ntable = (unsigned int) RVM_SWI_TABLE(ins->swi);
+       unsigned int nswi = (unsigned int) RVM_SWI_NUM(ins->swi);
 
        if (r_harray_length(cpu->switables) <= ntable)
                RVM_ABORT(cpu, RVM_E_SWITABLE);
@@ -725,8 +725,8 @@ static void rvm_op_swiid(rvmcpu_t *cpu, rvm_asmins_t *ins)
 {
        rvmcpu_swi swi;
        rvm_switable_t *switable;
-       ruinteger ntable = (ruinteger) RVM_SWI_TABLE(RVM_CPUREG_GETU(cpu, ins->op1));
-       ruinteger nswi = (ruinteger) RVM_SWI_NUM(RVM_CPUREG_GETU(cpu, ins->op1));
+       unsigned int ntable = (unsigned int) RVM_SWI_TABLE(RVM_CPUREG_GETU(cpu, ins->op1));
+       unsigned int nswi = (unsigned int) RVM_SWI_NUM(RVM_CPUREG_GETU(cpu, ins->op1));
 
        if (r_harray_length(cpu->switables) <= ntable)
                RVM_ABORT(cpu, RVM_E_SWITABLE);
@@ -1049,13 +1049,13 @@ static void rvm_op_ret(rvmcpu_t *cpu, rvm_asmins_t *ins)
 }
 
 
-static int rvm_vsnprintf(char *str, ruinteger size, const char *format, va_list ap)
+static int rvm_vsnprintf(char *str, unsigned int size, const char *format, va_list ap)
 {
        return vsnprintf(str, size, format, ap);
 }
 
 
-static int rvm_snprintf(char *str, ruinteger size, const char *format, ...)
+static int rvm_snprintf(char *str, unsigned int size, const char *format, ...)
 {
        va_list ap;
        int ret;
@@ -1079,7 +1079,7 @@ static int rvm_printf(const char *format, ...)
 }
 
 
-int rvm_asm_dump_reg_to_str(unsigned char reg, char *str, ruinteger size)
+int rvm_asm_dump_reg_to_str(unsigned char reg, char *str, unsigned int size)
 {
        int ret = 0;
 
@@ -1135,19 +1135,19 @@ static void rvm_op_prn(rvmcpu_t *cpu, rvm_asmins_t *ins)
 }
 
 
-int rvm_asm_dump_pi_to_str(rvmcpu_t *vm, rvm_asmins_t *pi, char *str, ruinteger size)
+int rvm_asm_dump_pi_to_str(rvmcpu_t *vm, rvm_asmins_t *pi, char *str, unsigned int size)
 {
        int ret = 0, sz = size;
 
        if (pi->opcode == RVM_SWI) {
-               rchar szSwi[64];
+               char szSwi[64];
                r_memset(szSwi, 0, sizeof(szSwi));
                if (!vm) {
                        rvm_snprintf(szSwi, sizeof(szSwi) - 1, "%s(%x)", stropcalls[pi->opcode], (ruint32)pi->swi);
                } else {
                        rvm_switable_t *switable;
-                       ruinteger ntable = (ruinteger) RVM_SWI_TABLE(pi->swi);
-                       ruinteger nswi = (ruinteger) RVM_SWI_NUM(pi->swi);
+                       unsigned int ntable = (unsigned int) RVM_SWI_TABLE(pi->swi);
+                       unsigned int nswi = (unsigned int) RVM_SWI_NUM(pi->swi);
 
                        if (ntable < r_harray_length(vm->switables)) {
                                switable = r_harray_index(vm->switables, ntable, rvm_switable_t*);
@@ -1212,7 +1212,7 @@ int rvm_asm_dump_pi_to_str(rvmcpu_t *vm, rvm_asmins_t *pi, char *str, ruinteger
 }
 
 
-void rvm_asm_dump(rvm_asmins_t *pi, ruinteger count)
+void rvm_asm_dump(rvm_asmins_t *pi, unsigned int count)
 {
        char buffer[256];
        while (count) {
@@ -1503,7 +1503,7 @@ static void rvm_op_allocstr(rvmcpu_t *cpu, rvm_asmins_t *ins)
 {
 
        rvmreg_t *arg1 = RVM_CPUREG_PTR(cpu, ins->op1);
-       rstring_t *s = r_string_create_strsize((const rchar*)RVM_CPUREG_GETP(cpu, ins->op2), RVM_CPUREG_GETU(cpu, ins->op3));
+       rstring_t *s = r_string_create_strsize((const char*)RVM_CPUREG_GETP(cpu, ins->op2), RVM_CPUREG_GETU(cpu, ins->op3));
        if (!s) {
                RVM_ABORT(cpu, RVM_E_ILLEGAL);
        }
@@ -1527,7 +1527,7 @@ static void rvm_op_mapalloc(rvmcpu_t *cpu, rvm_asmins_t *ins)
 static void rvm_op_allocarr(rvmcpu_t *cpu, rvm_asmins_t *ins)
 {
        rvmreg_t *arg1 = RVM_CPUREG_PTR(cpu, ins->op1);
-       ruinteger size = RVM_CPUREG_GETU(cpu, ins->op2);
+       unsigned int size = RVM_CPUREG_GETU(cpu, ins->op2);
        rcarray_t *a = r_carray_create_rvmreg();
        if (!a) {
                RVM_ABORT(cpu, RVM_E_ILLEGAL);
@@ -1540,7 +1540,7 @@ static void rvm_op_allocarr(rvmcpu_t *cpu, rvm_asmins_t *ins)
 
 static void rvm_op_maplookup(rvmcpu_t *cpu, rvm_asmins_t *ins)
 {
-       rlong index;
+       long index;
        rvmreg_t *arg1 = RVM_CPUREG_PTR(cpu, ins->op1);
        rvmreg_t *arg2 = RVM_CPUREG_PTR(cpu, ins->op2);
        rvmreg_t *arg3 = RVM_CPUREG_PTR(cpu, ins->op3);
@@ -1556,7 +1556,7 @@ static void rvm_op_maplookup(rvmcpu_t *cpu, rvm_asmins_t *ins)
        } else if (RVM_REG_GETTYPE(arg3) == RVM_DTYPE_STRING) {
                index = r_map_lookup(a, -1, ((rstring_t *)RVM_CPUREG_GETP(cpu, ins->op3))->s.str, ((rstring_t *)RVM_CPUREG_GETP(cpu, ins->op3))->s.size);
        } else if (RVM_REG_GETTYPE(arg3) == RVM_DTYPE_POINTER) {
-               index = r_map_lookup(a, -1, (rchar*)RVM_CPUREG_GETP(cpu, ins->op3), RVM_CPUREG_GETL(cpu, ins->op1));
+               index = r_map_lookup(a, -1, (char*)RVM_CPUREG_GETP(cpu, ins->op3), RVM_CPUREG_GETL(cpu, ins->op1));
        } else {
                RVM_ABORT(cpu, RVM_E_ILLEGAL);
        }
@@ -1569,7 +1569,7 @@ static void rvm_op_maplookup(rvmcpu_t *cpu, rvm_asmins_t *ins)
 
 static void rvm_op_mapadd(rvmcpu_t *cpu, rvm_asmins_t *ins)
 {
-       rlong index;
+       long index;
        rvmreg_t *arg1 = RVM_CPUREG_PTR(cpu, ins->op1);
        rvmreg_t *arg2 = RVM_CPUREG_PTR(cpu, ins->op2);
        rvmreg_t *arg3 = RVM_CPUREG_PTR(cpu, ins->op3);
@@ -1585,7 +1585,7 @@ static void rvm_op_mapadd(rvmcpu_t *cpu, rvm_asmins_t *ins)
        } else if (RVM_REG_GETTYPE(arg3) == RVM_DTYPE_STRING) {
                index = r_map_gckey_add(a, cpu->gc, ((rstring_t *)RVM_CPUREG_GETP(cpu, ins->op3))->s.str, ((rstring_t *)RVM_CPUREG_GETP(cpu, ins->op3))->s.size, NULL);
        } else if (RVM_REG_GETTYPE(arg3) == RVM_DTYPE_POINTER) {
-               index = r_map_gckey_add(a, cpu->gc, (rchar*)RVM_CPUREG_GETP(cpu, ins->op3), RVM_CPUREG_GETL(cpu, ins->op1), NULL);
+               index = r_map_gckey_add(a, cpu->gc, (char*)RVM_CPUREG_GETP(cpu, ins->op3), RVM_CPUREG_GETL(cpu, ins->op1), NULL);
        } else {
                RVM_ABORT(cpu, RVM_E_ILLEGAL);
        }
@@ -1598,7 +1598,7 @@ static void rvm_op_mapadd(rvmcpu_t *cpu, rvm_asmins_t *ins)
 
 static void rvm_op_maplookupadd(rvmcpu_t *cpu, rvm_asmins_t *ins)
 {
-       rlong index;
+       long index;
        rvmreg_t *arg1 = RVM_CPUREG_PTR(cpu, ins->op1);
        rvmreg_t *arg2 = RVM_CPUREG_PTR(cpu, ins->op2);
        rvmreg_t *arg3 = RVM_CPUREG_PTR(cpu, ins->op3);
@@ -1620,9 +1620,9 @@ static void rvm_op_maplookupadd(rvmcpu_t *cpu, rvm_asmins_t *ins)
                if (index < 0)
                        index = r_map_gckey_add(a, cpu->gc, ((rstring_t *)RVM_CPUREG_GETP(cpu, ins->op3))->s.str, ((rstring_t *)RVM_CPUREG_GETP(cpu, ins->op3))->s.size, NULL);
        } else if (RVM_REG_GETTYPE(arg3) == RVM_DTYPE_POINTER) {
-               index = r_map_lookup(a, -1, (rchar*)RVM_CPUREG_GETP(cpu, ins->op3), RVM_CPUREG_GETL(cpu, ins->op1));
+               index = r_map_lookup(a, -1, (char*)RVM_CPUREG_GETP(cpu, ins->op3), RVM_CPUREG_GETL(cpu, ins->op1));
                if (index < 0)
-                       index = r_map_gckey_add(a, cpu->gc, (rchar*)RVM_CPUREG_GETP(cpu, ins->op3), RVM_CPUREG_GETL(cpu, ins->op1), NULL);
+                       index = r_map_gckey_add(a, cpu->gc, (char*)RVM_CPUREG_GETP(cpu, ins->op3), RVM_CPUREG_GETL(cpu, ins->op1), NULL);
        } else {
                RVM_ABORT(cpu, RVM_E_ILLEGAL);
        }
@@ -1639,7 +1639,7 @@ static void rvm_op_mapaddr(rvmcpu_t *cpu, rvm_asmins_t *ins)
        rvmreg_t tmp = rvm_reg_create_long(0);
        rmap_t *a;
        rpointer value;
-       rlong index;
+       long index;
 
        rvm_opmap_invoke_binary_handler(cpu->opmap, RVM_OPID_CAST, cpu, &tmp, RVM_CPUREG_PTR(cpu, ins->op3), &tmp);
        index = RVM_REG_GETL(&tmp);
@@ -1662,7 +1662,7 @@ static void rvm_op_mapldr(rvmcpu_t *cpu, rvm_asmins_t *ins)
        rvmreg_t tmp = rvm_reg_create_long(0);
        rmap_t *a = NULL;
        rpointer value;
-       rlong index;
+       long index;
 
        rvm_opmap_invoke_binary_handler(cpu->opmap, RVM_OPID_CAST, cpu, &tmp, RVM_CPUREG_PTR(cpu, ins->op3), &tmp);
        index = RVM_REG_GETL(&tmp);
@@ -1686,7 +1686,7 @@ static void rvm_op_mapstr(rvmcpu_t *cpu, rvm_asmins_t *ins)
        rvmreg_t tmp = rvm_reg_create_long(0);
        rmap_t *a = NULL;
        rpointer value;
-       rlong index;
+       long index;
 
        rvm_opmap_invoke_binary_handler(cpu->opmap, RVM_OPID_CAST, cpu, &tmp, RVM_CPUREG_PTR(cpu, ins->op3), &tmp);
        index = RVM_REG_GETL(&tmp);
@@ -1706,7 +1706,7 @@ static void rvm_op_addra(rvmcpu_t *cpu, rvm_asmins_t *ins)
        rvmreg_t *arg2 = RVM_CPUREG_PTR(cpu, ins->op2);
        rvmreg_t tmp = rvm_reg_create_long(0);
        rcarray_t *a = RVM_REG_GETP(arg2);
-       rlong index;
+       long index;
 
        rvm_opmap_invoke_binary_handler(cpu->opmap, RVM_OPID_CAST, cpu, &tmp, RVM_CPUREG_PTR(cpu, ins->op3), &tmp);
        index = RVM_REG_GETL(&tmp);
@@ -1724,7 +1724,7 @@ static void rvm_op_lda(rvmcpu_t *cpu, rvm_asmins_t *ins)
 {
        rvmreg_t *arg1 = RVM_CPUREG_PTR(cpu, ins->op1);
        rvmreg_t *arg2 = RVM_CPUREG_PTR(cpu, ins->op2);
-       ruinteger index = RVM_CPUREG_GETU(cpu, ins->op3);
+       unsigned int index = RVM_CPUREG_GETU(cpu, ins->op3);
        rcarray_t *a = RVM_REG_GETP(arg2);
 
        if (rvm_reg_gettype(arg2) != RVM_DTYPE_ARRAY) {
@@ -1738,7 +1738,7 @@ static void rvm_op_sta(rvmcpu_t *cpu, rvm_asmins_t *ins)
 {
        rvmreg_t *arg1 = RVM_CPUREG_PTR(cpu, ins->op1);
        rvmreg_t *arg2 = RVM_CPUREG_PTR(cpu, ins->op2);
-       ruinteger index = RVM_CPUREG_GETU(cpu, ins->op3);
+       unsigned int index = RVM_CPUREG_GETU(cpu, ins->op3);
        rcarray_t *a = RVM_REG_GETP(arg2);
 
        if (rvm_reg_gettype(arg2) != RVM_DTYPE_ARRAY) {
@@ -1892,7 +1892,7 @@ static rvm_cpu_op ops[] = {
 };
 
 
-rvmcpu_t *rvm_cpu_create(rulong stacksize)
+rvmcpu_t *rvm_cpu_create(unsigned long stacksize)
 {
        rvmcpu_t *cpu;
 
@@ -1933,7 +1933,7 @@ void rvm_cpu_destroy(rvmcpu_t *cpu)
 }
 
 
-rinteger rvm_cpu_exec(rvmcpu_t *cpu, rvm_asmins_t *prog, rword off)
+int rvm_cpu_exec(rvmcpu_t *cpu, rvm_asmins_t *prog, rword off)
 {
        rvm_asmins_t *pi;
        rvmreg_t *regda = RVM_CPUREG_PTR(cpu, DA);
@@ -1991,9 +1991,9 @@ skipexec:
 }
 
 
-rinteger rvm_cpu_exec_debug(rvmcpu_t *cpu, rvm_asmins_t *prog, rword off)
+int rvm_cpu_exec_debug(rvmcpu_t *cpu, rvm_asmins_t *prog, rword off)
 {
-       rlong line = 0;
+       long line = 0;
        rvm_asmins_t *pi;
        rvmreg_t *regda = RVM_CPUREG_PTR(cpu, DA);
        rvmreg_t *regpc = RVM_CPUREG_PTR(cpu, PC);
@@ -2052,11 +2052,11 @@ skipexec:
 }
 
 
-rinteger rvm_cpu_global_swilookup(rvmcpu_t *cpu, const rchar *swiname, rsize_t size)
+int rvm_cpu_global_swilookup(rvmcpu_t *cpu, const char *swiname, rsize_t size)
 {
-       rinteger nswi;
+       int nswi;
        rvm_switable_t *swientry;
-       rlong ntable;
+       long ntable;
 
        for (ntable = 0; ntable < r_harray_length(cpu->switables); ntable++) {
                swientry = r_harray_index(cpu->switables, ntable, rvm_switable_t*);
@@ -2064,18 +2064,18 @@ rinteger rvm_cpu_global_swilookup(rvmcpu_t *cpu, const rchar *swiname, rsize_t s
                        return -1;
                for (nswi = 0; swientry[nswi].name; nswi++) {
                        if (r_strncmp(swientry[nswi].name, swiname, size) == 0 && r_strlen(swientry[nswi].name) == size)
-                               return (rinteger)RVM_SWI_ID(ntable, nswi);
+                               return (int)RVM_SWI_ID(ntable, nswi);
                }
        }
        return -1;
 }
 
 
-rinteger rvm_cpu_table_swilookup(rvmcpu_t *cpu, const rchar *tabname, const rchar *swiname, rsize_t size)
+int rvm_cpu_table_swilookup(rvmcpu_t *cpu, const char *tabname, const char *swiname, rsize_t size)
 {
-       rinteger nswi;
+       int nswi;
        rvm_switable_t *swientry;
-       rlong ntable = r_harray_lookup_s(cpu->switables, tabname);
+       long ntable = r_harray_lookup_s(cpu->switables, tabname);
 
        if (ntable < 0)
                return -1;
@@ -2084,31 +2084,31 @@ rinteger rvm_cpu_table_swilookup(rvmcpu_t *cpu, const rchar *tabname, const rcha
                return -1;
        for (nswi = 0; swientry[nswi].name; nswi++) {
                if (r_strncmp(swientry[nswi].name, swiname, size) == 0 && r_strlen(swientry[nswi].name) == size)
-                       return (rinteger)RVM_SWI_ID(ntable, nswi);
+                       return (int)RVM_SWI_ID(ntable, nswi);
        }
        return -1;
 }
 
 
-rinteger rvm_cpu_swilookup(rvmcpu_t *cpu, const rchar *tabname, const rchar *swiname, rsize_t size)
+int rvm_cpu_swilookup(rvmcpu_t *cpu, const char *tabname, const char *swiname, rsize_t size)
 {
        return tabname ? rvm_cpu_table_swilookup(cpu, tabname, swiname, size) : rvm_cpu_global_swilookup(cpu, swiname, size);
 }
 
 
-rinteger rvm_cpu_swilookup_s(rvmcpu_t *cpu, const rchar *tabname, const rchar *swiname)
+int rvm_cpu_swilookup_s(rvmcpu_t *cpu, const char *tabname, const char *swiname)
 {
        return rvm_cpu_swilookup(cpu, tabname, swiname, r_strlen(swiname));
 }
 
 
-rinteger rvm_cpu_addswitable(rvmcpu_t *cpu, const rchar *tabname, rvm_switable_t *switable)
+int rvm_cpu_addswitable(rvmcpu_t *cpu, const char *tabname, rvm_switable_t *switable)
 {
        return r_harray_replace_s(cpu->switables, tabname, &switable);
 }
 
 
-rinteger rvm_cpu_abort(rvmcpu_t *cpu)
+int rvm_cpu_abort(rvmcpu_t *cpu)
 {
        if (!cpu)
                return -1;
@@ -2118,7 +2118,7 @@ rinteger rvm_cpu_abort(rvmcpu_t *cpu)
 }
 
 
-rvm_asmins_t rvm_cond_asma(rword cond, rword opcode, rword op1, rword op2, rword op3, rchar *data, rulong size)
+rvm_asmins_t rvm_cond_asma(rword cond, rword opcode, rword op1, rword op2, rword op3, char *data, unsigned long size)
 {
        rvm_asmins_t a;
 
@@ -2136,7 +2136,7 @@ rvm_asmins_t rvm_cond_asma(rword cond, rword opcode, rword op1, rword op2, rword
 }
 
 
-rvm_asmins_t rvm_asma(rword opcode, rword op1, rword op2, rword op3, rchar *data, rulong size)
+rvm_asmins_t rvm_asma(rword opcode, rword op1, rword op2, rword op3, char *data, unsigned long size)
 {
        return rvm_cond_asma(0, opcode, op1, op2, op3, data, size);
 }
@@ -2240,7 +2240,7 @@ rvm_asmins_t rvm_asm(rword opcode, rword op1, rword op2, rword op3, rword data)
 
 
 
-rvm_asmins_t rvm_cond_asml(rword cond, rword opcode, rword op1, rword op2, rword op3, rlong data)
+rvm_asmins_t rvm_cond_asml(rword cond, rword opcode, rword op1, rword op2, rword op3, long data)
 {
        rvm_asmins_t a;
 
@@ -2258,13 +2258,13 @@ rvm_asmins_t rvm_cond_asml(rword cond, rword opcode, rword op1, rword op2, rword
 }
 
 
-rvm_asmins_t rvm_asml(rword opcode, rword op1, rword op2, rword op3, rlong data)
+rvm_asmins_t rvm_asml(rword opcode, rword op1, rword op2, rword op3, long data)
 {
        return rvm_cond_asml(0, opcode, op1, op2, op3, data);
 }
 
 
-rvm_asmins_t rvm_cond_asmb(rword cond, rword opcode, rword op1, rword op2, rword op3, ruinteger data)
+rvm_asmins_t rvm_cond_asmb(rword cond, rword opcode, rword op1, rword op2, rword op3, unsigned int data)
 {
        rvm_asmins_t a;
 
@@ -2282,13 +2282,13 @@ rvm_asmins_t rvm_cond_asmb(rword cond, rword opcode, rword op1, rword op2, rword
 }
 
 
-rvm_asmins_t rvm_asmb(rword opcode, rword op1, rword op2, rword op3, ruinteger data)
+rvm_asmins_t rvm_asmb(rword opcode, rword op1, rword op2, rword op3, unsigned int data)
 {
        return rvm_cond_asmb(0, opcode, op1, op2, op3, data);
 }
 
 
-rvm_asmins_t rvm_cond_asmd(rword cond, rword opcode, rword op1, rword op2, rword op3, rdouble data)
+rvm_asmins_t rvm_cond_asmd(rword cond, rword opcode, rword op1, rword op2, rword op3, double data)
 {
        rvm_asmins_t a;
 
@@ -2305,7 +2305,7 @@ rvm_asmins_t rvm_cond_asmd(rword cond, rword opcode, rword op1, rword op2, rword
        return a;
 }
 
-rvm_asmins_t rvm_asmd(rword opcode, rword op1, rword op2, rword op3, rdouble data)
+rvm_asmins_t rvm_asmd(rword opcode, rword op1, rword op2, rword op3, double data)
 {
        return rvm_cond_asmd(0, opcode, op1, op2, op3, data);
 }
@@ -2337,7 +2337,7 @@ rvm_asmins_t rvm_asm2(rword opcode, rword op1, rword op2, rword op3, ruint32 p1,
 rvmreg_t *rvm_cpu_alloc_global(rvmcpu_t *cpu)
 {
        rvmreg_t *global;
-       rinteger index = r_carray_add(cpu->data, NULL);
+       int index = r_carray_add(cpu->data, NULL);
 
        global = (rvmreg_t*)r_carray_slot(cpu->data, index);
        RVM_REG_CLEAR(global);
index bfd77f2..d94b079 100644 (file)
@@ -316,7 +316,7 @@ struct rvmcpu_s {
        rword error;
        rword abort;
        rharray_t *switables;
-       rulong stacksize;
+       unsigned long stacksize;
        void *stack;
        rcarray_t *data;
        struct rvm_opmap_s *opmap;
@@ -333,40 +333,40 @@ struct rvmcpu_s {
 
 
 rvmcpu_t *rvm_cpu_create_default();
-rvmcpu_t *rvm_cpu_create(rulong stacksize);
+rvmcpu_t *rvm_cpu_create(unsigned long stacksize);
 void rvm_cpu_destroy(rvmcpu_t * vm);
-rinteger rvm_cpu_abort(rvmcpu_t *cpu);
-rinteger rvm_cpu_exec(rvmcpu_t *cpu, rvm_asmins_t *prog, rword off);
-rinteger rvm_cpu_exec_debug(rvmcpu_t *cpu, rvm_asmins_t *prog, rword off);
-rinteger rvm_cpu_swilookup(rvmcpu_t *cpu, const rchar *tabname, const rchar *swiname, rsize_t size);
-rinteger rvm_cpu_swilookup_s(rvmcpu_t *cpu, const rchar *tabname, const rchar *swiname);
-rinteger rvm_cpu_addswitable(rvmcpu_t * cpu, const rchar *tabname, rvm_switable_t *switalbe);
+int rvm_cpu_abort(rvmcpu_t *cpu);
+int rvm_cpu_exec(rvmcpu_t *cpu, rvm_asmins_t *prog, rword off);
+int rvm_cpu_exec_debug(rvmcpu_t *cpu, rvm_asmins_t *prog, rword off);
+int rvm_cpu_swilookup(rvmcpu_t *cpu, const char *tabname, const char *swiname, rsize_t size);
+int rvm_cpu_swilookup_s(rvmcpu_t *cpu, const char *tabname, const char *swiname);
+int rvm_cpu_addswitable(rvmcpu_t * cpu, const char *tabname, rvm_switable_t *switalbe);
 rvmreg_t *rvm_cpu_alloc_global(rvmcpu_t *cpu);
 int rvm_cpu_setreg(rvmcpu_t *cpu, rword regnum, const rvmreg_t *src);
 rvmreg_t *rvm_cpu_getreg(rvmcpu_t *cpu, rword regnum);
 void rvm_cpu_dumpregs( rvmcpu_t *cpu, rvm_asmins_t *pi);
 rvm_asmins_t rvm_asm(rword opcode, rword op1, rword op2, rword op3, rword data);
-rvm_asmins_t rvm_asma(rword opcode, rword op1, rword op2, rword op3, rchar *data, rulong size);
-rvm_asmins_t rvm_asml(rword opcode, rword op1, rword op2, rword op3, rlong data);
-rvm_asmins_t rvm_asmb(rword opcode, rword op1, rword op2, rword op3, ruinteger data);
-rvm_asmins_t rvm_asmd(rword opcode, rword op1, rword op2, rword op3, rdouble data);
+rvm_asmins_t rvm_asma(rword opcode, rword op1, rword op2, rword op3, char *data, unsigned long size);
+rvm_asmins_t rvm_asml(rword opcode, rword op1, rword op2, rword op3, long data);
+rvm_asmins_t rvm_asmb(rword opcode, rword op1, rword op2, rword op3, unsigned int data);
+rvm_asmins_t rvm_asmd(rword opcode, rword op1, rword op2, rword op3, double data);
 rvm_asmins_t rvm_asmp(rword opcode, rword op1, rword op2, rword op3, rpointer data);
 rvm_asmins_t rvm_asms(rword opcode, rword op1, rword op2, rword op3, rword data);
 rvm_asmins_t rvm_asmf(rword opcode, rword op1, rword op2, rword op3, rword data);
 rvm_asmins_t rvm_asm2(rword opcode, rword op1, rword op2, rword op3, ruint32 p1, ruint32 p2);
 
 rvm_asmins_t rvm_cond_asm(rword cond, rword opcode, rword op1, rword op2, rword op3, rword data);
-rvm_asmins_t rvm_cond_asma(rword cond, rword opcode, rword op1, rword op2, rword op3, rchar *data, rulong size);
-rvm_asmins_t rvm_cond_asml(rword cond, rword opcode, rword op1, rword op2, rword op3, rlong data);
-rvm_asmins_t rvm_cond_asmb(rword cond, rword opcode, rword op1, rword op2, rword op3, ruinteger data);
+rvm_asmins_t rvm_cond_asma(rword cond, rword opcode, rword op1, rword op2, rword op3, char *data, unsigned long size);
+rvm_asmins_t rvm_cond_asml(rword cond, rword opcode, rword op1, rword op2, rword op3, long data);
+rvm_asmins_t rvm_cond_asmb(rword cond, rword opcode, rword op1, rword op2, rword op3, unsigned int data);
 rvm_asmins_t rvm_cond_asmp(rword cond, rword opcode, rword op1, rword op2, rword op3, rpointer data);
 rvm_asmins_t rvm_cond_asms(rword cond, rword opcode, rword op1, rword op2, rword op3, rword data);
-rvm_asmins_t rvm_cond_asmd(rword cond, rword opcode, rword op1, rword op2, rword op3, rdouble data);
+rvm_asmins_t rvm_cond_asmd(rword cond, rword opcode, rword op1, rword op2, rword op3, double data);
 rvm_asmins_t rvm_cond_asmf(rword cond, rword opcode, rword op1, rword op2, rword op3, rword data);
 rvm_asmins_t rvm_cond_asm2(rword cond, rword opcode, rword op1, rword op2, rword op3, ruint32 p1, ruint32 p2);
 
 
-void rvm_asm_dump(rvm_asmins_t *pi, ruinteger count);
+void rvm_asm_dump(rvm_asmins_t *pi, unsigned int count);
 
 
 #ifdef __cplusplus
index 048afe7..e3ddf0c 100644 (file)
@@ -25,7 +25,7 @@
 
 #include "rtypes.h"
 
-typedef ruinteger rvm_error_t;
+typedef unsigned int rvm_error_t;
 
 #define RVM_ERROR_BITS 16
 #define RVM_ERROR_MASK ((1 << RVM_ERROR_BITS) - 1)
index 1bf306c..acf8e7d 100644 (file)
@@ -53,7 +53,7 @@ void rvm_opmap_destroy(rvm_opmap_t *opmap)
 }
 
 
-void rvm_opmap_add_binary_operator(rvm_opmap_t *opmap, rushort opid)
+void rvm_opmap_add_binary_operator(rvm_opmap_t *opmap, unsigned short opid)
 {
        rvm_opinfo_t opinfo;
 
@@ -64,7 +64,7 @@ void rvm_opmap_add_binary_operator(rvm_opmap_t *opmap, rushort opid)
 }
 
 
-void rvm_opmap_add_unary_operator(rvm_opmap_t *opmap, rushort opid)
+void rvm_opmap_add_unary_operator(rvm_opmap_t *opmap, unsigned short opid)
 {
        rvm_opinfo_t opinfo;
 
@@ -76,10 +76,10 @@ void rvm_opmap_add_unary_operator(rvm_opmap_t *opmap, rushort opid)
 }
 
 
-rinteger rvm_opmap_set_binary_handler(rvm_opmap_t *opmap, rushort opid, rvm_binaryop_handler func, ruchar firstType, ruchar secondType)
+int rvm_opmap_set_binary_handler(rvm_opmap_t *opmap, unsigned short opid, rvm_binaryop_handler func, unsigned char firstType, unsigned char secondType)
 {
        rvm_ophandler_t *h;
-       ruinteger index = RVM_OP_HANDLER(firstType, secondType);
+       unsigned int index = RVM_OP_HANDLER(firstType, secondType);
        rvm_opinfo_t *opinfo = ((rvm_opinfo_t*)r_array_slot(opmap->operators, opid));
        if (!opinfo->handlers)
                return -1;
@@ -89,7 +89,7 @@ rinteger rvm_opmap_set_binary_handler(rvm_opmap_t *opmap, rushort opid, rvm_bina
 }
 
 
-rinteger rvm_opmap_set_unary_handler(rvm_opmap_t *opmap, rushort opid, rvm_unaryop_handler func, ruchar type)
+int rvm_opmap_set_unary_handler(rvm_opmap_t *opmap, unsigned short opid, rvm_unaryop_handler func, unsigned char type)
 {
        rvm_ophandler_t *h;
        rvm_opinfo_t *opinfo = ((rvm_opinfo_t*)r_array_slot(opmap->operators, opid));
@@ -101,11 +101,11 @@ rinteger rvm_opmap_set_unary_handler(rvm_opmap_t *opmap, rushort opid, rvm_unary
 }
 
 
-void rvm_opmap_invoke_binary_handler(rvm_opmap_t *opmap, rushort opid, rvmcpu_t *cpu, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2)
+void rvm_opmap_invoke_binary_handler(rvm_opmap_t *opmap, unsigned short opid, rvmcpu_t *cpu, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2)
 {
        rvm_ophandler_t *h;
        rvm_opinfo_t *opinfo;
-       ruinteger index;
+       unsigned int index;
        rstring_t tempstr1, tempstr2;
        rvmreg_t temparg1, temparg2;
 
@@ -147,11 +147,11 @@ error:
 }
 
 
-void rvm_opmap_invoke_unary_handler(rvm_opmap_t *opmap, rushort opid, rvmcpu_t *cpu, rvmreg_t *res, const rvmreg_t *arg)
+void rvm_opmap_invoke_unary_handler(rvm_opmap_t *opmap, unsigned short opid, rvmcpu_t *cpu, rvmreg_t *res, const rvmreg_t *arg)
 {
        rvm_ophandler_t *h;
        rvm_opinfo_t *opinfo;
-       ruinteger index;
+       unsigned int index;
        rstring_t tempstr;
        rvmreg_t temparg;
 
index 287fd47..ea213cc 100644 (file)
@@ -103,8 +103,8 @@ enum {
  * Important: the res pointer might be the same as one of the arguments, the operator must
  * be implemented to take care of such cases.
  */
-typedef void (*rvm_unaryop_handler)(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, const rvmreg_t *arg);
-typedef void (*rvm_binaryop_handler)(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2);
+typedef void (*rvm_unaryop_handler)(rvmcpu_t *cpu, unsigned short opid, rvmreg_t *res, const rvmreg_t *arg);
+typedef void (*rvm_binaryop_handler)(rvmcpu_t *cpu, unsigned short opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2);
 
 typedef union rvm_ophandler_s {
        rvm_unaryop_handler unary;
@@ -112,7 +112,7 @@ typedef union rvm_ophandler_s {
 } rvm_ophandler_t;
 
 typedef struct rvm_opinfo_s {
-       rushort opid;
+       unsigned short opid;
        rboolean unary;
        rvm_ophandler_t *handlers;
 } rvm_opinfo_t;
@@ -124,11 +124,11 @@ typedef struct rvm_opmap_s {
 
 rvm_opmap_t *rvm_opmap_create();
 void rvm_opmap_destroy(rvm_opmap_t *opmap);
-void rvm_opmap_add_binary_operator(rvm_opmap_t *opmap, rushort opid);
-void rvm_opmap_add_unary_operator(rvm_opmap_t *opmap, rushort opid);
-rinteger rvm_opmap_set_binary_handler(rvm_opmap_t *opmap, rushort opid, rvm_binaryop_handler func, ruchar firstType, ruchar secondType);
-rinteger rvm_opmap_set_unary_handler(rvm_opmap_t *opmap, rushort opid, rvm_unaryop_handler func, ruchar type);
-void rvm_opmap_invoke_binary_handler(rvm_opmap_t *opmap, rushort opid, rvmcpu_t *cpu, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2);
-void rvm_opmap_invoke_unary_handler(rvm_opmap_t *opmap, rushort opid, rvmcpu_t *cpu, rvmreg_t *res, const rvmreg_t *arg);
+void rvm_opmap_add_binary_operator(rvm_opmap_t *opmap, unsigned short opid);
+void rvm_opmap_add_unary_operator(rvm_opmap_t *opmap, unsigned short opid);
+int rvm_opmap_set_binary_handler(rvm_opmap_t *opmap, unsigned short opid, rvm_binaryop_handler func, unsigned char firstType, unsigned char secondType);
+int rvm_opmap_set_unary_handler(rvm_opmap_t *opmap, unsigned short opid, rvm_unaryop_handler func, unsigned char type);
+void rvm_opmap_invoke_binary_handler(rvm_opmap_t *opmap, unsigned short opid, rvmcpu_t *cpu, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2);
+void rvm_opmap_invoke_unary_handler(rvm_opmap_t *opmap, unsigned short opid, rvmcpu_t *cpu, rvmreg_t *res, const rvmreg_t *arg);
 
 #endif
index 31b7591..35afd20 100644 (file)
@@ -22,7 +22,7 @@
 #include "rvm/rvmreg.h"
 
 
-void rvm_op_add_unsigned(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, rword op1, rword op2)
+void rvm_op_add_unsigned(rvmcpu_t *cpu, unsigned short opid, rvmreg_t *res, rword op1, rword op2)
 {
        rword r;
        r = op1 + op2;
@@ -35,9 +35,9 @@ void rvm_op_add_unsigned(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, rword op1,
 }
 
 
-void rvm_op_add_long(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, rlong op1, rlong op2)
+void rvm_op_add_long(rvmcpu_t *cpu, unsigned short opid, rvmreg_t *res, long op1, long op2)
 {
-       rlong r;
+       long r;
        r = op1 + op2;
        RVM_REG_SETL(res, r);
        RVM_REG_SETTYPE(res, RVM_DTYPE_LONG);
@@ -45,9 +45,9 @@ void rvm_op_add_long(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, rlong op1, rlon
        RVM_STATUS_UPDATE(cpu, RVM_STATUS_N, r & RVM_SIGN_BIT);
 }
 
-void rvm_op_add_double(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, rdouble op1, rdouble op2)
+void rvm_op_add_double(rvmcpu_t *cpu, unsigned short opid, rvmreg_t *res, double op1, double op2)
 {
-       rdouble r;
+       double r;
        r = op1 + op2;
        RVM_REG_SETD(res, r);
        RVM_REG_SETTYPE(res, RVM_DTYPE_DOUBLE);
@@ -56,7 +56,7 @@ void rvm_op_add_double(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, rdouble op1,
 }
 
 
-void rvm_op_concat_string_string(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2)
+void rvm_op_concat_string_string(rvmcpu_t *cpu, unsigned short opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2)
 {
        rstring_t *s1 = (rstring_t *)RVM_REG_GETP(arg1);
        rstring_t *s2 = (rstring_t *)RVM_REG_GETP(arg2);
@@ -68,7 +68,7 @@ void rvm_op_concat_string_string(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, con
 }
 
 
-void rvm_op_concat_long_string(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2)
+void rvm_op_concat_long_string(rvmcpu_t *cpu, unsigned short opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2)
 {
        rstring_t *s1 = r_string_create_from_long(RVM_REG_GETL(arg1));
        rstring_t *s2 = (rstring_t *)RVM_REG_GETP(arg2);
@@ -81,7 +81,7 @@ void rvm_op_concat_long_string(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, const
 }
 
 
-void rvm_op_concat_string_long(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2)
+void rvm_op_concat_string_long(rvmcpu_t *cpu, unsigned short opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2)
 {
        rstring_t *s1 = (rstring_t *)RVM_REG_GETP(arg1);
        rstring_t *s2 = r_string_create_from_long(RVM_REG_GETL(arg2));
@@ -94,7 +94,7 @@ void rvm_op_concat_string_long(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, const
 }
 
 
-void rvm_op_concat_double_string(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2)
+void rvm_op_concat_double_string(rvmcpu_t *cpu, unsigned short opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2)
 {
        rstring_t *s1 = r_string_create_from_double(RVM_REG_GETD(arg1));
        rstring_t *s2 = (rstring_t *)RVM_REG_GETP(arg2);
@@ -107,7 +107,7 @@ void rvm_op_concat_double_string(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, con
 }
 
 
-void rvm_op_concat_string_double(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2)
+void rvm_op_concat_string_double(rvmcpu_t *cpu, unsigned short opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2)
 {
        rstring_t *s1 = (rstring_t *)RVM_REG_GETP(arg1);
        rstring_t *s2 = r_string_create_from_double(RVM_REG_GETD(arg2));
index 3f3d0bb..56b306e 100644 (file)
 extern "C" {
 #endif
 
-void rvm_op_add_unsigned(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, rword op1, rword op2);
-void rvm_op_add_long(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, rlong op1, rlong op2);
-void rvm_op_add_double(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, rdouble op1, rdouble op2);
-void rvm_op_concat_string_string(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2);
-void rvm_op_concat_long_string(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2);
-void rvm_op_concat_string_long(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2);
-void rvm_op_concat_double_string(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2);
-void rvm_op_concat_string_double(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2);
+void rvm_op_add_unsigned(rvmcpu_t *cpu, unsigned short opid, rvmreg_t *res, rword op1, rword op2);
+void rvm_op_add_long(rvmcpu_t *cpu, unsigned short opid, rvmreg_t *res, long op1, long op2);
+void rvm_op_add_double(rvmcpu_t *cpu, unsigned short opid, rvmreg_t *res, double op1, double op2);
+void rvm_op_concat_string_string(rvmcpu_t *cpu, unsigned short opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2);
+void rvm_op_concat_long_string(rvmcpu_t *cpu, unsigned short opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2);
+void rvm_op_concat_string_long(rvmcpu_t *cpu, unsigned short opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2);
+void rvm_op_concat_double_string(rvmcpu_t *cpu, unsigned short opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2);
+void rvm_op_concat_string_double(rvmcpu_t *cpu, unsigned short opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2);
 
 
 #ifdef __cplusplus
index 20a6267..7f55fd9 100644 (file)
@@ -22,7 +22,7 @@
 #include "rvm/rvmreg.h"
 
 
-void rvm_op_and_unsigned(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, rword op1, rword op2)
+void rvm_op_and_unsigned(rvmcpu_t *cpu, unsigned short opid, rvmreg_t *res, rword op1, rword op2)
 {
        rword r;
 
@@ -34,9 +34,9 @@ void rvm_op_and_unsigned(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, rword op1,
 }
 
 
-void rvm_op_and_long(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, rlong op1, rlong op2)
+void rvm_op_and_long(rvmcpu_t *cpu, unsigned short opid, rvmreg_t *res, long op1, long op2)
 {
-       rlong r;
+       long r;
 
        r = op1 & op2;
        RVM_REG_SETL(res, r);
@@ -46,7 +46,7 @@ void rvm_op_and_long(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, rlong op1, rlon
 }
 
 
-void rvm_op_and_double(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, rdouble op1, rdouble op2)
+void rvm_op_and_double(rvmcpu_t *cpu, unsigned short opid, rvmreg_t *res, double op1, double op2)
 {
        rvm_op_and_long(cpu, opid, res, op1, op2);
 }
index db9e4c9..29b67d5 100644 (file)
@@ -28,9 +28,9 @@
 extern "C" {
 #endif
 
-void rvm_op_and_unsigned(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, rword op1, rword op2);
-void rvm_op_and_long(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, rlong op1, rlong op2);
-void rvm_op_and_double(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, rdouble op1, rdouble op2);
+void rvm_op_and_unsigned(rvmcpu_t *cpu, unsigned short opid, rvmreg_t *res, rword op1, rword op2);
+void rvm_op_and_long(rvmcpu_t *cpu, unsigned short opid, rvmreg_t *res, long op1, long op2);
+void rvm_op_and_double(rvmcpu_t *cpu, unsigned short opid, rvmreg_t *res, double op1, double op2);
 
 #ifdef __cplusplus
 }
index 43987cb..b7cfb22 100644 (file)
 
 static rvm_binopmap_t binary_operations[RVM_OPID_LAST+1];
 
-static void rvm_op_abort_unsigned(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, rword op1, rword op2)
+static void rvm_op_abort_unsigned(rvmcpu_t *cpu, unsigned short opid, rvmreg_t *res, rword op1, rword op2)
 {
        RVM_ABORT(cpu, RVM_E_ILLEGAL);
 }
 
 
-static void rvm_op_abort_long(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, rlong op1, rlong op2)
+static void rvm_op_abort_long(rvmcpu_t *cpu, unsigned short opid, rvmreg_t *res, long op1, long op2)
 {
        RVM_ABORT(cpu, RVM_E_ILLEGAL);
 }
 
 
-static void rvm_op_abort_double(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, rdouble op1, rdouble op2)
+static void rvm_op_abort_double(rvmcpu_t *cpu, unsigned short opid, rvmreg_t *res, double op1, double op2)
 {
        RVM_ABORT(cpu, RVM_E_ILLEGAL);
 }
 
 
-static void rvm_op_binary_unsigned(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, rword op1, rword op2)
+static void rvm_op_binary_unsigned(rvmcpu_t *cpu, unsigned short opid, rvmreg_t *res, rword op1, rword op2)
 {
        binary_operations[opid].unsigned_binop_fun(cpu, opid, res, op1, op2);
 }
 
 
-static void rvm_op_binary_long(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, rlong op1, rlong op2)
+static void rvm_op_binary_long(rvmcpu_t *cpu, unsigned short opid, rvmreg_t *res, long op1, long op2)
 {
        binary_operations[opid].long_binop_fun(cpu, opid, res, op1, op2);
 }
 
 
-static void rvm_op_binary_double(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, rdouble op1, rdouble op2)
+static void rvm_op_binary_double(rvmcpu_t *cpu, unsigned short opid, rvmreg_t *res, double op1, double op2)
 {
        binary_operations[opid].double_binop_fun(cpu, opid, res, op1, op2);
 }
 
 
-static void rvm_op_binary_unsigned_unsigned(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2)
+static void rvm_op_binary_unsigned_unsigned(rvmcpu_t *cpu, unsigned short opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2)
 {
        rvm_op_binary_unsigned(cpu, opid, res, RVM_REG_GETU(arg1), RVM_REG_GETU(arg2));
 }
 
 
-static void rvm_op_binary_long_long(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2)
+static void rvm_op_binary_long_long(rvmcpu_t *cpu, unsigned short opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2)
 {
        rvm_op_binary_long(cpu, opid, res, RVM_REG_GETL(arg1), RVM_REG_GETL(arg2));
 }
 
 
-static void rvm_op_binary_double_long(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2)
+static void rvm_op_binary_double_long(rvmcpu_t *cpu, unsigned short opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2)
 {
        rvm_op_binary_double(cpu, opid, res, RVM_REG_GETD(arg1), RVM_REG_GETL(arg2));
 }
 
 
-void rvm_op_binary_long_double(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2)
+void rvm_op_binary_long_double(rvmcpu_t *cpu, unsigned short opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2)
 {
        rvm_op_binary_double(cpu, opid, res, RVM_REG_GETL(arg1), RVM_REG_GETD(arg2));
 }
 
 
-static void rvm_op_binary_double_double(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2)
+static void rvm_op_binary_double_double(rvmcpu_t *cpu, unsigned short opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2)
 {
        rvm_op_binary_double(cpu, opid, res, RVM_REG_GETD(arg1), RVM_REG_GETD(arg2));
 }
 
 
-static void rvm_op_binary_string_double(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2)
+static void rvm_op_binary_string_double(rvmcpu_t *cpu, unsigned short opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2)
 {
        rvmreg_t s;
 
@@ -124,7 +124,7 @@ static void rvm_op_binary_string_double(rvmcpu_t *cpu, rushort opid, rvmreg_t *r
 }
 
 
-static void rvm_op_binary_string_long(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2)
+static void rvm_op_binary_string_long(rvmcpu_t *cpu, unsigned short opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2)
 {
        rvmreg_t s;
 
@@ -139,7 +139,7 @@ static void rvm_op_binary_string_long(rvmcpu_t *cpu, rushort opid, rvmreg_t *res
 }
 
 
-static void rvm_op_binary_double_string(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2)
+static void rvm_op_binary_double_string(rvmcpu_t *cpu, unsigned short opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2)
 {
        rvmreg_t s;
 
@@ -149,7 +149,7 @@ static void rvm_op_binary_double_string(rvmcpu_t *cpu, rushort opid, rvmreg_t *r
 }
 
 
-static void rvm_op_binary_long_string(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2)
+static void rvm_op_binary_long_string(rvmcpu_t *cpu, unsigned short opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2)
 {
        rvmreg_t s;
 
@@ -163,14 +163,14 @@ static void rvm_op_binary_long_string(rvmcpu_t *cpu, rushort opid, rvmreg_t *res
 }
 
 
-static void rvm_op_binary_nan(rvmcpu_t *cpu, rushort opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2)
+static void rvm_op_binary_nan(rvmcpu_t *cpu, unsigned short opid, rvmreg_t *res, const rvmreg_t *arg1, const rvmreg_t *arg2)
 {
        rvm_reg_cleanup(res);
        RVM_REG_SETTYPE(res, RVM_DTYPE_NAN);
 }
 
 
-void rvm_op_binary_insert(rvm_opmap_t *opmap, rushort opid, rvm_binop_unsigned u, rvm_binop_long l, rvm_binop_double d)
+void rvm_op_binary_insert(rvm_opmap_t *opmap, unsigned short opid, rvm_binop_unsigned u, rvm_binop_long l, rvm_binop_double d)
 {
        int i;