fly/flightgear
1
0
Fork 0
Code Activity

New Nasal command _condition(p) where p is a property node containing

Browse source 
a condition as described in $FG_ROOT/Docs/README.condition. Returns 1 if
condition is true, 0 if false, and nil on error.
This commit is contained in:
mfranz 2007-03-17 15:58:15 +00:00
parent 8617b0a82a
commit cc30d4d80e
1 changed files with 20 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
src/Scripting/NasalSys.cxx
View file

@ -12,6 +12,7 @@
#include <simgear/nasal/nasal.h>
#include <simgear/props/props.hxx>
#include <simgear/props/condition.hxx>
#include <simgear/math/sg_random.h>
#include <simgear/misc/sg_path.hxx>
#include <simgear/misc/interpolator.hxx>
@ -280,6 +281,24 @@ static naRef f_removelistener(naContext c, naRef me, int argc, naRef* args)
return nasal->removeListener(c, argc, args);
}
// condition(property) extension function. Evaluates standard <condition>
// (see $FG_ROOT/Docs/README.condition) and returns state.
static naRef f_condition(naContext c, naRef me, int argc, naRef* args)
{
SGPropertyNode* node;
naRef prop = argc > 0 ? args[0] : naNil();
if(naIsString(prop)) node = fgGetNode(naStr_data(prop), true);
else if(naIsGhost(prop)) node = *(SGPropertyNode_ptr*)naGhost_ptr(prop);
else {
naRuntimeError(c, "condition() with invalid property");
return naNil();
}
SGCondition *cond = sgReadCondition(globals->get_props(), node);
bool result = cond->test();
delete cond;
return naNum(result == true ? 1 : 0);
}
// Returns a ghost handle to the argument to the currently executing
// command
static naRef f_cmdarg(naContext c, naRef me, int argc, naRef* args)
@ -356,6 +375,7 @@ static struct { char* name; naCFunction func; } funcs[] = {
{ "settimer", f_settimer },
{ "_setlistener", f_setlistener },
{ "removelistener", f_removelistener },
{ "_condition", f_condition },
{ "_cmdarg", f_cmdarg },
{ "_interpolate", f_interpolate },
{ "rand", f_rand },