-
Notifications
You must be signed in to change notification settings - Fork 0
/
TypedObject.c
96 lines (85 loc) · 3.21 KB
/
TypedObject.c
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
/*
*
*
* Copyright (c) 2015, Angus Ireland
* School of Computer Science, St. Andrews University
*
* Permission is hereby granted, free of charge, to any person obtaining a copy
* of this software and associated documentation files (the "Software"), to deal
* in the Software without restriction, including without limitation the rights
* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
* copies of the Software, and to permit persons to whom the Software is
* furnished to do so, subject to the following conditions:
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
* THE SOFTWARE.
*/
#include <stdint.h>
#include "TypedObject.h"
#include "BytecodeTable.h"
#include "Collections/ListMap.h"
static void TypedObject_decRef(TypedObject_PNTR pntr);
struct TypedObject {
void (*decRef)(TypedObject_PNTR pntr);
int type;
void* object;
};
TypedObject_PNTR TypedObject_construct(unsigned int type, void* object) {
TypedObject_PNTR newObject = GC_alloc(sizeof(TypedObject_s), true);
newObject->type = type;
GC_assign(&(newObject->object), object);
newObject->decRef = TypedObject_decRef;
return newObject;
}
void TypedObject_setObject(TypedObject_PNTR this, void* object) {
this->object = object;
}
void* TypedObject_getObject(TypedObject_PNTR this) {
return this->object;
}
void TypedObject_setTypeByteCode(TypedObject_PNTR this, unsigned int type) {
this->type = type;
}
int TypedObject_getTypeByteCode(TypedObject_PNTR this) {
return this->type;
}
void TypedObject_decRef(TypedObject_PNTR this) {
GC_decRef(this->object);
}
bool TypedObject_isNumber(TypedObject_PNTR this) {
return this->type == BYTECODE_TYPE_INTEGER ||
this->type == BYTECODE_TYPE_REAL ||
this->type == BYTECODE_TYPE_BYTE ||
this->type == BYTECODE_TYPE_UNSIGNED_INTEGER;
}
size_t TypedObject_getSize(unsigned int type) {
switch(type) {
case BYTECODE_TYPE_INTEGER:
return sizeof(int32_t);
case BYTECODE_TYPE_UNSIGNED_INTEGER:
return sizeof(uint32_t);
case BYTECODE_TYPE_REAL:
return sizeof(uint64_t);
case BYTECODE_TYPE_BOOL:
return sizeof(uint8_t);
case BYTECODE_TYPE_BYTE:
return sizeof(uint8_t);
case BYTECODE_TYPE_STRUCT:
return sizeof(ListMap_s);
case BYTECODE_TYPE_ANY:
//Structs are the largest thing we can send, so anytype must handle that.
return sizeof(ListMap_s);
case BYTECODE_TYPE_STRING:
case BYTECODE_TYPE_ARRAY:
default:
return 0; //"size of a string/array", as well as any other type, is meaningless in this context
}
}