Compile from stdin instead of file.

Author: dvanhorn

langs/abscond/Makefile

@@ -25,7 +25,7 @@ runtime.o: $(objs)
 	nasm -g -f $(format) -o $@ $<
 
 %.s: %.rkt
-	racket -t compile-file.rkt -m $< > $@
+	cat $< | racket -t compile-stdin.rkt -m > $@
 
 clean:
 	rm *.o *.s *.run

langs/abscond/compile-file.rkt

@@ -0,0 +1,10 @@
+#lang racket
+(provide main)
+(require "parse.rkt" "compile.rkt" a86/printer)
+
+;; -> Void
+;; Compile contents of stdin,
+;; emit asm code on stdout
+(define (main)
+  (read-line) ; ignore #lang racket line
+  (asm-display (compile (parse (read)))))

langs/abscond/compile-stdin.rkt

@@ -1,5 +1,4 @@
 UNAME := $(shell uname)
-.PHONY: test
 
 ifeq ($(UNAME), Darwin)
   format=macho64
@@ -17,19 +16,19 @@ runtime.o: $(objs)
 	ld -r $(objs) -o runtime.o
 
 %.run: %.o runtime.o
-	gcc runtime.o $< -o $@
+	arch -x86_64 gcc runtime.o $< -o $@
 
 .c.o:
-	gcc -fPIC -c -g -o $@ $<
+	arch -x86_64 gcc -fPIC -c -g -o $@ $<
 
 .s.o:
 	nasm -g -f $(format) -o $@ $<
 
 %.s: %.rkt
-	racket -t compile-file.rkt -m $< > $@
+	cat $< | racket -t compile-stdin.rkt -m > $@
 
 clean:
 	rm *.o *.s *.run
 
-test: example.run
-	@test "$(shell ./example.run)" = "$(shell racket example.rkt)"
+%.test: %.run %.rkt
+	@test "$(shell ./$(<))" = "$(shell racket $(word 2,$^))"

langs/blackmail/Makefile

@@ -0,0 +1,10 @@
+#lang racket
+(provide main)
+(require "parse.rkt" "compile.rkt" a86/printer)
+
+;; -> Void
+;; Compile contents of stdin,
+;; emit asm code on stdout
+(define (main)
+  (read-line) ; ignore #lang racket line
+  (asm-display (compile (parse (read)))))

langs/blackmail/compile-file.rkt

@@ -1,5 +1,4 @@
 UNAME := $(shell uname)
-.PHONY: test
 
 ifeq ($(UNAME), Darwin)
   format=macho64
@@ -17,19 +16,19 @@ runtime.o: $(objs)
 	ld -r $(objs) -o runtime.o
 
 %.run: %.o runtime.o
-	gcc runtime.o $< -o $@
+	arch -x86_64 gcc runtime.o $< -o $@
 
 .c.o:
-	gcc -fPIC -c -g -o $@ $<
+	arch -x86_64 gcc -fPIC -c -g -o $@ $<
 
 .s.o:
 	nasm -g -f $(format) -o $@ $<
 
 %.s: %.rkt
-	racket -t compile-file.rkt -m $< > $@
+	cat $< | racket -t compile-stdin.rkt -m > $@
 
 clean:
 	rm *.o *.s *.run
 
-test: example.run
-	@test "$(shell ./example.run)" = "$(shell racket example.rkt)"
+%.test: %.run %.rkt
+	@test "$(shell ./$(<))" = "$(shell racket $(word 2,$^))"

langs/blackmail/compile-stdin.rkt

@@ -0,0 +1,10 @@
+#lang racket
+(provide main)
+(require "parse.rkt" "compile.rkt" a86/printer)
+
+;; -> Void
+;; Compile contents of stdin,
+;; emit asm code on stdout
+(define (main)
+  (read-line) ; ignore #lang racket line
+  (asm-display (compile (parse (read)))))

langs/con/Makefile

@@ -1,5 +1,4 @@
 UNAME := $(shell uname)
-.PHONY: test
 
 ifeq ($(UNAME), Darwin)
   format=macho64
@@ -9,28 +8,28 @@ endif
 
 objs = \
 	main.o \
-	values.o \
-	print.o
+	print.o \
+	values.o
 
 default: runtime.o
 
 runtime.o: $(objs)
 	ld -r $(objs) -o runtime.o
 
 %.run: %.o runtime.o
-	gcc runtime.o $< -o $@
+	arch -x86_64 gcc runtime.o $< -o $@
 
 .c.o:
-	gcc -fPIC -c -g -o $@ $<
+	arch -x86_64 gcc -fPIC -c -g -o $@ $<
 
 .s.o:
 	nasm -g -f $(format) -o $@ $<
 
 %.s: %.rkt
-	racket -t compile-file.rkt -m $< > $@
+	cat $< | racket -t compile-stdin.rkt -m > $@
 
 clean:
 	rm *.o *.s *.run
 
-test: example.run
-	@test "$(shell ./example.run)" = "$(shell racket example.rkt)"
+%.test: %.run %.rkt
+	@test "$(shell ./$(<))" = "$(shell racket $(word 2,$^))"