#include <stdio.h>
#include <sys/types.h>
#include <sys/stat.h>
+#include <fstream>
#include <plib/ul.h>
#include <simgear/math/sg_random.h>
#include <simgear/misc/sg_path.hxx>
#include <simgear/misc/interpolator.hxx>
+#include <simgear/scene/material/mat.hxx>
#include <simgear/structure/commands.hxx>
+#include <simgear/math/sg_geodesy.hxx>
#include <Main/globals.hxx>
#include <Main/fg_props.hxx>
+#include <Scenery/scenery.hxx>
#include "NasalSys.hxx"
char buf[256];
if(!name) {
- sprintf(buf, "FGNasalScript@%p", script);
+ sprintf(buf, "FGNasalScript@%p", (void *)script);
name = buf;
}
// an argument.
static naRef f_fgcommand(naContext c, naRef me, int argc, naRef* args)
{
- if(argc < 2 || !naIsString(args[0]) || !naIsGhost(args[1]))
+ naRef cmd = argc > 0 ? args[0] : naNil();
+ naRef props = argc > 1 ? args[1] : naNil();
+ if(!naIsString(cmd) || (!naIsNil(props) && !naIsGhost(props)))
naRuntimeError(c, "bad arguments to fgcommand()");
- naRef cmd = args[0], props = args[1];
- SGPropertyNode_ptr* node = (SGPropertyNode_ptr*)naGhost_ptr(props);
+ SGPropertyNode_ptr tmp, *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));
}
return result;
}
+// Parse XML file.
+// parsexml(<path> [, <start-tag> [, <end-tag> [, <data> [, <pi>]]]]);
+//
+// <path> ... absolute path of an XML file
+// <start-tag> ... callback function with two args: tag name, attribute hash
+// <end-tag> ... callback function with one arg: tag name
+// <data> ... callback function with one arg: data string
+// <pi> ... callback function with two args: target string, data string
+// (pi = "processing instruction")
+// All four callback functions are optional and default to nil.
+// The function returns nil on error, and the file name otherwise.
+static naRef f_parsexml(naContext c, naRef me, int argc, naRef* args)
+{
+ if(argc < 1 || !naIsString(args[0]))
+ naRuntimeError(c, "bad/missing argument to parsexml()");
+
+ const char* file = naStr_data(args[0]);
+ std::ifstream input(file);
+ NasalXMLVisitor visitor(c, argc, args);
+ try {
+ readXML(input, visitor);
+ } catch (const sg_exception& e) {
+ string msg = string("parsexml(): file '") + file + "' "
+ + e.getFormattedMessage();
+ naRuntimeError(c, msg.c_str());
+ return naNil();
+ }
+ return args[0];
+}
+
// Return UNIX epoch time in seconds.
static naRef f_systime(naContext c, naRef me, int argc, naRef* args)
{
}
+// Convert a cartesian point to a geodetic lat/lon/altitude.
+static naRef f_carttogeod(naContext c, naRef me, int argc, naRef* args)
+{
+ const double RAD2DEG = 180.0 / SGD_PI;
+ double lat, lon, alt, xyz[3];
+ if(argc != 3) naRuntimeError(c, "carttogeod() expects 3 arguments");
+ for(int i=0; i<3; i++)
+ xyz[i] = naNumValue(args[i]).num;
+ sgCartToGeod(xyz, &lat, &lon, &alt);
+ lat *= RAD2DEG;
+ lon *= RAD2DEG;
+ naRef vec = naNewVector(c);
+ naVec_append(vec, naNum(lat));
+ naVec_append(vec, naNum(lon));
+ naVec_append(vec, naNum(alt));
+ return vec;
+}
+
+// Convert a geodetic lat/lon/altitude to a cartesian point.
+static naRef f_geodtocart(naContext c, naRef me, int argc, naRef* args)
+{
+ const double DEG2RAD = SGD_PI / 180.0;
+ if(argc != 3) naRuntimeError(c, "geodtocart() expects 3 arguments");
+ double lat = naNumValue(args[0]).num * DEG2RAD;
+ double lon = naNumValue(args[1]).num * DEG2RAD;
+ double alt = naNumValue(args[2]).num * DEG2RAD;
+ double xyz[3];
+ sgGeodToCart(lat, lon, alt, xyz);
+ naRef vec = naNewVector(c);
+ naVec_append(vec, naNum(xyz[0]));
+ naVec_append(vec, naNum(xyz[1]));
+ naVec_append(vec, naNum(xyz[2]));
+ return vec;
+}
+
+// For given geodetic point return array with elevation, and a material data
+// hash, or nil if there's no information available (tile not loaded). If
+// information about the material isn't available, then nil is returned instead
+// of the hash.
+static naRef f_geodinfo(naContext c, naRef me, int argc, naRef* args)
+{
+#define HASHSET(s,l,n) naHash_set(matdata, naStr_fromdata(naNewString(c),s,l),n)
+ if(argc != 2) naRuntimeError(c, "geodinfo() expects 2 arguments: lat, lon");
+ double lat = naNumValue(args[0]).num;
+ double lon = naNumValue(args[1]).num;
+ double elev;
+ const SGMaterial *mat;
+ if(!globals->get_scenery()->get_elevation_m(lat, lon, 10000.0, elev, &mat))
+ return naNil();
+ naRef vec = naNewVector(c);
+ naVec_append(vec, naNum(elev));
+ naRef matdata = naNil();
+ if(mat) {
+ matdata = naNewHash(c);
+ naRef names = naNewVector(c);
+ const vector<string> n = mat->get_names();
+ for(unsigned int i=0; i<n.size(); i++)
+ naVec_append(names, naStr_fromdata(naNewString(c),
+ const_cast<char*>(n[i].c_str()), n[i].size()));
+ HASHSET("names", 5, names);
+ HASHSET("solid", 5, naNum(mat->get_solid()));
+ HASHSET("friction_factor", 15, naNum(mat->get_friction_factor()));
+ HASHSET("rolling_friction", 16, naNum(mat->get_rolling_friction()));
+ HASHSET("load_resistance", 15, naNum(mat->get_load_resistance()));
+ HASHSET("bumpiness", 9, naNum(mat->get_bumpiness()));
+ HASHSET("light_coverage", 14, naNum(mat->get_light_coverage()));
+ }
+ naVec_append(vec, matdata);
+ return vec;
+#undef HASHSET
+}
+
// Table of extension functions. Terminate with zeros.
static struct { char* name; naCFunction func; } funcs[] = {
{ "getprop", f_getprop },
{ "rand", f_rand },
{ "srand", f_srand },
{ "directory", f_directory },
+ { "parsexml", f_parsexml },
{ "systime", f_systime },
+ { "carttogeod", f_carttogeod },
+ { "geodtocart", f_geodtocart },
+ { "geodinfo", f_geodinfo },
{ 0, 0 }
};
loadModule(p, module);
}
*/
-
+
const char* src = n->getStringValue("script");
if(!n->hasChild("script")) src = 0; // Hrm...
if(src)
}
+
+// NasalXMLVisitor class: handles EasyXML visitor callback for parsexml()
+//
+NasalXMLVisitor::NasalXMLVisitor(naContext c, int argc, naRef* args) :
+ _c(naSubContext(c)),
+ _start_element(argc > 1 && naIsFunc(args[1]) ? args[1] : naNil()),
+ _end_element(argc > 2 && naIsFunc(args[2]) ? args[2] : naNil()),
+ _data(argc > 3 && naIsFunc(args[3]) ? args[3] : naNil()),
+ _pi(argc > 4 && naIsFunc(args[4]) ? args[4] : naNil())
+{
+}
+
+void NasalXMLVisitor::startElement(const char* tag, const XMLAttributes& a)
+{
+ if(naIsNil(_start_element)) return;
+ naRef attr = naNewHash(_c);
+ for(int i=0; i<a.size(); i++) {
+ naRef name = make_string(a.getName(i));
+ naRef value = make_string(a.getValue(i));
+ naHash_set(attr, name, value);
+ }
+ call(_start_element, 2, make_string(tag), attr);
+}
+
+void NasalXMLVisitor::endElement(const char* tag)
+{
+ if(!naIsNil(_end_element)) call(_end_element, 1, make_string(tag));
+}
+
+void NasalXMLVisitor::data(const char* str, int len)
+{
+ if(!naIsNil(_data)) call(_data, 1, make_string(str, len));
+}
+
+void NasalXMLVisitor::pi(const char* target, const char* data)
+{
+ if (!naIsNil(_pi)) call(_pi, 2, make_string(target), make_string(data));
+}
+
+void NasalXMLVisitor::call(naRef func, int num, naRef a, naRef b)
+{
+ _arg[0] = a;
+ _arg[1] = b;
+ naCall(_c, func, num, _arg, naNil(), naNil());
+ if(naGetError(_c))
+ naRethrowError(_c);
+}
+
+naRef NasalXMLVisitor::make_string(const char* s, int n)
+{
+ return naStr_fromdata(naNewString(_c), const_cast<char *>(s),
+ n < 0 ? strlen(s) : n);
+}
+
+