about summary refs log tree commit diff stats
path: root/subx/031check_operands.cc
Commit message (Expand)AuthorAgeFilesLines
* 5001 - drop the :(scenario) DSLKartik Agaram2019-03-121-111/+189
* 4987 - support `browse_trace` tool in SubXKartik Agaram2019-02-251-1/+1
* 4941Kartik Agaram2019-01-211-4/+17
* 4940Kartik Agaram2019-01-211-4/+4
* 4909Kartik Agaram2019-01-051-17/+30
* 4908Kartik Agaram2019-01-051-0/+1
* 4886Kartik Agaram2018-12-281-6/+2
* 4882Kartik Agaram2018-12-281-15/+26
* 4830Kartik Agaram2018-12-031-3/+9
* 4776Kartik Agaram2018-11-251-15/+11
* 4718Kartik Agaram2018-10-241-1/+1
* 4714Kartik Agaram2018-10-231-1/+21
* 4697Kartik Agaram2018-10-141-6/+16
* 4695Kartik Agaram2018-10-141-7/+7
* 4694Kartik Agaram2018-10-131-7/+7
* 4668Kartik Agaram2018-10-051-4/+1
* 4503Kartik Agaram2018-09-221-0/+2
* 4578 - subx: implement inc/dec operationsKartik Agaram2018-09-211-0/+18
* 4544Kartik Agaram2018-09-121-12/+12
* 4537Kartik Agaram2018-09-071-2/+1
* 4527 - reading commandline argumentsKartik Agaram2018-08-301-0/+2
* 4503Kartik Agaram2018-08-111-0/+9
* 4501Kartik Agaram2018-08-111-1/+1
* 4499Kartik Agaram2018-08-091-1/+1
* 4483Kartik Agaram2018-08-041-0/+511
p 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) } ])