diff options
| -rw-r--r-- | examples/generated.csx | 30 | ||||
| -rw-r--r-- | src/csx.c | 3 |
2 files changed, 24 insertions, 9 deletions
diff --git a/examples/generated.csx b/examples/generated.csx index 8710bd6..4c405c4 100644 --- a/examples/generated.csx +++ b/examples/generated.csx @@ -12,17 +12,29 @@ [set map [fn [f l] [if [no l] [] [pair [f [head l]] [map f [tail l]]] ]]] -[map [fn [n] [outint n] [out 10]] - [quote [99 37 73 42]] -] [set id [fn args args]] -[outint [[id 42 13 31] 2]] -[out 10] -[out ["Hello!" 1]] -[out 10] [set outstr [fn [str] [if str [do [out [head str]] [outstr [tail str]]] [] ]]] -[outstr "Hello, World!"] -[out 10] +[set newline [fn [] [out 10]]] +[set instr [fn [] + [set c [in]] + [if [same c 10] + [] + [pair c [instr]] + ] +]] + +[outstr "-= loaded =-"] +[newline] +[outstr "Hello, I am Conrad S. Xylander. What is your name?"] +[newline] +[outstr "> "] +[set name [instr]] +[outstr "Nice to meet you, "] +[outstr name] +[outstr "."] +[newline] +[outstr "I have to go. Goodbye!"] +[newline] @@ -97,6 +97,7 @@ int *csx_int(int num) } int *res = new(type_int, sizeof(int)); *res = num; + ints = new_pair(res, ints); return res; } @@ -441,6 +442,8 @@ static void new_context() static void init() { initiated = 1; + setbuf(stdin, 0); + setbuf(stdout, 0); null = new(type_null, 0); names = null; ints = null; |