elf.mes: compute text-free, text-offset.
[mes.git] / GNUmakefile
1 .PHONY: all check default 
2 CFLAGS:=-std=c99 -O3 -finline-functions
3 #CFLAGS:=-std=c99 -g
4
5 COND:=0
6 ifeq ($(COND),1)
7 CONDIF:=cond
8 else
9 CONDIF:=if
10 endif
11
12 CFLAGS+=-DCOND=$(COND)
13
14 default: all
15
16 all: mes
17
18 mes: mes.c mes.h
19
20 mes.h: mes.c GNUmakefile
21         ( echo '#if MES_C'; echo '#if MES_FULL' 1>&2;\
22         grep -E '^(scm [*])*[a-z0-9_]+ \(.*\)( {|$$)' $< | grep -Ev '\(.*(char |bool |int )' | sed -e 's,^scm [*],,' | sort |\
23                 while read f; do\
24                         fun=$$(echo $$f | sed -e 's,^scm [*],,' -e 's,{.*,,');\
25                         name=$$(echo $$fun | sed -e 's,^scm [\*],,' | grep -o '^[^ ]*');\
26                         scm_name=$$(echo $$name | sed -e 's,_to_,->,' -e 's,_p$$,?,' -e 's,_x$$,!,' -e 's,^builtin_,,' -re 's,(.*)_$$,c:\1,' | sed \
27                                 -e 's,^divide$$,/,'\
28                                 -e 's,^is?$$,=,'\
29                                 -e 's,^greater?$$,>,'\
30                                 -e 's,^less?$$,<,'\
31                                 -e 's,^minus$$,-,'\
32                                 -e 's,^multiply$$,*,'\
33                                 -e 's,^plus$$,+,'\
34                                 -e 's,_,-,g');\
35                         args=$$(echo $$fun | grep -o 'scm [\*]' | wc -l);\
36                         [ "$$(echo $$fun | fgrep -o ... )" = "..." ] && args=n;\
37                         echo "scm *$$fun;";\
38                         echo "scm scm_$$name = {FUNCTION$$args, .name=\"$$scm_name\", .function$$args=&$$name};";\
39                         echo "a = add_environment (a, \"$$scm_name\", &scm_$$name);" 1>&2;\
40         done; echo '#endif'; echo '#endif' 1>&2) > $@ 2>environment.i
41
42 check: all guile-check
43 #       ./mes.test
44 #       ./mes.test ./mes
45         cat base0.mes base0-$(CONDIF).mes base.mes lib/test.mes test/base.test | ./mes
46         cat base0.mes base0-$(CONDIF).mes base.mes lib/test.mes test/closure.test | ./mes
47         cat base0.mes base0-$(CONDIF).mes base.mes quasiquote.mes lib/test.mes test/quasiquote.test | ./mes
48         cat base0.mes base0-$(CONDIF).mes base.mes quasiquote.mes let.mes lib/test.mes test/let.test | ./mes
49         cat base0.mes base0-$(CONDIF).mes base.mes quasiquote.mes let.mes lib/srfi/srfi-0.scm scm.mes lib/test.mes test/scm.test | ./mes
50
51 guile-check:
52         guile -s <(cat base.mes lib/test.mes test/base.test)
53         guile -s <(cat base.mes lib/test.mes test/closure.test)
54         guile -s <(cat base.mes lib/test.mes test/quasiquote.test)
55         guile -s <(cat quasiquote.mes lib/test.mes test/quasiquote.test)
56 #       guile -s <(cat base.mes quasiquote.mes let.mes lib/test.mes test/let.test)
57 #       guile -s <(cat base.mes let.mes test/foo.test)
58 #       exit 1
59         guile -s <(cat lib/test.mes test/base.test)
60         guile -s <(cat lib/test.mes test/quasiquote.test)
61         guile -s <(cat lib/test.mes test/let.test)
62         guile -s <(cat quasiquote.mes lib/test.mes test/base.test)
63         guile -s <(cat quasiquote.mes lib/test.mes test/quasiquote.test)
64         guile -s <(cat lib/test.mes test/scm.test)
65
66 run: all
67         cat scm.mes test.mes | ./mes
68
69 psyntax: all
70         cat base0.mes base0-$(CONDIF).mes base.mes quasiquote.mes let.mes psyntax.mes psyntax.pp psyntax2.mes | ./mes
71
72 syntax: all
73         cat base0.mes base0-$(CONDIF).mes base.mes quasiquote.mes let.mes scm.mes syntax-cond.mes syntax-test.mes | ./mes
74
75 syntax.test: syntax-cond.mes syntax-test.mes
76         cat $^ > $@
77
78 guile-syntax: syntax.test
79         guile -s $^
80
81 syntax-case: all
82         cat scm.mes syntax-cond.mes syntax-case-lib.mes syntax-case.mes syntax-case-after.mes syntax-case-test.mes | ./mes
83
84 syntax-case.test: syntax-cond.mes syntax-case-lib.mes syntax-case.mes syntax-case-after.mes syntax-case-test.mes
85         cat $^ > $@
86
87 guile-syntax-case: syntax-case.test
88         guile -s $^
89
90 macro: all
91         cat base0.mes base0-$(CONDIF).mes base.mes quasiquote.mes let.mes scm.mes macro.mes | ./mes
92
93 peg: all
94         cat scm.mes syntax-cond.mes syntax-case-lib.mes syntax-case.mes syntax-case-after.mes peg.mes peg/codegen.scm peg/string-peg.scm peg/simplify-tree.scm peg/using-parsers.scm peg/cache.scm peg-test.mes | ./mes
95
96 peg.test: peg/pmatch.scm peg.mes peg/codegen.scm peg/string-peg.scm peg/simplify-tree.scm peg/using-parsers.scm peg/cache.scm peg-test.mes
97         cat $^ | sed 's,\(;; Packages the results of a parser\),(when (guile?) (set! compile-peg-pattern (@@ (ice-9 peg codegen) compile-peg-pattern)))\n\1,' > $@
98
99 guile-peg: peg.test
100 #       guile -s peg-test.mes
101 #       @echo "======================================="
102         guile -s $^
103
104 clean:
105         rm -f mes environment.i mes.h peg.test syntax.test
106
107 record: all
108         cat scm.mes syntax-cond.mes lib/record.mes lib/record.scm lib/srfi/srfi-9.scm record.mes |./mes
109
110
111 paren: all
112         echo -e 'EOF\n___P((()))' | cat base0.mes base0-$(CONDIF).mes base.mes quasiquote.mes let.mes scm.mes syntax-cond.mes lib/srfi/srfi-0.scm lib/record.mes lib/record.scm lib/srfi/srfi-9.scm lib/lalr.mes lib/lalr.scm paren.scm - | ./mes
113
114 paren.test: lib/lalr.scm paren.scm
115         cat $^ > $@
116
117 guile-paren: paren.test
118         echo '___P((()))' | guile -s $^ 
119
120 mescc: all
121         echo ' EOF ' | cat base0.mes base0-$(CONDIF).mes base.mes quasiquote.mes let.mes scm.mes syntax-cond.mes lib/srfi/srfi-0.scm lib/record.mes lib/record.scm lib/srfi/srfi-9.scm lib/lalr.mes lib/lalr.scm c-lexer.scm mescc.scm - main.c | ./mes > a.out
122         chmod +x a.out
123
124 mescc.test: lib/lalr.scm c-lexer.scm mescc.scm
125         cat $^ > $@
126
127 guile-mescc: mescc.test
128         cat main.c | guile -s $^ 
129
130 hello.o: hello.S
131         as --32 -march=i386 -o $@ $^
132
133 hello: hello.o
134         ld -A i386 -m elf_i386 -nostdlib -nodefaultlibs -A i386 -o $@ $^
135 #       ld -A i386 -m elf_i386 -A i386 -o $@ $^
136
137 a.out: elf.mes GNUmakefile
138         cat base0.mes base0-$(CONDIF).mes base.mes quasiquote.mes let.mes scm scm.mes lib/rnrs/bytevectors.scm elf.mes | ./mes > a.out
139         chmod +x a.out