Mercurial > repos > rhope

comparison runtime/blueprint.c @ 39:3d92bc1352c2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 }