diff options
author | David Thompson <dthompson@vistahigherlearning.com> | 2022-08-10 18:49:33 -0400 |
---|---|---|
committer | David Thompson <dthompson@vistahigherlearning.com> | 2022-08-10 18:50:10 -0400 |
commit | 9f65c417b7575eab5ebd2733a817a0f0e954c4d9 (patch) | |
tree | 8343f16a11a92a8eefb35095bf5cfbdf7cf44997 /test.c | |
parent | c441f8f092cd5da5b09e3e4e826141d915189ab5 (diff) |
Step 2: Immediate Constants
Diffstat (limited to 'test.c')
-rw-r--r-- | test.c | 27 |
1 files changed, 26 insertions, 1 deletions
@@ -1,6 +1,31 @@ #include <stdio.h> +#define fixnum_mask 3 +#define fixnum_tag 0 +#define fixnum_shift 2 +#define char_mask 255 +#define char_shift 8 +#define char_tag 15 +#define boolean_mask 127 +#define boolean_shift 7 +#define boolean_tag 31 +#define empty_list 47 + int main(int argc, char** argv) { - printf("%d\n", scheme_entry()); + int val = scheme_entry(); + + if((val & fixnum_mask) == fixnum_tag) { + printf("%d\n", val >> fixnum_shift); + } else if((val & char_mask) == char_tag) { + printf("%c\n", val >> char_shift); + } else if((val & boolean_mask) == boolean_tag) { + if((val >> boolean_shift) == 1) { + printf("#t\n"); + } else { + printf("#f\n"); + } + } else if(val == empty_list) { + printf("()\n"); + } return 0; } |