mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-10-31 07:33:01 +00:00
Code Issues 1 Releases Wiki Activity

Remove symbol type in favor of only strings. Anticipate

Browse Source 
addition of struct type, which will be an immutable hashtable.
This commit is contained in:
Calvin Rose
2017-04-14 13:41:32 -04:00
parent e28e31f818
commit 20bb5a18f7
10 changed files with 31 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
client/main.c
View File

@@ -59,7 +59,7 @@ void debug_repl(FILE *in, FILE *out) {
gst_compiler(&c, &vm);
func.type = GST_NIL;
gst_compiler_usemodule(&c, "std");
gst_compiler_global(&c, "ans", gst_object_get(vm.rootenv, gst_load_csymbol(&vm, "ans")));
gst_compiler_global(&c, "ans", gst_object_get(vm.rootenv, gst_load_cstring(&vm, "ans")));
func.type = GST_FUNCTION;
func.data.function = gst_compiler_compile(&c, p.value);
@@ -73,12 +73,6 @@ void debug_repl(FILE *in, FILE *out) {
continue;
}
/* Print asm */
/*if (out) {
fprintf(out, "\n");
gst_dasm_function(out, func.data.function);
}*/
/* Execute function */
if (gst_run(&vm, func)) {
if (out) {
@@ -94,7 +88,7 @@ void debug_repl(FILE *in, FILE *out) {
continue;
} else if (out) {
fprintf(out, "%s\n", (char *)gst_to_string(&vm, vm.ret));
gst_object_put(&vm, vm.rootenv, gst_load_csymbol(&vm, "ans"), vm.ret);
gst_object_put(&vm, vm.rootenv, gst_load_cstring(&vm, "ans"), vm.ret);
}
}

4
core/capi.c
View File

@@ -3,7 +3,7 @@
GstObject *gst_c_module(Gst *vm, const GstModuleItem *mod) {
GstObject *module = gst_object(vm, 10);
while (mod->name != NULL) {
GstValue key = gst_load_csymbol(vm, mod->name);
GstValue key = gst_load_cstring(vm, mod->name);
GstValue val;
val.type = GST_CFUNCTION;
val.data.cfunction = mod->data;
@@ -19,5 +19,5 @@ void gst_c_register(Gst *vm, const char *packagename, GstObject *mod) {
vm->rootenv = gst_object(vm, 10);
modv.type = GST_OBJECT;
modv.data.object = mod;
gst_object_put(vm, vm->rootenv, gst_load_csymbol(vm, packagename), modv);
gst_object_put(vm, vm->rootenv, gst_load_cstring(vm, packagename), modv);
}

22
core/compile.c
View File

@@ -316,8 +316,8 @@ static uint16_t compiler_add_literal(GstCompiler *c, GstScope *scope, GstValue x
static uint16_t compiler_declare_symbol(GstCompiler *c, GstScope *scope, GstValue sym) {
GstValue x;
uint16_t target;
if (sym.type != GST_SYMBOL)
c_error(c, "expected symbol");
if (sym.type != GST_STRING)
c_error(c, "expected string");
target = compiler_get_local(c, scope);
x.type = GST_NUMBER;
x.data.number = target;
@@ -564,8 +564,8 @@ static Slot compile_function(GstCompiler *c, FormOptions opts, GstValue *form) {
params = form[current++].data.array;
for (i = 0; i < params->count; ++i) {
GstValue param = params->data[i];
if (param.type != GST_SYMBOL)
c_error(c, "function parameters should be symbols");
if (param.type != GST_STRING)
c_error(c, "function parameters should be strings");
/* The compiler puts the parameter locals
* in the right place by default - at the beginning
* of the stack frame. */
@@ -676,8 +676,8 @@ static Slot compile_try(GstCompiler *c, FormOptions opts, GstValue *form) {
if (gst_tuple_length(form) < 3 || gst_tuple_length(form) > 4)
c_error(c, "try takes either 2 or 3 arguments");
/* Check for symbol to bind error to */
if (form[1].type != GST_SYMBOL)
c_error(c, "expected symbol at start of try");
if (form[1].type != GST_STRING)
c_error(c, "expected string at start of try");
/* Add subscope for error variable */
GstScope *subScope = compiler_push_scope(c, 1);
errorIndex = compiler_declare_symbol(c, subScope, form[1]);
@@ -813,7 +813,7 @@ typedef Slot (*SpecialFormHelper) (GstCompiler *c, FormOptions opts, GstValue *f
/* Dispatch to a special form */
static SpecialFormHelper get_special(GstValue *form) {
const uint8_t *name;
if (gst_tuple_length(form) < 1 || form[0].type != GST_SYMBOL)
if (gst_tuple_length(form) < 1 || form[0].type != GST_STRING)
return NULL;
name = form[0].data.string;
/* If we have a symbol with a zero length name, we have other
@@ -1001,7 +1001,7 @@ static Slot compile_value(GstCompiler *c, FormOptions opts, GstValue x) {
case GST_BOOLEAN:
case GST_NUMBER:
return compile_nonref_type(c, opts, x);
case GST_SYMBOL:
case GST_STRING:
return compile_symbol(c, opts, x);
case GST_TUPLE:
return compile_form(c, opts, x.data.tuple);
@@ -1026,7 +1026,7 @@ void gst_compiler(GstCompiler *c, Gst *vm) {
/* Add a global variable */
void gst_compiler_global(GstCompiler *c, const char *name, GstValue x) {
GstValue sym = gst_load_csymbol(c->vm, name);
GstValue sym = gst_load_cstring(c->vm, name);
compiler_declare_symbol(c, c->tail, sym);
gst_array_push(c->vm, c->env, x);
}
@@ -1038,7 +1038,7 @@ void gst_compiler_globals(GstCompiler *c, GstObject *env) {
for (i = 0; i < env->capacity; ++i) {
bucket = env->buckets[i];
while (bucket) {
if (bucket->key.type == GST_SYMBOL) {
if (bucket->key.type == GST_STRING) {
compiler_declare_symbol(c, c->tail, bucket->key);
gst_array_push(c->vm, c->env, bucket->value);
}
@@ -1049,7 +1049,7 @@ void gst_compiler_globals(GstCompiler *c, GstObject *env) {
/* Use a module that was loaded into the vm */
void gst_compiler_usemodule(GstCompiler *c, const char *modulename) {
GstValue mod = gst_object_get(c->vm->rootenv, gst_load_csymbol(c->vm, modulename));
GstValue mod = gst_object_get(c->vm->rootenv, gst_load_cstring(c->vm, modulename));
if (mod.type == GST_OBJECT) {
gst_compiler_globals(c, mod.data.object);
}

1
core/gc.c
View File

@@ -73,7 +73,6 @@ void gst_mark(Gst *vm, GstValueUnion x, GstType type) {
break;
case GST_STRING:
case GST_SYMBOL:
gc_header(gst_string_raw(x.string))->color = vm->black;
break;

6
core/parse.c
View File

@@ -68,7 +68,7 @@ static GstValue quote(GstParser *p, GstValue x) {
tuple = gst_tuple(p->vm, 2);
tuplev.type = GST_TUPLE;
tuplev.data.tuple = tuple;
tuple[0] = gst_load_csymbol(p->vm, "quote");
tuple[0] = gst_load_cstring(p->vm, "quote");
tuple[1] = x;
return tuplev;
}
@@ -238,7 +238,7 @@ static GstValue build_token(GstParser *p, GstBuffer *buf) {
p_error(p, "symbols cannot start with digits");
x.type = GST_NIL;
} else {
x.type = GST_SYMBOL;
x.type = GST_STRING;
x.data.string = gst_buffer_to_string(p->vm, buf);
}
}
@@ -288,7 +288,7 @@ static int string_state(GstParser *p, uint8_t c) {
x.type = GST_STRING;
x.data.string = gst_buffer_to_string(p->vm, top->buf.string.buffer);
parser_pop(p);
parser_append(p, x);
parser_append(p, quote(p, x));
} else {
gst_buffer_push(p->vm, top->buf.string.buffer, c);
}

9
core/serialize.c
View File

@@ -111,6 +111,9 @@ static const char *gst_deserialize_impl(
/* Main switch for types */
switch (*data++) {
default:
return "unable to deserialize";
case 201: /* Nil */
ret.type = GST_NIL;
break;
@@ -131,8 +134,7 @@ static const char *gst_deserialize_impl(
break;
case 205: /* String */
case 206: /* Symbol */
ret.type = data[-1] == 205 ? GST_STRING : GST_SYMBOL;
ret.type = GST_STRING;
read_u32(length);
deser_datacheck(length);
ret.data.string = gst_string_loadbuffer(vm, data, length);
@@ -463,8 +465,7 @@ const char *gst_serialize_impl(
default:
return "unable to serialize type";
case GST_STRING:
case GST_SYMBOL:
write_byte(x.type == GST_STRING ? 205 : 206);
write_byte(205);
count = gst_string_length(x.data.string);
write_u32(count);
for (i = 0; i < count; ++i) {

6
core/stl.c
View File

@@ -113,7 +113,6 @@ int gst_stl_length(Gst *vm) {
default:
gst_c_throwc(vm, "cannot get length");
case GST_STRING:
case GST_SYMBOL:
ret.data.number = gst_string_length(x.data.string);
break;
case GST_ARRAY:
@@ -167,9 +166,6 @@ int gst_stl_type(Gst *vm) {
case GST_STRING:
typestr = "string";
break;
case GST_SYMBOL:
typestr = "symbol";
break;
case GST_ARRAY:
typestr = "array";
break;
@@ -276,7 +272,7 @@ int gst_stl_strcat(Gst *vm) {
/* Find length and assert string arguments */
for (j = 0; j < count; ++j) {
GstValue arg = gst_arg(vm, j);
if (arg.type != GST_STRING && arg.type != GST_SYMBOL)
if (arg.type != GST_STRING)
gst_c_throwc(vm, GST_EXPECTED_STRING);
length += gst_string_length(arg.data.string);
}

8
core/strings.c
View File

@@ -220,14 +220,6 @@ GstValue gst_load_cstring(Gst *vm, const char *string) {
return ret;
}
/* Load a c string into a GST symbol */
GstValue gst_load_csymbol(Gst *vm, const char *string) {
GstValue ret;
ret.type = GST_SYMBOL;
ret.data.string = gst_cstring_to_string(vm, string);
return ret;
}
/* Compares two strings */
int gst_string_compare(const uint8_t *lhs, const uint8_t *rhs) {
uint32_t xlen = gst_string_length(lhs);

6
core/value.c
View File

@@ -70,8 +70,6 @@ const uint8_t *gst_to_string(Gst *vm, GstValue x) {
return string_description(vm, "object", x.data.pointer);
case GST_STRING:
return x.data.string;
case GST_SYMBOL:
return string_description(vm, "symbol", x.data.pointer);
case GST_BYTEBUFFER:
return string_description(vm, "buffer", x.data.pointer);
case GST_CFUNCTION:
@@ -168,7 +166,6 @@ uint32_t gst_hash(GstValue x) {
break;
/* String hashes */
case GST_STRING:
case GST_SYMBOL:
hash = gst_string_hash(x.data.string);
break;
case GST_TUPLE:
@@ -214,7 +211,6 @@ int gst_compare(GstValue x, GstValue y) {
return x.data.number > y.data.number ? 1 : -1;
}
case GST_STRING:
case GST_SYMBOL:
return gst_string_compare(x.data.string, y.data.string);
/* Lower indices are most significant */
case GST_TUPLE:
@@ -302,7 +298,6 @@ const char *gst_get(GstValue ds, GstValue key, GstValue *out) {
ret.data.number = ds.data.buffer->data[index];
break;
case GST_STRING:
case GST_SYMBOL:
if (key.type != GST_NUMBER) return "expected numeric key";
index = to_index(key.data.number, gst_string_length(ds.data.string));
if (index == -1) return "invalid string access";
@@ -354,7 +349,6 @@ int gst_length(Gst *vm, GstValue x, GstValue *len) {
vm->ret = gst_load_cstring(vm, "cannot get length");
return GST_RETURN_ERROR;
case GST_STRING:
case GST_SYMBOL:
length = gst_string_length(x.data.string);
break;
case GST_ARRAY:

9
include/gst/gst.h
View File

@@ -13,6 +13,12 @@
#define gst_tuple_length(t) (gst_tuple_raw(t)[0])
#define gst_tuple_hash(t) (gst_tuple_raw(t)[1])
/* Struct utils */
#define gst_struct_raw(t) ((uint32_t *)(t) - 2)
#define gst_struct_length(t) (gst_struct_raw(t)[0])
#define gst_struct_capacity(t) (gst_struct_length(t) * 3)
#define gst_struct_hash(t) (gst_struct_raw(t)[1])
/* Memcpy for moving memory */
#ifndef gst_memcpy
#include <string.h>
@@ -93,7 +99,6 @@ typedef enum GstType {
GST_NUMBER,
GST_BOOLEAN,
GST_STRING,
GST_SYMBOL,
GST_ARRAY,
GST_TUPLE,
GST_THREAD,
@@ -153,6 +158,7 @@ union GstValueUnion {
GstFunction *function;
GstFuncEnv *env;
GstFuncDef *def;
GstValue *st;
const uint8_t *string;
const char *cstring; /* Alias for ease of use from c */
/* Indirectly used union members */
@@ -354,7 +360,6 @@ const uint8_t *gst_string_end(Gst *vm, uint8_t *str);
const uint8_t *gst_string_loadbuffer(Gst *vm, const uint8_t *buf, uint32_t len);
const uint8_t *gst_cstring_to_string(Gst *vm, const char *cstring);
GstValue gst_load_cstring(Gst *vm, const char *string);
GstValue gst_load_csymbol(Gst *vm, const char *string);
int gst_string_compare(const uint8_t *lhs, const uint8_t *rhs);
/****/