godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial version

Browse Source
This commit is contained in:
ceriel
1986-03-20 14:52:03 +00:00
parent 691a1db69a
commit 33604d2115
26 changed files with 1959 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
lang/m2/comp/make.allocd Executable file
View File

@@ -0,0 +1,17 @@
sed -e '
s:^.*[ ]ALLOCDEF[ ].*"\(.*\)".*$:\
/* allocation definitions of struct \1 */\
extern char *st_alloc();\
extern struct \1 *h_\1;\
#define new_\1() ((struct \1 *) \\\
st_alloc((char **)\&h_\1, sizeof(struct \1)))\
#define free_\1(p) st_free(p, h_\1, sizeof(struct \1))\
:' -e '
s:^.*[ ]STATICALLOCDEF[ ].*"\(.*\)".*$:\
/* allocation definitions of struct \1 */\
extern char *st_alloc();\
static struct \1 *h_\1;\
#define new_\1() ((struct \1 *) \\\
st_alloc((char **)\&h_\1, sizeof(struct \1)))\
#define free_\1(p) st_free(p, h_\1, sizeof(struct \1))\
:'