#endif
#include <string.h>
+#include <errno.h>
#include <stdio.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <sstream>
#include <simgear/nasal/nasal.h>
+#include <simgear/nasal/iolib.h>
#include <simgear/props/props.hxx>
#include <simgear/math/sg_random.h>
#include <simgear/misc/sg_path.hxx>
#include <simgear/math/sg_geodesy.hxx>
#include <simgear/structure/event_mgr.hxx>
#include <simgear/debug/BufferedLogCallback.hxx>
-#include <simgear/package/md5.h>
#include <simgear/nasal/cppbind/from_nasal.hxx>
#include <simgear/nasal/cppbind/to_nasal.hxx>
void invoke()
{
+ if( _singleShot )
+ // Callback may restart the timer, so update status before callback is
+ // called (Prevent warnings of deleting not existing tasks from the
+ // event manager).
+ _isRunning = false;
+
naRef *args = NULL;
_sys->callMethod(_func, _self, 0, args, naNil() /* locals */);
- if (_singleShot) {
- _isRunning = false;
- }
}
void setSingleShot(bool aSingleShot)
naRef props = argc > 1 ? args[1] : naNil();
if(!naIsString(cmd) || (!naIsNil(props) && !naIsGhost(props)))
naRuntimeError(c, "bad arguments to fgcommand()");
- SGPropertyNode_ptr tmp, *node;
+ SGPropertyNode_ptr node;
if(!naIsNil(props))
- node = (SGPropertyNode_ptr*)naGhost_ptr(props);
- else {
- tmp = new SGPropertyNode();
- node = &tmp;
- }
- return naNum(globals->get_commands()->execute(naStr_data(cmd), *node));
+ node = static_cast<SGPropertyNode*>(naGhost_ptr(props));
+ else
+ node = new SGPropertyNode;
+
+ return naNum(globals->get_commands()->execute(naStr_data(cmd), node));
}
// settimer(func, dt, simtime) extension function. Falls through to
}
// Sets up a property interpolation. The first argument is either a
-// ghost (SGPropertyNode_ptr*) or a string (global property path) to
+// ghost (SGPropertyNode*) or a string (global property path) to
// interpolate. The second argument is a vector of pairs of
// value/delta numbers.
static naRef f_interpolate(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 if(naIsGhost(prop)) node = static_cast<SGPropertyNode*>(naGhost_ptr(prop));
else return naNil();
naRef curve = argc > 1 ? args[1] : naNil();
return naNil();
}
+static naRef f_open(naContext c, naRef me, int argc, naRef* args)
+{
+ FILE* f;
+ naRef file = argc > 0 ? naStringValue(c, args[0]) : naNil();
+ naRef mode = argc > 1 ? naStringValue(c, args[1]) : naNil();
+ if(!naStr_data(file)) naRuntimeError(c, "bad argument to open()");
+ const char* modestr = naStr_data(mode) ? naStr_data(mode) : "rb";
+ std::string filename = fgValidatePath(naStr_data(file),
+ strcmp(modestr, "rb") && strcmp(modestr, "r"));
+ if(filename.empty()) {
+ naRuntimeError(c, "open(): reading/writing '%s' denied "
+ "(unauthorized access)", naStr_data(file));
+ return naNil();
+ }
+ f = fopen(filename.c_str(), modestr);
+ if(!f) naRuntimeError(c, strerror(errno));
+ return naIOGhost(c, f);
+}
+
// Parse XML file.
// parsexml(<path> [, <start-tag> [, <end-tag> [, <data> [, <pi>]]]]);
//
if(!(naIsNil(args[i]) || naIsFunc(args[i])))
naRuntimeError(c, "parsexml(): callback argument not a function");
- const char* file = fgValidatePath(naStr_data(args[0]), false);
- if(!file) {
+ std::string file = fgValidatePath(naStr_data(args[0]), false);
+ if(file.empty()) {
naRuntimeError(c, "parsexml(): reading '%s' denied "
"(unauthorized access)", naStr_data(args[0]));
return naNil();
}
- std::ifstream input(file);
+ std::ifstream input(file.c_str());
NasalXMLVisitor visitor(c, argc, args);
try {
readXML(input, visitor);
} catch (const sg_exception& e) {
naRuntimeError(c, "parsexml(): file '%s' %s",
- file, e.getFormattedMessage().c_str());
+ file.c_str(), e.getFormattedMessage().c_str());
return naNil();
}
- return naStr_fromdata(naNewString(c), const_cast<char*>(file), strlen(file));
+ return naStr_fromdata(naNewString(c), file.c_str(), file.length());
}
/**
*/
static naRef f_parse_markdown(naContext c, naRef me, int argc, naRef* args)
{
- nasal::CallContext ctx(c, argc, args);
+ nasal::CallContext ctx(c, me, argc, args);
return ctx.to_nasal(
simgear::SimpleMarkdown::parse(ctx.requireArg<std::string>(0))
);
*/
static naRef f_md5(naContext c, naRef me, int argc, naRef* args)
{
- nasal::CallContext ctx(c, argc, args);
- std::string const str = ctx.requireArg<std::string>(0);
-
- SG_MD5_CTX md5_ctx;
- SG_MD5Init(&md5_ctx);
- SG_MD5Update(&md5_ctx, (unsigned char*)str.c_str(), str.size());
-
- unsigned char digest[MD5_DIGEST_LENGTH];
- SG_MD5Final(digest, &md5_ctx);
-
- // TODO make something more generic
- // convert final sum to hex
- const char hexChar[] = {'0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'a', 'b', 'c', 'd', 'e', 'f'};
- std::stringstream hexMd5;
- for (int i=0; i<MD5_DIGEST_LENGTH;++i) {
- hexMd5 << hexChar[digest[i] >> 4];
- hexMd5 << hexChar[digest[i] & 0x0f];
- }
+ if( argc != 1 || !naIsString(args[0]) )
+ naRuntimeError(c, "md5(): wrong type or number of arguments");
- return ctx.to_nasal(hexMd5.str());
+ return nasal::to_nasal(
+ c,
+ simgear::strutils::md5(naStr_data(args[0]), naStr_len(args[0]))
+ );
}
// Return UNIX epoch time in seconds.
for(i=0; funcs[i].name; i++)
hashset(_globals, funcs[i].name,
naNewFunc(_context, naNewCCode(_context, funcs[i].func)));
-
+ nasal::Hash io_module = nasal::Hash(_globals, _context).get<nasal::Hash>("io");
+ io_module.set("open", f_open);
+
// And our SGPropertyNode wrapper
hashset(_globals, "props", genPropsModule());
.member("singleShot", &TimerObj::isSingleShot, &TimerObj::setSingleShot)
.member("isRunning", &TimerObj::isRunning);
+ // Set allowed paths for Nasal I/O
+ fgInitAllowedPaths();
+
// Now load the various source files in the Nasal directory
simgear::Dir nasalDir(SGPath(globals->get_fg_root(), "Nasal"));
loadScriptDirectory(nasalDir);
naRef args[1];
args[0] = propNodeGhost(aProps);
naContext ctx = naNewContext();
- naRef wrapped = naCall(ctx, _wrappedNodeFunc, 1, args, naNil(), naNil());
+ naRef wrapped = naCallMethodCtx(ctx, _wrappedNodeFunc, naNil(), 1, args, naNil());
naFreeContext(ctx);
return wrapped;
}
naGCRelease(key);
}
+
+//------------------------------------------------------------------------------
void FGNasalSys::NasalTimer::timerExpired()
{
nasal->handleTimer(this);
// setlistener(<property>, <func> [, <initial=0> [, <persistent=1>]])
// Attaches a callback function to a property (specified as a global
-// property path string or a SGPropertyNode_ptr* ghost). If the third,
+// property path string or a SGPropertyNode* ghost). If the third,
// optional argument (default=0) is set to 1, then the function is also
// called initially. If the fourth, optional argument is set to 0, then the
// function is only called when the property node value actually changes.
SGPropertyNode_ptr 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 if(naIsGhost(prop)) node = static_cast<SGPropertyNode*>(naGhost_ptr(prop));
else {
naRuntimeError(c, "setlistener() with invalid property argument");
return naNil();
projects / flightgear.git / blobdiff