RPA Toolkit
renamed rint->rinteger. modified the PHP ext build.
authorMartin Stoilov <martin@rpasearch.com>
Tue, 14 Jun 2011 04:17:25 +0000 (21:17 -0700)
committerMartin Stoilov <martin@rpasearch.com>
Tue, 14 Jun 2011 04:17:25 +0000 (21:17 -0700)
97 files changed:
arch/linux/x86_64/rtypes.h
build/linux/build.mk
phpext/prpa/config.m4
phpext/prpa/prpa.c
rgrep/win32/main.c
rjs/rjs.c
rjs/rjs.h
rjs/rjscompiler.c
rjs/rjscompiler.h
rjs/rjsexec.c
rlib/build/linux/rlib.mk
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/rpacompiler.c
rpa/rpacompiler.h
rpa/rpadbex.c
rpa/rpadbex.h
rpa/rpaparser.c
rpa/rparecord.c
rpa/rparecord.h
rpa/rpastat.c
rpa/rpastat.h
rpa/rpastatpriv.h
rpa/rpavm.c
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/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/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/rpagen-test.c
tests/testmisc/rvm-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 d509170..78c28aa 100644 (file)
@@ -24,17 +24,17 @@ typedef unsigned int ratomic_t;
  * Common types. These types should be the same for most of the architectures.
  */
 typedef long rlong;
-typedef int rint;
+typedef int rinteger;
 typedef short rshort;
 typedef char rchar;
 typedef unsigned long rulong;
-typedef unsigned int ruint;
+typedef unsigned int ruinteger;
 typedef unsigned short rushort;
 typedef unsigned char ruchar;
 typedef ruchar rbyte;
 typedef double rdouble;
 typedef float rfloat;
-typedef rint rboolean;
+typedef rinteger rboolean;
 typedef void *rpointer;
 typedef const void *rconstpointer;
 typedef struct {ruint32 p1; ruint32 p2;} rpair_t;
index 8e1cd0a..5314701 100644 (file)
@@ -27,4 +27,3 @@ clean:
        +make -C $(SRCDIR)/tests/testrpa/build/$(OS)/$(ARCHDIR) clean
        +make -C $(SRCDIR)/tests/testrjs/build/$(OS)/$(ARCHDIR) clean
        +make -C $(SRCDIR)/rgrep/build/$(OS)/$(ARCHDIR) clean
-
index 07d3d32..485c9fa 100644 (file)
@@ -8,6 +8,7 @@ dnl without editing.
 dnl If your extension references something external, use with:
 
 PHP_ARG_WITH(prpa, for prpa support,
+dnl Make sure that the comment is aligned:
 [  --with-prpa             Include prpa support])
 
 dnl Otherwise use enable:
@@ -16,83 +17,103 @@ dnl PHP_ARG_ENABLE(prpa, whether to enable prpa support,
 dnl Make sure that the comment is aligned:
 dnl [  --enable-prpa           Enable prpa support])
 
+
+PHP_ARG_WITH(rtk, path to the rtk dir,
+[  --with-rtk              Path to the RTK base dir])
+
 if test "$PHP_PRPA" != "no"; then
   dnl Write more examples of tests here...
 
-  dnl # --with-prpa -> check with-path
-  MACHDIR=`uname -m 2>/dev/null`
-  OS=linux
-
-  SEARCH_PATH="../../arch/$OS/$MACHDIR"     # you might want to change this
-  SEARCH_FOR="rtypes.h"                         # you most likely want to change this
-  if test -r $PHP_PRPA/arch/$OS/$MACHDIR/$SEARCH_FOR; then # path given as parameter
-     RTYPES_DIR=$PHP_PRPA/arch/$OS/$MACHDIR
+  dnl # --with-rtk -> check with-path
+  SEARCH_PATH="/usr/local /usr ../../.."     # you might want to change this
+  SEARCH_FOR="rpa/rpadbex.h"                    # you most likely want to change this
+  AC_MSG_CHECKING([for $PHP_RTK/$SEARCH_FOR files in default path])
+  if test -r $PHP_RTK/$SEARCH_FOR; then # path given as parameter
+    AC_MSG_RESULT([found])
+    RTK_DIR=$PHP_RTK
   else # search default path list
-       AC_MSG_CHECKING([for arch files in default path])
-       for i in $SEARCH_PATH; do
-                  if test -r $i/$SEARCH_FOR; then
-             RTYPES_DIR=$i
-              AC_MSG_RESULT(found in $i)
-                  fi
-       done
-
+    AC_MSG_RESULT([not found])
+    AC_MSG_CHECKING([for rtk/$SEARCH_FOR in default path])
+    for i in $SEARCH_PATH ; do
+      if test -r $i/rtk/$SEARCH_FOR; then
+        RTK_DIR=$i/rtk
+        AC_MSG_RESULT(found in $i)
+      fi
+    done
   fi
-
-  if test -z "$RTYPES_DIR"; then
-     AC_MSG_RESULT([not found])
-     AC_MSG_ERROR([arch dir not found in $SEARCH_PATH . Please reinstall the prpa distribution])
-  else
-     AC_MSG_RESULT([found])
-     PHP_ADD_INCLUDE($RTYPES_DIR)
+  if test -z "$RTK_DIR"; then
+    AC_MSG_RESULT([not found])
+    AC_MSG_ERROR([RTK dir not found in $SEARCH_PATH])
   fi
 
-  SEARCH_PATH="../../rpa"     # you might want to change this
-  SEARCH_FOR="rpadbex.h"                                # you most likely want to change this
-  if test -r $PHP_PRPA/$SEARCH_FOR; then # path given as parameter
-     PRPA_DIR=$PHP_PRPA
-  else # search default path list
-       AC_MSG_CHECKING([for prpa files in default path])
-       for i in $SEARCH_PATH ; do
-                  if test -r $i/$SEARCH_FOR; then
-                     PRPA_DIR=$i
-              AC_MSG_RESULT(found in $i)
-                  fi
-       done
-  fi
-
-  if test -z "$PRPA_DIR"; then
-     AC_MSG_RESULT([not found])
-     AC_MSG_ERROR([RPA dir not found. Please reinstall the prpa distribution])
-  fi
+  OS_DIR=linux
+  MACH=`uname -m`
+  ARCH_DIR=$RTK_DIR/arch/$OS_DIR/$MACH
+  RLIB_DIR=$RTK_DIR/rlib
+  RVM_DIR=$RTK_DIR/rvm
+  RPA_DIR=$RTK_DIR/rpa
+  RLIB_LIBDIR=$RTK_DIR/rlib/build/$OS_DIR/$MACH/out
+  RVM_LIBDIR=$RTK_DIR/rvm/build/$OS_DIR/$MACH/out
+  RPA_LIBDIR=$RTK_DIR/rpa/build/$OS_DIR/$MACH/out
+
+
+  AC_MSG_RESULT([RTK dir is: $RTK_DIR])
+  AC_MSG_RESULT([ARCH dir is: $ARCH_DIR])
+  AC_MSG_RESULT([RLIB dir is: $RLIB_DIR])
+  AC_MSG_RESULT([RVM dir is: $RVM_DIR])
+  AC_MSG_RESULT([RPA dir is: $RPA_DIR])
+  AC_MSG_RESULT([RLIB lib dir is: $RLIB_LIBDIR])
+  AC_MSG_RESULT([RVM lib dir is: $RVM_LIBDIR])
+  AC_MSG_RESULT([RPA lib dir is: $RPA_LIBDIR])
+
+
+  # --with-rtk -> add include path
+  PHP_ADD_INCLUDE($ARCH_DIR)
+  PHP_ADD_INCLUDE($RLIB_DIR)
+  PHP_ADD_INCLUDE($RVM_DIR)
+  PHP_ADD_INCLUDE($RPA_DIR)
 
+  dnl # --with-prpa -> check with-path
+  dnl SEARCH_PATH="/usr/local /usr"     # you might want to change this
+  dnl SEARCH_FOR="/include/prpa.h"  # you most likely want to change this
+  dnl if test -r $PHP_PRPA/$SEARCH_FOR; then # path given as parameter
+  dnl   PRPA_DIR=$PHP_PRPA
+  dnl else # search default path list
+  dnl   AC_MSG_CHECKING([for prpa files in default path])
+  dnl   for i in $SEARCH_PATH ; do
+  dnl     if test -r $i/$SEARCH_FOR; then
+  dnl       PRPA_DIR=$i
+  dnl       AC_MSG_RESULT(found in $i)
+  dnl     fi
+  dnl   done
+  dnl fi
+  dnl
+  dnl if test -z "$PRPA_DIR"; then
+  dnl   AC_MSG_RESULT([not found])
+  dnl   AC_MSG_ERROR([Please reinstall the prpa distribution])
+  dnl fi
+
+  dnl # --with-rtk -> check for lib and symbol presence
+  LIBNAME=rlib # you may want to change this
+  LIBSYMBOL=r_utf8_mbtowc # you most likely want to change this 
+
+  PRPA_SHARED_LIBADD=""
+  PHP_CHECK_LIBRARY($LIBNAME,$LIBSYMBOL,
+  [
+    PHP_ADD_LIBRARY_WITH_PATH($LIBNAME, $RPA_LIBDIR, PRPA_SHARED_LIBADD)
+    AC_DEFINE(HAVE_RPALIB,1,[ ])
+  ],[
+    AC_MSG_RESULT([RPA lib not found])
+  ],[
+    -L$RPA_LIBDIR  -L$RVM_LIBDIR -L$RLIB_LIBDIR -lrvm -lrlib  -lrpa  -lm
+  ])
+
+  PHP_ADD_LIBRARY_WITH_PATH(rpa, $RPA_LIBDIR, PRPA_SHARED_LIBADD)
+  PHP_ADD_LIBRARY_WITH_PATH(rvm, $RVM_LIBDIR, PRPA_SHARED_LIBADD)
+  PHP_ADD_LIBRARY_WITH_PATH(rlib, $RLIB_LIBDIR, PRPA_SHARED_LIBADD)
+  PHP_SUBST(PRPA_SHARED_LIBADD)
 
 
-  dnl # --with-prpa -> add include path
-  PHP_ADD_INCLUDE($PRPA_DIR)
-
-
-  dnl # --with-prpa -> check for lib and symbol presence
-  LIBNAME=rpa
-  LIBSYMBOL=rpa_dbex_create
-
-  if test -e "$PRPA_DIR/librpasc.so.1.0" ; then
-     PHP_ADD_LIBRARY_WITH_PATH(rpasc, $PRPA_DIR, PRPA_SHARED_LIBADD)
-  else
-     PHP_ADD_LIBRARY_WITH_PATH(rpasx, $PRPA_DIR, PRPA_SHARED_LIBADD)
-  fi
-  PHP_ADD_LIBRARY_WITH_PATH($LIBNAME, $PRPA_DIR, PRPA_SHARED_LIBADD)
-
-
-#  PHP_CHECK_LIBRARY(,$LIBSYMBOL,
-#  [
-#     AC_DEFINE(HAVE_PRPALIB,1,[ ])
-#  ],[
-#    AC_MSG_ERROR([wrong rpa lib version or lib not found])
-#  ],[
-#    -LPRPA_DIR -lrpa -lrpasx -lm
-#  ])
 
-  PHP_SUBST(PRPA_SHARED_LIBADD)
   PHP_NEW_EXTENSION(prpa, prpa.c, $ext_shared)
-
 fi
index 34c309f..3ea1e26 100644 (file)
 #include "php_prpa.h"
 #include "TSRM/TSRM.h"
 #include "rpadbex.h"
