aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--examples/generated.csx30
-rw-r--r--src/csx.c3
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]
diff --git a/src/csx.c b/src/csx.c
index bacf0f7..c265631 100644
--- a/src/csx.c
+++ b/src/csx.c
@@ -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;