lassik
/
upscheme
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Start rearranging things within scheme.h

This commit is contained in:
Lassi Kortela 2019-08-27 00:42:13 +03:00
parent 8c006ac672
commit b989d60bcd
1 changed files with 29 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
c/scheme.h
View File

@ -18,6 +18,31 @@
#undef BITS32 #undef BITS32
#undef BITS64 #undef BITS64
typedef uintptr_t value_t;
typedef uintptr_t ufixnum_t;
typedef intptr_t fixnum_t;
#ifdef BITS64
#define T_FIXNUM T_INT64
#else
#define T_FIXNUM T_INT32
#endif
#ifdef __DMC__
#include "error_dmc.h"
#endif
#ifdef __GNUC__
#include "error_gnuc.h"
#endif
#ifdef _MSC_VER
#include "error_msc.h"
#endif
#ifdef __WATCOMC__
#include "error_watcomc.h"
#endif
#ifdef __WATCOMC__ #ifdef __WATCOMC__
typedef float float_t; typedef float float_t;
typedef double double_t; typedef double double_t;
@ -589,15 +614,6 @@ union ieee854_long_double {
//// #include "flisp.h" //// #include "flisp.h"
typedef uintptr_t value_t;
typedef uintptr_t ufixnum_t;
typedef intptr_t fixnum_t;
#ifdef BITS64
#define T_FIXNUM T_INT64
#else
#define T_FIXNUM T_INT32
#endif
struct cons { struct cons {
value_t car; value_t car;
value_t cdr; value_t cdr;
@ -975,24 +991,6 @@ value_t cvalue_wchar(value_t *args, uint32_t nargs);
void fl_init(size_t initial_heapsize); void fl_init(size_t initial_heapsize);
int fl_load_boot_image(void); int fl_load_boot_image(void);
//// #include "error.h"
#ifdef __DMC__
#include "error_dmc.h"
#endif
#ifdef __GNUC__
#include "error_gnuc.h"
#endif
#ifdef _MSC_VER
#include "error_msc.h"
#endif
#ifdef __WATCOMC__
#include "error_watcomc.h"
#endif
//// #include "buf.h" //// #include "buf.h"
struct buf { struct buf {
@ -1031,10 +1029,6 @@ const char *env_get_os_name(void);
value_t builtin_environment_stack(value_t *args, uint32_t nargs); value_t builtin_environment_stack(value_t *args, uint32_t nargs);
#include "opcodes.h"
#include "htableh_inc.h"
//// #include "libraries.h" //// #include "libraries.h"
value_t builtin_import(value_t *args, uint32_t nargs); value_t builtin_import(value_t *args, uint32_t nargs);
@ -1064,3 +1058,7 @@ value_t builtin_color_name_to_rgb24(value_t *args, uint32_t nargs);
value_t fl_stringp(value_t *args, uint32_t nargs); value_t fl_stringp(value_t *args, uint32_t nargs);
value_t fl_string_reverse(value_t *args, uint32_t nargs); value_t fl_string_reverse(value_t *args, uint32_t nargs);
value_t fl_string_sub(value_t *args, uint32_t nargs); value_t fl_string_sub(value_t *args, uint32_t nargs);
#include "opcodes.h"
#include "htableh_inc.h"