-
+#include "rpastat.h"
+#include "rpaerror.h"
+#include "rparecord.h"
 
 typedef struct _php_rpa_dbex {
-       rpa_dbex_handle hDbex;
+       rpadbex_t* hDbex;
        zval *zinput;
 #ifdef ZTS
        TSRMLS_D;       
@@ -42,7 +44,7 @@ typedef struct _php_rpa_dbex {
 
 
 typedef struct _php_rpa_pattern {
-       rpa_pattern_handle hPattern;
+       rlong hPattern;
 } php_rpa_pattern;
 
 #define PHP_RPA_PATTERN_RES_NAME "php rpa pattern"
@@ -73,7 +75,6 @@ static int le_prpa;
  * Every user visible function must have an entry in prpa_functions[].
  */
 zend_function_entry prpa_functions[] = {
-       PHP_FE(confirm_prpa_compiled,   NULL)           /* For testing, remove later. */
     PHP_FE(rpa_dbex_version, NULL)
 #if 0
     PHP_FE(rpa_dbex_strmatch, NULL)
@@ -152,21 +153,15 @@ PHP_MINIT_FUNCTION(prpa)
        /* If you have INI entries, uncomment these lines 
        REGISTER_INI_ENTRIES();
        */
-    le_rpa_dbex = zend_register_list_destructors_ex(php_rpa_dbex_dtor, NULL, PHP_RPA_DBEX_RES_NAME, module_number);
-    le_rpa_pattern = zend_register_list_destructors_ex(php_rpa_pattern_dtor, NULL, PHP_RPA_PATTERN_RES_NAME, module_number);
+//    le_rpa_dbex = zend_register_list_destructors_ex(php_rpa_dbex_dtor, NULL, PHP_RPA_DBEX_RES_NAME, module_number);
+//    le_rpa_pattern = zend_register_list_destructors_ex(php_rpa_pattern_dtor, NULL, PHP_RPA_PATTERN_RES_NAME, module_number);
     REGISTER_LONG_CONSTANT("RPA_ENCODING_BYTE", RPA_ENCODING_BYTE, CONST_CS | CONST_PERSISTENT);
     REGISTER_LONG_CONSTANT("RPA_ENCODING_UTF8", RPA_ENCODING_UTF8, CONST_CS | CONST_PERSISTENT);
     REGISTER_LONG_CONSTANT("RPA_ENCODING_ICASE_UTF8", RPA_ENCODING_ICASE_UTF8, CONST_CS | CONST_PERSISTENT);
     REGISTER_LONG_CONSTANT("RPA_ENCODING_UTF16LE", RPA_ENCODING_UTF16LE, CONST_CS | CONST_PERSISTENT);
     REGISTER_LONG_CONSTANT("RPA_ENCODING_ICASE_UTF16LE", RPA_ENCODING_ICASE_UTF16LE, CONST_CS | CONST_PERSISTENT);
-    REGISTER_LONG_CONSTANT("RPA_PATTERN_SINGLE", RPA_PATTERN_SINGLE, CONST_CS | CONST_PERSISTENT);
-    REGISTER_LONG_CONSTANT("RPA_PATTERN_BEST", RPA_PATTERN_BEST, CONST_CS | CONST_PERSISTENT);
-    REGISTER_LONG_CONSTANT("RPA_PATTERN_OR", RPA_PATTERN_OR, CONST_CS | CONST_PERSISTENT);
-    REGISTER_LONG_CONSTANT("RPA_REASON_START", RPA_REASON_START, CONST_CS | CONST_PERSISTENT);
-    REGISTER_LONG_CONSTANT("RPA_REASON_END", RPA_REASON_END, CONST_CS | CONST_PERSISTENT);
-    REGISTER_LONG_CONSTANT("RPA_REASON_MATCHED", RPA_REASON_MATCHED, CONST_CS | CONST_PERSISTENT);
-    REGISTER_LONG_CONSTANT("RPA_REASON_ALL", RPA_REASON_ALL, CONST_CS | CONST_PERSISTENT);
-
+    REGISTER_LONG_CONSTANT("RPA_RECORD_START", RPA_RECORD_START, CONST_CS | CONST_PERSISTENT);
+    REGISTER_LONG_CONSTANT("RPA_RECORD_END", RPA_RECORD_END, CONST_CS | CONST_PERSISTENT);
        return SUCCESS;
 }
 /* }}} */
index 3574c53..a087ec7 100644 (file)
@@ -15,7 +15,7 @@ int usage(int argc, const wchar_t *argv[])
                fwprintf(stderr, L" OPTIONS:\n");
                fwprintf(stderr, L"\t-e patterns         execute pattern\n");
                fwprintf(stderr, L"\t-f patternfile      read the patterns from a file, the last pattern will be executed\n");
-               fwprintf(stderr, L"\t-c printpatterns    print these patterns when there is a match.\n");
+               fwprintf(stderr, L"\t-c printpatterns    printeger these patterns when there is a match.\n");
                fwprintf(stderr, L"\t-i                  ignore case.\n");              
                fwprintf(stderr, L"\t-m                  match only from the beginning.\n");            
                fwprintf(stderr, L"\t-p                  parse the stream.\n");         
index 720674a..f251811 100644 (file)
--- a/rjs/rjs.c
+++ b/rjs/rjs.c
@@ -68,19 +68,19 @@ void rjs_engine_destroy(rjs_engine_t *jse)
 }
 
 
-rint rjs_engine_open(rjs_engine_t *jse)
+rinteger rjs_engine_open(rjs_engine_t *jse)
 {
        return 0;
 }
 
 
-rint rjs_engine_addswitable(rjs_engine_t *jse, const rchar *tabname, rvm_switable_t *switalbe)
+rinteger rjs_engine_addswitable(rjs_engine_t *jse, const rchar *tabname, rvm_switable_t *switalbe)
 {
        return rvm_cpu_addswitable(jse->cpu, tabname, switalbe);
 }
 
 
-static rint rjs_engine_parse(rjs_engine_t *jse, const rchar *script, rsize_t size, rarray_t *records, rjs_error_t *error)
+static rinteger rjs_engine_parse(rjs_engine_t *jse, const rchar *script, rsize_t size, rarray_t *records, rjs_error_t *error)
 {
        rlong res = 0;
 
@@ -89,7 +89,7 @@ static rint rjs_engine_parse(rjs_engine_t *jse, const rchar *script, rsize_t siz
 }
 
 
-rint rjs_engine_compile(rjs_engine_t *jse, const rchar *script, rsize_t size)
+rinteger rjs_engine_compile(rjs_engine_t *jse, const rchar *script, rsize_t size)
 {
        rvm_codegen_t *topcg = NULL;
        rarray_t *records = rpa_records_create();
@@ -125,7 +125,7 @@ err:
 }
 
 
-rint rjs_engine_dumpast(rjs_engine_t *jse, const rchar *script, rsize_t size)
+rinteger rjs_engine_dumpast(rjs_engine_t *jse, const rchar *script, rsize_t size)
 {
        rjs_error_t error;
        rarray_t *records = rpa_records_create();
@@ -147,22 +147,22 @@ rint rjs_engine_dumpast(rjs_engine_t *jse, const rchar *script, rsize_t size)
 }
 
 
-rint rjs_engine_compile_s(rjs_engine_t *jse, const rchar *script)
+rinteger rjs_engine_compile_s(rjs_engine_t *jse, const rchar *script)
 {
        return rjs_engine_compile(jse, script, r_strlen(script));
 }
 
 
-rint rjs_engine_close(rjs_engine_t *jse)
+rinteger rjs_engine_close(rjs_engine_t *jse)
 {
 
        return 0;
 }
 
 
-rint rjs_engine_run(rjs_engine_t *jse)
+rinteger rjs_engine_run(rjs_engine_t *jse)
 {
-       rint res = 0;
+       rinteger res = 0;
        rvm_codegen_t *cg = r_array_empty(jse->cgs) ? NULL : r_array_last(jse->cgs, rvm_codegen_t*);
 
        if (!cg) {
@@ -204,7 +204,7 @@ rvmreg_t *rjs_engine_exec_s(rjs_engine_t *jse, const rchar *script)
 }
 
 
-static rint rjs_compiler_argarray_setup(rjs_compiler_t *co)
+static rinteger rjs_compiler_argarray_setup(rjs_compiler_t *co)
 {
        rvm_varmap_t *v;
        rvmreg_t count = rvm_reg_create_long(0);
@@ -222,7 +222,7 @@ static rint rjs_compiler_argarray_setup(rjs_compiler_t *co)
 }
 
 
-static rint rjs_compiler_addarg(rjs_compiler_t *co, rvmreg_t *arg)
+static rinteger rjs_compiler_addarg(rjs_compiler_t *co, rvmreg_t *arg)
 {
        rvm_varmap_t *v;
        rmap_t *a;
index 466cfa1..f44bbf2 100644 (file)
--- a/rjs/rjs.h
+++ b/rjs/rjs.h
@@ -38,13 +38,13 @@ const rchar *rjs_version();
 
 rjs_engine_t *rjs_engine_create();
 void rjs_engine_destroy(rjs_engine_t *jse);
-rint rjs_engine_open(rjs_engine_t *jse);
-rint rjs_engine_compile(rjs_engine_t *jse, const rchar *script, rsize_t size);
-rint rjs_engine_compile_s(rjs_engine_t *jse, const rchar *script);
-rint rjs_engine_close(rjs_engine_t *jse);
-rint rjs_engine_run(rjs_engine_t *jse);
-rint rjs_engine_addswitable(rjs_engine_t *jse, const rchar *tabname, rvm_switable_t *switalbe);
-rint rjs_engine_dumpast(rjs_engine_t *jse, const rchar *script, rsize_t size);
+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, ...);
index c8c6ed7..18e5d38 100644 (file)
@@ -3,9 +3,9 @@
 #include "rjsparser.h"
 
 
-rint rjs_compiler_playreversechildrecords(rjs_compiler_t *co, rarray_t *records, rlong rec);
-static rint rjs_compiler_playrecord(rjs_compiler_t *co, rarray_t *records, rlong rec);
-static rint rjs_compiler_playchildrecords(rjs_compiler_t *co, rarray_t *records, rlong rec);
+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);
 
 
 void rjs_compiler_debughead(rjs_compiler_t *co, rarray_t *records, rlong rec)
@@ -264,7 +264,7 @@ rlong rjs_compiler_record2unaryopcode(rparecord_t *prec)
 }
 
 
-static rint rjs_compiler_internalvars_setup(rjs_compiler_t *co)
+static rinteger rjs_compiler_internalvars_setup(rjs_compiler_t *co)
 {
        rvm_varmap_t *v;
 
@@ -281,7 +281,7 @@ static rint rjs_compiler_internalvars_setup(rjs_compiler_t *co)
 }
 
 
-rint rjs_compiler_rh_program(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_program(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rjs_coctx_global_t ctx;
        rparecord_t *prec;
@@ -322,7 +322,7 @@ error:
 }
 
 
-rint rjs_compiler_rh_varalloc(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_varalloc(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rparecord_t *prec;
        prec = (rparecord_t *)r_array_slot(records, rec);
@@ -342,7 +342,7 @@ rint rjs_compiler_rh_varalloc(rjs_compiler_t *co, rarray_t *records, rlong rec)
 }
 
 
-rint rjs_compiler_rh_varallocinit(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_varallocinit(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rparecord_t *prec;
        prec = (rparecord_t *)r_array_slot(records, rec);
@@ -363,7 +363,7 @@ rint rjs_compiler_rh_varallocinit(rjs_compiler_t *co, rarray_t *records, rlong r
 }
 
 
-rint rjs_compiler_rh_initializer(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_initializer(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rparecord_t *prec;
        prec = (rparecord_t *)r_array_slot(records, rec);
@@ -383,7 +383,7 @@ rint rjs_compiler_rh_initializer(rjs_compiler_t *co, rarray_t *records, rlong re
 }
 
 
-rint rjs_compiler_rh_identifier(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_identifier(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rvm_varmap_t *v;
        rparecord_t *prec;
@@ -435,7 +435,7 @@ end:
 }
 
 
-rint rjs_compiler_rh_expression(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_expression(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rparecord_t *prec;
        prec = (rparecord_t *)r_array_slot(records, rec);
@@ -453,7 +453,7 @@ rint rjs_compiler_rh_expression(rjs_compiler_t *co, rarray_t *records, rlong rec
 }
 
 
-rint rjs_compiler_rh_lefthandsideexpression(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_lefthandsideexpression(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rparecord_t *prec;
        prec = (rparecord_t *)r_array_slot(records, rec);
@@ -471,7 +471,7 @@ rint rjs_compiler_rh_lefthandsideexpression(rjs_compiler_t *co, rarray_t *record
 }
 
 
-rint rjs_compiler_rh_lefthandsideexpressionaddr(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_lefthandsideexpressionaddr(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rparecord_t *prec;
        prec = (rparecord_t *)r_array_slot(records, rec);
@@ -490,7 +490,7 @@ rint rjs_compiler_rh_lefthandsideexpressionaddr(rjs_compiler_t *co, rarray_t *re
 }
 
 
-rint rjs_compiler_rh_decimalintegerliteral(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_decimalintegerliteral(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rparecord_t *prec;
        prec = (rparecord_t *)r_array_slot(records, rec);
@@ -509,7 +509,7 @@ rint rjs_compiler_rh_decimalintegerliteral(rjs_compiler_t *co, rarray_t *records
 }
 
 
-rint rjs_compiler_rh_decimalnonintegerliteral(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_decimalnonintegerliteral(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rparecord_t *prec;
        prec = (rparecord_t *)r_array_slot(records, rec);
@@ -529,7 +529,7 @@ rint rjs_compiler_rh_decimalnonintegerliteral(rjs_compiler_t *co, rarray_t *reco
 }
 
 
-rint rjs_compiler_rh_stringcharacters(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_stringcharacters(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rparecord_t *prec;
        prec = (rparecord_t *)r_array_slot(records, rec);
@@ -550,7 +550,7 @@ rint rjs_compiler_rh_stringcharacters(rjs_compiler_t *co, rarray_t *records, rlo
 }
 
 
-rint rjs_compiler_rh_stringliteral(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_stringliteral(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rparecord_t *prec;
        prec = (rparecord_t *)r_array_slot(records, rec);
@@ -574,7 +574,7 @@ rint rjs_compiler_rh_stringliteral(rjs_compiler_t *co, rarray_t *records, rlong
 }
 
 
-rint rjs_compiler_rh_binaryexpressionop(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_binaryexpressionop(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rparecord_t *prec;
        rjs_coctx_operation_t ctx;
@@ -604,7 +604,7 @@ error:
 }
 
 
-rint rjs_compiler_rh_unaryexpressionop(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_unaryexpressionop(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rparecord_t *prec;
        rjs_coctx_operation_t ctx;
@@ -632,7 +632,7 @@ error:
 }
 
 
-rint rjs_compiler_rh_assignmentexpressionop(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_assignmentexpressionop(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rparecord_t *prec;
        rjs_coctx_operation_t ctx;
@@ -664,7 +664,7 @@ error:
 }
 
 
-rint rjs_compiler_rh_newarrayexpression(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_newarrayexpression(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rparecord_t *prec;
        prec = (rparecord_t *)r_array_slot(records, rec);
@@ -681,7 +681,7 @@ rint rjs_compiler_rh_newarrayexpression(rjs_compiler_t *co, rarray_t *records, r
 }
 
 
-rint rjs_compiler_rh_memberexpressiondotop(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_memberexpressiondotop(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rjs_coctx_t *ctx = rjs_compiler_gettopctx(co);
        rparecord_t *prec;
@@ -710,7 +710,7 @@ rint rjs_compiler_rh_memberexpressiondotop(rjs_compiler_t *co, rarray_t *records
 }
 
 
-rint rjs_compiler_rh_memberexpressionindexop(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_memberexpressionindexop(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rjs_coctx_t *ctx = rjs_compiler_gettopctx(co);
        rparecord_t *prec;
@@ -741,7 +741,7 @@ rint rjs_compiler_rh_memberexpressionindexop(rjs_compiler_t *co, rarray_t *recor
 }
 
 
-rint rjs_compiler_rh_functiondeclaration(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_functiondeclaration(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rjs_coctx_function_t ctx;
        rparecord_t *prec;
@@ -798,7 +798,7 @@ error:
 }
 
 
-rint rjs_compiler_rh_functionparameter(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_functionparameter(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rjs_coctx_t *ctx = NULL;
        rjs_coctx_function_t *functx = NULL;
@@ -844,7 +844,7 @@ rint rjs_compiler_rh_functionparameter(rjs_compiler_t *co, rarray_t *records, rl
 }
 
 
-rint rjs_compiler_rh_functioncall(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_functioncall(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rparecord_t *prec;
        rjs_coctx_functioncall_t ctx;
@@ -886,7 +886,7 @@ error:
 }
 
 
-rint rjs_compiler_rh_argument(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_argument(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rparecord_t *prec;
        rjs_coctx_functioncall_t *ctx = (rjs_coctx_functioncall_t *)rjs_compiler_getctx(co, RJS_COCTX_FUNCTIONCALL);
@@ -913,7 +913,7 @@ rint rjs_compiler_rh_argument(rjs_compiler_t *co, rarray_t *records, rlong rec)
 }
 
 
-rint rjs_compiler_rh_arguments(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_arguments(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rparecord_t *prec;
        rjs_coctx_functioncall_t *ctx = (rjs_coctx_functioncall_t *)rjs_compiler_getctx(co, RJS_COCTX_FUNCTIONCALL);
@@ -938,7 +938,7 @@ rint rjs_compiler_rh_arguments(rjs_compiler_t *co, rarray_t *records, rlong rec)
 }
 
 
-rint rjs_compiler_rh_returnstatement(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_returnstatement(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rparecord_t *prec;
        prec = (rparecord_t *)r_array_slot(records, rec);
@@ -957,7 +957,7 @@ rint rjs_compiler_rh_returnstatement(rjs_compiler_t *co, rarray_t *records, rlon
 }
 
 
-rint rjs_compiler_rh_ifstatement(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_ifstatement(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rparecord_t *prec;
        rjs_coctx_ifstatement_t ctx;
@@ -990,7 +990,7 @@ error:
 }
 
 
-rint rjs_compiler_rh_ifconditionop(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_ifconditionop(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rparecord_t *prec;
        rjs_coctx_ifstatement_t *ctx = (rjs_coctx_ifstatement_t *)rjs_compiler_getctx(co, RJS_COCTX_IFSTATEMENT);
@@ -1014,7 +1014,7 @@ rint rjs_compiler_rh_ifconditionop(rjs_compiler_t *co, rarray_t *records, rlong
 }
 
 
-rint rjs_compiler_rh_iftruestatement(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_iftruestatement(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rparecord_t *prec;
        rjs_coctx_ifstatement_t *ctx = (rjs_coctx_ifstatement_t *)rjs_compiler_getctx(co, RJS_COCTX_IFSTATEMENT);
@@ -1040,7 +1040,7 @@ rint rjs_compiler_rh_iftruestatement(rjs_compiler_t *co, rarray_t *records, rlon
 }
 
 
-rint rjs_compiler_rh_iffalsestatement(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_iffalsestatement(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rparecord_t *prec;
        rjs_coctx_ifstatement_t *ctx = (rjs_coctx_ifstatement_t *)rjs_compiler_getctx(co, RJS_COCTX_IFSTATEMENT);
@@ -1066,7 +1066,7 @@ rint rjs_compiler_rh_iffalsestatement(rjs_compiler_t *co, rarray_t *records, rlo
 }
 
 
-rint rjs_compiler_rh_iterationfor(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_iterationfor(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rlong childrec;
        rparecord_t *prec;
@@ -1129,7 +1129,7 @@ error:
 }
 
 
-rint rjs_compiler_rh_iterationwhile(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_iterationwhile(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rparecord_t *prec;
        rjs_coctx_iteration_t ctx;
@@ -1166,7 +1166,7 @@ error:
 }
 
 
-rint rjs_compiler_rh_iterationdo(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_iterationdo(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rparecord_t *prec;
        rjs_coctx_iteration_t ctx;
@@ -1202,7 +1202,7 @@ error:
 }
 
 
-rint rjs_compiler_rh_dowhileexpressioncompare(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_dowhileexpressioncompare(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rparecord_t *prec;
        rjs_coctx_iteration_t *ctx = (rjs_coctx_iteration_t *)rjs_compiler_getctx(co, RJS_COCTX_ITERATION);
@@ -1229,7 +1229,7 @@ rint rjs_compiler_rh_dowhileexpressioncompare(rjs_compiler_t *co, rarray_t *reco
 }
 
 
-rint rjs_compiler_rh_forexpressioncompare(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_forexpressioncompare(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rparecord_t *prec;
        rjs_coctx_iteration_t *ctx = (rjs_coctx_iteration_t *)rjs_compiler_getctx(co, RJS_COCTX_ITERATION);
@@ -1255,7 +1255,7 @@ rint rjs_compiler_rh_forexpressioncompare(rjs_compiler_t *co, rarray_t *records,
 }
 
 
-rint rjs_compiler_rh_forexpressionincrement(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_forexpressionincrement(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rparecord_t *prec;
        rjs_coctx_iteration_t *ctx = (rjs_coctx_iteration_t *)rjs_compiler_getctx(co, RJS_COCTX_ITERATION);
@@ -1281,7 +1281,7 @@ rint rjs_compiler_rh_forexpressionincrement(rjs_compiler_t *co, rarray_t *record
 }
 
 
-rint rjs_compiler_rh_postfixexpressionop(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_postfixexpressionop(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rparecord_t *prec;
        rlong opcode;
@@ -1310,7 +1310,7 @@ rint rjs_compiler_rh_postfixexpressionop(rjs_compiler_t *co, rarray_t *records,
 }
 
 
-rint rjs_compiler_rh_prefixexpressionop(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_prefixexpressionop(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rparecord_t *prec;
        rlong opcode;
@@ -1340,7 +1340,7 @@ rint rjs_compiler_rh_prefixexpressionop(rjs_compiler_t *co, rarray_t *records, r
 }
 
 
-rint rjs_compiler_rh_newexpressioncall(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_newexpressioncall(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rparecord_t *prec;
        rjs_coctx_functioncall_t ctx;
@@ -1382,7 +1382,7 @@ error:
 }
 
 
-rint rjs_compiler_rh_this(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_this(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rparecord_t *prec;
        prec = (rparecord_t *)r_array_slot(records, rec);
@@ -1401,7 +1401,7 @@ rint rjs_compiler_rh_this(rjs_compiler_t *co, rarray_t *records, rlong rec)
 }
 
 
-rint rjs_compiler_rh_binaryoperator(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_binaryoperator(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rparecord_t *prec;
        rjs_coctx_t *ctx = rjs_compiler_gettopctx(co);
@@ -1423,7 +1423,7 @@ rint rjs_compiler_rh_binaryoperator(rjs_compiler_t *co, rarray_t *records, rlong
 }
 
 
-rint rjs_compiler_rh_unaryoperator(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_unaryoperator(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rparecord_t *prec;
        rjs_coctx_t *ctx = rjs_compiler_gettopctx(co);
@@ -1445,7 +1445,7 @@ rint rjs_compiler_rh_unaryoperator(rjs_compiler_t *co, rarray_t *records, rlong
 }
 
 
-rint rjs_compiler_rh_identifiername(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_identifiername(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rparecord_t *prec;
        prec = (rparecord_t *)r_array_slot(records, rec);
@@ -1465,7 +1465,7 @@ rint rjs_compiler_rh_identifiername(rjs_compiler_t *co, rarray_t *records, rlong
 }
 
 
-rint rjs_compiler_rh_continue(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_continue(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rparecord_t *prec;
        rjs_coctx_t *ctx;
@@ -1494,7 +1494,7 @@ rint rjs_compiler_rh_continue(rjs_compiler_t *co, rarray_t *records, rlong rec)
 }
 
 
-rint rjs_compiler_rh_break(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_break(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rparecord_t *prec;
        rjs_coctx_t *ctx;
@@ -1524,7 +1524,7 @@ rint rjs_compiler_rh_break(rjs_compiler_t *co, rarray_t *records, rlong rec)
 }
 
 
-rint rjs_compiler_rh_syntaxerror(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_syntaxerror(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rparecord_t *prec;
        prec = (rparecord_t *)r_array_slot(records, rec);
@@ -1543,7 +1543,7 @@ rint rjs_compiler_rh_syntaxerror(rjs_compiler_t *co, rarray_t *records, rlong re
 }
 
 
-rint rjs_compiler_rh_block(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_block(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rparecord_t *prec;
        prec = (rparecord_t *)r_array_slot(records, rec);
@@ -1565,7 +1565,7 @@ rint rjs_compiler_rh_block(rjs_compiler_t *co, rarray_t *records, rlong rec)
 }
 
 
-rint rjs_compiler_rh_(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_rh_(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rparecord_t *prec;
        prec = (rparecord_t *)r_array_slot(records, rec);
@@ -1666,7 +1666,7 @@ void rjs_compiler_destroy(rjs_compiler_t *co)
 }
 
 
-static rint rjs_compiler_rh_default(rjs_compiler_t *co, rarray_t *records, rlong rec)
+static rinteger rjs_compiler_rh_default(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rparecord_t *prec;
 
@@ -1686,7 +1686,7 @@ static rint rjs_compiler_rh_default(rjs_compiler_t *co, rarray_t *records, rlong
 }
 
 
-static rint rjs_compiler_playchildrecords(rjs_compiler_t *co, rarray_t *records, rlong rec)
+static rinteger rjs_compiler_playchildrecords(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rlong child;
 
@@ -1699,7 +1699,7 @@ static rint rjs_compiler_playchildrecords(rjs_compiler_t *co, rarray_t *records,
 }
 
 
-rint rjs_compiler_playreversechildrecords(rjs_compiler_t *co, rarray_t *records, rlong rec)
+rinteger rjs_compiler_playreversechildrecords(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rlong child;
 
@@ -1712,7 +1712,7 @@ rint rjs_compiler_playreversechildrecords(rjs_compiler_t *co, rarray_t *records,
 }
 
 
-static rint rjs_compiler_playrecord(rjs_compiler_t *co, rarray_t *records, rlong rec)
+static rinteger rjs_compiler_playrecord(rjs_compiler_t *co, rarray_t *records, rlong rec)
 {
        rparecord_t *prec;
        prec = (rparecord_t *)r_array_slot(records, rec);
@@ -1723,7 +1723,7 @@ static rint rjs_compiler_playrecord(rjs_compiler_t *co, rarray_t *records, rlong
 }
 
 
-rint rjs_compiler_compile(rjs_compiler_t *co, const rchar *script, rsize_t scriptsize, rarray_t *records, rvm_codegen_t *cg, rjs_error_t *error)
+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)
 {
        rlong i;
        rvm_codelabel_t *labelerr;
index 49252cd..6db8ae2 100644 (file)
@@ -82,7 +82,7 @@ typedef struct rjs_coctx_iteration_s {
 
 
 typedef struct rjs_compiler_s rjs_compiler_t;
-typedef rint (*RJS_COMPILER_RH)(rjs_compiler_t *co, rarray_t *records, rlong rec);
+typedef rinteger (*RJS_COMPILER_RH)(rjs_compiler_t *co, rarray_t *records, rlong rec);
 
 struct rjs_compiler_s {
        rvmcpu_t *cpu;
@@ -103,7 +103,7 @@ struct rjs_compiler_s {
 
 rjs_compiler_t *rjs_compiler_create(rvmcpu_t *cpu);
 void rjs_compiler_destroy(rjs_compiler_t *co);
-rint rjs_compiler_compile(rjs_compiler_t *co, const rchar *script, rsize_t scriptsize, rarray_t *records, rvm_codegen_t *cg, rjs_error_t *error);
+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);
 
 #ifdef __cplusplus
index b72e6e5..66cda1a 100644 (file)
@@ -273,7 +273,7 @@ void rjs_display_errors(rjs_engine_t *jse, rstr_t *script)
 
 int main(int argc, char *argv[])
 {
-       rint i;
+       rinteger i;
        rstr_t *script = NULL, *unmapscript = NULL;
        rstr_t line;
        rjs_engine_t *jse;
index 3fd0c9e..b867a99 100644 (file)
@@ -1,6 +1,9 @@
+RTK_LIB_INSTALL=/usr/lib
 RLIB_SRCDIR = $(SRCDIR)/rlib
-RLIB_LIB = $(OUTDIR)/librlib.a
-RLIB_SO = $(OUTDIR)/librlib.so.1.0
+RLIB_LIB = librlib.a
+RLIB_SO = librlib.so.1.0
+TARGET_RLIB_LIB = $(OUTDIR)/$(RLIB_LIB)
+TARGET_RLIB_SO = $(OUTDIR)/$(RLIB_SO)
 
 
 RLIB_OBJECTS +=        $(OUTDIR)/rref.o
@@ -22,19 +25,19 @@ RLIB_OBJECTS +=     $(OUTDIR)/rutf.o
 
 
 ifeq ($(OS), linux)
-all: $(OUTDIR) $(RLIB_LIB) $(RLIB_SO)
+all: $(OUTDIR) $(TARGET_RLIB_LIB) $(TARGET_RLIB_SO)
 else
-all: $(OUTDIR) $(RLIB_LIB)
+all: $(OUTDIR) $(TARGET_RLIB_LIB)
 endif
 
 
 $(OUTDIR)/%.o: $(RLIB_SRCDIR)/%.c
        + $(CC) $(CFLAGS) -o $(OUTDIR)/$*.o -c $(RLIB_SRCDIR)/$*.c
 
-$(RLIB_LIB): $(RLIB_OBJECTS)
+$(TARGET_RLIB_LIB): $(RLIB_OBJECTS)
        $(AR) -cr $@ $^
 
-$(RLIB_SO): $(RLIB_OBJECTS)
+$(TARGET_RLIB_SO): $(RLIB_OBJECTS)
        $(CC) $(LDFLAGS) -shared -Wl,-soname,librlib.so -o $@ $^
 
 $(OUTDIR):
@@ -45,9 +48,16 @@ distclean: clean
        @rm -rf $(OUTDIR)
 
 clean:
-       @rm -f $(RLIB_LIB)
-       @rm -f $(RLIB_SO)
+       @rm -f $(TARGET_RLIB_LIB)
+       @rm -f $(TARGET_RLIB_SO)
        @rm -f $(RLIB_OBJECTS)
        @rm -f *~
        @rm -f $(SRCDIR)/*~
 
+install:
+       cp $(TARGET_RLIB_SO) $(RTK_LIB_INSTALL)
+       cp $(TARGET_RLIB_LIB) $(RTK_LIB_INSTALL)
+
+uninstall:
+       rm $(RTK_LIB_INSTALL)/$(RLIB_LIB)
+       rm $(RTK_LIB_INSTALL)/$(RLIB_SO)
index ddd28d3..d6b0b24 100644 (file)
@@ -160,7 +160,7 @@ void *r_array_slot_expand(rarray_t *array, rsize_t index)
 }
 
 
-rint r_array_move(rarray_t *array, rlong dest, rlong src, rlong size)
+rinteger r_array_move(rarray_t *array, rlong dest, rlong src, rlong size)
 {
        rlong i;
        if (src == dest)
index 0e22b57..53df09f 100644 (file)
@@ -42,7 +42,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);
-rint r_array_move(rarray_t *array, rlong dest, rlong src, rlong size);
+rinteger r_array_move(rarray_t *array, rlong dest, rlong src, rlong 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 8460112..d073cbc 100644 (file)
@@ -92,7 +92,7 @@ robject_t *r_carray_copy(const robject_t *obj)
 }
 
 
-rint r_carray_replace(rcarray_t *carray, rsize_t index, rconstpointer data)
+rinteger 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);
@@ -102,7 +102,7 @@ rint r_carray_replace(rcarray_t *carray, rsize_t index, rconstpointer data)
 }
 
 
-rint r_carray_add(rcarray_t *carray, rconstpointer data)
+rinteger r_carray_add(rcarray_t *carray, rconstpointer data)
 {
        rsize_t index = r_carray_length(carray);
        r_carray_inclength(carray);
index 936c4ba..7dd0b6e 100644 (file)
@@ -38,8 +38,8 @@ struct rcarray_s {
 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);
-rint r_carray_replace(rcarray_t *carray, rsize_t index, rconstpointer data);
-rint r_carray_add(rcarray_t *carray, rconstpointer data);
+rinteger r_carray_replace(rcarray_t *carray, rsize_t index, rconstpointer data);
+rinteger 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 7de29a9..4e5afca 100644 (file)
@@ -12,7 +12,7 @@ extern "C" {
 typedef struct rgc_s {
        robject_t obj;
        rhead_t head[2];
-       ruint active;
+       ruinteger active;
 } rgc_t;
 
 
index 1d9bd0a..316d3a7 100644 (file)
@@ -35,7 +35,7 @@
  */
 static void r_array_oncopy_rstr(rarray_t *array)
 {
-       ruint index;
+       ruinteger index;
        rstr_t *src, *dst;
 
        for (index = 0; index < r_array_length(array); index++) {
@@ -51,7 +51,7 @@ static void r_array_oncopy_rstr(rarray_t *array)
  */
 static void r_array_oncleanup_rstr(rarray_t *array)
 {
-       ruint index;
+       ruinteger index;
        rstr_t *src;
 
        for (index = 0; index < r_array_length(array); index++) {
@@ -62,7 +62,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, ruint elt_size)
+robject_t *r_harray_init(robject_t *obj, ruint32 type, r_object_cleanupfun cleanup, r_object_copyfun copy, ruinteger elt_size)
 {
        rharray_t *harray = (rharray_t*)obj;
        r_object_init(obj, type, cleanup, copy);
@@ -74,7 +74,7 @@ robject_t *r_harray_init(robject_t *obj, ruint32 type, r_object_cleanupfun clean
        return obj;
 }
 
-rharray_t *r_harray_create(ruint elt_size)
+rharray_t *r_harray_create(ruinteger elt_size)
 {
        rharray_t *harray;
 
@@ -224,7 +224,7 @@ rhash_node_t* r_harray_nodetaillookup_s(rharray_t *harray, rhash_node_t *cur, co
 }
 
 
-rint r_harray_set(rharray_t *harray, rlong index, rconstpointer pval)
+rinteger r_harray_set(rharray_t *harray, rlong index, rconstpointer pval)
 {
        if (index < 0)
                return -1;
index e9ddde4..8ed3c02 100644 (file)
@@ -26,9 +26,9 @@ typedef struct rharray_s {
 } rharray_t;
 
 
-rharray_t *r_harray_create(ruint elt_size);
+rharray_t *r_harray_create(ruinteger 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, ruint elt_size);
+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);
@@ -42,7 +42,7 @@ rhash_node_t* r_harray_nodelookup_s(rharray_t *harray, rhash_node_t *cur, const
 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);
 rpointer r_harray_get(rharray_t *harray, rsize_t index);
-rint r_harray_set(rharray_t *harray, rlong index, rconstpointer pval);
+rinteger r_harray_set(rharray_t *harray, rlong index, rconstpointer pval);
 
 robject_t *r_harray_copy(const robject_t *obj);
 void r_harray_cleanup(robject_t *obj);
index 011dc24..0c3f389 100644 (file)
@@ -31,7 +31,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)
 {
-       ruint nbucket = hash->hfunc(key) & r_hash_mask(hash);
+       ruinteger nbucket = hash->hfunc(key) & r_hash_mask(hash);
        rhead_t *bucket = &hash->buckets[nbucket];
        rhash_node_t *node;
        rlink_t *pos;
@@ -48,7 +48,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)
 {
-       ruint nbucket = hash->hfunc(key) & r_hash_mask(hash);
+       ruinteger nbucket = hash->hfunc(key) & r_hash_mask(hash);
        rhead_t *bucket = &hash->buckets[nbucket];
        rhash_node_t *node;
        rlink_t *pos;
@@ -63,10 +63,10 @@ rhash_node_t *r_hash_nodelookup(rhash_t* hash, rhash_node_t *cur, rconstpointer
 }
 
 
-ruint r_hash_strhash(rconstpointer key)
+ruinteger r_hash_strhash(rconstpointer key)
 {
        const rchar *str = (const rchar*) key;
-       ruint hash = 0;
+       ruinteger hash = 0;
        int c;
 
        while ((c = *str++))
@@ -81,13 +81,13 @@ rboolean r_hash_strequal(rconstpointer key1, rconstpointer key2)
 }
 
 
-ruint r_hash_rstrhash(rconstpointer key)
+ruinteger r_hash_rstrhash(rconstpointer key)
 {
        const rstr_t *k = (const rstr_t *)key;
        const rchar *str = (const rchar*) k->str;
-       ruint i;
-       ruint size = k->size;
-       ruint hash = 0;
+       ruinteger i;
+       ruinteger size = k->size;
+       ruinteger hash = 0;
 
        for (i = 0; i < size; i++, str++) {
                hash = *str + (hash << 6) + (hash << 16) - hash;
@@ -105,7 +105,7 @@ rboolean r_hash_rstrequal(rconstpointer key1, rconstpointer key2)
 }
 
 
-rhash_t *r_hash_create(ruint nbits, r_hash_equalfunc eqfunc, r_hash_hashfun hfunc)
+rhash_t *r_hash_create(ruinteger nbits, r_hash_equalfunc eqfunc, r_hash_hashfun hfunc)
 {
        rhash_t *hash;
 
@@ -122,9 +122,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,
-                                               ruint nbits, r_hash_equalfunc eqfunc, r_hash_hashfun hfunc)
+                                               ruinteger nbits, r_hash_equalfunc eqfunc, r_hash_hashfun hfunc)
 {
-       ruint i;
+       ruinteger i;
        rsize_t size;
        rhash_t *hash = (rhash_t *)obj;
 
@@ -159,7 +159,7 @@ void r_hash_cleanup(robject_t *obj)
 
 void r_hash_insert(rhash_t* hash, rconstpointer key, rpointer value)
 {
-       ruint nbucket = hash->hfunc(key) & r_hash_mask(hash);
+       ruinteger nbucket = hash->hfunc(key) & r_hash_mask(hash);
        rhash_node_t *node = r_hash_node_create();
        rhead_t *buckethead = &hash->buckets[nbucket];
        if (node) {
@@ -184,7 +184,7 @@ void r_hash_remove(rhash_t* hash, rconstpointer key)
 
 void r_hash_removeall(rhash_t* hash)
 {
-       ruint nbucket;
+       ruinteger nbucket;
        rhead_t *head;
        rhash_node_t *node;
 
@@ -210,7 +210,7 @@ rpointer r_hash_lookup(rhash_t* hash, rconstpointer key)
 
 void r_hash_insert_indexval(rhash_t* hash, rconstpointer key, rulong index)
 {
-       ruint nbucket = hash->hfunc(key) & r_hash_mask(hash);
+       ruinteger nbucket = hash->hfunc(key) & r_hash_mask(hash);
        rhash_node_t *node = r_hash_node_create();
        rhead_t *buckethead = &hash->buckets[nbucket];
        if (node) {
index 1b0b906..64fa1f5 100644 (file)
@@ -13,13 +13,13 @@ 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 ruint (*r_hash_hashfun)(rconstpointer key);
+typedef ruinteger (*r_hash_hashfun)(rconstpointer key);
 
 
 struct rhash_s {
        robject_t obj;
        rlist_t *buckets;
-       ruint nbits;
+       ruinteger nbits;
        r_hash_equalfunc eqfunc;
        r_hash_hashfun hfunc;
 };
@@ -29,10 +29,10 @@ struct rhash_s {
 
 #define r_hash_size(__h__) (1 << (__h__)->nbits)
 #define r_hash_mask(__h__) (r_hash_size(__h__) - 1)
-rhash_t *r_hash_create(ruint nbits, r_hash_equalfunc eqfunc, r_hash_hashfun hfunc);
+rhash_t *r_hash_create(ruinteger 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,
-                                               ruint nbits, r_hash_equalfunc eqfunc, r_hash_hashfun hfunc);
+                                               ruinteger 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);
@@ -46,9 +46,9 @@ rhash_node_t *r_hash_nodetaillookup(rhash_t* hash, rhash_node_t *cur, rconstpoin
 rpointer r_hash_value(rhash_node_t *node);
 rulong r_hash_indexval(rhash_node_t *node);
 
-ruint r_hash_strhash(rconstpointer key);
+ruinteger r_hash_strhash(rconstpointer key);
 rboolean r_hash_strequal(rconstpointer key1, rconstpointer key2);
-ruint r_hash_rstrhash(rconstpointer key);
+ruinteger r_hash_rstrhash(rconstpointer key);
 rboolean r_hash_rstrequal(rconstpointer key1, rconstpointer key2);
 
 
index c535c14..872e0c3 100644 (file)
@@ -93,7 +93,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, ruint elt_size, ruint nbits)
+robject_t *r_map_init(robject_t *obj, ruint32 type, r_object_cleanupfun cleanup, r_object_copyfun copy, ruinteger elt_size, ruinteger nbits)
 {
        rsize_t elt_realsize = R_SIZE_ALIGN(elt_size + sizeof(r_mapnode_t), sizeof(rword));
        rsize_t hashsize, i;
@@ -118,7 +118,7 @@ robject_t *r_map_init(robject_t *obj, ruint32 type, r_object_cleanupfun cleanup,
        return obj;
 }
 
-rmap_t *r_map_create(ruint elt_size, ruint nbits)
+rmap_t *r_map_create(ruinteger elt_size, ruinteger nbits)
 {
        rmap_t *map;
        map = (rmap_t*)r_object_create(sizeof(*map));
@@ -238,7 +238,7 @@ rlong r_map_setvalue(rmap_t *map, rlong index, rconstpointer pval)
 }
 
 
-rint r_map_delete(rmap_t *map, rulong index)
+rinteger r_map_delete(rmap_t *map, rulong index)
 {
        r_mapnode_t *node = r_map_node(map, index);
        if (!node)
index 60efd57..19ac44f 100644 (file)
@@ -18,8 +18,8 @@ extern "C" {
 
 typedef struct rmap_s {
        robject_t obj;
-       ruint nbits;
-       ruint elt_size;
+       ruinteger nbits;
+       ruinteger elt_size;
        rcarray_t *data;
        rlist_t *hash;
        rlist_t active;
@@ -27,7 +27,7 @@ typedef struct rmap_s {
 } rmap_t;
 
 
-rmap_t *r_map_create(ruint elt_size, ruint nbits);
+rmap_t *r_map_create(ruinteger elt_size, ruinteger 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);
@@ -54,7 +54,7 @@ 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);
-rint r_map_delete(rmap_t *map, rulong index);
+rinteger r_map_delete(rmap_t *map, rulong index);
 
 rlong r_map_first(rmap_t *map);
 rlong r_map_last(rmap_t *map);
index 26344ca..bc467ba 100644 (file)
@@ -167,7 +167,7 @@ rpointer r_zmalloc(rsize_t size)
 }
 
 
-rpointer r_memset(rpointer s, rint c, rsize_t n)
+rpointer r_memset(rpointer s, rinteger c, rsize_t n)
 {
        return memset((void*)s, (int)c, (size_t)n);
 }
index 43183ac..d480fe5 100644 (file)
@@ -14,7 +14,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, rint c, rsize_t n);
+rpointer r_memset(rpointer s, rinteger 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 ba0849f..d3b7334 100644 (file)
@@ -7,13 +7,13 @@
 #include "rmem.h"
 
 
-rint r_strcmp(const rchar *s1, const rchar *s2)
+rinteger r_strcmp(const rchar *s1, const rchar *s2)
 {
        return strcmp(s1, s2);
 }
 
 
-rint r_strncmp(const rchar *s1, const rchar *s2, rsize_t n)
+rinteger r_strncmp(const rchar *s1, const rchar *s2, rsize_t n)
 {
        int ret = strncmp(s1, s2, (size_t)n);
        return ret;
@@ -40,7 +40,7 @@ rchar *r_strstr(const rchar *haystack, const rchar *needle)
 }
 
 
-rchar *r_strchr(const rchar *s, rint c)
+rchar *r_strchr(const rchar *s, rinteger c)
 {
        return strchr(s, c);
 }
@@ -90,7 +90,7 @@ rchar *r_strndup(const rchar *s, rsize_t size)
 }
 
 
-rstr_t *r_rstrdup(const rchar *s, ruint size)
+rstr_t *r_rstrdup(const rchar *s, ruinteger size)
 {
        rsize_t allocsize = sizeof(rstr_t) + size + sizeof(rchar);
        rstr_t *d = (rstr_t*)r_malloc(allocsize);
@@ -105,7 +105,7 @@ rstr_t *r_rstrdup(const rchar *s, ruint size)
 }
 
 
-rint r_vsnprintf(rchar *str, ruint size, const rchar *format, va_list ap)
+rinteger r_vsnprintf(rchar *str, ruinteger size, const rchar *format, va_list ap)
 {
        return vsnprintf(str, size, format, ap);
 }
@@ -117,13 +117,13 @@ rchar *r_strcat(rchar *dest, const rchar *src)
 }
 
 
-rchar *r_strncat(rchar *dest, const rchar *src, ruint n)
+rchar *r_strncat(rchar *dest, const rchar *src, ruinteger n)
 {
        return strncat(dest, src, n);
 }
 
 
-rint r_snprintf(rchar *str, ruint size, const rchar *format, ...)
+rinteger r_snprintf(rchar *str, ruinteger size, const rchar *format, ...)
 {
        va_list ap;
        int ret;
@@ -135,7 +135,7 @@ rint r_snprintf(rchar *str, ruint size, const rchar *format, ...)
 }
 
 
-rint r_printf(const rchar *format, ...)
+rinteger r_printf(const rchar *format, ...)
 {
        va_list ap;
        int ret;
@@ -147,13 +147,13 @@ rint r_printf(const rchar *format, ...)
 }
 
 
-rulong r_strtoul(const rchar *nptr, rchar **endptr, rint base)
+rulong r_strtoul(const rchar *nptr, rchar **endptr, rinteger base)
 {
        return strtoul(nptr, endptr,base);
 }
 
 
-rlong r_strtol(const rchar *s, rchar **endptr, rint base)
+rlong r_strtol(const rchar *s, rchar **endptr, rinteger base)
 {
        return strtol(s, endptr, base);
 }
@@ -264,7 +264,7 @@ rstring_t *r_string_create_from_ansistr(const rchar *str)
 rstring_t *r_string_create_from_double(rdouble d)
 {
        char temp[128];
-       rint size;
+       rinteger size;
 
        r_memset(temp, 0, sizeof(temp));
        size = r_snprintf(temp, sizeof(temp) - 1, "%f", d);
@@ -279,7 +279,7 @@ rstring_t *r_string_create_from_double(rdouble d)
 rstring_t *r_string_create_from_long(rlong l)
 {
        char temp[128];
-       rint size;
+       rinteger size;
 
        r_memset(temp, 0, sizeof(temp));
        size = r_snprintf(temp, sizeof(temp) - 1, "%ld", l);
@@ -290,7 +290,7 @@ rstring_t *r_string_create_from_long(rlong l)
 }
 
 
-rstring_t *r_string_create_strsize(const rchar *str, ruint size)
+rstring_t *r_string_create_strsize(const rchar *str, ruinteger size)
 {
        rstr_t rstr;
 
index 9eeb1c2..0367f8c 100644 (file)
@@ -20,26 +20,26 @@ typedef struct rstr_s {
 } rstr_t;
 
 
-rint r_strcmp(const rchar *s1, const rchar *s2);
-rint r_strncmp(const rchar *s1, const rchar *s2, rsize_t n);
+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, rint c);
+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, ruint n);
-rint r_snprintf(rchar *str, ruint size, const rchar *format, ...);
-rint r_printf(const rchar *format, ...);
+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, ...);
 
-rulong r_strtoul(const rchar *nptr, rchar **endptr, rint base);
-rlong r_strtol(const rchar *s, rchar **endptr, rint base);
+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);
 
-rstr_t *r_rstrdup(const rchar *s, ruint size);
+rstr_t *r_rstrdup(const rchar *s, ruinteger size);
 
 
 typedef struct rstring_s {
@@ -54,7 +54,7 @@ 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, ruint size);
+rstring_t *r_string_create_strsize(const char *str, ruinteger 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 d469b22..826dd6f 100644 (file)
@@ -21,9 +21,9 @@
 #include "rutf.h"
 
 
-rint r_utf8_mbtowc(ruint32 *pwc, const ruchar *input, const ruchar *end)
+rinteger r_utf8_mbtowc(ruint32 *pwc, const ruchar *input, const ruchar *end)
 {
-       rint n;
+       rinteger n;
        ruchar c;
 
        if (input >= end) {
@@ -35,7 +35,7 @@ rint r_utf8_mbtowc(ruint32 *pwc, const ruchar *input, const ruchar *end)
                *pwc = c;
                return 1;
        }
-       n = (rint)(end - input);
+       n = (rinteger)(end - input);
        if (c == 0xC0 || c == 0xC1 || (c >= 0xF5 && c <= 0xFF))
                goto error;
        if ((c >> 5) == 6) {
@@ -64,7 +64,7 @@ error:
 }
 
 
-rint r_utf8_wctomb(ruint32 wc, ruchar *output, ruint32 size)
+rinteger r_utf8_wctomb(ruint32 wc, ruchar *output, ruint32 size)
 {
        ruint32 count;
        if (wc <= 0x007F)
@@ -99,9 +99,9 @@ rint r_utf8_wctomb(ruint32 wc, ruchar *output, ruint32 size)
 }
 
 
-rint r_utf16_mbtowc(ruint32 *pwc, const ruchar *s, const ruchar *end)
+rinteger r_utf16_mbtowc(ruint32 *pwc, const ruchar *s, const ruchar *end)
 {
-       rint n = (rint)(end - s);
+       rinteger n = (rinteger)(end - s);
        ruint32 wc1, wc2;
 
        if (s >= end) {
@@ -134,7 +134,7 @@ error:
 }
 
 
-rint r_utf16_wctomb(ruint32 wc, ruchar *output, ruint32 size)
+rinteger r_utf16_wctomb(ruint32 wc, ruchar *output, ruint32 size)
 {
        ruint32 wc1, wc2;
 
index f4d31a5..d5e55cd 100644 (file)
@@ -28,10 +28,10 @@ extern "C" {
 #endif
 
 
-rint r_utf8_mbtowc(ruint32 *pwc, const ruchar *input, const ruchar *end);
-rint r_utf8_wctomb(ruint32 wc, ruchar *output, ruint32 size);
-rint r_utf16_mbtowc(ruint32 *pwc, const ruchar *s, const ruchar *end);
-rint r_utf16_wctomb(ruint32 wc, ruchar *output, ruint32 size);
+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);
 
 
 #ifdef __cplusplus
index d37b923..5c76074 100644 (file)
@@ -129,7 +129,7 @@ void rpa_compiler_reference_mop_s(rpa_compiler_t *co, const rchar *name)
 }
 
 
-void rpa_compiler_index_reference(rpa_compiler_t *co, rulong index, ruint qflag)
+void rpa_compiler_index_reference(rpa_compiler_t *co, rulong index, ruinteger qflag)
 {
        if (qflag == RPA_MATCH_OPTIONAL) {
                rpa_compiler_index_reference_opt(co, index);
@@ -143,13 +143,13 @@ void rpa_compiler_index_reference(rpa_compiler_t *co, rulong index, ruint qflag)
 }
 
 
-void rpa_compiler_reference(rpa_compiler_t *co, const rchar *name, rsize_t namesize, ruint qflag)
+void rpa_compiler_reference(rpa_compiler_t *co, const rchar *name, rsize_t namesize, ruinteger 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, ruint qflag)
+void rpa_compiler_reference_s(rpa_compiler_t *co, const rchar *name, ruinteger qflag)
 {
        rpa_compiler_reference(co, name, r_strlen(name), qflag);
 }
@@ -181,7 +181,7 @@ void rpa_compiler_destroy(rpa_compiler_t *co)
 }
 
 
-rpa_rulepref_t *rpa_compiler_rulepref_lookup(rpa_compiler_t *co, const rchar *name, ruint namesize)
+rpa_rulepref_t *rpa_compiler_rulepref_lookup(rpa_compiler_t *co, const rchar *name, ruinteger namesize)
 {
        rlong index = r_harray_lookup(co->ruleprefs, name, namesize);
        if (index < 0)
@@ -196,7 +196,7 @@ rpa_rulepref_t *rpa_compiler_rulepref_lookup_s(rpa_compiler_t *co, const rchar *
 }
 
 
-rpa_rulepref_t *rpa_compiler_rulepref(rpa_compiler_t *co, const rchar *name, ruint namesize)
+rpa_rulepref_t *rpa_compiler_rulepref(rpa_compiler_t *co, const rchar *name, ruinteger namesize)
 {
        rlong index = r_harray_lookup(co->ruleprefs, name, namesize);
        if (index < 0)
@@ -211,7 +211,7 @@ rpa_rulepref_t *rpa_compiler_rulepref_s(rpa_compiler_t *co, const rchar *name)
 }
 
 
-void rpa_compiler_rulepref_set_ruleuid(rpa_compiler_t *co, const rchar *name, ruint namesize, rlong ruleuid)
+void rpa_compiler_rulepref_set_ruleuid(rpa_compiler_t *co, const rchar *name, ruinteger namesize, rlong ruleuid)
 {
        rpa_rulepref_t *rulepref = rpa_compiler_rulepref(co, name, namesize);
 
@@ -226,7 +226,7 @@ void rpa_compiler_rulepref_set_ruleuid_s(rpa_compiler_t *co, const rchar *name,
 }
 
 
-void rpa_compiler_rulepref_set_flag(rpa_compiler_t *co, const rchar *name, ruint namesize, rulong flag)
+void rpa_compiler_rulepref_set_flag(rpa_compiler_t *co, const rchar *name, ruinteger namesize, rulong flag)
 {
        rpa_rulepref_t *rulepref = rpa_compiler_rulepref(co, name, namesize);
 
@@ -241,7 +241,7 @@ void rpa_compiler_rulepref_set_flag_s(rpa_compiler_t *co, const rchar *name, rul
 }
 
 
-void rpa_compiler_rulepref_clear_flag(rpa_compiler_t *co, const rchar *name, ruint namesize, rulong flag)
+void rpa_compiler_rulepref_clear_flag(rpa_compiler_t *co, const rchar *name, ruinteger namesize, rulong flag)
 {
        rpa_rulepref_t *rulepref = rpa_compiler_rulepref(co, name, namesize);
 
@@ -256,7 +256,7 @@ void rpa_compiler_rulepref_clear_flag_s(rpa_compiler_t *co, const rchar *name, r
 }
 
 
-void rpa_compiler_rulepref_set_ruleuid_flags(rpa_compiler_t *co, const rchar *name, ruint namesize, rlong ruleuid, rulong flags)
+void rpa_compiler_rulepref_set_ruleuid_flags(rpa_compiler_t *co, const rchar *name, ruinteger namesize, rlong ruleuid, rulong flags)
 {
        rpa_rulepref_t *rulepref = rpa_compiler_rulepref(co, name, namesize);
 
@@ -302,7 +302,7 @@ rlong rpa_compiler_addblob_s(rpa_compiler_t *co, rlong ruleid, rlong ruleuid, ru
 }
 
 
-rint rpa_compiler_loop_begin(rpa_compiler_t *co, const rchar *name, ruint namesize)
+rinteger rpa_compiler_loop_begin(rpa_compiler_t *co, const rchar *name, ruinteger namesize)
 {
        rpa_ruledef_t exp;
        rlong ruleuid = RPA_RECORD_INVALID_UID;
@@ -336,13 +336,13 @@ rint rpa_compiler_loop_begin(rpa_compiler_t *co, const rchar *name, ruint namesi
 }
 
 
-rint rpa_compiler_loop_begin_s(rpa_compiler_t *co, const rchar *name)
+rinteger rpa_compiler_loop_begin_s(rpa_compiler_t *co, const rchar *name)
 {
        return rpa_compiler_loop_begin(co, name, r_strlen(name));
 }
 
 
-rint rpa_compiler_loop_end(rpa_compiler_t *co)
+rinteger rpa_compiler_loop_end(rpa_compiler_t *co)
 {
        rpa_ruledef_t exp = r_array_pop(co->expressions, rpa_ruledef_t);
 
@@ -383,7 +383,7 @@ rint rpa_compiler_loop_end(rpa_compiler_t *co)
 }
 
 
-rint rpa_compiler_rule_begin(rpa_compiler_t *co, const rchar *name, ruint namesize)
+rinteger rpa_compiler_rule_begin(rpa_compiler_t *co, const rchar *name, ruinteger namesize)
 {
        rpa_ruledef_t exp;
        rlong ruleuid = RPA_RECORD_INVALID_UID;
@@ -414,13 +414,13 @@ rint rpa_compiler_rule_begin(rpa_compiler_t *co, const rchar *name, ruint namesi
 }
 
 
-rint rpa_compiler_rule_begin_s(rpa_compiler_t *co, const rchar *name)
+rinteger rpa_compiler_rule_begin_s(rpa_compiler_t *co, const rchar *name)
 {
        return rpa_compiler_rule_begin(co, name, r_strlen(name));
 }
 
 
-rint rpa_compiler_rule_end(rpa_compiler_t *co)
+rinteger rpa_compiler_rule_end(rpa_compiler_t *co)
 {
        rpa_ruledef_t exp = r_array_pop(co->expressions, rpa_ruledef_t);
 
@@ -458,7 +458,7 @@ rint rpa_compiler_rule_end(rpa_compiler_t *co)
 }
 
 
-rint rpa_compiler_inlinerule_begin(rpa_compiler_t *co, const rchar *name, ruint namesize, ruint flags)
+rinteger rpa_compiler_inlinerule_begin(rpa_compiler_t *co, const rchar *name, ruinteger namesize, ruinteger flags)
 {
        rpa_ruledef_t exp;
        rlong ruleuid = RPA_RECORD_INVALID_UID;
@@ -488,13 +488,13 @@ rint rpa_compiler_inlinerule_begin(rpa_compiler_t *co, const rchar *name, ruint
 }
 
 
-rint rpa_compiler_inlinerule_begin_s(rpa_compiler_t *co, const rchar *name, ruint flags)
+rinteger rpa_compiler_inlinerule_begin_s(rpa_compiler_t *co, const rchar *name, ruinteger flags)
 {
        return rpa_compiler_inlinerule_begin(co, name, r_strlen(name), flags);
 }
 
 
-rint rpa_compiler_inlinerule_end(rpa_compiler_t *co)
+rinteger rpa_compiler_inlinerule_end(rpa_compiler_t *co)
 {
        rpa_ruledef_t exp = r_array_pop(co->expressions, rpa_ruledef_t);
 
@@ -525,7 +525,7 @@ rint rpa_compiler_inlinerule_end(rpa_compiler_t *co)
 }
 
 
-rint rpa_compiler_exp_begin(rpa_compiler_t *co, ruint flags)
+rinteger rpa_compiler_exp_begin(rpa_compiler_t *co, ruinteger flags)
 {
        rpa_ruledef_t exp;
 
@@ -542,7 +542,7 @@ rint rpa_compiler_exp_begin(rpa_compiler_t *co, ruint flags)
 }
 
 
-rint rpa_compiler_exp_end(rpa_compiler_t *co)
+rinteger rpa_compiler_exp_end(rpa_compiler_t *co)
 {
        rpa_ruledef_t exp = r_array_pop(co->expressions, rpa_ruledef_t);
 
@@ -563,7 +563,7 @@ rint rpa_compiler_exp_end(rpa_compiler_t *co)
 }
 
 
-rint rpa_compiler_altexp_begin(rpa_compiler_t *co, ruint flags)
+rinteger rpa_compiler_altexp_begin(rpa_compiler_t *co, ruinteger flags)
 {
        rpa_ruledef_t exp;
 
@@ -580,7 +580,7 @@ rint rpa_compiler_altexp_begin(rpa_compiler_t *co, ruint flags)
 }
 
 
-rint rpa_compiler_altexp_end(rpa_compiler_t *co)
+rinteger rpa_compiler_altexp_end(rpa_compiler_t *co)
 {
        rpa_ruledef_t exp = r_array_pop(co->expressions, rpa_ruledef_t);
 
@@ -601,7 +601,7 @@ rint rpa_compiler_altexp_end(rpa_compiler_t *co)
 }
 
 
-rint rpa_compiler_branch_begin(rpa_compiler_t *co, ruint flags)
+rinteger rpa_compiler_branch_begin(rpa_compiler_t *co, ruinteger flags)
 {
        rpa_ruledef_t exp;
 
@@ -619,7 +619,7 @@ rint rpa_compiler_branch_begin(rpa_compiler_t *co, ruint flags)
 }
 
 
-rint rpa_compiler_branch_end(rpa_compiler_t *co)
+rinteger rpa_compiler_branch_end(rpa_compiler_t *co)
 {
        rpa_ruledef_t exp = r_array_pop(co->expressions, rpa_ruledef_t);
 
@@ -642,7 +642,7 @@ rint rpa_compiler_branch_end(rpa_compiler_t *co)
 }
 
 
-rint rpa_compiler_nonloopybranch_begin(rpa_compiler_t *co, ruint flags)
+rinteger rpa_compiler_nonloopybranch_begin(rpa_compiler_t *co, ruinteger flags)
 {
        rpa_ruledef_t exp;
 
@@ -662,7 +662,7 @@ rint rpa_compiler_nonloopybranch_begin(rpa_compiler_t *co, ruint flags)
 }
 
 
-rint rpa_compiler_nonloopybranch_end(rpa_compiler_t *co)
+rinteger rpa_compiler_nonloopybranch_end(rpa_compiler_t *co)
 {
        rpa_ruledef_t exp = r_array_pop(co->expressions, rpa_ruledef_t);
 
@@ -686,7 +686,7 @@ rint rpa_compiler_nonloopybranch_end(rpa_compiler_t *co)
 }
 
 
-rint rpa_compiler_class_begin(rpa_compiler_t *co, ruint flags)
+rinteger rpa_compiler_class_begin(rpa_compiler_t *co, ruinteger flags)
 {
        rpa_ruledef_t exp;
 
@@ -703,7 +703,7 @@ rint rpa_compiler_class_begin(rpa_compiler_t *co, ruint flags)
 }
 
 
-rint rpa_compiler_class_end(rpa_compiler_t *co)
+rinteger rpa_compiler_class_end(rpa_compiler_t *co)
 {
        rpa_ruledef_t exp = r_array_pop(co->expressions, rpa_ruledef_t);
 
@@ -723,7 +723,7 @@ rint rpa_compiler_class_end(rpa_compiler_t *co)
 }
 
 
-rint rpa_compiler_notexp_begin(rpa_compiler_t *co, ruint flags)
+rinteger rpa_compiler_notexp_begin(rpa_compiler_t *co, ruinteger flags)
 {
        rpa_ruledef_t exp;
 
@@ -741,7 +741,7 @@ rint rpa_compiler_notexp_begin(rpa_compiler_t *co, ruint flags)
 }
 
 
-rint rpa_compiler_notexp_end(rpa_compiler_t *co)
+rinteger rpa_compiler_notexp_end(rpa_compiler_t *co)
 {
        rpa_ruledef_t exp = r_array_pop(co->expressions, rpa_ruledef_t);
 
@@ -763,7 +763,7 @@ rint rpa_compiler_notexp_end(rpa_compiler_t *co)
 }
 
 
-rint rpa_compiler_negexp_begin(rpa_compiler_t *co, ruint flags)
+rinteger rpa_compiler_negexp_begin(rpa_compiler_t *co, ruinteger flags)
 {
        rpa_ruledef_t exp;
 
@@ -782,7 +782,7 @@ rint rpa_compiler_negexp_begin(rpa_compiler_t *co, ruint flags)
 }
 
 
-rint rpa_compiler_negexp_end(rpa_compiler_t *co)
+rinteger rpa_compiler_negexp_end(rpa_compiler_t *co)
 {
        rpa_ruledef_t exp = r_array_pop(co->expressions, rpa_ruledef_t);
 
index 3530621..31a1648 100644 (file)
@@ -37,8 +37,8 @@ typedef struct rpa_ruledef_s {
        rlong successidx;
        rlong failidx;
        rlong againidx;
-       ruint ruleuid;
-       ruint flags;
+       ruinteger ruleuid;
+       ruinteger flags;
        rpa_rulepref_t *rulepref;
 } rpa_ruledef_t;
 
@@ -58,60 +58,60 @@ 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);
 
-rint rpa_compiler_loop_begin(rpa_compiler_t *co, const rchar *name, ruint namesize);
-rint rpa_compiler_loop_begin_s(rpa_compiler_t *co, const rchar *name);
-rint rpa_compiler_loop_end(rpa_compiler_t *co);
+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);
 
-rint rpa_compiler_rule_begin(rpa_compiler_t *co, const rchar *name, ruint namesize);
-rint rpa_compiler_rule_begin_s(rpa_compiler_t *co, const rchar *name);
-rint rpa_compiler_rule_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);
 
-rint rpa_compiler_inlinerule_begin(rpa_compiler_t *co, const rchar *name, ruint namesize, ruint flags);
-rint rpa_compiler_inlinerule_begin_s(rpa_compiler_t *co, const rchar *name, ruint flags);
-rint rpa_compiler_inlinerule_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);
 
-rint rpa_compiler_exp_begin(rpa_compiler_t *co, ruint flags);
-rint rpa_compiler_exp_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);
 
-rint rpa_compiler_altexp_begin(rpa_compiler_t *co, ruint flags);
-rint rpa_compiler_altexp_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);
 
-rint rpa_compiler_branch_begin(rpa_compiler_t *co, ruint flags);
-rint rpa_compiler_branch_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);
 
-rint rpa_compiler_nonloopybranch_begin(rpa_compiler_t *co, ruint flags);
-rint rpa_compiler_nonloopybranch_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);
 
-rint rpa_compiler_class_begin(rpa_compiler_t *co, ruint flags);
-rint rpa_compiler_class_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);
 
-rint rpa_compiler_notexp_begin(rpa_compiler_t *co, ruint flags);
-rint rpa_compiler_notexp_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, ruint qflag);
+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, ruint qflag);
+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, ruint qflag);
+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_ruleuid(rpa_compiler_t *co, const rchar *name, ruint namesize, rlong ruleuid);
+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, ruint namesize, rulong flag);
+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, ruint namesize, 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_ruleuid_flags(rpa_compiler_t *co, const rchar *name, ruint namesize, rlong ruleuid, rulong flags);
-void rpa_compiler_rulepref_clear_flag(rpa_compiler_t *co, const rchar *name, ruint namesize, rulong flag);
+void rpa_compiler_rulepref_set_ruleuid_flags(rpa_compiler_t *co, const rchar *name, ruinteger namesize, rlong ruleuid, rulong flags);
+void rpa_compiler_rulepref_clear_flag(rpa_compiler_t *co, const rchar *name, ruinteger namesize, rulong flag);
 void rpa_compiler_rulepref_set_ruleuid_flags_s(rpa_compiler_t *co, const rchar *name, rlong ruleuid, rulong flags);
 #ifdef __cplusplus
 }
index 571e2f8..c1dfe87 100644 (file)
@@ -10,7 +10,7 @@
 #include "rmem.h"
 #include "rutf.h"
 
-typedef rint (*rpa_dbex_recordhandler)(rpadbex_t *dbex, rlong rec);
+typedef rinteger (*rpa_dbex_recordhandler)(rpadbex_t *dbex, rlong rec);
 
 #define RPA_RULEINFO_NONE 0
 #define RPA_RULEINFO_NAMEDRULE 1
@@ -52,14 +52,14 @@ struct rpadbex_s {
 
 static rparecord_t *rpa_dbex_rulerecord(rpadbex_t *dbex, rparule_t rid);
 static rparecord_t *rpa_dbex_record(rpadbex_t *dbex, rlong rec);
-static rint rpa_dbex_rulename(rpadbex_t *dbex, rlong rec, const rchar **name, rsize_t *namesize);
-static rint rpa_parseinfo_loopdetect(rpadbex_t *dbex, rlong parent, rlong loopto);
+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 rint rpa_dbex_findinlined(rpadbex_t *dbex, rlong startrec);
-static rint rpa_dbex_playchildrecords(rpadbex_t *dbex, rlong rec);
-static rint rpa_dbex_playreversechildrecords(rpadbex_t *dbex, rlong rec);
-static rint rpa_dbex_playrecord(rpadbex_t *dbex, rlong rec);
-static rint rpa_dbex_rh_default(rpadbex_t *dbex, rlong rec);
+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);
 
 
 void rpa_dbex_debug_recordhead(rpadbex_t *dbex, rlong rec)
@@ -89,7 +89,7 @@ void rpa_dbex_debug_recordtail(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rint rpa_dbex_rh_default(rpadbex_t *dbex, rlong rec)
+static rinteger rpa_dbex_rh_default(rpadbex_t *dbex, rlong rec)
 {
        rarray_t *records = dbex->records;
        rparecord_t *prec;
@@ -111,7 +111,7 @@ static rint rpa_dbex_rh_default(rpadbex_t *dbex, rlong rec)
 
 
 
-static rint rpa_dbex_playrecord(rpadbex_t *dbex, rlong rec)
+static rinteger rpa_dbex_playrecord(rpadbex_t *dbex, rlong rec)
 {
        rarray_t *records = dbex->records;
        rparecord_t *prec = (rparecord_t *)r_array_slot(records, rec);
@@ -123,7 +123,7 @@ static rint rpa_dbex_playrecord(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rint rpa_dbex_playchildrecords(rpadbex_t *dbex, rlong rec)
+static rinteger rpa_dbex_playchildrecords(rpadbex_t *dbex, rlong rec)
 {
        rlong child;
        rarray_t *records = dbex->records;
@@ -136,7 +136,7 @@ static rint rpa_dbex_playchildrecords(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rint rpa_dbex_playreversechildrecords(rpadbex_t *dbex, rlong rec)
+static rinteger rpa_dbex_playreversechildrecords(rpadbex_t *dbex, rlong rec)
 {
        rlong child;
        rarray_t *records = dbex->records;
@@ -192,7 +192,7 @@ static rlong rpa_dbex_getmatchspecialchr(rulong matchtype)
 }
 
 
-static rint rpa_record2long(rparecord_t *prec, ruint32 *num)
+static rinteger rpa_record2long(rparecord_t *prec, ruint32 *num)
 {
        rchar *endptr = NULL;
        rchar buffer[64];
@@ -212,7 +212,7 @@ static rint rpa_record2long(rparecord_t *prec, ruint32 *num)
 }
 
 
-static rint rpa_dbex_rh_uid(rpadbex_t *dbex, rlong rec)
+static rinteger rpa_dbex_rh_uid(rpadbex_t *dbex, rlong rec)
 {
 /*
        const rchar *name = NULL;
@@ -281,7 +281,7 @@ static rint rpa_dbex_rh_uid(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rint rpa_dbex_rh_abort(rpadbex_t *dbex, rlong rec)
+static rinteger rpa_dbex_rh_abort(rpadbex_t *dbex, rlong rec)
 {
        const rchar *name = NULL;
        rsize_t namesize;
@@ -308,7 +308,7 @@ static rint rpa_dbex_rh_abort(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rint rpa_dbex_rh_emit(rpadbex_t *dbex, rlong rec)
+static rinteger rpa_dbex_rh_emit(rpadbex_t *dbex, rlong rec)
 {
        const rchar *name = NULL;
        rsize_t namesize;
@@ -351,7 +351,7 @@ static rint rpa_dbex_rh_emit(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rint rpa_dbex_rh_noemit(rpadbex_t *dbex, rlong rec)
+static rinteger rpa_dbex_rh_noemit(rpadbex_t *dbex, rlong rec)
 {
        const rchar *name = NULL;
        rsize_t namesize;
@@ -394,7 +394,7 @@ static rint rpa_dbex_rh_noemit(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rint rpa_dbex_setemit(rpadbex_t *dbex, rboolean emit)
+static rinteger rpa_dbex_setemit(rpadbex_t *dbex, rboolean emit)
 {
        rlong i;
        rpa_ruleinfo_t *info;
@@ -414,7 +414,7 @@ static rint rpa_dbex_setemit(rpadbex_t *dbex, rboolean emit)
 }
 
 
-static rint rpa_dbex_rh_emitall(rpadbex_t *dbex, rlong rec)
+static rinteger rpa_dbex_rh_emitall(rpadbex_t *dbex, rlong rec)
 {
        rarray_t *records = dbex->records;
        rparecord_t *prec;
@@ -447,7 +447,7 @@ static rint rpa_dbex_rh_emitall(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rint rpa_dbex_rh_emitnone(rpadbex_t *dbex, rlong rec)
+static rinteger rpa_dbex_rh_emitnone(rpadbex_t *dbex, rlong rec)
 {
        rarray_t *records = dbex->records;
        rparecord_t *prec;
@@ -479,7 +479,7 @@ static rint rpa_dbex_rh_emitnone(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rint rpa_dbex_rh_namedrule(rpadbex_t *dbex, rlong rec)
+static rinteger rpa_dbex_rh_namedrule(rpadbex_t *dbex, rlong rec)
 {
        const rchar *name = NULL;
        rsize_t namesize;
@@ -531,7 +531,7 @@ static rint rpa_dbex_rh_namedrule(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rint rpa_dbex_rh_anonymousrule(rpadbex_t *dbex, rlong rec)
+static rinteger rpa_dbex_rh_anonymousrule(rpadbex_t *dbex, rlong rec)
 {
        rarray_t *records = dbex->records;
        rparecord_t *prec = (rparecord_t *) r_array_slot(dbex->records, rec);
@@ -558,7 +558,7 @@ static rint rpa_dbex_rh_anonymousrule(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rint rpa_dbex_rh_char(rpadbex_t *dbex, rlong rec)
+static rinteger rpa_dbex_rh_char(rpadbex_t *dbex, rlong rec)
 {
        rparecord_t *prec;
        rarray_t *records = dbex->records;
@@ -586,7 +586,7 @@ static rint rpa_dbex_rh_char(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rint rpa_dbex_rh_specialchar(rpadbex_t *dbex, rlong rec)
+static rinteger rpa_dbex_rh_specialchar(rpadbex_t *dbex, rlong rec)
 {
        ruint32 wc = 0;
        rarray_t *records = dbex->records;
@@ -631,7 +631,7 @@ static rint rpa_dbex_rh_specialchar(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rint rpa_dbex_rh_cls(rpadbex_t *dbex, rlong rec)
+static rinteger rpa_dbex_rh_cls(rpadbex_t *dbex, rlong rec)
 {
        rarray_t *records = dbex->records;
        rparecord_t *prec;
@@ -669,7 +669,7 @@ static rint rpa_dbex_rh_cls(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rint rpa_dbex_rh_clschar(rpadbex_t *dbex, rlong rec)
+static rinteger rpa_dbex_rh_clschar(rpadbex_t *dbex, rlong rec)
 {
        ruint32 wc = 0;
        rarray_t *records = dbex->records;
@@ -714,7 +714,7 @@ static rint rpa_dbex_rh_clschar(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rint rpa_dbex_rh_minexp(rpadbex_t *dbex, rlong rec)
+static rinteger rpa_dbex_rh_minexp(rpadbex_t *dbex, rlong rec)
 {
        rarray_t *records = dbex->records;
        rparecord_t *prec;
@@ -737,7 +737,7 @@ static rint rpa_dbex_rh_minexp(rpadbex_t *dbex, rlong rec)
        return 0;
 }
 
-static rint rpa_dbex_rh_exp(rpadbex_t *dbex, rlong rec)
+static rinteger rpa_dbex_rh_exp(rpadbex_t *dbex, rlong rec)
 {
        rarray_t *records = dbex->records;
        rparecord_t *prec;
@@ -776,7 +776,7 @@ static rint rpa_dbex_rh_exp(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rint rpa_dbex_rh_orop(rpadbex_t *dbex, rlong rec)
+static rinteger rpa_dbex_rh_orop(rpadbex_t *dbex, rlong rec)
 {
        rarray_t *records = dbex->records;
        rparecord_t *prec;
@@ -815,7 +815,7 @@ static rint rpa_dbex_rh_orop(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rint rpa_dbex_rh_norop(rpadbex_t *dbex, rlong rec)
+static rinteger rpa_dbex_rh_norop(rpadbex_t *dbex, rlong rec)
 {
        rarray_t *records = dbex->records;
        rparecord_t *prec;
@@ -854,7 +854,7 @@ static rint rpa_dbex_rh_norop(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rint rpa_dbex_rh_notop(rpadbex_t *dbex, rlong rec)
+static rinteger rpa_dbex_rh_notop(rpadbex_t *dbex, rlong rec)
 {
        rarray_t *records = dbex->records;
        rparecord_t *prec;
@@ -893,7 +893,7 @@ static rint rpa_dbex_rh_notop(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rint rpa_dbex_rh_range(rpadbex_t *dbex, rlong rec)
+static rinteger rpa_dbex_rh_range(rpadbex_t *dbex, rlong rec)
 {
        rarray_t *records = dbex->records;
        rparecord_t *prec;
@@ -939,7 +939,7 @@ static rint rpa_dbex_rh_range(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rint rpa_dbex_rh_numrange(rpadbex_t *dbex, rlong rec)
+static rinteger rpa_dbex_rh_numrange(rpadbex_t *dbex, rlong rec)
 {
        rarray_t *records = dbex->records;
        rparecord_t *prec;
@@ -1002,7 +1002,7 @@ static rint rpa_dbex_rh_numrange(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rint rpa_dbex_rh_clsnum(rpadbex_t *dbex, rlong rec)
+static rinteger rpa_dbex_rh_clsnum(rpadbex_t *dbex, rlong rec)
 {
        rarray_t *records = dbex->records;
        rparecord_t *prec;
@@ -1050,7 +1050,7 @@ static rint rpa_dbex_rh_clsnum(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rint rpa_dbex_rh_beginchar(rpadbex_t *dbex, rlong rec)
+static rinteger rpa_dbex_rh_beginchar(rpadbex_t *dbex, rlong rec)
 {
        rarray_t *records = dbex->records;
        rparecord_t *prec;
@@ -1094,7 +1094,7 @@ static rint rpa_dbex_rh_beginchar(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rint rpa_dbex_rh_endchar(rpadbex_t *dbex, rlong rec)
+static rinteger rpa_dbex_rh_endchar(rpadbex_t *dbex, rlong rec)
 {
        rarray_t *records = dbex->records;
        rparecord_t *prec;
@@ -1137,7 +1137,7 @@ static rint rpa_dbex_rh_endchar(rpadbex_t *dbex, rlong rec)
 }
 
 
-static rint rpa_dbex_rh_branch(rpadbex_t *dbex, rlong rec)
+static rinteger rpa_dbex_rh_branch(rpadbex_t *dbex, rlong rec)
 {
        rarray_t *records = dbex->records;
        rparecord_t *prec;
@@ -1209,7 +1209,7 @@ static void rpa_dbex_rh_loopref(rpadbex_t *dbex, rparecord_t *prec)
 }
 
 
-static rint rpa_dbex_rh_aref(rpadbex_t *dbex, rlong rec)
+static rinteger rpa_dbex_rh_aref(rpadbex_t *dbex, rlong rec)
 {
        const rchar *name = NULL;
        rsize_t namesize;
@@ -1385,12 +1385,12 @@ void rpa_dbex_destroy(rpadbex_t *dbex)
 }
 
 
-static rint rpa_parseinfo_loopdetect_do(rpadbex_t *dbex, rlong parent, rlong loopto, rint inderction)
+static rinteger rpa_parseinfo_loopdetect_do(rpadbex_t *dbex, rlong parent, rlong loopto, rinteger inderction)
 {
        rsize_t namesiz;
        const rchar *name;
        rlong i;
-       rint ret = 0;
+       rinteger ret = 0;
        rparecord_t *prec;
 
        if (parent == loopto && inderction > 0)
@@ -1443,7 +1443,7 @@ static rint rpa_parseinfo_loopdetect_do(rpadbex_t *dbex, rlong parent, rlong loo
 }
 
 
-static rint rpa_parseinfo_loopdetect(rpadbex_t *dbex, rlong parent, rlong loopto)
+static rinteger rpa_parseinfo_loopdetect(rpadbex_t *dbex, rlong parent, rlong loopto)
 {
        if (parent != loopto) {
                /*
@@ -1470,7 +1470,7 @@ static void rpa_parseinfo_marklooppath(rpadbex_t *dbex, rlong parent)
 }
 
 
-static rint rpa_parseinfo_rule_checkforloop(rpadbex_t *dbex, const char *name, rsize_t namesize, rlong loopto)
+static rinteger rpa_parseinfo_rule_checkforloop(rpadbex_t *dbex, const char *name, rsize_t namesize, rlong loopto)
 {
        rpa_ruleinfo_t *info = info = (rpa_ruleinfo_t *)r_harray_get(dbex->rules, rpa_dbex_lookup(dbex, name, namesize));
 
@@ -1482,7 +1482,7 @@ static rint rpa_parseinfo_rule_checkforloop(rpadbex_t *dbex, const char *name, r
 
 static void rpa_dbex_buildloopinfo(rpadbex_t *dbex)
 {
-       ruint i, p;
+       ruinteger i, p;
        rharray_t *rules = dbex->rules;
        rpa_ruleinfo_t *info;
 
@@ -1514,7 +1514,7 @@ static void rpa_dbex_buildruleinfo(rpadbex_t *dbex)
 {
        rparecord_t *rec;
        rpa_ruleinfo_t info;
-       ruint nrecords;
+       ruinteger nrecords;
        rlong i;
        const rchar *name = NULL;
        rsize_t namesize = 0;
@@ -1618,7 +1618,7 @@ static rlong rpa_dbex_copy_handler(rarray_t *records, rlong rec, rpointer userda
 
 static void rpa_dbex_copyrecords(rpadbex_t *dbex)
 {
-       rint i;
+       rinteger 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))
@@ -1659,7 +1659,7 @@ static rparecord_t *rpa_dbex_rulerecord(rpadbex_t *dbex, rparule_t rid)
 }
 
 
-static rint rpa_dbex_rulename(rpadbex_t *dbex, rlong rec, const rchar **name, rsize_t *namesize)
+static rinteger rpa_dbex_rulename(rpadbex_t *dbex, rlong rec, const rchar **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))
@@ -1670,7 +1670,7 @@ static rint rpa_dbex_rulename(rpadbex_t *dbex, rlong rec, const rchar **name, rs
 }
 
 
-rint rpa_dbex_open(rpadbex_t *dbex)
+rinteger rpa_dbex_open(rpadbex_t *dbex)
 {
        if (!dbex)
                return -1;
@@ -1725,10 +1725,10 @@ rlong rpa_dbex_load_s(rpadbex_t *dbex, const rchar *rules)
 }
 
 
-void rpa_dbex_dumpindented(rpadbex_t *dbex, rlong rec, rint level, const rchar *rulelabel)
+void rpa_dbex_dumpindented(rpadbex_t *dbex, rlong rec, rinteger level, const rchar *rulelabel)
 {
        rchar buffer[1024];
-       rint i, size;
+       rinteger i, size;
        rparecord_t *prec = rpa_dbex_record(dbex, rpa_recordtree_get(dbex->records, rec, RPA_RECORD_END));
 
        if (!prec)
@@ -1757,7 +1757,7 @@ static rlong rpa_dbex_firstinlined(rpadbex_t *dbex)
 }
 
 
-static rint rpa_dbex_findinlined(rpadbex_t *dbex, rlong startrec)
+static rinteger rpa_dbex_findinlined(rpadbex_t *dbex, rlong startrec)
 {
        rlong i;
        for (i = 0; i < r_array_length(dbex->inlinestack); i++) {
@@ -1768,7 +1768,7 @@ static rint rpa_dbex_findinlined(rpadbex_t *dbex, rlong startrec)
 }
 
 
-static void rpa_dbex_dumptree_do(rpadbex_t *dbex, rlong rec, rint level)
+static void rpa_dbex_dumptree_do(rpadbex_t *dbex, rlong rec, rinteger level)
 {
        rparecord_t *prec = rpa_dbex_record(dbex, rec);
        if (prec && prec->ruleuid == RPA_PRODUCTION_RULENAME)
@@ -1776,7 +1776,7 @@ static void rpa_dbex_dumptree_do(rpadbex_t *dbex, rlong rec, rint level)
        if (prec && (prec->ruleuid == RPA_PRODUCTION_AREF || prec->ruleuid == RPA_PRODUCTION_CREF)) {
                const rchar *name = NULL;
                rsize_t namesize = 0;
-               rint loop = 0;
+               rinteger loop = 0;
                rpa_ruleinfo_t *info;
 
                if (rpa_dbex_rulename(dbex, rec, &name, &namesize) >= 0) {
@@ -1815,7 +1815,7 @@ static void rpa_dbex_dumptree_do(rpadbex_t *dbex, rlong rec, rint level)
 }
 
 
-rint rpa_dbex_dumptree(rpadbex_t *dbex, rparule_t rid)
+rinteger rpa_dbex_dumptree(rpadbex_t *dbex, rparule_t rid)
 {
        rpa_ruleinfo_t *info;
 
@@ -1840,9 +1840,9 @@ rint rpa_dbex_dumptree(rpadbex_t *dbex, rparule_t rid)
 }
 
 
-rint rpa_dbex_dumpproductions(rpadbex_t *dbex)
+rinteger rpa_dbex_dumpproductions(rpadbex_t *dbex)
 {
-       rint ret = 0;
+       rinteger ret = 0;
        rparule_t rid;
        rchar buffer[512];
 
@@ -1866,7 +1866,7 @@ rint rpa_dbex_dumpproductions(rpadbex_t *dbex)
 }
 
 
-rint rpa_dbex_dumprecords(rpadbex_t *dbex)
+rinteger rpa_dbex_dumprecords(rpadbex_t *dbex)
 {
        rlong i;
 
@@ -1883,7 +1883,7 @@ rint rpa_dbex_dumprecords(rpadbex_t *dbex)
 }
 
 
-rint rpa_dbex_dumpinfo(rpadbex_t *dbex)
+rinteger rpa_dbex_dumpinfo(rpadbex_t *dbex)
 {
        rlong i;
        rpa_ruleinfo_t *info;
@@ -1917,7 +1917,7 @@ rint rpa_dbex_dumpinfo(rpadbex_t *dbex)
 }
 
 
-rint rpa_dbex_dumpuids(rpadbex_t *dbex)
+rinteger rpa_dbex_dumpuids(rpadbex_t *dbex)
 {
        rlong i;
        rlong rec;
@@ -1958,7 +1958,7 @@ rint rpa_dbex_dumpuids(rpadbex_t *dbex)
 }
 
 
-rint rpa_dbex_dumpcode(rpadbex_t* dbex, rparule_t rid)
+rinteger rpa_dbex_dumpcode(rpadbex_t* dbex, rparule_t rid)
 {
        rpa_ruleinfo_t *info;
        if (!dbex)
@@ -2098,7 +2098,7 @@ const rchar *rpa_dbex_version()
 }
 
 
-static rint rpa_dbex_compile_rule(rpadbex_t *dbex, rparule_t rid)
+static rinteger rpa_dbex_compile_rule(rpadbex_t *dbex, rparule_t rid)
 {
        rlong codeoff;
        rpa_ruleinfo_t *info = (rpa_ruleinfo_t *)r_harray_get(dbex->rules, rid);
@@ -2115,7 +2115,7 @@ static rint rpa_dbex_compile_rule(rpadbex_t *dbex, rparule_t rid)
 }
 
 
-rint rpa_dbex_compile(rpadbex_t *dbex)
+rinteger rpa_dbex_compile(rpadbex_t *dbex)
 {
        rparule_t rid;
        rvm_codelabel_t *labelerr;
index 6e53a33..7175b7f 100644 (file)
@@ -116,7 +116,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.
  */
-rint rpa_dbex_open(rpadbex_t *dbex);
+rinteger rpa_dbex_open(rpadbex_t *dbex);
 
 
 /**
@@ -142,7 +142,7 @@ void rpa_dbex_close(rpadbex_t *dbex);
  *         Use \ref rpa_dbex_lasterror or \ref rpa_dbex_lasterrorinfo to retrieve the error
  *         information.
  */
-rint rpa_dbex_compile(rpadbex_t *dbex);
+rinteger rpa_dbex_compile(rpadbex_t *dbex);
 
 
 /**
@@ -325,14 +325,14 @@ rlong rpa_dbex_cfgget(rpadbex_t *dbex, rulong cfg);
 
 
 /**
- * \brief Print a BNF production in a tree format
+ * \brief Printeger a BNF production in a tree format
  *
  * Use \ref rpa_dbex_lookup to find the ID of a BNF production
  * \param dbex Pointer to \ref rpadbex_t object.
  * \param rid production ID.
  * \return Return 0 on success or negative if error occurred.
  */
-rint rpa_dbex_dumptree(rpadbex_t *dbex, rparule_t rid);
+rinteger rpa_dbex_dumptree(rpadbex_t *dbex, rparule_t rid);
 
 /**
  * \brief Dump the compiled byte code for the specified production ID
@@ -342,11 +342,11 @@ rint rpa_dbex_dumptree(rpadbex_t *dbex, rparule_t rid);
  * \param rid production ID.
  * \return Return 0 on success or negative if error occurred.
  */
-rint rpa_dbex_dumpcode(rpadbex_t* dbex, rparule_t rid);
+rinteger rpa_dbex_dumpcode(rpadbex_t* dbex, rparule_t rid);
 
 
 /*
- * \brief Print the AST of the parsed BNF productions.
+ * \brief Printeger the AST of the parsed BNF productions.
  *
  * This function is a debug helper, you shouldn't need it.
  * unless you are debugging this library.
@@ -354,34 +354,34 @@ rint 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.
  */
-rint rpa_dbex_dumprecords(rpadbex_t *dbex);
+rinteger rpa_dbex_dumprecords(rpadbex_t *dbex);
 
 /*
- * \brief Print the content of BNF productions database.
+ * \brief Printeger the content of BNF productions database.
  *
- * Enumerate all BNF productions and print them in a text format.
+ * Enumerate all BNF productions and printeger them in a text format.
  * \param dbex Pointer to \ref rpadbex_t object.
  * \return Return 0 on success or negative if error occurred.
  */
-rint rpa_dbex_dumpproductions(rpadbex_t *dbex);
+rinteger rpa_dbex_dumpproductions(rpadbex_t *dbex);
 
 /*
- * \brief Print debug information about the state of the BNF productions database.
+ * \brief Printeger debug information about the state of the BNF productions database.
  *
  * This is a debug helper, you shouldn't need it.
  * \param dbex Pointer to \ref rpadbex_t object.
  * \return Return 0 on success or negative if error occurred.
  */
-rint rpa_dbex_dumpinfo(rpadbex_t *dbex);
+rinteger rpa_dbex_dumpinfo(rpadbex_t *dbex);
 
 /*
- * \brief Print the production user IDs in a format suitable to be
+ * \brief Printeger the production user IDs in a format suitable to be
  * included in source code.
  *
  * 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.
  */
-rint rpa_dbex_dumpuids(rpadbex_t *dbex);
+rinteger rpa_dbex_dumpuids(rpadbex_t *dbex);
 
 
 
index aa19fe8..4b113e4 100644 (file)
@@ -4,7 +4,7 @@
 #include "rpaparser.h"
 #include "rpastatpriv.h"
 
-static rint rpa_parser_init(rpa_parser_t *pa);
+static rinteger rpa_parser_init(rpa_parser_t *pa);
 
 
 rpa_parser_t *rpa_parser_create()
@@ -1434,7 +1434,7 @@ static void rpa_production_orexp(rpa_parser_t *pa)
 }
 
 
-static rint rpa_parser_init(rpa_parser_t *pa)
+static rinteger rpa_parser_init(rpa_parser_t *pa)
 {
        rvm_codelabel_t *err;
        rpa_compiler_t *co = pa->co;
index 00dde9f..b21a1bf 100644 (file)
@@ -21,7 +21,7 @@ rparecord_t *rpa_record_get(rarray_t *records, rlong rec)
 rlong rpa_recordtree_get(rarray_t *records, rlong rec, rulong type)
 {
        rlong i, s = 0;
-       ruint startrec = (type & RPA_RECORD_START) ? 1 : 0;
+       ruinteger startrec = (type & RPA_RECORD_START) ? 1 : 0;
        rparecord_t *prec;
 
        if (rec < 0 || rec >= r_array_length(records))
@@ -309,9 +309,9 @@ rlong rpa_record_getusertype(rarray_t *records, rlong rec)
 }
 
 
-rint rpa_record_optchar(rparecord_t *prec, rint defc)
+rinteger rpa_record_optchar(rparecord_t *prec, rinteger defc)
 {
-       rint optc = defc;
+       rinteger optc = defc;
 
        if ((prec->usertype & RPA_MATCH_MASK) == RPA_MATCH_OPTIONAL)
                optc = '?';
@@ -325,9 +325,9 @@ rint rpa_record_optchar(rparecord_t *prec, rint defc)
 }
 
 
-rint rpa_record_loopchar(rparecord_t *prec, rint defc)
+rinteger rpa_record_loopchar(rparecord_t *prec, rinteger defc)
 {
-       rint loopc = defc;
+       rinteger loopc = defc;
 
        if ((prec->usertype & RPA_LOOP_PATH) && (prec->usertype & RPA_NONLOOP_PATH)) {
                /*
@@ -350,8 +350,8 @@ void rpa_record_dump(rarray_t *records, rlong rec)
        rparecord_t *prec;
        rlong start, end, first, last, next, prev, parent;
        rchar buf[240];
-       rint bufsize = sizeof(buf) - 1;
-       rint n = 0, size;
+       rinteger bufsize = sizeof(buf) - 1;
+       rinteger n = 0, size;
        rchar optc = ' ';
 
        if (rec < 0 || rec >= r_array_length(records))
@@ -409,11 +409,11 @@ void rpa_record_dump(rarray_t *records, rlong rec)
 }
 
 
-void rpa_record_dumpindented(rarray_t *records, rlong rec, rint level)
+void rpa_record_dumpindented(rarray_t *records, rlong rec, rinteger level)
 {
        rchar buffer[1024];
        rparecord_t *prec;
-       rint i, size;
+       rinteger i, size;
 
        if (rec < 0 || rec >= r_array_length(records))
                return;
index ea61255..295a592 100644 (file)
@@ -87,13 +87,13 @@ 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);
 rparecord_t *rpa_record_get(rarray_t *records, rlong rec);
 
-void rpa_record_dumpindented(rarray_t *records, rlong rec, rint level);
+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);
-rint rpa_record_optchar(rparecord_t *prec, rint defc);
-rint rpa_record_loopchar(rparecord_t *prec, rint defc);
+rinteger rpa_record_optchar(rparecord_t *prec, rinteger defc);
+rinteger rpa_record_loopchar(rparecord_t *prec, rinteger defc);
 rarray_t *rpa_records_create();
 void rpa_records_destroy(rarray_t *records);
 rlong rpa_records_length(rarray_t *records);
index 6ad8070..b391e5f 100644 (file)
@@ -36,13 +36,13 @@ void rpa_stat_destroy(rpastat_t *stat)
 }
 
 
-void rpa_stat_cachedisable(rpastat_t *stat, ruint disable)
+void rpa_stat_cachedisable(rpastat_t *stat, ruinteger disable)
 {
        rpa_cache_disable(stat->cache, disable);
 }
 
 
-rint rpa_stat_init(rpastat_t *stat, ruint encoding, const rchar *input, const rchar *start, const rchar *end, rarray_t *records)
+rinteger rpa_stat_init(rpastat_t *stat, ruinteger encoding, const rchar *input, const rchar *start, const rchar *end, rarray_t *records)
 {
        rulong size;
 
@@ -89,7 +89,7 @@ void rpa_stat_cacheinvalidate(rpastat_t *stat)
 }
 
 
-rlong rpa_stat_exec(rpastat_t *stat, rvm_asmins_t *prog, rword off, ruint encoding, const rchar *input, const rchar *start, const rchar *end, rarray_t *records)
+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)
 {
        rlong ret;
 
@@ -126,7 +126,7 @@ rlong rpa_stat_exec(rpastat_t *stat, rvm_asmins_t *prog, rword off, ruint encodi
 }
 
 
-static rlong rpa_stat_exec_rid(rpastat_t *stat, rparule_t rid, ruint encoding, const rchar *input, const rchar *start, const rchar *end, rarray_t *records)
+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)
 {
        rlong topsiz = 0;
        rpainput_t *ptp;
@@ -141,7 +141,7 @@ static rlong rpa_stat_exec_rid(rpastat_t *stat, rparule_t rid, ruint encoding, c
 }
 
 
-rlong rpa_stat_scan(rpastat_t *stat, rparule_t rid, ruint encoding, const rchar *input, const rchar *start, const rchar *end, const rchar **where)
+rlong rpa_stat_scan(rpastat_t *stat, rparule_t rid, ruinteger encoding, const rchar *input, const rchar *start, const rchar *end, const rchar **where)
 {
        rlong ret;
 
@@ -159,19 +159,19 @@ rlong rpa_stat_scan(rpastat_t *stat, rparule_t rid, ruint encoding, const rchar
 }
 
 
-rlong rpa_stat_match(rpastat_t *stat, rparule_t rid, ruint encoding, const rchar *input, const rchar *start, const rchar *end)
+rlong rpa_stat_match(rpastat_t *stat, rparule_t rid, ruinteger encoding, const rchar *input, const rchar *start, const rchar *end)
 {
        return rpa_stat_exec_rid(stat, rid, encoding, input, start, end, NULL);
 }
 
 
-rlong rpa_stat_parse(rpastat_t *stat, rparule_t rid, ruint encoding, const rchar *input, const rchar *start, const rchar *end, rarray_t *records)
+rlong rpa_stat_parse(rpastat_t *stat, rparule_t rid, ruinteger encoding, const rchar *input, const rchar *start, const rchar *end, rarray_t *records)
 {
        return rpa_stat_exec_rid(stat, rid, encoding, input, start, end, records);
 }
 
 
-rint rpa_stat_abort(rpastat_t *stat)
+rinteger rpa_stat_abort(rpastat_t *stat)
 {
        if (!stat) {
                return -1;
@@ -182,9 +182,9 @@ rint rpa_stat_abort(rpastat_t *stat)
 }
 
 
-rint rpa_stat_matchchr(rpastat_t *stat, rssize_t top, rulong wc)
+rinteger rpa_stat_matchchr(rpastat_t *stat, rssize_t top, rulong wc)
 {
-       rint ret = 0;
+       rinteger ret = 0;
        rpainput_t *in = &stat->instack[top];
 
        if (in->eof)
@@ -198,9 +198,9 @@ rint rpa_stat_matchchr(rpastat_t *stat, rssize_t top, rulong wc)
 }
 
 
-rint rpa_stat_matchspchr(rpastat_t *stat, rssize_t top, rulong wc)
+rinteger rpa_stat_matchspchr(rpastat_t *stat, rssize_t top, rulong wc)
 {
-       rint ret = 0;
+       rinteger ret = 0;
        rpainput_t *in = &stat->instack[top];
 
        if (in->eof)
@@ -228,9 +228,9 @@ rint rpa_stat_matchspchr(rpastat_t *stat, rssize_t top, rulong wc)
 }
 
 
-rint rpa_stat_matchrng(rpastat_t *stat, rssize_t top, rulong wc1, rulong wc2)
+rinteger rpa_stat_matchrng(rpastat_t *stat, rssize_t top, rulong wc1, rulong wc2)
 {
-       rint ret = 0;
+       rinteger ret = 0;
        rpainput_t *in = &stat->instack[top];
 
        if (in->eof)
@@ -244,13 +244,13 @@ rint rpa_stat_matchrng(rpastat_t *stat, rssize_t top, rulong wc1, rulong wc2)
 }
 
 
-static rint rpa_stat_utf8_getchar(ruint32 *pwc, rpastat_t *stat, const rchar *input)
+static rinteger rpa_stat_utf8_getchar(ruint32 *pwc, rpastat_t *stat, const rchar *input)
 {
        return r_utf8_mbtowc(pwc, (const ruchar*)input, (const ruchar*)stat->end);
 }
 
 
-static rint rpa_stat_byte_getchar(ruint32 *pwc, rpastat_t *stat, const rchar *input)
+static rinteger rpa_stat_byte_getchar(ruint32 *pwc, rpastat_t *stat, const rchar *input)
 {
        if (input >= stat->end) {
                *pwc = (unsigned int)0;
@@ -276,7 +276,7 @@ rlong rpa_stat_shift(rpastat_t *stat, rssize_t top)
        ptp++;
        top++;
        if (top >= (rlong)stat->ip.serial) {
-               rint inc = 0;
+               rinteger inc = 0;
                ptp->input = stat->ip.input;
                if (ptp->input < stat->end) {
                        switch (stat->encoding & RPA_ENCODING_MASK) {
index f523280..bc789c0 100644 (file)
@@ -95,7 +95,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, ruint encoding, const rchar *input, const rchar *start, const rchar *end, const rchar **where);
+rlong rpa_stat_scan(rpastat_t *stat, rparule_t rid, ruinteger encoding, const rchar *input, const rchar *start, const rchar *end, const rchar **where);
 
 /**
  * \brief Parse an input stream
@@ -120,7 +120,7 @@ rlong rpa_stat_scan(rpastat_t *stat, rparule_t rid, ruint encoding, const rchar
  * \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, ruint encoding, const rchar *input, const rchar *start, const rchar *end, rarray_t *records);
+rlong rpa_stat_parse(rpastat_t *stat, rparule_t rid, ruinteger encoding, const rchar *input, const rchar *start, const rchar *end, rarray_t *records);
 
 /**
  * \brief Match an input stream
@@ -143,7 +143,7 @@ rlong rpa_stat_parse(rpastat_t *stat, rparule_t rid, ruint encoding, const rchar
  * \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, ruint encoding, const rchar *input, const rchar *start, const rchar *end);
+rlong rpa_stat_match(rpastat_t *stat, rparule_t rid, ruinteger encoding, const rchar *input, const rchar *start, const rchar *end);
 
 
 /**
@@ -171,7 +171,7 @@ rlong rpa_stat_match(rpastat_t *stat, rparule_t rid, ruint encoding, const rchar
  * \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, ruint encoding, const rchar *input, const rchar *start, const rchar *end, rarray_t *records);
+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);
 
 
 /**
@@ -181,7 +181,7 @@ rlong rpa_stat_exec(rpastat_t *stat, rvm_asmins_t *prog, rword off, ruint encodi
  * \param stat Pointer to object of type \ref rpastat_t
  * \return If sucessful return 0, otherwise return negative.
  */
-rint rpa_stat_abort(rpastat_t *stat);
+rinteger rpa_stat_abort(rpastat_t *stat);
 
 
 /**
index bfc5b7b..51a958f 100644 (file)
@@ -28,8 +28,8 @@ struct rpastat_s {
        const rchar *start;
        const rchar *end;
        rpa_errinfo_t err;
-       ruint encoding;
-       ruint debug;
+       ruinteger encoding;
+       ruinteger debug;
        rarray_t *records;
        rpainput_t *instackbuffer;
        rpainput_t *instack;                    /* instack = &instackbuffer[1]; This allows R_TOP = -1, without any additional checks */
@@ -39,12 +39,12 @@ struct rpastat_s {
        rvmcpu_t *cpu;
 };
 
-rint rpa_stat_init(rpastat_t *stat, ruint encoding, const rchar *input, const rchar *start, const rchar *end, rarray_t *records);
-void rpa_stat_cachedisable(rpastat_t *stat, ruint disable);
+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);
 void rpa_stat_cacheinvalidate(rpastat_t *stat);
-rint rpa_stat_matchchr(rpastat_t *stat, rssize_t top, rulong wc);
-rint rpa_stat_matchspchr(rpastat_t *stat, rssize_t top, rulong wc);
-rint rpa_stat_matchrng(rpastat_t *stat, rssize_t top, rulong wc1, rulong wc2);
+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);
 
 
index e321e23..81a100c 100644 (file)
@@ -415,7 +415,7 @@ static rvm_switable_t rpavm_swi_table[] = {
 rvmcpu_t *rpavm_cpu_create(rulong stacksize)
 {
        rvmcpu_t *cpu = rvm_cpu_create(stacksize);
-       rint tableid = rvm_cpu_addswitable(cpu, "rpavm_swi_table", rpavm_swi_table);
+       rinteger tableid = rvm_cpu_addswitable(cpu, "rpavm_swi_table", rpavm_swi_table);
 
        if (tableid != RPAVM_SWI_TABLEID) {
                rpavm_cpu_destroy(cpu);
index 83da388..b911ad8 100644 (file)
@@ -54,7 +54,7 @@ rlong rvm_codegen_getsource(rvm_codegen_t *cg, rsize_t codeidx)
 }
 
 
-rvm_asmins_t *rvm_codegen_getcode(rvm_codegen_t *cg, ruint index)
+rvm_asmins_t *rvm_codegen_getcode(rvm_codegen_t *cg, ruinteger index)
 {
        return (rvm_asmins_t *)r_array_slot(cg->code, index);
 }
@@ -65,7 +65,7 @@ rsize_t rvm_codegen_getcodesize(rvm_codegen_t *cg)
        return r_array_length(cg->code);
 }
 
-void rvm_codegen_setcodesize(rvm_codegen_t *cg, ruint size)
+void rvm_codegen_setcodesize(rvm_codegen_t *cg, ruinteger size)
 {
        r_array_setlength(cg->code, size);
 }
@@ -117,7 +117,7 @@ rlong rvm_codegen_redefinepointer(rvm_codegen_t *cg, rlong index, rpointer data)
 }
 
 
-rlong rvm_codegen_addlabel(rvm_codegen_t *cg, const rchar* name, ruint namesize, rulong offset)
+rlong rvm_codegen_addlabel(rvm_codegen_t *cg, const rchar* name, ruinteger namesize, rulong offset)
 {
        return rvm_codemap_addoffset(cg->codemap, name, namesize, rvm_codemap_lookupadd_s(cg->codemap, ".code"), RVM_CODE2BYTE_OFFSET(offset));
 }
@@ -129,7 +129,7 @@ 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, ruint namesize)
+rlong rvm_codegen_addlabel_default(rvm_codegen_t *cg, const rchar* name, ruinteger namesize)
 {
        return rvm_codegen_addlabel(cg, name, namesize, rvm_codegen_getcodesize(cg));
 }
@@ -141,7 +141,7 @@ 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, ruint namesize)
+rlong rvm_codegen_invalid_addlabel(rvm_codegen_t *cg, const rchar* name, ruinteger namesize)
 {
        return rvm_codemap_invalid_add(cg->codemap, name, namesize);
 }
@@ -153,7 +153,7 @@ rlong rvm_codegen_invalid_addlabel_s(rvm_codegen_t *cg, const rchar* name)
 }
 
 
-rsize_t rvm_codegen_addlabelins(rvm_codegen_t *cg, const rchar* name, ruint namesize, rvm_asmins_t ins)
+rsize_t rvm_codegen_addlabelins(rvm_codegen_t *cg, const rchar* name, ruinteger 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);
@@ -173,7 +173,7 @@ rsize_t rvm_codegen_index_addrelocins(rvm_codegen_t *cg, rvm_reloctype_t type, r
 }
 
 
-rsize_t rvm_codegen_addrelocins(rvm_codegen_t *cg, rvm_reloctype_t type, const rchar* name, ruint namesize, 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)
 {
        return rvm_codegen_index_addrelocins(cg, type, rvm_codemap_lookupadd(cg->codemap, name, namesize), ins);
 }
@@ -185,7 +185,7 @@ rsize_t rvm_codegen_addrelocins_s(rvm_codegen_t *cg, rvm_reloctype_t type, const
 }
 
 
-rint rvm_codegen_relocate(rvm_codegen_t *cg, rvm_codelabel_t **err)
+rinteger 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));
@@ -193,22 +193,22 @@ rint rvm_codegen_relocate(rvm_codegen_t *cg, rvm_codelabel_t **err)
 }
 
 
-rsize_t rvm_codegen_insertins(rvm_codegen_t *cg, ruint index, rvm_asmins_t ins)
+rsize_t rvm_codegen_insertins(rvm_codegen_t *cg, ruinteger index, rvm_asmins_t ins)
 {
        return r_array_insert(cg->code, index, &ins);
 }
 
 
-rsize_t rvm_codegen_replaceins(rvm_codegen_t *cg, ruint index, rvm_asmins_t ins)
+rsize_t rvm_codegen_replaceins(rvm_codegen_t *cg, ruinteger index, rvm_asmins_t ins)
 {
        return r_array_replace(cg->code, index, &ins);
 
 }
 
 
-ruint rvm_codegen_funcstart(rvm_codegen_t *cg, const rchar* name, ruint namesize, ruint args)
+ruinteger rvm_codegen_funcstart(rvm_codegen_t *cg, const rchar* name, ruinteger namesize, ruinteger args)
 {
-       ruint start;
+       ruinteger 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));
@@ -218,15 +218,15 @@ ruint rvm_codegen_funcstart(rvm_codegen_t *cg, const rchar* name, ruint namesize
 }
 
 
-ruint rvm_codegen_funcstart_s(rvm_codegen_t *cg, const rchar* name, ruint args)
+ruinteger rvm_codegen_funcstart_s(rvm_codegen_t *cg, const rchar* name, ruinteger args)
 {
        return rvm_codegen_funcstart(cg, name, r_strlen(name), args);
 }
 
 
-ruint rvm_codegen_vargs_funcstart(rvm_codegen_t *cg, const rchar* name, ruint namesize)
+ruinteger rvm_codegen_vargs_funcstart(rvm_codegen_t *cg, const rchar* name, ruinteger namesize)
 {
-       ruint start;
+       ruinteger 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));
@@ -236,7 +236,7 @@ ruint rvm_codegen_vargs_funcstart(rvm_codegen_t *cg, const rchar* name, ruint na
 }
 
 
-ruint rvm_codegen_vargs_funcstart_s(rvm_codegen_t *cg, const rchar* name)
+ruinteger rvm_codegen_vargs_funcstart_s(rvm_codegen_t *cg, const rchar* name)
 {
        return rvm_codegen_vargs_funcstart(cg, name, r_strlen(name));
 }
@@ -249,7 +249,7 @@ 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, ruint namesize, rconstpointer data, rsize_t size)
+rlong rvm_codegen_adddata(rvm_codegen_t *cg, const rchar *name, ruinteger namesize, rconstpointer data, rsize_t size)
 {
        rpointer buffer;
        rulong cursize = R_SIZE_ALIGN(r_array_length(cg->data), sizeof(rword));
@@ -268,7 +268,7 @@ rlong rvm_codegen_adddata_s(rvm_codegen_t *cg, const rchar *name, rconstpointer
 }
 
 
-rlong rvm_codegen_addstring(rvm_codegen_t *cg, const rchar *name, ruint namesize, const rchar* data)
+rlong rvm_codegen_addstring(rvm_codegen_t *cg, const rchar *name, ruinteger namesize, const rchar* data)
 {
        return rvm_codegen_adddata(cg, name, namesize, data, r_strlen(data) + 1);
 }
index 819765c..98c8ae9 100644 (file)
@@ -21,7 +21,7 @@ extern "C" {
 typedef struct rvm_codegen_s {
        rarray_t *code;
        rarray_t *data;
-       ruint codeoff;
+       ruinteger codeoff;
        rarray_t *sourceidx;
        rvm_codemap_t *codemap;
        rvm_relocmap_t *relocmap;
@@ -34,37 +34,37 @@ 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);
-ruint rvm_codegen_funcstart(rvm_codegen_t *cg, const rchar* name, ruint namesize, ruint args);
-ruint rvm_codegen_funcstart_s(rvm_codegen_t *cg, const rchar* name, ruint args);
-ruint rvm_codegen_vargs_funcstart(rvm_codegen_t *cg, const rchar* name, ruint namesize);
-ruint rvm_codegen_vargs_funcstart_s(rvm_codegen_t *cg, const rchar* name);
+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);
 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, ruint namesize, 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, ruint namesize, 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, ruint index, rvm_asmins_t ins);
-rsize_t rvm_codegen_replaceins(rvm_codegen_t *cg, ruint index, rvm_asmins_t ins);
-rvm_asmins_t *rvm_codegen_getcode(rvm_codegen_t *cg, ruint index);
+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_getcodesize(rvm_codegen_t *cg);
-void rvm_codegen_setcodesize(rvm_codegen_t *cg, ruint size);
+void rvm_codegen_setcodesize(rvm_codegen_t *cg, ruinteger size);
 void rvm_codegen_clear(rvm_codegen_t *cg);
-rint rvm_codegen_relocate(rvm_codegen_t *cg, rvm_codelabel_t **err);
+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, ruint namesize, rulong offset);
+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, ruint namesize);
+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, ruint namesize);
+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, ruint namesize, rconstpointer data, rsize_t size);
+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, ruint namesize, const rchar* data);
+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);
index 5f346ed..9c86e9f 100644 (file)
@@ -55,14 +55,14 @@ rvm_codelabel_t *rvm_codemap_label(rvm_codemap_t *codemap, rlong index)
 }
 
 
-static rlong rvm_codemap_dolookup(rvm_codemap_t *codemap, const rchar *name, ruint namesize)
+static rlong rvm_codemap_dolookup(rvm_codemap_t *codemap, const rchar *name, ruinteger 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, ruint namesize)
+static rlong rvm_codemap_add(rvm_codemap_t *codemap, const rchar *name, ruinteger namesize)
 {
        rvm_codelabel_t *label = NULL;
        rlong labelidx = -1;
@@ -104,7 +104,7 @@ void rvm_codelabel_setinvalid(rvm_codelabel_t *label)
 }
 
 
-rlong rvm_codemap_addoffset(rvm_codemap_t *codemap, const rchar *name, ruint namesize, rulong base, rulong offset)
+rlong rvm_codemap_addoffset(rvm_codemap_t *codemap, const rchar *name, ruinteger namesize, rulong base, rulong offset)
 {
        rlong labelidx = rvm_codemap_add(codemap, name, namesize);
        rvm_codelabel_t *label = rvm_codemap_label(codemap, labelidx);
@@ -120,7 +120,7 @@ rlong rvm_codemap_addoffset_s(rvm_codemap_t *codemap, const rchar *name, rulong
 }
 
 
-rlong rvm_codemap_addpointer(rvm_codemap_t *codemap, const rchar *name, ruint namesize, rpointer ptr)
+rlong rvm_codemap_addpointer(rvm_codemap_t *codemap, const rchar *name, ruinteger namesize, rpointer ptr)
 {
        rlong labelidx = rvm_codemap_add(codemap, name, namesize);
        rvm_codelabel_t *label = rvm_codemap_label(codemap, labelidx);
@@ -138,7 +138,7 @@ rlong rvm_codemap_addpointer_s(rvm_codemap_t *codemap, const rchar *name, rpoint
 }
 
 
-rlong rvm_codemap_invalid_add(rvm_codemap_t *codemap, const rchar *name, ruint namesize)
+rlong rvm_codemap_invalid_add(rvm_codemap_t *codemap, const rchar *name, ruinteger namesize)
 {
        rlong labelidx = rvm_codemap_add(codemap, name, namesize);
        rvm_codelabel_t *label = rvm_codemap_label(codemap, labelidx);
@@ -172,7 +172,7 @@ rlong rvm_codemap_lastlabel(rvm_codemap_t *codemap)
 }
 
 
-rlong rvm_codemap_lookupadd(rvm_codemap_t *codemap, const rchar *name, ruint namesize)
+rlong rvm_codemap_lookupadd(rvm_codemap_t *codemap, const rchar *name, ruinteger namesize)
 {
        rstr_t lookupstr = {(char*)name, namesize};
        rlong labelidx = r_hash_lookup_indexval(codemap->hash, &lookupstr);
@@ -189,7 +189,7 @@ rlong rvm_codemap_lookupadd_s(rvm_codemap_t *codemap, const rchar *name)
 }
 
 
-rlong rvm_codemap_lookup(rvm_codemap_t *codemap, const rchar *name, ruint namesize)
+rlong rvm_codemap_lookup(rvm_codemap_t *codemap, const rchar *name, ruinteger namesize)
 {
        rstr_t lookupstr = {(char*)name, namesize};
        rlong labelidx = r_hash_lookup_indexval(codemap->hash, &lookupstr);
@@ -227,7 +227,7 @@ rword rvm_codemap_resolve(rvm_codemap_t *codemap, rlong index, rvm_codelabel_t *
 
 void rvm_codemap_dump(rvm_codemap_t *codemap)
 {
-       rint i = 0;
+       rinteger i = 0;
 
        for (i = 0; i < r_array_length(codemap->labels); i++) {
                rvm_codelabel_t *label = rvm_codemap_label(codemap, i);
index d54c4ed..e31b58d 100644 (file)
@@ -34,15 +34,15 @@ 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, ruint namesize);
+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, ruint namesize, rulong base, rulong offset);
+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, ruint namesize, rpointer ptr);
+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, ruint namesize);
+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, ruint namesize);
+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);
index cb7afcd..3a3963a 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)
 {
-       ruint i;
+       ruinteger 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;
-       ruint ntable = (ruint) RVM_SWI_TABLE(ins->swi);
-       ruint nswi = (ruint) RVM_SWI_NUM(ins->swi);
+       ruinteger ntable = (ruinteger) RVM_SWI_TABLE(ins->swi);
+       ruinteger nswi = (ruinteger) 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;
-       ruint ntable = (ruint) RVM_SWI_TABLE(RVM_CPUREG_GETU(cpu, ins->op1));
-       ruint nswi = (ruint) RVM_SWI_NUM(RVM_CPUREG_GETU(cpu, ins->op1));
+       ruinteger ntable = (ruinteger) RVM_SWI_TABLE(RVM_CPUREG_GETU(cpu, ins->op1));
+       ruinteger nswi = (ruinteger) 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, ruint size, const char *format, va_list ap)
+static int rvm_vsnprintf(char *str, ruinteger size, const char *format, va_list ap)
 {
        return vsnprintf(str, size, format, ap);
 }
 
 
-static int rvm_snprintf(char *str, ruint size, const char *format, ...)
+static int rvm_snprintf(char *str, ruinteger 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, ruint size)
+int rvm_asm_dump_reg_to_str(unsigned char reg, char *str, ruinteger size)
 {
        int ret = 0;
 
@@ -1135,7 +1135,7 @@ 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, ruint size)
+int rvm_asm_dump_pi_to_str(rvmcpu_t *vm, rvm_asmins_t *pi, char *str, ruinteger size)
 {
        int ret = 0, sz = size;
 
@@ -1146,8 +1146,8 @@ int rvm_asm_dump_pi_to_str(rvmcpu_t *vm, rvm_asmins_t *pi, char *str, ruint size
                        rvm_snprintf(szSwi, sizeof(szSwi) - 1, "%s(%x)", stropcalls[pi->opcode], (ruint32)pi->swi);
                } else {
                        rvm_switable_t *switable;
-                       ruint ntable = (ruint) RVM_SWI_TABLE(pi->swi);
-                       ruint nswi = (ruint) RVM_SWI_NUM(pi->swi);
+                       ruinteger ntable = (ruinteger) RVM_SWI_TABLE(pi->swi);
+                       ruinteger nswi = (ruinteger) 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, ruint size
 }
 
 
-void rvm_asm_dump(rvm_asmins_t *pi, ruint count)
+void rvm_asm_dump(rvm_asmins_t *pi, ruinteger count)
 {
        char buffer[256];
        while (count) {
@@ -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);
-       ruint size = RVM_CPUREG_GETU(cpu, ins->op2);
+       ruinteger size = RVM_CPUREG_GETU(cpu, ins->op2);
        rcarray_t *a = r_carray_create_rvmreg();
        if (!a) {
                RVM_ABORT(cpu, RVM_E_ILLEGAL);
@@ -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);
-       ruint index = RVM_CPUREG_GETU(cpu, ins->op3);
+       ruinteger 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);
-       ruint index = RVM_CPUREG_GETU(cpu, ins->op3);
+       ruinteger index = RVM_CPUREG_GETU(cpu, ins->op3);
        rcarray_t *a = RVM_REG_GETP(arg2);
 
        if (rvm_reg_gettype(arg2) != RVM_DTYPE_ARRAY) {
@@ -1933,7 +1933,7 @@ void rvm_cpu_destroy(rvmcpu_t *cpu)
 }
 
 
-rint rvm_cpu_exec(rvmcpu_t *cpu, rvm_asmins_t *prog, rword off)
+rinteger 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,7 +1991,7 @@ skipexec:
 }
 
 
-rint rvm_cpu_exec_debug(rvmcpu_t *cpu, rvm_asmins_t *prog, rword off)
+rinteger rvm_cpu_exec_debug(rvmcpu_t *cpu, rvm_asmins_t *prog, rword off)
 {
        rlong line = 0;
        rvm_asmins_t *pi;
@@ -2052,9 +2052,9 @@ skipexec:
 }
 
 
-rint rvm_cpu_global_swilookup(rvmcpu_t *cpu, const rchar *swiname, rsize_t size)
+rinteger rvm_cpu_global_swilookup(rvmcpu_t *cpu, const rchar *swiname, rsize_t size)
 {
-       rint nswi;
+       rinteger nswi;
        rvm_switable_t *swientry;
        rlong ntable;
 
@@ -2064,16 +2064,16 @@ rint rvm_cpu_global_swilookup(rvmcpu_t *cpu, const rchar *swiname, rsize_t size)
                        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 (rint)RVM_SWI_ID(ntable, nswi);
+                               return (rinteger)RVM_SWI_ID(ntable, nswi);
                }
        }
        return -1;
 }
 
 
-rint rvm_cpu_table_swilookup(rvmcpu_t *cpu, const rchar *tabname, const rchar *swiname, rsize_t size)
+rinteger rvm_cpu_table_swilookup(rvmcpu_t *cpu, const rchar *tabname, const rchar *swiname, rsize_t size)
 {
-       rint nswi;
+       rinteger nswi;
        rvm_switable_t *swientry;
        rlong ntable = r_harray_lookup_s(cpu->switables, tabname);
 
@@ -2084,31 +2084,31 @@ rint rvm_cpu_table_swilookup(rvmcpu_t *cpu, const rchar *tabname, const rchar *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 (rint)RVM_SWI_ID(ntable, nswi);
+                       return (rinteger)RVM_SWI_ID(ntable, nswi);
        }
        return -1;
 }
 
 
-rint rvm_cpu_swilookup(rvmcpu_t *cpu, const rchar *tabname, const rchar *swiname, rsize_t size)
+rinteger rvm_cpu_swilookup(rvmcpu_t *cpu, const rchar *tabname, const rchar *swiname, rsize_t size)
 {
        return tabname ? rvm_cpu_table_swilookup(cpu, tabname, swiname, size) : rvm_cpu_global_swilookup(cpu, swiname, size);
 }
 
 
-rint rvm_cpu_swilookup_s(rvmcpu_t *cpu, const rchar *tabname, const rchar *swiname)
+rinteger rvm_cpu_swilookup_s(rvmcpu_t *cpu, const rchar *tabname, const rchar *swiname)
 {
        return rvm_cpu_swilookup(cpu, tabname, swiname, r_strlen(swiname));
 }
 
 
-rint rvm_cpu_addswitable(rvmcpu_t *cpu, const rchar *tabname, rvm_switable_t *switable)
+rinteger rvm_cpu_addswitable(rvmcpu_t *cpu, const rchar *tabname, rvm_switable_t *switable)
 {
        return r_harray_replace_s(cpu->switables, tabname, &switable);
 }
 
 
-rint rvm_cpu_abort(rvmcpu_t *cpu)
+rinteger rvm_cpu_abort(rvmcpu_t *cpu)
 {
        if (!cpu)
                return -1;
@@ -2264,7 +2264,7 @@ rvm_asmins_t rvm_asml(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, ruint data)
+rvm_asmins_t rvm_cond_asmb(rword cond, rword opcode, rword op1, rword op2, rword op3, ruinteger data)
 {
        rvm_asmins_t a;
 
@@ -2282,7 +2282,7 @@ 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, ruint data)
+rvm_asmins_t rvm_asmb(rword opcode, rword op1, rword op2, rword op3, ruinteger data)
 {
        return rvm_cond_asmb(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;
-       rint index = r_carray_add(cpu->data, NULL);
+       rinteger index = r_carray_add(cpu->data, NULL);
 
        global = (rvmreg_t*)r_carray_slot(cpu->data, index);
        RVM_REG_CLEAR(global);
index 6c89c48..152d05e 100644 (file)
@@ -335,12 +335,12 @@ struct rvmcpu_s {
 rvmcpu_t *rvm_cpu_create_default();
 rvmcpu_t *rvm_cpu_create(rulong stacksize);
 void rvm_cpu_destroy(rvmcpu_t * vm);
-rint rvm_cpu_abort(rvmcpu_t *cpu);
-rint rvm_cpu_exec(rvmcpu_t *cpu, rvm_asmins_t *prog, rword off);
-rint rvm_cpu_exec_debug(rvmcpu_t *cpu, rvm_asmins_t *prog, rword off);
-rint rvm_cpu_swilookup(rvmcpu_t *cpu, const rchar *tabname, const rchar *swiname, rsize_t size);
-rint rvm_cpu_swilookup_s(rvmcpu_t *cpu, const rchar *tabname, const rchar *swiname);
-rint rvm_cpu_addswitable(rvmcpu_t * cpu, const rchar *tabname, rvm_switable_t *switalbe);
+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);
 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);
@@ -348,7 +348,7 @@ 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, ruint 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_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);
@@ -358,7 +358,7 @@ rvm_asmins_t rvm_asm2(rword opcode, rword op1, rword op2, rword op3, ruint32 p1,
 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, ruint data);
+rvm_asmins_t rvm_cond_asmb(rword cond, rword opcode, rword op1, rword op2, rword op3, ruinteger 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);
@@ -366,7 +366,7 @@ rvm_asmins_t rvm_cond_asmf(rword cond, rword opcode, rword op1, rword op2, rword
 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, ruint count);
+void rvm_asm_dump(rvm_asmins_t *pi, ruinteger count);
 
 
 #ifdef __cplusplus
index 5366f42..4df1360 100644 (file)
@@ -5,7 +5,7 @@
 
 #include "rtypes.h"
 
-typedef ruint rvm_error_t;
+typedef ruinteger rvm_error_t;
 
 #define RVM_ERROR_BITS 16
 #define RVM_ERROR_MASK ((1 << RVM_ERROR_BITS) - 1)
index b0174dd..d7880c4 100644 (file)
@@ -56,10 +56,10 @@ void rvm_opmap_add_unary_operator(rvm_opmap_t *opmap, rushort opid)
 }
 
 
-rint rvm_opmap_set_binary_handler(rvm_opmap_t *opmap, rushort opid, rvm_binaryop_handler func, ruchar firstType, ruchar secondType)
+rinteger rvm_opmap_set_binary_handler(rvm_opmap_t *opmap, rushort opid, rvm_binaryop_handler func, ruchar firstType, ruchar secondType)
 {
        rvm_ophandler_t *h;
-       ruint index = RVM_OP_HANDLER(firstType, secondType);
+       ruinteger index = RVM_OP_HANDLER(firstType, secondType);
        rvm_opinfo_t *opinfo = ((rvm_opinfo_t*)r_array_slot(opmap->operators, opid));
        if (!opinfo->handlers)
                return -1;
@@ -69,7 +69,7 @@ rint rvm_opmap_set_binary_handler(rvm_opmap_t *opmap, rushort opid, rvm_binaryop
 }
 
 
-rint rvm_opmap_set_unary_handler(rvm_opmap_t *opmap, rushort opid, rvm_unaryop_handler func, ruchar type)
+rinteger rvm_opmap_set_unary_handler(rvm_opmap_t *opmap, rushort opid, rvm_unaryop_handler func, ruchar type)
 {
        rvm_ophandler_t *h;
        rvm_opinfo_t *opinfo = ((rvm_opinfo_t*)r_array_slot(opmap->operators, opid));
@@ -85,7 +85,7 @@ void rvm_opmap_invoke_binary_handler(rvm_opmap_t *opmap, rushort opid, rvmcpu_t
 {
        rvm_ophandler_t *h;
        rvm_opinfo_t *opinfo;
-       ruint index;
+       ruinteger index;
        rstring_t tempstr1, tempstr2;
        rvmreg_t temparg1, temparg2;
 
@@ -131,7 +131,7 @@ void rvm_opmap_invoke_unary_handler(rvm_opmap_t *opmap, rushort opid, rvmcpu_t *
 {
        rvm_ophandler_t *h;
        rvm_opinfo_t *opinfo;
-       ruint index;
+       ruinteger index;
        rstring_t tempstr;
        rvmreg_t temparg;
 
index 33b7396..2edfc93 100644 (file)
@@ -106,8 +106,8 @@ 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);
-rint rvm_opmap_set_binary_handler(rvm_opmap_t *opmap, rushort opid, rvm_binaryop_handler func, ruchar firstType, ruchar secondType);
-rint rvm_opmap_set_unary_handler(rvm_opmap_t *opmap, rushort opid, rvm_unaryop_handler func, ruchar type);
+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);
 
index d1b4a83..d63f65d 100644 (file)
@@ -5,7 +5,7 @@
 
 static void rvm_reg_array_oncopy(rarray_t *array)
 {
-       ruint index;
+       ruinteger index;
        rvmreg_t *r;
 
        for (index = 0; index < r_array_length(array); index++) {
@@ -17,7 +17,7 @@ static void rvm_reg_array_oncopy(rarray_t *array)
 
 static void rvm_reg_array_oncleanup(rarray_t *array)
 {
-       ruint index;
+       ruinteger index;
        rvmreg_t *r;
 
        for (index = 0; index < r_array_length(array); index++) {
@@ -29,9 +29,9 @@ static void rvm_reg_array_oncleanup(rarray_t *array)
 
 static void rvm_reg_carray_oncopy(rcarray_t *array)
 {
-       ruint index;
+       ruinteger index;
        rvmreg_t *r;
-       ruint len = r_carray_length(array);
+       ruinteger len = r_carray_length(array);
 
 
        for (index = 0; index < len; index++) {
@@ -43,9 +43,9 @@ static void rvm_reg_carray_oncopy(rcarray_t *array)
 
 static void rvm_reg_carray_oncleanup(rcarray_t *array)
 {
-       ruint index;
+       ruinteger index;
        rvmreg_t *r;
-       ruint len = r_carray_length(array);
+       ruinteger len = r_carray_length(array);
 
 
        for (index = 0; index < len; index++) {
@@ -66,7 +66,7 @@ static void rvm_reg_carray_oncleanup(rcarray_t *array)
  */
 void rvm_reg_array_unref_gcdata(robject_t *obj)
 {
-       ruint size;
+       ruinteger size;
        int i;
        rvmreg_t *r;
 
@@ -214,7 +214,7 @@ void rvm_reg_setstring(rvmreg_t *r, rstring_t *ptr)
 }
 
 
-void rvm_reg_setpair(rvmreg_t *r, ruint p1, ruint p2)
+void rvm_reg_setpair(rvmreg_t *r, ruinteger p1, ruinteger p2)
 {
 
        RVM_REG_SETPAIR(r, p1, p2);
@@ -223,7 +223,7 @@ void rvm_reg_setpair(rvmreg_t *r, ruint p1, ruint p2)
 }
 
 
-void rvm_reg_setstrptr(rvmreg_t *r, rchar *s, ruint size)
+void rvm_reg_setstrptr(rvmreg_t *r, rchar *s, ruinteger size)
 {
        RVM_REG_SETSTR(r, s, size);
        RVM_REG_SETTYPE(r, RVM_DTYPE_STRPTR);
@@ -254,7 +254,7 @@ void rvm_reg_setharray(rvmreg_t *r, robject_t *ptr)
        RVM_REG_SETFLAG(r, RVM_INFOBIT_ROBJECT);
 }
 
-rvmreg_t rvm_reg_create_pair(ruint p1, ruint p2)
+rvmreg_t rvm_reg_create_pair(ruinteger p1, ruinteger p2)
 {
        rvmreg_t r;
        r_memset(&r, 0, sizeof(r));
@@ -263,7 +263,7 @@ rvmreg_t rvm_reg_create_pair(ruint p1, ruint p2)
 }
 
 
-rvmreg_t rvm_reg_create_strptr(rchar *s, ruint size)
+rvmreg_t rvm_reg_create_strptr(rchar *s, ruinteger size)
 {
        rvmreg_t r;
        r_memset(&r, 0, sizeof(r));
@@ -316,13 +316,13 @@ rvmreg_t *rvm_reg_copy(rvmreg_t *dst, const rvmreg_t *src)
 }
 
 
-void rvm_reg_settype(rvmreg_t *r, ruint type)
+void rvm_reg_settype(rvmreg_t *r, ruinteger type)
 {
        RVM_REG_SETTYPE(r, type);
 }
 
 
-ruint rvm_reg_gettype(const rvmreg_t *r)
+ruinteger rvm_reg_gettype(const rvmreg_t *r)
 {
        rulong type = RVM_REG_GETTYPE(r);
        return type;
@@ -370,7 +370,7 @@ void rvm_reg_setlong(rvmreg_t *r, rlong l)
 }
 
 
-void rvm_reg_setboolean(rvmreg_t *r, ruint b)
+void rvm_reg_setboolean(rvmreg_t *r, ruinteger b)
 {
        RVM_REG_SETU(r, b ? 1 : 0);
        RVM_REG_SETTYPE(r, RVM_DTYPE_BOOLEAN);
@@ -441,7 +441,7 @@ int rvm_reg_str2double(rvmreg_t *dst, const rvmreg_t *src)
 }
 
 
-rint rvm_reg_int(const rvmreg_t *src)
+rinteger rvm_reg_int(const rvmreg_t *src)
 {
        R_ASSERT(src);
        return (int)RVM_REG_GETL(src);
index 68577e9..947a5cb 100644 (file)
@@ -95,7 +95,7 @@ extern "C" {
 #define RVM_CPUREG_SETPAIR(__cpu__, __r__, __val1__, __val2__) RVM_REG_SETPAIR(RVM_CPUREG_PTR(__cpu__, __r__), __val1__, __val2__)
 
 #define RVM_REG_GETSTR(__r__) (__r__)->v.s
-#define RVM_REG_SETSTR(__r__, __str__, __size__) do { (__r__)->v.s = (__str__); if ((__size__) == (ruint)-1) (__r__)->size = r_strlen(__str__); else (__r__)->size = (__size__);} while (0)
+#define RVM_REG_SETSTR(__r__, __str__, __size__) do { (__r__)->v.s = (__str__); if ((__size__) == (ruinteger)-1) (__r__)->size = r_strlen(__str__); else (__r__)->size = (__size__);} while (0)
 #define RVM_CPUREG_GETSTR(__cpu__, __r__) RVM_REG_GETSTR(RVM_CPUREG_PTR(__cpu__, __r__))
 #define RVM_CPUREG_SETSTR(__cpu__, __r__, __str__, __size__) RVM_REG_SETSTR(RVM_CPUREG_PTR(__cpu__, __r__), __str__, __size__)
 
@@ -149,25 +149,25 @@ rvmreg_t rvm_reg_create_array();
 rvmreg_t rvm_reg_create_harray();
 rvmreg_t rvm_reg_create_double(rdouble d);
 rvmreg_t rvm_reg_create_long(rlong l);
-rvmreg_t rvm_reg_create_pair(ruint p1, ruint p2);
-rvmreg_t rvm_reg_create_strptr(rchar *s, ruint size);
+rvmreg_t rvm_reg_create_pair(ruinteger p1, ruinteger p2);
+rvmreg_t rvm_reg_create_strptr(rchar *s, ruinteger size);
 void rvm_reg_init(rvmreg_t *reg);
 void rvm_reg_cleanup(rvmreg_t *reg);
 rvmreg_t *rvm_reg_copy(rvmreg_t *dst, const rvmreg_t *src);
 void rvm_reg_array_unref_gcdata(robject_t *obj);
-void rvm_reg_settype(rvmreg_t *r, ruint type);
-ruint rvm_reg_gettype(const rvmreg_t *r);
+void rvm_reg_settype(rvmreg_t *r, ruinteger type);
+ruinteger rvm_reg_gettype(const rvmreg_t *r);
 rboolean rvm_reg_tstflag(const rvmreg_t *r, ruint16 flag);
 void rvm_reg_setflag(rvmreg_t *r, ruint16 flag);
 void rvm_reg_clrflag(rvmreg_t *r, ruint16 flag);
 void rvm_reg_setundef(rvmreg_t *r);
 void rvm_reg_setunsigned(rvmreg_t *r, rword u);
-void rvm_reg_setboolean(rvmreg_t *r, ruint b);
+void rvm_reg_setboolean(rvmreg_t *r, ruinteger b);
 void rvm_reg_setlong(rvmreg_t *r, rlong l);
 void rvm_reg_setdouble(rvmreg_t *r, rdouble d);
 void rvm_reg_setpointer(rvmreg_t *r, rpointer p);
-void rvm_reg_setpair(rvmreg_t *r, ruint p1, ruint p2);
-void rvm_reg_setstrptr(rvmreg_t *r, rchar *s, ruint size);
+void rvm_reg_setpair(rvmreg_t *r, ruinteger p1, ruinteger p2);
+void rvm_reg_setstrptr(rvmreg_t *r, rchar *s, ruinteger size);
 void rvm_reg_setstring(rvmreg_t *r, rstring_t *ptr);
 void rvm_reg_setarray(rvmreg_t *r, robject_t *ptr);
 void rvm_reg_setharray(rvmreg_t *r, robject_t *ptr);
@@ -176,7 +176,7 @@ int rvm_reg_str2num(rvmreg_t *dst, const rvmreg_t *src);
 int rvm_reg_str2long(rvmreg_t *dst, const rvmreg_t *ssrc);
 int rvm_reg_str2double(rvmreg_t *dst, const rvmreg_t *ssrc);
 
-rint rvm_reg_int(const rvmreg_t *src);
+rinteger rvm_reg_int(const rvmreg_t *src);
 rlong rvm_reg_long(const rvmreg_t *src);
 ruchar rvm_reg_boolean(const rvmreg_t *src);
 rdouble rvm_reg_double(const rvmreg_t *src);
index 40036aa..06e926a 100644 (file)
@@ -52,7 +52,7 @@ rulong rvm_relocmap_length(rvm_relocmap_t *relocmap)
 }
 
 
-rint rvm_relocmap_relocate(rvm_relocmap_t *relocmap, rvm_codemap_t *codemap, rvm_asmins_t *code, rvm_codelabel_t **err)
+rinteger rvm_relocmap_relocate(rvm_relocmap_t *relocmap, rvm_codemap_t *codemap, rvm_asmins_t *code, rvm_codelabel_t **err)
 {
        rlong index;
        rvm_relocrecord_t *reloc;
index adb883a..74b1ff3 100644 (file)
@@ -46,7 +46,7 @@ void rvm_relocmap_clear(rvm_relocmap_t *relocmap);
 rlong rvm_relocmap_add(rvm_relocmap_t *relocmap, rvm_reloctarget_t target, rvm_reloctype_t type, rulong offset, rulong label);
 rvm_relocrecord_t *rvm_relocmap_get(rvm_relocmap_t *relocmap, rulong index);
 rulong rvm_relocmap_length(rvm_relocmap_t *relocmap);
-rint rvm_relocmap_relocate(rvm_relocmap_t *relocmap, rvm_codemap_t *codemap, rvm_asmins_t *code, rvm_codelabel_t **err);
+rinteger rvm_relocmap_relocate(rvm_relocmap_t *relocmap, rvm_codemap_t *codemap, rvm_asmins_t *code, rvm_codelabel_t **err);
 
 
 #ifdef __cplusplus
index 37cd5c2..6833f8b 100644 (file)
@@ -34,7 +34,7 @@ void rvm_scope_destroy(rvm_scope_t *scope)
 }
 
 
-rchar *rvm_scope_addname(rvm_scope_t *scope, const rchar* name, ruint namesize)
+rchar *rvm_scope_addname(rvm_scope_t *scope, const rchar* name, ruinteger namesize)
 {
        rstr_t namestr = {(rchar*)name, namesize};
        rstr_t *dupname = r_hash_lookup(scope->nameshash, &namestr);
@@ -54,7 +54,7 @@ rchar *rvm_scope_addstrname(rvm_scope_t *scope, const rchar *name)
 }
 
 
-ruint rvm_scope_count(rvm_scope_t* scope)
+ruinteger rvm_scope_count(rvm_scope_t* scope)
 {
        return r_array_length(scope->scopestack);
 }
@@ -77,7 +77,7 @@ void rvm_scope_pop(rvm_scope_t* scope)
 }
 
 
-void rvm_scope_addoffset(rvm_scope_t *scope, const rchar *name, ruint namesize, ruint32 off)
+void rvm_scope_addoffset(rvm_scope_t *scope, const rchar *name, ruinteger namesize, ruint32 off)
 {
        rvm_varmap_t vmap;
 
@@ -88,13 +88,13 @@ void rvm_scope_addoffset(rvm_scope_t *scope, const rchar *name, ruint namesize,
 }
 
 
-ruint rvm_scope_numentries(rvm_scope_t *scope)
+ruinteger rvm_scope_numentries(rvm_scope_t *scope)
 {
        return r_array_length(scope->varstack);
 }
 
 
-void rvm_scope_addpointer(rvm_scope_t *scope, const rchar *name, ruint namesize, rpointer ptr)
+void rvm_scope_addpointer(rvm_scope_t *scope, const rchar *name, ruinteger namesize, rpointer ptr)
 {
        rvm_varmap_t vmap;
 
@@ -117,11 +117,11 @@ void rvm_scope_addpointer_s(rvm_scope_t *scope, const rchar *name, rpointer ptr)
 }
 
 
-rvm_varmap_t *rvm_scope_lookup(rvm_scope_t *scope, const rchar *name, ruint namesize)
+rvm_varmap_t *rvm_scope_lookup(rvm_scope_t *scope, const rchar *name, ruinteger namesize)
 {
        rsize_t scopelen = r_array_length(scope->varstack);
        rvm_varmap_t *varmap;
-       rint i;
+       rinteger i;
 
        if (!scopelen)
                return NULL;
@@ -135,16 +135,16 @@ rvm_varmap_t *rvm_scope_lookup(rvm_scope_t *scope, const rchar *name, ruint name
 }
 
 
-rvm_varmap_t *rvm_scope_tiplookup(rvm_scope_t *scope, const rchar *name, ruint namesize)
+rvm_varmap_t *rvm_scope_tiplookup(rvm_scope_t *scope, const rchar *name, ruinteger namesize)
 {
        rsize_t scopelen = r_array_length(scope->varstack);
-       ruint tipstart = r_array_empty(scope->scopestack) ? 0 : r_array_last(scope->scopestack, ruint);
+       ruinteger tipstart = r_array_empty(scope->scopestack) ? 0 : r_array_last(scope->scopestack, ruinteger);
        rvm_varmap_t *varmap;
-       rint i;
+       rinteger i;
 
        if (!scopelen)
                return NULL;
-       for (i = scopelen - 1; i >= (rint)tipstart; i--) {
+       for (i = scopelen - 1; i >= (rinteger)tipstart; i--) {
                varmap = (rvm_varmap_t*)r_array_slot(scope->varstack, i);
                if (r_strlen(varmap->name) == namesize && r_strncmp(varmap->name, name, namesize) == 0)
                        return varmap;
index 662fc4f..2ce2d5e 100644 (file)
@@ -34,19 +34,19 @@ typedef struct rvm_scope_s {
 
 rvm_scope_t *rvm_scope_create();
 void rvm_scope_destroy(rvm_scope_t *scope);
-rchar *rvm_scope_addname(rvm_scope_t *scope, const rchar *name, ruint namesize);
+rchar *rvm_scope_addname(rvm_scope_t *scope, const rchar *name, ruinteger namesize);
 rchar *rvm_scope_addstrname(rvm_scope_t *scope, const rchar *name);
-void rvm_scope_addoffset(rvm_scope_t *scope, const rchar *name, ruint namesize, ruint32 off);
-void rvm_scope_addpointer(rvm_scope_t *scope, const rchar *name, ruint namesize, rpointer ptr);
+void rvm_scope_addoffset(rvm_scope_t *scope, const rchar *name, ruinteger namesize, ruint32 off);
+void rvm_scope_addpointer(rvm_scope_t *scope, const rchar *name, ruinteger namesize, rpointer ptr);
 void rvm_scope_addoffset_s(rvm_scope_t *scope, const rchar *name, ruint32 off);
 void rvm_scope_addpointer_s(rvm_scope_t *scope, const rchar *name, rpointer ptr);
 void rvm_scope_push(rvm_scope_t* scope);
 void rvm_scope_pop(rvm_scope_t* scope);
-ruint rvm_scope_count(rvm_scope_t* scope);
-ruint rvm_scope_numentries(rvm_scope_t *scope);
-rvm_varmap_t *rvm_scope_lookup(rvm_scope_t *scope, const rchar *name, ruint namesize);
+ruinteger rvm_scope_count(rvm_scope_t* scope);
+ruinteger rvm_scope_numentries(rvm_scope_t *scope);
+rvm_varmap_t *rvm_scope_lookup(rvm_scope_t *scope, const rchar *name, ruinteger namesize);
 rvm_varmap_t *rvm_scope_lookup_s(rvm_scope_t *scope, const rchar *name);
-rvm_varmap_t *rvm_scope_tiplookup(rvm_scope_t *scope, const rchar *name, ruint namesize);
+rvm_varmap_t *rvm_scope_tiplookup(rvm_scope_t *scope, const rchar *name, ruinteger namesize);
 rvm_varmap_t *rvm_scope_tiplookup_s(rvm_scope_t *scope, const rchar *name);
 
 
index 06d3cf4..d700d12 100644 (file)
@@ -5,8 +5,8 @@
        
 int main(int argc, char *argv[])
 {
-       ruint ret = 0;
-       ruint off = 0;
+       ruinteger ret = 0;
+       ruinteger off = 0;
        rvm_asmins_t vmcode[256];
        rvmcpu_t *vm = rvm_cpu_create_default();
        
index 84c14dd..07401be 100644 (file)
@@ -5,8 +5,8 @@
        
 int main(int argc, char *argv[])
 {
-       ruint ret = 0;
-       ruint off = 0;
+       ruinteger ret = 0;
+       ruinteger off = 0;
        rvm_asmins_t vmcode[256];
        rvmcpu_t *vm = rvm_cpu_create_default();
        
index fba9eee..9f57429 100644 (file)
@@ -5,8 +5,8 @@
        
 int main(int argc, char *argv[])
 {
-       ruint ret = 0;
-       ruint off = 0;
+       ruinteger ret = 0;
+       ruinteger off = 0;
        rvm_asmins_t vmcode[256];
        rvmcpu_t *vm = rvm_cpu_create_default();
        
index 0ee7475..0a9b5dd 100644 (file)
@@ -4,8 +4,8 @@
        
 int main(int argc, char *argv[])
 {
-       ruint ret = 0;
-       ruint off = 0;
+       ruinteger ret = 0;
+       ruinteger off = 0;
        rvm_asmins_t vmcode[256];
        rvmcpu_t *vm = rvm_cpu_create_default();
        
index 56d3703..7524e1d 100644 (file)
@@ -7,8 +7,8 @@
        
 int main(int argc, char *argv[])
 {
-       ruint ret = 0;
-       ruint off = 0;
+       ruinteger ret = 0;
+       ruinteger off = 0;
        rvm_asmins_t vmcode[256];
        rvm_codelabel_t *err = NULL;
        rvmcpu_t *vm = rvm_cpu_create_default();
index 607e750..eaf4732 100644 (file)
@@ -24,9 +24,9 @@ static rvm_switable_t calltable[] = {
        
 int main(int argc, char *argv[])
 {
-       rint table1, table2, table3;
-       ruint ret = 0;
-       ruint off = 0;
+       rinteger table1, table2, table3;
+       ruinteger ret = 0;
+       ruinteger off = 0;
        rvm_asmins_t vmcode[256];
        rvmcpu_t *vm = rvm_cpu_create_default();
 
index a47f2a7..b45affd 100644 (file)
@@ -30,8 +30,8 @@ static rvm_switable_t switable[] = {
        
 int main(int argc, char *argv[])
 {
-       ruint ret = 0;
-       ruint off = 0;
+       ruinteger ret = 0;
+       ruinteger off = 0;
        rvmreg_t d1 = rvm_reg_create_double(1.0);
        rvmreg_t d2 = rvm_reg_create_double(-1.0);
        rvmreg_t ds = rvm_reg_create_string_ansi("-3.5785");
index 7e6c829..d434033 100644 (file)
@@ -5,8 +5,8 @@
        
 int main(int argc, char *argv[])
 {
-       ruint ret = 0;
-       ruint off = 0;
+       ruinteger ret = 0;
+       ruinteger off = 0;
        rvm_asmins_t vmcode[256];
        rvmcpu_t *vm = rvm_cpu_create_default();
        
index 0277af7..aca14b1 100644 (file)
@@ -4,8 +4,8 @@
        
 int main(int argc, char *argv[])
 {
-       ruint ret = 0;
-       ruint off = 0;
+       ruinteger ret = 0;
+       ruinteger off = 0;
        rvm_asmins_t vmcode[256];
        rvmcpu_t *vm = rvm_cpu_create_default();
        
index 4198c32..0ad8547 100644 (file)
@@ -5,8 +5,8 @@
        
 int main(int argc, char *argv[])
 {
-       ruint ret = 0;
-       ruint off = 0;
+       ruinteger ret = 0;
+       ruinteger off = 0;
        rvm_asmins_t vmcode[256];
        rvmcpu_t *vm = rvm_cpu_create_default();
        
index 9558ea3..3f3e16d 100644 (file)
@@ -5,8 +5,8 @@
        
 int main(int argc, char *argv[])
 {
-       ruint ret = 0;
-       ruint off = 0;
+       ruinteger ret = 0;
+       ruinteger off = 0;
        rvmreg_t d1 = rvm_reg_create_double(2.0);
        rvmreg_t d1s = rvm_reg_create_string_ansi("2.0");
        rvmreg_t d2 = rvm_reg_create_double(3.0);
index 6f6dadd..677e846 100644 (file)
@@ -5,8 +5,8 @@
        
 int main(int argc, char *argv[])
 {
-       ruint ret = 0;
-       ruint off = 0;
+       ruinteger ret = 0;
+       ruinteger off = 0;
        rvmreg_t d1 = rvm_reg_create_double(1.0);
        rvmreg_t d1s = rvm_reg_create_string_ansi("2.0");
        rvm_asmins_t vmcode[256];
index eb7a23e..b262827 100644 (file)
@@ -5,8 +5,8 @@
        
 int main(int argc, char *argv[])
 {
-       ruint ret = 0;
-       ruint off = 0;
+       ruinteger ret = 0;
+       ruinteger off = 0;
        rvmreg_t d1 = rvm_reg_create_double(-2.0);
        rvmreg_t d1s = rvm_reg_create_string_ansi("-2.0");
        rvmreg_t d2 = rvm_reg_create_double(3.0);
index 30f66ad..c199645 100644 (file)
@@ -4,10 +4,10 @@
        
 int main(int argc, char *argv[])
 {
-       ruint ret = 0;
+       ruinteger ret = 0;
        rword s =  -2;
        rword d =  0;
-       ruint off = 0;
+       ruinteger off = 0;
        rvm_asmins_t vmcode[256];
        rvmcpu_t *vm = rvm_cpu_create_default();
 
index f75da20..f87125c 100644 (file)
@@ -5,8 +5,8 @@
        
 int main(int argc, char *argv[])
 {
-       ruint ret = 0;
-       ruint off = 0;
+       ruinteger ret = 0;
+       ruinteger off = 0;
        rvm_asmins_t vmcode[256];
        rvmcpu_t *vm = rvm_cpu_create_default();
        
index 2a57408..f524a76 100644 (file)
@@ -5,8 +5,8 @@
        
 int main(int argc, char *argv[])
 {
-       ruint ret = 0;
-       ruint off = 0;
+       ruinteger ret = 0;
+       ruinteger off = 0;
        rvm_asmins_t vmcode[256];
        rvmcpu_t *vm = rvm_cpu_create_default();
        
index 6adb1bf..bb18d7e 100644 (file)
@@ -5,8 +5,8 @@
        
 int main(int argc, char *argv[])
 {
-       ruint ret = 0;
-       ruint off = 0;
+       ruinteger ret = 0;
+       ruinteger off = 0;
        rvm_asmins_t vmcode[256];
        rvmcpu_t *vm = rvm_cpu_create_default();
        
index 9bc46b5..7138c10 100644 (file)
@@ -4,8 +4,8 @@
        
 int main(int argc, char *argv[])
 {
-       ruint i, ret = 0;
-       ruint off = 0;
+       ruinteger i, ret = 0;
+       ruinteger off = 0;
        rvm_asmins_t vmcode[1024];
        rvmcpu_t *vm = rvm_cpu_create_default();
 
index a71dcbf..d35b2b7 100644 (file)
@@ -22,7 +22,7 @@ int main(int argc, char *argv[])
        rvmcpu_t *cpu;
        rvm_codegen_t *cg;
        rvm_codelabel_t *err;
-       ruint ntable;
+       ruinteger ntable;
 
        cg = rvm_codegen_create();
        cpu = rvm_cpu_create_default();
index 37fcc91..ce3aea6 100644 (file)
@@ -34,7 +34,7 @@ int main(int argc, char *argv[])
        rvmcpu_t *cpu;
        rvm_codegen_t *cg;
        rvm_codelabel_t *err;
-       ruint ntable;
+       ruinteger ntable;
 
        cg = rvm_codegen_create();
        cpu = rvm_cpu_create_default();
index f9acb21..117324f 100644 (file)
@@ -30,8 +30,8 @@ static rvm_switable_t calltable[] = {
 int main(int argc, char *argv[])
 {
        rlong iter = 1;
-       ruint ret = 0;
-       ruint off = 0;
+       ruinteger ret = 0;
+       ruinteger off = 0;
        rvm_asmins_t vmcode[256];
        rvmcpu_t *vm = rvm_cpu_create_default();
 
index ebe9950..d8c9bac 100644 (file)
@@ -9,7 +9,7 @@ int main(int argc, char *argv[])
 {
        rvmcpu_t *cpu;
        rvm_asmins_t code[1024];
-       ruint off = 0;
+       ruinteger off = 0;
 
        cpu = rvm_cpu_create_default();
 
index a0b6193..4cbc2a8 100644 (file)
@@ -4,7 +4,7 @@
 #include "rmem.h"
 
 
-static void r_carray_replaceint(rcarray_t *carray, ruint index, rint elt)
+static void r_carray_replaceint(rcarray_t *carray, ruinteger index, rinteger elt)
 {
        r_carray_replace(carray, index, &elt);
 }
index 2f28a03..2d0f2f2 100644 (file)
@@ -8,7 +8,7 @@ int main(int argc, char *argv[])
 {
        rhash_t *h;
        rhash_node_t *node = NULL;
-       ruint idig[] = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9};
+       ruinteger idig[] = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9};
        rchar *sdig[] = {"zero", "one", "two", "three", "four", "five", "six", "seven", "eight", "nine"};
 
        h = r_hash_create(5, r_hash_strequal, r_hash_strhash);
@@ -16,7 +16,7 @@ int main(int argc, char *argv[])
        r_hash_insert(h, sdig[7], &idig[8]);
        r_hash_insert(h, sdig[7], &idig[7]);
        r_hash_insert(h, sdig[5], &idig[5]);
-       fprintf(stdout, "key: %s, value: %d\n", "seven", *((ruint*)r_hash_lookup(h, "seven")));
+       fprintf(stdout, "key: %s, value: %d\n", "seven", *((ruinteger*)r_hash_lookup(h, "seven")));
        r_hash_remove(h, sdig[7]);
        if (!r_hash_lookup(h, "seven")) {
                r_hash_insert(h, sdig[7], &idig[7]);
@@ -24,9 +24,9 @@ int main(int argc, char *argv[])
                r_hash_insert(h, sdig[7], &idig[9]);
        }
        for (node = r_hash_nodelookup(h, node, "seven"); node; node = r_hash_nodelookup(h, node, "seven"))
-               fprintf(stdout, "key: %s, value: %d\n", "seven", *((ruint*)r_hash_value(node)));
-       fprintf(stdout, "key: %s, value: %d\n", sdig[5], *((ruint*)r_hash_lookup(h, sdig[5])));
-       fprintf(stdout, "key: %s, value: %d\n", sdig[0], *((ruint*)r_hash_lookup(h, sdig[0])));
+               fprintf(stdout, "key: %s, value: %d\n", "seven", *((ruinteger*)r_hash_value(node)));
+       fprintf(stdout, "key: %s, value: %d\n", sdig[5], *((ruinteger*)r_hash_lookup(h, sdig[5])));
+       fprintf(stdout, "key: %s, value: %d\n", sdig[0], *((ruinteger*)r_hash_lookup(h, sdig[0])));
 
        r_object_destroy((robject_t*)h);
 
index 09880b1..a3891ee 100644 (file)
@@ -24,9 +24,9 @@ static int compileonly = 0;
 
 typedef struct rvm_vardeclaration_s {
        const rchar *varname;
-       ruint varnamesiz;
+       ruinteger varnamesiz;
        const rchar *val;
-       ruint valsiz;
+       ruinteger valsiz;
 } rvm_vardeclaration_t;
 
 
@@ -66,10 +66,10 @@ typedef struct rvm_codespan_s {
 typedef struct rvm_costat_s rvm_costat_t;
 
 struct rvm_costat_s {
-       ruint binaryop;
-       ruint level;
-       ruint dirty;
-       ruint funcalls;
+       ruinteger binaryop;
+       ruinteger level;
+       ruinteger dirty;
+       ruinteger funcalls;
        rvm_costat_t *root;
 };
 
@@ -103,12 +103,12 @@ rvm_costat_t *rvm_costat_current(rvm_compiler_t *co)
 }
 
 
-ruint rvm_costat_getdebth(rvm_compiler_t *co)
+ruinteger rvm_costat_getdebth(rvm_compiler_t *co)
 {
        return r_array_length(co->stat);
 }
 
-ruint rvm_costat_getlevel(rvm_compiler_t *co)
+ruinteger rvm_costat_getlevel(rvm_compiler_t *co)
 {
        if (!rvm_costat_current(co))
                return 0;
@@ -129,7 +129,7 @@ void rvm_costat_declevel(rvm_compiler_t *co)
 }
 
 
-ruint rvm_costat_getbinaryop(rvm_compiler_t *co)
+ruinteger rvm_costat_getbinaryop(rvm_compiler_t *co)
 {
        if (!rvm_costat_current(co))
                return 0;
@@ -148,7 +148,7 @@ void rvm_costat_decbinaryop(rvm_compiler_t *co)
        rvm_costat_current(co)->binaryop -= 1;
 }
 
-ruint rvm_costat_getdirty(rvm_compiler_t *co)
+ruinteger rvm_costat_getdirty(rvm_compiler_t *co)
 {
        if (!rvm_costat_current(co))
                return 0;
@@ -187,7 +187,7 @@ rvm_compiler_t *rvm_compiler_create(rpa_dbex_handle dbex)
        r_memset(co, 0, sizeof(*co));
        co->cg = rvm_codegen_create();
        co->scope = rvm_scope_create();
-       co->opcodes = r_array_create(sizeof(ruint));
+       co->opcodes = r_array_create(sizeof(ruinteger));
        co->fp = r_array_create(sizeof(rword));
        co->funcall = r_array_create(sizeof(rvm_funcall_t));
        co->stat = r_array_create(sizeof(rvm_costat_t));
@@ -339,21 +339,21 @@ int codegen_opcode_unary_callback(rpa_stat_handle stat, const char *name, void *
        rvm_compiler_t *co = (rvm_compiler_t *)userdata;
 
        if (r_stringncmp("-", input, size))
-               r_array_push(co->opcodes, RVM_OPSWI(rvm_cpu_swilookup_s(co->cpu, NULL, "RVM_SWI_NEG")), ruint);
+               r_array_push(co->opcodes, RVM_OPSWI(rvm_cpu_swilookup_s(co->cpu, NULL, "RVM_SWI_NEG")), ruinteger);
        else if (r_stringncmp("+", input, size))
-               r_array_push(co->opcodes, RVM_NOP, ruint);
+               r_array_push(co->opcodes, RVM_NOP, ruinteger);
        else if (r_stringncmp("!", input, size))
-               r_array_push(co->opcodes, RVM_ELNOT, ruint);
+               r_array_push(co->opcodes, RVM_ELNOT, ruinteger);
        else if (r_stringncmp("~", input, size))
-               r_array_push(co->opcodes, RVM_ENOT, ruint);
+               r_array_push(co->opcodes, RVM_ENOT, ruinteger);
        else if (r_stringncmp("delete", input, size))
-               r_array_push(co->opcodes, RVM_NOP, ruint);
+               r_array_push(co->opcodes, RVM_NOP, ruinteger);
        else if (r_stringncmp("void", input, size))
-               r_array_push(co->opcodes, RVM_NOP, ruint);
+               r_array_push(co->opcodes, RVM_NOP, ruinteger);
        else if (r_stringncmp("typeof", input, size))
-               r_array_push(co->opcodes, RVM_NOP, ruint);
+               r_array_push(co->opcodes, RVM_NOP, ruinteger);
        else
-               r_array_push(co->opcodes, RVM_ABORT, ruint);
+               r_array_push(co->opcodes, RVM_ABORT, ruinteger);
 
        codegen_print_callback(stat, name, userdata, input, size, reason);
        return size;
@@ -365,81 +365,81 @@ int codegen_opcode_callback(rpa_stat_handle stat, const char *name, void *userda
        rvm_compiler_t *co = (rvm_compiler_t *)userdata;
 
        if (r_stringncmp("++", input,  size))
-               r_array_push(co->opcodes, RVM_EADD, ruint);
+               r_array_push(co->opcodes, RVM_EADD, ruinteger);
        else if (r_stringncmp("+", input,  size))
-               r_array_push(co->opcodes, RVM_EADD, ruint);
+               r_array_push(co->opcodes, RVM_EADD, ruinteger);
        else if (r_stringncmp("+=", input,  size))
-               r_array_push(co->opcodes, RVM_EADD, ruint);
+               r_array_push(co->opcodes, RVM_EADD, ruinteger);
        else if (r_stringncmp("--", input,  size))
-               r_array_push(co->opcodes, RVM_ESUB, ruint);
+               r_array_push(co->opcodes, RVM_ESUB, ruinteger);
        else if (r_stringncmp("-", input,  size))
-               r_array_push(co->opcodes, RVM_ESUB, ruint);
+               r_array_push(co->opcodes, RVM_ESUB, ruinteger);
        else if (r_stringncmp("-=", input,  size))
-               r_array_push(co->opcodes, RVM_ESUB, ruint);
+               r_array_push(co->opcodes, RVM_ESUB, ruinteger);
        else if (r_stringncmp("*", input,  size))
-               r_array_push(co->opcodes, RVM_EMUL, ruint);
+               r_array_push(co->opcodes, RVM_EMUL, ruinteger);
        else if (r_stringncmp("*=", input,  size))
-               r_array_push(co->opcodes, RVM_EMUL, ruint);
+               r_array_push(co->opcodes, RVM_EMUL, ruinteger);
        else if (r_stringncmp("/", input,  size))
-               r_array_push(co->opcodes, RVM_EDIV, ruint);
+               r_array_push(co->opcodes, RVM_EDIV, ruinteger);
        else if (r_stringncmp("/=", input,  size))
-               r_array_push(co->opcodes, RVM_EDIV, ruint);
+               r_array_push(co->opcodes, RVM_EDIV, ruinteger);
        else if (r_stringncmp("%", input,  size))
-               r_array_push(co->opcodes, RVM_EMOD, ruint);
+               r_array_push(co->opcodes, RVM_EMOD, ruinteger);
        else if (r_stringncmp("%=", input,  size))
-               r_array_push(co->opcodes, RVM_EMOD, ruint);
+               r_array_push(co->opcodes, RVM_EMOD, ruinteger);
        else if (r_stringncmp("&&", input,  size))
-               r_array_push(co->opcodes, RVM_ELAND, ruint);
+               r_array_push(co->opcodes, RVM_ELAND, ruinteger);
        else if (r_stringncmp("||", input,  size))
-               r_array_push(co->opcodes, RVM_ELOR, ruint);
+               r_array_push(co->opcodes, RVM_ELOR, ruinteger);
        else if (r_stringncmp("&", input,  size))
-               r_array_push(co->opcodes, RVM_EAND, ruint);
+               r_array_push(co->opcodes, RVM_EAND, ruinteger);
        else if (r_stringncmp("&=", input,  size))
-               r_array_push(co->opcodes, RVM_EAND, ruint);
+               r_array_push(co->opcodes, RVM_EAND, ruinteger);
        else if (r_stringncmp("|", input,  size))
-               r_array_push(co->opcodes, RVM_EORR, ruint);
+               r_array_push(co->opcodes, RVM_EORR, ruinteger);
        else if (r_stringncmp("|=", input,  size))
-               r_array_push(co->opcodes, RVM_EORR, ruint);
+               r_array_push(co->opcodes, RVM_EORR, ruinteger);
        else if (r_stringncmp("^", input,  size))
-               r_array_push(co->opcodes, RVM_EXOR, ruint);
+               r_array_push(co->opcodes, RVM_EXOR, ruinteger);
        else if (r_stringncmp("^=", input,  size))
-               r_array_push(co->opcodes, RVM_EXOR, ruint);
+               r_array_push(co->opcodes, RVM_EXOR, ruinteger);
        else if (r_stringncmp(">>", input,  size))
-               r_array_push(co->opcodes, RVM_ELSR, ruint);
+               r_array_push(co->opcodes, RVM_ELSR, ruinteger);
        else if (r_stringncmp(">>=", input,  size))
-               r_array_push(co->opcodes, RVM_ELSR, ruint);
+               r_array_push(co->opcodes, RVM_ELSR, ruinteger);
        else if (r_stringncmp("<<", input,  size))
-               r_array_push(co->opcodes, RVM_ELSL, ruint);
+               r_array_push(co->opcodes, RVM_ELSL, ruinteger);
        else if (r_stringncmp("<<=", input,  size))
-               r_array_push(co->opcodes, RVM_ELSL, ruint);
+               r_array_push(co->opcodes, RVM_ELSL, ruinteger);
        else if (r_stringncmp(">>>", input,  size))
-               r_array_push(co->opcodes, RVM_ELSRU, ruint);
+               r_array_push(co->opcodes, RVM_ELSRU, ruinteger);
        else if (r_stringncmp(">>>=", input,  size))
-               r_array_push(co->opcodes, RVM_ELSRU, ruint);
+               r_array_push(co->opcodes, RVM_ELSRU, ruinteger);
        else if (r_stringncmp("<=", input,  size))
-               r_array_push(co->opcodes, RVM_ELESSEQ, ruint);
+               r_array_push(co->opcodes, RVM_ELESSEQ, ruinteger);
        else if (r_stringncmp(">=", input,  size))
-               r_array_push(co->opcodes, RVM_EGREATEQ, ruint);
+               r_array_push(co->opcodes, RVM_EGREATEQ, ruinteger);
        else if (r_stringncmp("<", input,  size))
-               r_array_push(co->opcodes, RVM_ELESS, ruint);
+               r_array_push(co->opcodes, RVM_ELESS, ruinteger);
        else if (r_stringncmp(">", input,  size))
-               r_array_push(co->opcodes, RVM_EGREAT, ruint);
+               r_array_push(co->opcodes, RVM_EGREAT, ruinteger);
        else if (r_stringncmp("===", input,  size))
-               r_array_push(co->opcodes, RVM_EEQ, ruint);
+               r_array_push(co->opcodes, RVM_EEQ, ruinteger);
        else if (r_stringncmp("==", input,  size))
-               r_array_push(co->opcodes, RVM_EEQ, ruint);
+               r_array_push(co->opcodes, RVM_EEQ, ruinteger);
        else if (r_stringncmp("!==", input,  size))
-               r_array_push(co->opcodes, RVM_ENOTEQ, ruint);
+               r_array_push(co->opcodes, RVM_ENOTEQ, ruinteger);
        else if (r_stringncmp("!=", input,  size))
-               r_array_push(co->opcodes, RVM_ENOTEQ, ruint);
+               r_array_push(co->opcodes, RVM_ENOTEQ, ruinteger);
        else if (r_stringncmp("!", input,  size))
-               r_array_push(co->opcodes, RVM_ELNOT, ruint);
+               r_array_push(co->opcodes, RVM_ELNOT, ruinteger);
        else if (r_stringncmp("~", input,  size))
-               r_array_push(co->opcodes, RVM_ENOT, ruint);
+               r_array_push(co->opcodes, RVM_ENOT, ruinteger);
        else if (r_stringncmp("=", input,  size))
-               r_array_push(co->opcodes, RVM_NOP, ruint);
+               r_array_push(co->opcodes, RVM_NOP, ruinteger);
        else
-               r_array_push(co->opcodes, RVM_ABORT, ruint);
+               r_array_push(co->opcodes, RVM_ABORT, ruinteger);
 
        codegen_print_callback(stat, name, userdata, input, size, reason);
        return size;
@@ -455,8 +455,8 @@ int codegen_binary_asmop_callback(rpa_stat_handle stat, const char *name, void *
                rvm_costat_inclevel(co);
                rvm_costat_incbinaryop(co);
        } else if (reason & RPA_REASON_MATCHED) {
-               ruint op1;
-               ruint opcode = r_array_pop(co->opcodes, ruint);
+               ruinteger op1;
+               ruinteger opcode = r_array_pop(co->opcodes, ruinteger);
 
                if (rvm_costat_getlevel(co) < RVM_SAVEDREGS_MAX) {
                        op1 = rvm_costat_getlevel(co) + RVM_SAVEDREGS_FIRST - 1;
@@ -527,13 +527,13 @@ int codegen_unary_asmop_callback(rpa_stat_handle stat, const char *name, void *u
 {
        rvm_compiler_t *co = (rvm_compiler_t *)userdata;
        rulong off = rvm_codegen_getcodesize(co->cg);
-       ruint op1 = rvm_costat_getlevel(co) ? RVM_SAVEDREGS_FIRST - 1 + rvm_costat_getlevel(co) : R0;
+       ruinteger op1 = rvm_costat_getlevel(co) ? RVM_SAVEDREGS_FIRST - 1 + rvm_costat_getlevel(co) : R0;
 
        if (reason & RPA_REASON_START) {
        }
 
        if (reason & RPA_REASON_MATCHED) {
-               ruint opcode = r_array_pop(co->opcodes, ruint);
+               ruinteger opcode = r_array_pop(co->opcodes, ruinteger);
                rvm_codegen_addins(co->cg, rvm_asm(opcode, op1, op1, XX, 0));
        }
 
@@ -640,7 +640,7 @@ int codegen_string_callback(rpa_stat_handle stat, const char *name, void *userda
 int codegen_program_callback(rpa_stat_handle stat, const char *name, void *userdata, const char *input, unsigned int size, unsigned int reason)
 {
        rvm_compiler_t *co = (rvm_compiler_t *)userdata;
-       ruint off;
+       ruinteger off;
 
        if (reason & RPA_REASON_START) {
                off = rvm_codegen_getcodesize(co->cg);
@@ -688,7 +688,7 @@ int codegen_opassign_callback(rpa_stat_handle stat, const char *name, void *user
 {
        rvm_compiler_t *co = (rvm_compiler_t *)userdata;
        rulong off = rvm_codegen_getcodesize(co->cg);
-       ruint opcode = r_array_pop(co->opcodes, ruint);
+       ruinteger opcode = r_array_pop(co->opcodes, ruinteger);
 
        rvm_codegen_addins(co->cg, rvm_asm(RVM_POP, R1, XX, XX, 0));
        if (opcode != RVM_NOP) {
@@ -708,7 +708,7 @@ int codegen_oppostfix_callback(rpa_stat_handle stat, const char *name, void *use
 {
        rvm_compiler_t *co = (rvm_compiler_t *)userdata;
        rulong off = rvm_codegen_getcodesize(co->cg);
-       ruint opcode = r_array_pop(co->opcodes, ruint);
+       ruinteger opcode = r_array_pop(co->opcodes, ruinteger);
 
        rvm_codegen_addins(co->cg, rvm_asm(RVM_MOV, R1, R0, XX, 0));
        rvm_codegen_addins(co->cg, rvm_asm(RVM_LDRR, R0, R1, XX, 0));
@@ -727,7 +727,7 @@ int codegen_opprefix_callback(rpa_stat_handle stat, const char *name, void *user
 {
        rvm_compiler_t *co = (rvm_compiler_t *)userdata;
        rulong off = rvm_codegen_getcodesize(co->cg);
-       ruint opcode = r_array_pop(co->opcodes, ruint);
+       ruinteger opcode = r_array_pop(co->opcodes, ruinteger);
 
        rvm_codegen_addins(co->cg, rvm_asm(RVM_MOV, R1, R0, XX, 0));
        rvm_codegen_addins(co->cg, rvm_asm(RVM_LDRR, R0, R1, XX, 0));
@@ -826,7 +826,7 @@ int codegen_h_arrayelementvalue_callback(rpa_stat_handle stat, const char *name,
 int codegen_swiidexist_callback(rpa_stat_handle stat, const char *name, void *userdata, const char *input, unsigned int size, unsigned int reason)
 {
        rvm_compiler_t *co = (rvm_compiler_t *)userdata;
-       rint swi = rvm_cpu_swilookup(co->cpu, NULL, input, size);
+       rinteger swi = rvm_cpu_swilookup(co->cpu, NULL, input, size);
 
        if (swi < 0)
                return 0;
@@ -840,7 +840,7 @@ int codegen_swiid_callback(rpa_stat_handle stat, const char *name, void *userdat
 {
        rvm_compiler_t *co = (rvm_compiler_t *)userdata;
        rulong off = rvm_codegen_getcodesize(co->cg);
-       rint swi = rvm_cpu_swilookup(co->cpu, NULL, input, size);
+       rinteger swi = rvm_cpu_swilookup(co->cpu, NULL, input, size);
 
        if (swi < 0)
                return 0;
@@ -1831,7 +1831,7 @@ int main(int argc, char *argv[])
        rstr_t *script = NULL, *unmapscript = NULL;
        rvmcpu_t *cpu;
        rvmreg_t *thisptr;
-       ruint ntable;
+       ruinteger ntable;
        rpa_dbex_handle dbex = rpa_dbex_create();
        rvm_compiler_t *co = rvm_compiler_create(dbex);
 
index c4cc283..dc97364 100644 (file)
@@ -32,8 +32,8 @@ int main(int argc, char *argv[])
 {
        rvmcpu_t *cpu;
        rvm_asmins_t code[1024];
-       ruint off = 0;
-       ruint ntable;
+       ruinteger off = 0;
+       ruinteger ntable;
 
        cpu = rvm_cpu_create_default();
        ntable = rvm_cpu_addswitable(cpu, "switable", switable);
index 577d8b8..d403ee8 100644 (file)
@@ -30,8 +30,8 @@ static rvm_switable_t calltable[] = {
 int main(int argc, char *argv[])
 {
        rlong i, iter = 1;
-       ruint ret = 0;
-       ruint off = 0;
+       ruinteger ret = 0;
+       ruinteger off = 0;
        rvm_asmins_t vmcode[256];
        rvmcpu_t *vm = rvm_cpu_create_default();
 
index 91ae625..6fcacd3 100644 (file)
@@ -73,7 +73,7 @@ int main(int argc, char *argv[])
        rvm_codelabel_t *err;
        rvmcpu_t *cpu;
        rvm_opmap_t *opmap;
-       ruint ntable;
+       ruinteger ntable;
 
        ctx.opmap = opmap = rvm_opmap_create();
        cpu = rvm_cpu_create_default();
index 839e878..6c34ecb 100644 (file)
@@ -75,7 +75,7 @@ int main(int argc, char *argv[])
        rvm_codelabel_t *err;
        rpa_compiler_t *co;
        rpastat_t *stat;
-       ruint mainoff;
+       ruinteger mainoff;
        char teststr[] = "abcdefghiabc";
 
        co = rpa_compiler_create();
index cc4acc0..aae602b 100644 (file)
@@ -121,7 +121,7 @@ int main(int argc, char *argv[])
        rvm_codelabel_t *err;
        rpa_compiler_t *co;
        rpastat_t *stat;
-       ruint mainoff;
+       ruinteger mainoff;
        char teststr[] = "abcabcabcabc";
 
        co = rpa_compiler_create();
index 80ff7e1..bd7c285 100644 (file)
@@ -144,7 +144,7 @@ int main(int argc, char *argv[])
        rvm_codelabel_t *err;
        rpa_compiler_t *co;
        rpastat_t *stat;
-       ruint mainoff;
+       ruinteger mainoff;
        char teststr[] = "abcabcabcabc";
 
        co = rpa_compiler_create();
index 38fde1a..5aab380 100644 (file)
@@ -84,7 +84,7 @@ int main(int argc, char *argv[])
        rvm_codelabel_t *err;
        rpa_compiler_t *co;
        rpastat_t *stat;
-       ruint mainoff;
+       ruinteger mainoff;
        char teststr[] = "abcabcabcdefghiabc";
 
        co = rpa_compiler_create();
index b66bb11..512a3dd 100644 (file)
@@ -144,7 +144,7 @@ int main(int argc, char *argv[])
        rvm_codelabel_t *err;
        rpa_compiler_t *co;
        rpastat_t *stat;
-       ruint mainoff;
+       ruinteger mainoff;
        char teststr[] = "xyzxyzxyzxyz";
 
        co = rpa_compiler_create();
index 5c71e36..0ec3ad7 100644 (file)
@@ -97,7 +97,7 @@ int main(int argc, char *argv[])
        rvm_codelabel_t *err;
        rpa_compiler_t *co;
        rpastat_t *stat;
-       ruint mainoff;
+       ruinteger mainoff;
        char teststr[] = "abcabcabcabc";
 
        co = rpa_compiler_create();
index 4b83983..b34db45 100644 (file)
@@ -130,8 +130,8 @@ int main(int argc, char *argv[])
        rvm_codelabel_t *err;
        rpa_compiler_t *co;
        rpastat_t *stat;
-       ruint mainoff;
-       rint i;
+       ruinteger mainoff;
+       rinteger i;
        rarray_t *records = rpa_records_create();
        char teststr[] = "123-4567ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ";
 
index 67bba81..514609d 100644 (file)
@@ -113,8 +113,8 @@ int main(int argc, char *argv[])
        rvm_codelabel_t *err;
        rpa_compiler_t *co;
        rpastat_t *stat;
-       ruint mainoff;
-       rint i;
+       ruinteger mainoff;
+       rinteger i;
        char teststr[] = "XYZabcabcabcXXXabcabcXXXabcabcabcabcZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ";
 
        co = rpa_compiler_create();
index f5bf025..198ac5e 100644 (file)
@@ -295,8 +295,8 @@ int main(int argc, char *argv[])
        rvm_codelabel_t *err;
        rpa_compiler_t *co;
        rpastat_t *stat;
-       ruint mainoff;
-       rint i;
+       ruinteger mainoff;
+       rinteger i;
        char teststr[] = "1*v23*z457/(((((((((((((89^233)))))))))*2)/33)+23)*457)/89+233*2/33*23*457/89+233*2/33*23*457/89+233*2/33*23*457/89+233*2/33*23*457/89+233*2/33|5&77^37 ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ";
 //     char teststr[] = "1/23+45##ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ";
 
index 9e77872..fdcb595 100644 (file)
@@ -72,8 +72,8 @@ int main(int argc, char *argv[])
        rvm_codelabel_t *err;
        rpa_compiler_t *co;
        rpastat_t *stat;
-       ruint mainoff;
-       rint i;
+       ruinteger mainoff;
+       rinteger i;
        rarray_t *records = rpa_records_create();
        char teststr[] = "abcabcxyzabc";
 
index 2e1e91c..69cd03f 100644 (file)
@@ -21,7 +21,7 @@ typedef struct rpa_buffer_s {
 
 int main(int argc, char *argv[])
 {
-       rint ret = 0, i;
+       rinteger ret = 0, i;
        rpadbex_t *dbex = rpa_dbex_create();
 
 //     rpa_parser_t *pa = rpa_parser_create();
index 3270330..e6f668a 100644 (file)
@@ -62,7 +62,7 @@ int main(int argc, char *argv[])
 {
        rpa_compiler_t *co;
        rpastat_t *stat;
-       ruint mainoff;
+       ruinteger mainoff;
        char teststr[] = "aaaaa";
 
        co = rpa_compiler_create();
index 0db6014..7c67baa 100644 (file)
@@ -60,7 +60,7 @@ int main(int argc, char *argv[])
 {
        rpa_compiler_t *co;
        rpastat_t *stat;
-       ruint mainoff;
+       ruinteger mainoff;
        char teststr[] = "abaaa";
 
        co = rpa_compiler_create();
index 3c08ece..52b3d15 100644 (file)
@@ -121,7 +121,7 @@ int main(int argc, char *argv[])
        rvm_codelabel_t *err;
        rpa_compiler_t *co;
        rpastat_t *stat;
-       ruint mainoff;
+       ruinteger mainoff;
        char teststr[] = "abcabcabcabc";
 
        co = rpa_compiler_create();
index 48fbd15..77e5748 100644 (file)
@@ -121,7 +121,7 @@ int main(int argc, char *argv[])
        rvm_codelabel_t *err;
        rpa_compiler_t *co;
        rpastat_t *stat;
-       ruint mainoff;
+       ruinteger mainoff;
        char teststr[] = "abcabcabcabc";
 
        co = rpa_compiler_create();