Stdin treatment for interpreters.

Author: dvanhorn

langs/abscond/interp-file.rkt

@@ -0,0 +1,10 @@
+#lang racket
+(provide main)
+(require "parse.rkt" "interp.rkt")
+
+;; -> Void
+;; Parse and interpret contents of stdin,
+;; print result on stdout
+(define (main)
+  (read-line) ; ignore #lang racket line
+  (println (interp (parse (read)))))

langs/abscond/interp-stdin.rkt

@@ -0,0 +1,10 @@
+#lang racket
+(provide main)
+(require "parse.rkt" "interp.rkt")
+
+;; -> Void
+;; Parse and interpret contents of stdin,
+;; print result on stdout
+(define (main)
+  (read-line) ; ignore #lang racket line
+  (println (interp (parse (read)))))

langs/blackmail/interp-file.rkt

@@ -0,0 +1,10 @@
+#lang racket
+(provide main)
+(require "parse.rkt" "interp.rkt")
+
+;; -> Void
+;; Parse and interpret contents of stdin,
+;; print result on stdout
+(define (main)
+  (read-line) ; ignore #lang racket line
+  (println (interp (parse (read)))))

langs/blackmail/interp-stdin.rkt

@@ -0,0 +1,10 @@
+#lang racket
+(provide main)
+(require "parse.rkt" "interp.rkt")
+
+;; -> Void
+;; Parse and interpret contents of stdin,
+;; print result on stdout
+(define (main)
+  (read-line) ; ignore #lang racket line
+  (println (interp (parse (read)))))

langs/con/interp-file.rkt

@@ -0,0 +1,10 @@
+#lang racket
+(provide main)
+(require "parse.rkt" "interp.rkt")
+
+;; -> Void
+;; Parse and interpret contents of stdin,
+;; print result on stdout
+(define (main)
+  (read-line) ; ignore #lang racket line
+  (println (interp (parse (read)))))