about summary refs log tree commit diff stats
path: root/stdin.mu
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2015-05-05 21:17:24 -0700
committerKartik K. Agaram <vc@akkartik.com>2015-05-05 21:17:24 -0700
commitb96af395b9af2ff9df94b3e82213171f30827c8d (patch)
tree17c8c12648ccc25625e2534ec8d74fbe8f1542cc /stdin.mu
parent2e3b597fe85b654e82b891c22d50754fa5a26156 (diff)
downloadmu-b96af395b9af2ff9df94b3e82213171f30827c8d.tar.gz
1276 - make C++ version the default
I've tried to update the Readme, but there are at least a couple of issues.
Diffstat (limited to 'stdin.mu')
-rw-r--r--stdin.mu27
1 files changed, 0 insertions, 27 deletions
diff --git a/stdin.mu b/stdin.mu
deleted file mode 100644
index 87598667..00000000
--- a/stdin.mu
+++ /dev/null
@@ -1,27 +0,0 @@
-; reads and prints keys until you hit 'q'
-; no need to hit 'enter', and 'enter' has no special meaning
-; dies if you wait a while, because so far we never free memory
-(function main [
-  (default-space:space-address <- new space:literal 30:literal)
-  (cursor-mode)
-  ; hook up stdin
-  (stdin:channel-address <- init-channel 1:literal)
-;?   ($print (("main: stdin is " literal)))
-;?   ($print stdin:channel-address)
-;?   ($print (("\n" literal)))
-  (fork-helper send-keys-to-stdin:fn nil:literal/globals nil:literal/limit nil:literal/keyboard stdin:channel-address)
-  ; now read characters from stdin until a 'q' is typed
-  ($print (("? " literal)))
-  { begin
-    (x:tagged-value stdin:channel-address/deref <- read stdin:channel-address)
-    (c:character <- maybe-coerce x:tagged-value character:literal)
-;?     ($print (("main: stdin is " literal)))
-;?     ($print stdin:channel-address)
-;?     ($print (("\n" literal)))
-;?     ($print (("check: " literal)))
-;?     ($print c:character)
-    (done?:boolean <- equal c:character ((#\q literal)))
-    (break-if done?:boolean)
-    (loop)
-  }
-])