2c979c8ee62b4071ca396c1d510cbddc9529507e
[mes.git] / GNUmakefile
1 .PHONY: all check clean default 
2 #CFLAGS:=-std=c99 -O0
3 CFLAGS:=-std=c99 -O3 -finline-functions
4 #CFLAGS:=-pg -std=c99 -O0
5 #CFLAGS:=-std=c99 -O0 -g
6
7 default: all
8
9 all: mes
10
11 mes: mes.c mes.h
12
13 clean:
14         rm -f mes environment.i symbol.i mes.h *.cat a.out
15
16 mes.h: mes.c GNUmakefile
17         ( echo '#if MES_C'; echo '#if MES_FULL' 1>&2;\
18         grep -E '^(scm [*])*[a-z0-9_]+ \(.*\)( {|$$)' $< | grep -Ev '\(.*(char |bool |int )' | sed -e 's,^scm [*],,' | sort |\
19                 while read f; do\
20                         fun=$$(echo $$f | sed -e 's,^scm [*],,' -e 's,{.*,,');\
21                         name=$$(echo $$fun | sed -e 's,^scm [\*],,' | grep -o '^[^ ]*');\
22                         scm_name=$$(echo $$name | sed -e 's,_to_,->,' -e 's,_p$$,?,' -e 's,_x$$,!,' -e 's,^builtin_,,' -re 's,(.*)_$$,c:\1,' | sed \
23                                 -e 's,^divide$$,/,'\
24                                 -e 's,^is?$$,=,'\
25                                 -e 's,^greater?$$,>,'\
26                                 -e 's,^less?$$,<,'\
27                                 -e 's,^minus$$,-,'\
28                                 -e 's,^multiply$$,*,'\
29                                 -e 's,^plus$$,+,'\
30                                 -e 's,_,-,g');\
31                         args=$$(echo $$fun | grep -o 'scm [\*]' | wc -l);\
32                         [ "$$(echo $$fun | fgrep -o ... )" = "..." ] && args=n;\
33                         echo "scm *$$fun;";\
34                         echo "scm scm_$$name = {FUNCTION$$args, .name=\"$$scm_name\", .function$$args=&$$name};";\
35                         echo "a = add_environment (a, \"$$scm_name\", &scm_$$name);" 1>&2;\
36         done; echo '#endif'; echo '#endif' 1>&2) > $@ 2>environment.i
37         grep -oE '^scm ([a-z_]+) = {SYMBOL,' mes.c | cut -d' ' -f 2 |\
38                 while read f; do\
39                         echo "symbols = cons (&$$f, symbols);";\
40                 done > symbols.i
41
42 check: all guile-check mes-check
43
44 TESTS:=\
45  tests/base.test\
46  tests/closure.test\
47  tests/quasiquote.test\
48  tests/let.test\
49  tests/scm.test\
50  tests/record.test\
51  tests/let-syntax.test\
52  tests/match.test\
53 #
54
55 BASE-0:=module/mes/base-0.mes
56 MES-0:=guile/mes-0.scm
57 MES:=./mes
58
59 mes-check: all
60         for i in $(TESTS); do\
61                 cat $(BASE-0) $$(scripts/include.mes $$i) $$i | $(MES);\
62         done
63
64 guile-check:
65         for i in $(TESTS); do\
66                 guile -s <(cat $(MES-0) $$(scripts/include.mes $$i | grep -Ev 'let.mes|quasiquote.mes|srfi-0') $$i);\
67         done
68         for i in $(TESTS); do\
69                 guile -s <(cat $(MES-0) module/mes/test.mes $$i);\
70         done
71
72 mescc: all
73         scripts/mescc.mes
74         ./a.out
75
76 mescc.cat: $(MES-0) module/mes/lalr.mes module/mes/elf.mes module/mes/libc-i386.mes $(shell scripts/include.mes scripts/mescc.mes | grep -Ev '/mes/|/srfi/')
77         echo '(compile)' | cat $^ - > $@
78
79 guile-mescc: mescc.cat
80         cat doc/examples/main.c | guile -s $^ > a.out
81         chmod +x a.out
82         ./a.out