summaryrefslogtreecommitdiffstats
path: root/lib.c
diff options
context:
space:
mode:
Diffstat (limited to 'lib.c')
-rw-r--r--lib.c39
1 files changed, 39 insertions, 0 deletions
diff --git a/lib.c b/lib.c
index 3e9cca80..cb8bcde8 100644
--- a/lib.c
+++ b/lib.c
@@ -4862,6 +4862,45 @@ val string_finish(val str)
return str;
}
+val string_set_code(val str, val code)
+{
+ val self = lit("string-set-code");
+ type_check(self, str, STR);
+
+ {
+ cnum len = c_fixnum(length_str(str), self);
+ cnum alloc = c_fixnum(str->st.alloc, self);
+
+ if (alloc < len + 2) {
+ string_extend(str, one, t);
+ alloc = c_fixnum(str->st.alloc, self);
+ set(mkloc(str->st.len, str), num(len));
+ }
+
+ {
+ str->st.str[len + 1] = c_int(code, self);
+ }
+ }
+
+ return str;
+}
+
+val string_get_code(val str)
+{
+ val self = lit("string-get-code");
+ type_check(self, str, STR);
+
+ {
+ cnum len = c_fixnum(length_str(str), self);
+ cnum alloc = c_fixnum(str->st.alloc, self);
+
+ if (alloc >= len + 2)
+ return num(str->st.str[len + 1]);
+ }
+
+ return nil;
+}
+
val stringp(val str)
{
switch (type(str)) {