From e9661581f092f3e210b7bd900af058d8b8c4369e Mon Sep 17 00:00:00 2001 From: Kartik Agaram Date: Fri, 30 Nov 2018 10:37:14 -0800 Subject: 4800 --- subx/apps/crenshaw2-1.subx | 9 +++++---- subx/apps/crenshaw2-1b.subx | 12 ++++++------ 2 files changed, 11 insertions(+), 10 deletions(-) diff --git a/subx/apps/crenshaw2-1.subx b/subx/apps/crenshaw2-1.subx index 1515ec56..94f8a3bc 100644 --- a/subx/apps/crenshaw2-1.subx +++ b/subx/apps/crenshaw2-1.subx @@ -1,7 +1,8 @@ # Port of https://github.com/akkartik/crenshaw/blob/master/tutor2.1.pas -# Corresponds to the section "single digits" in https://compilers.iecc.com/crenshaw/tutor2.txt +# which corresponds to the section "single digits" in https://compilers.iecc.com/crenshaw/tutor2.txt +# except that we support hex digits. # -# To run (from the subx directory): +# To run (from the subx/ directory): # $ ./subx translate *.subx apps/crenshaw2-1.subx -o crenshaw2-1 # $ echo '3' |./subx run apps/crenshaw2-1 # Expected output: @@ -607,8 +608,8 @@ $is-digit?:end: == data -Look: - 00 00 00 00 +Look: # (char) + 00 00 00 00 # = 0 _test-output-stream: # current write index diff --git a/subx/apps/crenshaw2-1b.subx b/subx/apps/crenshaw2-1b.subx index c6b18216..de900d7f 100644 --- a/subx/apps/crenshaw2-1b.subx +++ b/subx/apps/crenshaw2-1b.subx @@ -1,8 +1,8 @@ -## Port of https://github.com/akkartik/crenshaw/blob/master/tutor2.1.pas -# Corresponds to the section "single digits" in https://compilers.iecc.com/crenshaw/tutor2.txt -# except that we support numbers of multiple digits. +# Port of https://github.com/akkartik/crenshaw/blob/master/tutor2.1.pas +# which corresponds to the section "single digits" in https://compilers.iecc.com/crenshaw/tutor2.txt +# except that we support hex numbers of multiple digits. # -# To run (from the subx directory): +# To run (from the subx/ directory): # $ ./subx translate *.subx apps/crenshaw2-1b.subx -o crenshaw2-1b # $ echo '1a' |./subx run apps/crenshaw2-1b # Expected output: @@ -810,8 +810,8 @@ $is-digit?:end: == data -Look: - 00 00 00 00 +Look: # (char) + 00 00 00 00 # = 0 _test-output-stream: # current write index -- cgit 1.4.1-2-gfad0