andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

pointer fix + struct scm*

This commit is contained in:
Jan Nieuwenhuizen 2019-10-23 16:57:25 +02:00
parent 61d6b37d2c
commit ea67ec49af
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
build-aux/pointer.sh
View File

@ -7,6 +7,7 @@ ptr_once='s,([^N])(BYTES|CAR|CDR|CLOSURE|CONTINUATION|LENGTH|MACRO|NAME|PORT|REF
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 -ri \
-e "$ncbytes" \
@ -20,7 +21,8 @@ sed -ri \
-e "$ptr_once" \
-e "$ptr_once" \
-e "$ptr_once" \
-e 's,->struct,->structure,g' \
-e 's,->\<struct\>,->structure,g' \
-e "$struct" \
\
-e 's,CAAR \(([^()]*)\),\1->car->car,' \
-e 's,CADR \(([^()]*)\),\1->cdr->car,' \