pointer
This commit is contained in:
parent
e8bfa77a9b
commit
d899077866
|
@ -4,6 +4,7 @@ set -x
|
||||||
|
|
||||||
ptr_once='s,([^N])(MACRO|NAME|VALUE) \(([^()]*)\),\1\3->\L\2,'
|
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,'
|
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|VECTOR) \(([^()]*)\),\2->\L\1,'
|
||||||
ncbytes='s,NC(BYTES) \(([^()]*)\),news_\L\1 (\2),'
|
ncbytes='s,NC(BYTES) \(([^()]*)\),news_\L\1 (\2),'
|
||||||
cbytes='s,([^N])C(BYTES) \(([^()]*)\),\1cell_\L\2 (\3),'
|
cbytes='s,([^N])C(BYTES) \(([^()]*)\),\1cell_\L\2 (\3),'
|
||||||
cstring='s,C(STRING) \(([^()]*)\),cell_bytes (STRING (\2)),'
|
cstring='s,C(STRING) \(([^()]*)\),cell_bytes (STRING (\2)),'
|
||||||
|
@ -25,9 +26,8 @@ sed -ri \
|
||||||
-e 's,->\<struct\>,->structure,g' \
|
-e 's,->\<struct\>,->structure,g' \
|
||||||
-e "$struct" \
|
-e "$struct" \
|
||||||
\
|
\
|
||||||
-e 's,NTYPE \(([^()]*)\),\1->type,' \
|
-e "$n_once" \
|
||||||
-e 's,NCAR \(([^()]*)\),\1->car,' \
|
-e "$n_once" \
|
||||||
-e 's,NCDR \(([^()]*)\),\1->cdr,' \
|
|
||||||
\
|
\
|
||||||
-e 's,CAR \(([^()]*)\),\1->cdr,' \
|
-e 's,CAR \(([^()]*)\),\1->cdr,' \
|
||||||
-e 's,CAAR \(([^()]*)\),\1->car->car,' \
|
-e 's,CAAR \(([^()]*)\),\1->car->car,' \
|
||||||
|
|
Loading…
Reference in New Issue