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
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
// NasalCondition -- expose SGCondition to Nasal
//
// Written by James Turner, started 2012.
//
// Copyright (C) 2012 James Turner
//
// This program is free software; you can redistribute it and/or
// modify it under the terms of the GNU General Public License as
// published by the Free Software Foundation; either version 2 of the
// License, or (at your option) any later version.
//
// This program is distributed in the hope that it will be useful, but
// WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
// General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program; if not, write to the Free Software
// Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
#ifdef HAVE_CONFIG_H
# include "config.h"
#endif
#include <string.h>
#include "NasalCondition.hxx"
#include "NasalSys.hxx"
#include <Main/globals.hxx>
#include <simgear/sg_inlines.h>
#include <simgear/props/condition.hxx>
static void conditionGhostDestroy(void* g);
naGhostType ConditionGhostType = { conditionGhostDestroy, "condition" };
static void hashset(naContext c, naRef hash, const char* key, naRef val)
{
naRef s = naNewString(c);
naStr_fromdata(s, (char*)key, strlen(key));
naHash_set(hash, s, val);
}
SGCondition* conditionGhost(naRef r)
{
if ((naGhost_type(r) == &ConditionGhostType))
{
return (SGCondition*) naGhost_ptr(r);
}
return 0;
}
static void conditionGhostDestroy(void* g)
{
SGCondition* cond = (SGCondition*)g;
if (!SGCondition::put(cond)) // unref
delete cond;
}
static naRef conditionPrototype;
naRef ghostForCondition(naContext c, const SGCondition* cond)
{
if (!cond) {
return naNil();
}
SGCondition::get(cond); // take a ref
return naNewGhost(c, &ConditionGhostType, (void*) cond);
}
static naRef f_condition_test(naContext c, naRef me, int argc, naRef* args)
{
SGCondition* cond = conditionGhost(me);
if (!cond) {
naRuntimeError(c, "condition.test called on non-condition object");
}
return naNum(cond->test());
}
static naRef f_createCondition(naContext c, naRef me, int argc, naRef* args)
{
SGPropertyNode* node = ghostToPropNode(args[0]);
SGPropertyNode* root = globals->get_props();
if (argc > 1) {
root = ghostToPropNode(args[1]);
}
SGCondition* cond = sgReadCondition(root, node);
return ghostForCondition(c, cond);
}
// Table of extension functions. Terminate with zeros.
static struct { const char* name; naCFunction func; } funcs[] = {
{ "_createCondition", f_createCondition },
{ 0, 0 }
};
naRef initNasalCondition(naRef globals, naContext c)
{
conditionPrototype = naNewHash(c);
naSave(c, conditionPrototype);
hashset(c, conditionPrototype, "test", naNewFunc(c, naNewCCode(c, f_condition_test)));
for(int i=0; funcs[i].name; i++) {
hashset(c, globals, funcs[i].name,
naNewFunc(c, naNewCCode(c, funcs[i].func)));
}
return naNil();
}
|