mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-12-04 23:58:08 +00:00
Code Issues 1 Releases Wiki Activity

Add first class symbol type.

Browse Source
This commit is contained in:
Calvin Rose
2017-03-19 17:29:25 -04:00
parent a2f3fa3b3d
commit 4c35ee0a2c
7 changed files with 58 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
core/deserialize.c
View File

@@ -16,21 +16,22 @@
* Byte 203: False
* Byte 204: Number - double format
* Byte 205: String - [u32 length]*[u8... characters]
* Byte 206: Buffer - [u32 length]*[u8... characters]
* Byte 207: Array - [u32 length]*[value... elements]
* Byte 208: Tuple - [u32 length]*[value... elements]
* Byte 209: Thread - [u8 state][u32 frames]*[[value callee][value env]
* Byte 206: Symbol - [u32 length]*[u8... characters]
* Byte 207: Buffer - [u32 length]*[u8... characters]
* Byte 208: Array - [u32 length]*[value... elements]
* Byte 209: Tuple - [u32 length]*[value... elements]
* Byte 210: Thread - [u8 state][u32 frames]*[[value callee][value env]
* [u32 pcoffset][u32 erroffset][u16 ret][u16 errloc][u16 size]*[value ...stack]
* Byte 210: Object - [value meta][u32 length]*2*[value... kvs]
* Byte 211: FuncDef - [u32 locals][u32 arity][u32 flags][u32 literallen]*[value...
* Byte 211: Object - [value meta][u32 length]*2*[value... kvs]
* Byte 212: FuncDef - [u32 locals][u32 arity][u32 flags][u32 literallen]*[value...
* literals][u32 bytecodelen]*[u16... bytecode]
* Byte 212: FunEnv - [value thread][u32 length]*[value ...upvalues]
* Byte 213: FunEnv - [value thread][u32 length]*[value ...upvalues]
* (upvalues is not read if thread is a thread object)
* Byte 213: Func - [value parent][value def][value env]
* Byte 214: Func - [value parent][value def][value env]
* (nil values indicate empty)
* Byte 214: LUdata - [value meta][u32 length]*[u8... bytes]
* Byte 215: CFunc - [u32 length]*[u8... idstring]
* Byte 216: Ref - [u32 id]
* Byte 215: LUdata - [value meta][u32 length]*[u8... bytes]
* Byte 216: CFunc - [u32 length]*[u8... idstring]
* Byte 217: Ref - [u32 id]
*/
/* Error at buffer end */
@@ -135,7 +136,8 @@ static GstValue gst_deserialize_impl(
return ret;
case 205: /* String */
ret.type = GST_STRING;
case 206: /* Symbol */
ret.type = data[-1] == 205 ? GST_STRING : GST_SYMBOL;
length = read_u32(); data += 4;
data = deser_datacheck(length);
ret.data.string =
@@ -148,7 +150,7 @@ static GstValue gst_deserialize_impl(
gst_array_push(vm, visited, ret);
return ret;
case 206: /* Buffer */
case 207: /* Buffer */
ret.type = GST_BUFFER;
length = read_u32(); data += 4;
data = deser_datacheck(length);
@@ -161,7 +163,7 @@ static GstValue gst_deserialize_impl(
gst_array_push(vm, visited, ret);
return ret;
case 207: /* Array */
case 208: /* Array */
ret.type = GST_ARRAY;
length = read_u32(); data += 4;
buffer = gst_alloc(vm, length * sizeof(GstValue));
@@ -175,7 +177,7 @@ static GstValue gst_deserialize_impl(
gst_array_push(vm, visited, ret);
return ret;
case 208: /* Tuple */
case 209: /* Tuple */
ret.type = GST_TUPLE;
length = read_u32(); data += 4;
buffer = gst_alloc(vm, length * sizeof(GstValue) + 2 * sizeof(uint32_t))
@@ -189,7 +191,7 @@ static GstValue gst_deserialize_impl(
gst_array_push(vm, visited, ret);
return ret;
case 209: /* Thread */
case 210: /* Thread */
{
GstValue nil;
GstThread *t;
@@ -251,7 +253,7 @@ static GstValue gst_deserialize_impl(
}
return ret;
case 210: /* Object */
case 211: /* Object */
{
GstValue meta;
ret.type = GST_OBJECT;
@@ -272,7 +274,7 @@ static GstValue gst_deserialize_impl(
}
return ret;
case 211: /* Funcdef */
case 212: /* Funcdef */
{
GstFuncDef *def;
uint32_t locals, arity, literalsLen, byteCodeLen, flags;
@@ -306,7 +308,7 @@ static GstValue gst_deserialize_impl(
}
return ret;
case 212: /* Funcenv */
case 213: /* Funcenv */
{
GstValue thread = gst_deserialize_impl(vm, deata, &data, visited);
length = read_u32(); data += 4;
@@ -328,7 +330,7 @@ static GstValue gst_deserialize_impl(
}
return ret;
case 213: /* Function */
case 214: /* Function */
{
GstValue parent, def, env;
parent = gst_deserialize_impl(vm, data, end, &data, visited);
@@ -352,7 +354,7 @@ static GstValue gst_deserialize_impl(
}
return ret;
case 214: /* LUdata */
case 215: /* LUdata */
{
GstValue meta;
ret.type = GST_USERDATA;
@@ -367,11 +369,11 @@ static GstValue gst_deserialize_impl(
}
return ret;
case 215: /* C function */
case 216: /* C function */
return ret;
case 216: /* Reference */
case 217: /* Reference */
length = read_u32(); data += 4;
deser_assert(visited->count > length, "invalid reference");
*newData = data;

1
core/gc.c
View File

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

17
core/value.c
View File

@@ -26,6 +26,13 @@ GstValue gst_load_cstring(Gst *vm, const char *string) {
return ret;
}
GstValue gst_load_csymbol(Gst *vm, const char *string) {
GstValue ret;
ret.type = GST_SYMBOL;
ret.data.string = load_cstring(vm, string, strlen(string));
return ret;
}
static uint8_t * number_to_string(Gst *vm, GstNumber x) {
static const uint32_t SIZE = 20;
uint8_t *data = gst_alloc(vm, SIZE + 1 + 2 * sizeof(uint32_t));
@@ -94,6 +101,8 @@ uint8_t *gst_to_string(Gst *vm, GstValue x) {
return string_description(vm, "object", 6, x.data.pointer);
case GST_STRING:
return x.data.string;
case GST_SYMBOL:
return string_description(vm, "symbol", 6, x.data.pointer);
case GST_BYTEBUFFER:
return string_description(vm, "buffer", 6, x.data.pointer);
case GST_CFUNCTION:
@@ -155,6 +164,7 @@ int gst_equals(GstValue x, GstValue y) {
/* Assume that when strings are created, equal strings
* are set to the same string */
case GST_STRING:
case GST_SYMBOL:
if (x.data.string == y.data.string) {
result = 1;
break;
@@ -222,6 +232,7 @@ uint32_t gst_hash(GstValue x) {
break;
/* String hashes */
case GST_STRING:
case GST_SYMBOL:
/* Assume 0 is not hashed. */
if (gst_string_hash(x.data.string))
hash = gst_string_hash(x.data.string);
@@ -271,6 +282,7 @@ int gst_compare(GstValue x, GstValue y) {
return x.data.number > y.data.number ? 1 : -1;
}
case GST_STRING:
case GST_SYMBOL:
if (x.data.string == y.data.string) {
return 0;
} else {
@@ -282,9 +294,9 @@ int gst_compare(GstValue x, GstValue y) {
if (x.data.string[i] == y.data.string[i]) {
continue;
} else if (x.data.string[i] < y.data.string[i]) {
return 1; /* x is less then y */
return -1; /* x is less then y */
} else {
return -1; /* y is less than x */
return 1; /* y is less than x */
}
}
if (xlen == ylen) {
@@ -379,6 +391,7 @@ 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";

1
core/vm.c
View File

@@ -372,6 +372,7 @@ static int gst_continue_size(Gst *vm, uint32_t stackBase) {
arity = pc[offset - 1];
/* Push new frame */
stack = gst_thread_beginframe(vm, &thread, temp, arity);
if (stack == NULL) gst_error(vm, "expected function");
oldStack = stack - GST_FRAME_SIZE - gst_frame_prevsize(stack);
/* Write arguments */
size = gst_frame_size(stack);