| swissChili | 7a6f5eb | 2021-04-13 16:46:02 -0700 | [diff] [blame] | 1 | #include "lisp.h" |
| 2 | |
| 3 | int main (int argc, char **argv) |
| 4 | { |
| swissChili | bed8092 | 2021-04-13 21:58:05 -0700 | [diff] [blame] | 5 | if ( argc < 2 ) |
| 6 | { |
| 7 | puts ("pass the string you want to parse as the first argument please"); |
| 8 | return 1; |
| 9 | } |
| 10 | |
| 11 | struct istream *is = new_stristream_nt (argv[ 1 ]); |
| swissChili | 8cfb7c4 | 2021-04-18 21:17:58 -0700 | [diff] [blame] | 12 | value_t val; |
| swissChili | 7a6f5eb | 2021-04-13 16:46:02 -0700 | [diff] [blame] | 13 | |
| 14 | while ( read1 (is, &val) ) |
| 15 | { |
| 16 | printval (val, 0); |
| 17 | } |
| 18 | |
| 19 | del_stristream (is); |
| 20 | } |