diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2015-05-05 21:17:24 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2015-05-05 21:17:24 -0700 |
commit | b96af395b9af2ff9df94b3e82213171f30827c8d (patch) | |
tree | 17c8c12648ccc25625e2534ec8d74fbe8f1542cc /stdin.mu | |
parent | 2e3b597fe85b654e82b891c22d50754fa5a26156 (diff) | |
download | mu-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.mu | 27 |
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) - } -]) |