# Copyright © 2019 Jeremiah Orians <jeremiah@pdp10.guru>
# Copyright © 2019 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
# This file is part of Gnu Mes
#
# Gnu Mes is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# Gnu Mes is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with Gnu Mes.  If not, see <http://www.gnu.org/licenses/>.

CC = gcc
MES_CPU=x86_64
MES = bin/mes-gcc

MESCC_CPU=x86
MES = bin/mes-gcc

#CC = i686-unknown-linux-gnu-gcc
#MES_CPU = x86

M2_PLANET = M2-Planet
M2_PLANET_ARCH = x86
M2_PLANET_FUBAR = i386

#M2_PLANET_ARCH = amd64
#M2_PLANET_FUBAR = amd64
M2_PLANET_FLAGS = --debug --architecture $(M2_PLANET_ARCH)

CFLAGS:=					\
  $(CFLAGS)					\
 -D _GNU_SOURCE					\
 -D const=					\
 -ggdb						\
 -D SYSTEM_LIBC=1				\
 -D 'MES_VERSION="git"'				\
 -D 'MES_PKGDATADIR="/usr/local/share/mes"'	\
 -I include					\
 -fno-builtin					\
 -Wno-discarded-qualifiers			\
 -Wno-discarded-array-qualifiers		\
 -Wno-ignored-qualifiers			\
 -Wno-incompatible-pointer-types		\
 -Wno-int-conversion

MES_SOURCES =					\
 src/builtins.c					\
 src/display.c					\
 src/eval-apply.c				\
 src/gc.c					\
 src/hash.c					\
 src/lib.c					\
 src/math.c					\
 src/mes.c					\
 src/module.c					\
 src/posix.c					\
 src/reader.c					\
 src/string.c					\
 src/struct.c					\
 src/symbols.c					\
 src/vector.c

M2_SOURCES =					\
 lib/linux/x86-mes-m2/crt1.c			\
 lib/linux/x86-mes-m2/mini.c			\
 lib/m2/exit.c					\
 lib/m2/write.c					\
 lib/linux/x86-mes-m2/syscall.c			\
 lib/m2/brk.c					\
 lib/m2/malloc.c				\
 lib/m2/memset.c				\
 lib/m2/read.c					\
 lib/m2/fdgetc.c				\
 lib/stdio/getchar.c				\
 lib/m2/putchar.c				\
 lib/m2/open.c					\
 lib/m2/mes_open.c				\
 lib/m2/strlen.c				\
 lib/m2/eputs.c					\
 lib/m2/fdputc.c				\
 lib/mes/eputc.c				\
						\
 lib/mes/__assert_fail.c			\
 lib/mes/assert_msg.c				\
						\
 lib/m2/fdputc.c				\
 lib/m2/strncmp.c				\
 lib/m2/getenv.c				\
 lib/mes/fdputs.c				\
 lib/m2/ntoab.c					\
 lib/ctype/isdigit.c				\
 lib/ctype/isxdigit.c				\
 lib/ctype/isspace.c				\
 lib/ctype/isnumber.c				\
 lib/m2/abtol.c					\
 lib/m2/atoi.c					\
 lib/m2/memcpy.c				\
 lib/stdlib/free.c				\
 lib/stdlib/realloc.c				\
 lib/m2/strcpy.c				\
 lib/mes/itoa.c					\
 lib/mes/fdungetc.c				\
 lib/m2/setenv.c				\
 lib/m2/access.c				\
 lib/m2/chmod.c					\
 lib/m2/isatty.c				\
 lib/m2/fork.c					\
 lib/m2/execve.c				\
 lib/m2/execv.c					\
 lib/m2/waitpid.c				\
 lib/m2/clock_gettime.c				\
 lib/m2/time.c					\
 lib/m2/_getcwd.c				\
 lib/m2/getcwd.c				\
 lib/m2/dup.c					\
 lib/m2/dup2.c					\
 lib/m2/unlink.c				\
 lib/m2/strcmp.c				\
 lib/m2/memcmp.c


M2_TODO =					\
 lib/m2/file_print.c				\
 lib/m2/ntoab.c					\
 lib/mes/fdgetc.c				\
 lib/mes/fdungetc.c

INCLUDES =					\
 include/mes/builtins.h				\
 include/mes/constants.h			\
 include/mes/mes.h				\
 include/mes/lib.h				\
 include/mes/lib-mini.h

MES_LIBC =					\
 lib/linux/$(MES_CPU)-mes-gcc/syscall.c		\
 lib/linux/_read.c				\
 lib/linux/_read.c				\
 lib/mes/__buffered_read.c

GCC_SOURCES =					\
 lib/mes/__mes_debug.c				\
 lib/mes/eputc.c				\
 lib/mes/eputs.c				\
 lib/mes/fdgetc.c				\
 lib/mes/fdputc.c				\
 lib/mes/fdputs.c				\
 lib/mes/fdungetc.c				\
 lib/mes/mes_open.c				\
 lib/mes/ntoab.c				\
 lib/mes/itoa.c					\
 lib/mes/assert_msg.c				\
 $(MES_SOURCES)

mes-gcc: bin/mes-gcc
mes-m2: bin/mes-m2

bin/mes-gcc: simple.make $(GCC_SOURCES) $(INCLUDES) | bin
	$(CC) $(CFLAGS) $(GCC_SOURCES) -o $@

