dad460189f
* include/linux/arm/syscall.h, include/linux/x86/syscall.h, include/mes/constants.h: Remove CONSTANTs. * lib/m2/open.c: Move to... * lib/linux/open.c: ...here. Update to make gcc-compatible. * scaffold/argv.kaem: Update accordingly. * lib/linux/lseek.c (_leek, lseek): Suport M2-Planet. * lib/linux/_open3.c (_open3): Fix cast. * lib/linux/waitpid.c (waitpid): Suport M2-Planet. * lib/m2/getcwd.c (PATH_MAX): Remove CONSTANT. * lib/m2/isatty.c (TCGETS): Remove CONSTANT. * lib/mes/ntoab.c: Support M2-Planet. * lib/posix/getcwd.c (__getcwd_buf): Remove. * lib/posix/getenv.c (M2_PTR_SIZE)[__M2__]: Update to #define. * lib/posix/setenv.c: Likewise. * lib/stub/__raise.c (SIGABRT): Remove CONSTANT. * src/core.c (error): Use __M2__ instead of __M2_PLANET__. * src/gc.c (M2_CELL_SIZE)[__M2__]: Update to #define. Support non-bootstrap-mode. * src/symbol.c: Likewise. * src/vector.c: Likewise. * src/posix.c: Likewise. (__raise): Move to... * include/mes/lib-cc.h (__raise): ...this new file to avoid M2-Planet crash. * include/sys/types.h: Include it. * lib/mes/div.c (__raise): Remove prototype. [__TINYC__ || SYSTEM_LIBC] (__raise): Remove macro. * include/mes/lib.h (__raise)[SYSTEM_LIBC]: Remove prototype. * kaem.run: Remove --botstrap-mode. Update source list accordingly. * simple.make (M2_PLANET_FLAGS): Remove --bootstrap-mode. * simple.make (M2_SOURCES, M2_PLANET_INCLUDES): Update source list accordingly. * include/sys/types.h (EOF): Move to... * include/mes/lib-cccc.h (EOF): ...here, and... * include/m2/types.h (EOF): ...here, to avoid M2-Planet crash.
72 lines
4.3 KiB
Bash
Executable file
72 lines
4.3 KiB
Bash
Executable file
#! /bin/sh
|
|
|
|
set -x
|
|
|
|
ptr_once='s,([^N])(MACRO|NAME|VALUE) \(([^()]*)\),\1\3->\L\2,'
|
|
ptr_once='s,([^N])(BYTES|CAR|CDR|CLOSURE|CONTINUATION|LENGTH|MACRO|NAME|PORT|REF|STRING|STRUCT|TYPE|VALUE|VARIABLE|VECTOR) \(([^()]*)\),\1\3->\L\2,'
|
|
n_once='s,N(TYPE|CAR|CDR|LENGTH|VALUE|VECTOR) \(([^()]*)\),\2->\L\1,'
|
|
ncbytes='s,NC(BYTES) \(([^()]*)\),news_\L\1 (\2),'
|
|
cbytes='s,([^N])C(BYTES) \(([^()]*)\),\1cell_\L\2 (\3),'
|
|
cstring='s,C(STRING) \(([^()]*)\),cell_bytes (STRING (\2)),'
|
|
struct='s,SCM,struct scm *,g'
|
|
struct_scm_p='s,struct scm\* ?,struct scm *,g'
|
|
|
|
sed -ri \
|
|
-e 's,POINTER_CELLS=0,POINTER_CELLS=1', \
|
|
-e 's,#define POINTER_CELLS 0,#define POINTER_CELLS 1', \
|
|
-e "$ncbytes" \
|
|
-e "$cbytes" \
|
|
-e "$cstring" \
|
|
\
|
|
-e "$ncbytes" \
|
|
-e "$cbytes" \
|
|
-e "$cstring" \
|
|
\
|
|
-e "$ptr_once" \
|
|
-e "$ptr_once" \
|
|
-e "$ptr_once" \
|
|
-e 's,->\<struct\>,->structure,g' \
|
|
-e "$struct" \
|
|
-e "$struct_scm_p" \
|
|
\
|
|
-e "$n_once" \
|
|
-e "$n_once" \
|
|
\
|
|
-e 's,CAR \(([^()]*)\),\1->cdr,' \
|
|
-e 's,CAAR \(([^()]*)\),\1->car->car,' \
|
|
-e 's,CADR \(([^()]*)\),\1->cdr->car,' \
|
|
-e 's,CDAR \(([^()]*)\),\1->car->cdr,' \
|
|
-e 's,CDDR \(([^()]*)\),\1->cdr->cdr,' \
|
|
-e 's,CADAR \(([^()]*)\),\1->car->cdr->car,' \
|
|
-e 's,CADDR \(([^()]*)\),\1->cdr->cdr->car,' \
|
|
-e 's,CDADR \(([^()]*)\),\1->cdr->car->cdr,' \
|
|
-e 's,CDDDR \(([^()]*)\),\1->cdr->cdr->cdr,' \
|
|
-e 's,CDDAR \(([^()]*)\),\1->car->cdr->cdr,' \
|
|
-e 's,CDADAR \(([^()]*)\),\1->cdr->car->cdr->car,' \
|
|
\
|
|
include/mes/builtins.h \
|
|
include/mes/mes.h \
|
|
include/mes/symbols.h \
|
|
include/mes/builtins.h \
|
|
src/builtins.c \
|
|
src/cc.c \
|
|
src/core.c \
|
|
src/display.c \
|
|
src/eval-apply.c \
|
|
src/gc.c \
|
|
src/hash.c \
|
|
src/lib.c \
|
|
src/m2.c \
|
|
src/math.c \
|
|
src/mes.c \
|
|
src/module.c \
|
|
src/posix.c \
|
|
src/reader.c \
|
|
src/stack.c \
|
|
src/string.c \
|
|
src/struct.c \
|
|
src/symbol.c \
|
|
src/vector.c \
|
|
src/test/gc.c \
|
|
simple.make \
|