Mercurial > repos > rhope
comparison runtime/blueprint.c @ 39:3d92bc1352c2
forgot a couple of files
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Thu, 08 Oct 2009 00:37:24 -0400 |
parents | |
children | 3e20ed8959c4 |
comparison
equal
deleted
inserted
replaced
38:7f05bbe82f24 | 39:3d92bc1352c2 |
---|---|
1 #include "blueprint.h" | |
2 #include "builtin.h" | |
3 #include "context.h" | |
4 | |
5 typedef struct | |
6 { | |
7 blueprint * bp; | |
8 } l_Build; | |
9 | |
10 Func(Build, | |
11 NumParams 1, | |
12 CallSpace 1, | |
13 l_Build) | |
14 | |
15 Param(0, TYPE_BLUEPRINT) | |
16 | |
17 locals->bp = ((t_Blueprint *)(cdata->params[0]))->bp; | |
18 release_ref(cdata->params[0]); | |
19 | |
20 Ret(0, new_object_bp(locals->bp)) | |
21 EndFunc | |
22 | |
23 object * make_Blueprint(int32_t type_id) | |
24 { | |
25 t_Blueprint * obj; | |
26 object * ret = new_object(TYPE_BLUEPRINT); | |
27 obj = (t_Blueprint *)ret; | |
28 obj->bp = get_blueprint_byid(type_id); | |
29 return ret; | |
30 } |