M2_PLANET_INCLUDES =				\
 include/mes/mes.h				\
 include/mes/m2.h				\
 include/mes/builtins.h				\
 include/mes/constants.h			\
 include/mes/symbols.h				\
 include/linux/$(M2_PLANET_ARCH)/syscall.h

M2_PLANET_SOURCES =						\
 $(M2_PLANET_INCLUDES:%.h=%.h.m2)				\
 $(M2_SOURCES:%.c=%.c.m2)					\
 $(MES_SOURCES:%.c=%.c.m2)

%.h.m2: %.h simple.make
	@sed -r						\
	    -e 's,^//,@@,'				\
	    -e 's@^(#include.*)@/* \1 */@'		\
	    $<						\
	| $(CC) -E -I include				\
	    -D POINTER_CELLS=0				\
	    -D __M2_PLANET__=1				\
	    -D 'MES_VERSION="git"'			\
	    -D 'MES_PKGDATADIR="/usr/local/share/mes"'	\
	    -D FUNCTION0=FUNCTION			\
	    -D FUNCTION1=FUNCTION			\
	    -D FUNCTION2=FUNCTION			\
	    -D FUNCTION3=FUNCTION			\
	    -D FUNCTIONN=FUNCTION			\
	    -D const=					\
	    -D long=SCM					\
	    -D size_t=SCM				\
	    -D ssize_t=SCM				\
	    -D unsigned=SCM				\
            -include mes/m2.h				\
	    -x c -					\
	| sed -r					\
	    -e 's,^@@,//,'				\
	    > $@

%.c.m2: %.c simple.make
	@sed -r						\
	    -e 's,^//,@@,'				\
	    -e 's@^(#include.*)@/* \1 */@'		\
	    $<						\
	| $(CC) -E -I include				\
	    -D POINTER_CELLS=0				\
	    -D __M2_PLANET__=1				\
	    -D 'MES_VERSION="git"'			\
	    -D 'MES_PKGDATADIR="/usr/local/share/mes"'	\
	    -D FUNCTION0=FUNCTION			\
	    -D FUNCTION1=FUNCTION			\
	    -D FUNCTION2=FUNCTION			\
	    -D FUNCTION3=FUNCTION			\
	    -D FUNCTIONN=FUNCTION			\
	    -D EOF=-1					\
	    -D const=					\
	    -D long=SCM					\
	    -D size_t=SCM				\
	    -D ssize_t=SCM				\
	    -D unsigned=SCM				\
            -include mes/m2.h				\
	    -x c -					\
	| sed -r					\
	    -e 's,^@@,//,'				\
	    > $@

bin/mes-m2.M1: simple.make $(M2_PLANET_SOURCES) $(M2_PLANET_INCLUDES) | bin
	$(M2_PLANET) $(M2_PLANET_FLAGS) $(M2_PLANET_SOURCES:%=-f %) -o $@ || rm -f $@

bin/mes-m2.blood-elf.M1: bin/mes-m2.M1
#	blood-elf --32 -f $< -o $@
	blood-elf -f $< -o $@

bin/mes-m2.hex2: bin/mes-m2.blood-elf.M1
	M1					\
	    --LittleEndian			\
	    --architecture $(M2_PLANET_ARCH)	\
	    -f lib/m2/x86/x86_defs.M1		\
	    -f lib/x86-mes/x86.M1		\
	    -f lib/linux/x86-mes-m2/crt1.M1	\
	    -f bin/mes-m2.M1			\
	    -f bin/mes-m2.blood-elf.M1		\
	    -o $@

bin/mes-m2: bin/mes-m2.hex2
	hex2					\
	    --LittleEndian			\
	    --architecture $(M2_PLANET_ARCH)	\
	    --BaseAddress 0x1000000		\
	    --exec_enable			\
	    -f lib/x86-mes/elf32-header.hex2	\
	    -f bin/mes-m2.hex2			\
	    -f lib/m2/missing.hex2		\
	    -o $@

# Clean up after ourselves
.PHONY: clean
clean:
	rm -rf bin/

.PHONY: check check-gcc check-m2 check-hello check-base check-gc check-mescc
check-gcc:
	$(MAKE) -f simple.make check MES=bin/mes-gcc
check-m2:
	$(MAKE) -f simple.make check MES=bin/mes-m2

check: check-hello check-base check-gc check-mescc

check-hello: $(MES)
	echo '(display "hello\n")' | MES_BOOT=boot-01.scm $(MES)

check-base: $(MES)
	MES_DEBUG=4 MES_PREFIX=mes MES=$(MES) tests/base.test

check-gc: $(MES)
	MES_DEBUG=3 MES_ARENA=10000 MES_MAX_ARENA=10000 MES_BOOT=tests/gc.test $(MES)

check-mescc: $(MES)
	rm -f a.out
# this already needs succesful GC
#	MES_DEBUG=1 MES_PREFIX=mes MES=$(MES) sh -x scripts/mescc -- -I include -nostdlib lib/string/strlen.c lib/mes/eputs.c scaffold/hello.c
	MES_DEBUG=1 MES_PREFIX=mes MES=$(MES) sh -x scripts/mescc -- -m 32 -I include -nostdlib lib/linux/$(MESCC_CPU)-mes-mescc/crt1.c scaffold/main.c
	./a.out; r=$$?; if [ $$r != 42 ]; then exit 1; fi


# Directories
bin:
	mkdir -p bin

TAGS:
	etags $(shell find . -name '*.c' -o -name '*.h') --language=scheme $(shell find mes module -name '*.mes' -o -name '*.scm')