26 lines
794 B
Plaintext
26 lines
794 B
Plaintext
#define MAXSTRINGLEN ( 1024 )
|
|
|
|
/* chop string to list of single character strings */
|
|
static fe_Object* chop(fe_Context *ctx, fe_Object *args) {
|
|
char buf[MAXSTRINGLEN];
|
|
int len = fe_tostring(ctx, fe_nextarg(ctx, &args), buf, sizeof(buf));
|
|
int gc = fe_savegc(ctx);
|
|
args = fe_bool(ctx, 0);
|
|
while (len > 0) {
|
|
buf[len--] = '\0';
|
|
args = fe_cons(ctx, fe_string(ctx, buf + len), args);
|
|
fe_restoregc(ctx, gc);
|
|
fe_pushgc(ctx, args);
|
|
}
|
|
return args;
|
|
}
|
|
|
|
/* pack list of strings to single string */
|
|
static fe_Object* pack(fe_Context *ctx, fe_Object *args) {
|
|
char buf[MAXSTRINGLEN], *ptr = buf;
|
|
for (args = fe_nextarg(ctx, &args); !fe_isnil(ctx, args);) {
|
|
ptr += fe_tostring(ctx, fe_nextarg(ctx, &args), ptr, buf + sizeof(buf) - ptr);
|
|
}
|
|
return fe_string(ctx, buf);
|
|
}
|