75 lines
3.9 KiB
Bash
Executable File
75 lines
3.9 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'
|
|
|
|
sed -i -e 's,MES_ARENA=,#MES_ARENA=,' tests/gc.test
|
|
|
|
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 "$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,' \
|
|
\
|
|
$(find . \
|
|
-name builtins.h \
|
|
-o -name mes.h \
|
|
-o -name mes.h \
|
|
-o -name symbols.h \
|
|
-o -name builtins.h \
|
|
-o -name m2.h \
|
|
-o -name builtins.c \
|
|
-o -name cc.c \
|
|
-o -name core.c \
|
|
-o -name display.c \
|
|
-o -name eval-apply.c \
|
|
-o -name gc.c \
|
|
-o -name hash.c \
|
|
-o -name lib.c \
|
|
-o -name m2.c \
|
|
-o -name math.c \
|
|
-o -name mes.c \
|
|
-o -name module.c \
|
|
-o -name posix.c \
|
|
-o -name reader.c \
|
|
-o -name stack.c \
|
|
-o -name string.c \
|
|
-o -name struct.c \
|
|
-o -name symbol.c \
|
|
-o -name vector.c \
|
|
-o -name gc.c \
|
|
-o -name simple.make)
|