Permalink
Browse files

first commit

  • Loading branch information...
0 parents commit ea66dd72848b59f2113da8f2da0db73d5130e407 @AlexandreAbreu committed Jul 9, 2011
Showing with 4,543 additions and 0 deletions.
  1. +50 −0 Makefile
  2. +1 −0 README
  3. +2,313 −0 jonesforth.S
  4. +1,788 −0 jonesforth.f
  5. +33 −0 perf_dupdrop.c
  6. +79 −0 perf_dupdrop.f
  7. +19 −0 test_assembler.f
  8. +8 −0 test_assembler.f.out
  9. +73 −0 test_comparison.f
  10. +70 −0 test_comparison.f.out
  11. +13 −0 test_exception.f
  12. +6 −0 test_exception.f.out
  13. +11 −0 test_number.f
  14. +5 −0 test_number.f.out
  15. +24 −0 test_read_file.f
  16. +7 −0 test_read_file.f.out
  17. +17 −0 test_stack.f
  18. +11 −0 test_stack.f.out
  19. +9 −0 test_stack_trace.f
  20. +6 −0 test_stack_trace.f.out
@@ -0,0 +1,50 @@
+# $Id: Makefile,v 1.9 2007-10-22 18:53:12 rich Exp $
+
+#BUILD_ID_NONE := -Wl,--build-id=none
+BUILD_ID_NONE :=
+
+SHELL := /bin/bash
+
+all: jonesforth
+
+jonesforth: jonesforth.S
+ gcc -m32 -nostdlib -static -Wl,-Ttext,0 $(BUILD_ID_NONE) -o $@ $<
+
+run:
+ cat jonesforth.f $(PROG) - | ./jonesforth
+
+clean:
+ rm -f jonesforth perf_dupdrop *~ core .test_*
+
+# Tests.
+
+TESTS := $(patsubst %.f,%.test,$(wildcard test_*.f))
+
+test check: $(TESTS)
+
+test_%.test: test_%.f jonesforth
+ @echo -n "$< ... "
+ @rm -f .$@
+ @cat <(echo ': TEST-MODE ;') jonesforth.f $< <(echo 'TEST') | \
+ ./jonesforth 2>&1 | \
+ sed 's/DSP=[0-9]*//g' > .$@
+ @diff -u .$@ $<.out
+ @rm -f .$@
+ @echo "ok"
+
+# Performance.
+
+perf_dupdrop: perf_dupdrop.c
+ gcc -O3 -Wall -Werror -o $@ $<
+
+run_perf_dupdrop: jonesforth
+ cat <(echo ': TEST-MODE ;') jonesforth.f perf_dupdrop.f | ./jonesforth
+
+.SUFFIXES: .f .test
+.PHONY: test check run run_perf_dupdrop
+
+remote:
+ scp jonesforth.S jonesforth.f rjones@oirase:Desktop/
+ ssh rjones@oirase sh -c '"rm -f Desktop/jonesforth; \
+ gcc -m32 -nostdlib -static -Wl,-Ttext,0 -o Desktop/jonesforth Desktop/jonesforth.S; \
+ cat Desktop/jonesforth.f - | Desktop/jonesforth arg1 arg2 arg3"'
@@ -0,0 +1 @@
+This is a backup of the Richard Jones forth great effort.
Oops, something went wrong.

0 comments on commit ea66dd7

Please sign in to comment.