Mercurial > repos > rhope

comparison runtime/blueprint.c @ 60:b2a95ab818d3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Mike Pavone <pavone@retrodev.com>
date Thu, 08 Oct 2009 22:54:39 -0400
parents 3d92bc1352c2
children 3e20ed8959c4
comparison
equal deleted inserted replaced
59:4f1ae6eb71d8 60:b2a95ab818d3
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 }