fg_commands.cxx

Go to the documentation of this file.

/*
 * SPDX-FileName: fg_commands.hxx
 * SPDX-FileComment: built-in commands for FlightGear.
 * SPDX-License-Identifier: GPL-2.0-or-later
 */
 
#include <config.h>
 
#include <string.h>             // strcmp()
 
#include <simgear/compiler.h>
 
#include <fstream>
#include <optional>
#include <string>
#include <vector>
 
#include <simgear/debug/ErrorReportingCallback.hxx>
#include <simgear/debug/logstream.hxx>
#include <simgear/io/iostreams/sgstream.hxx>
#include <simgear/math/sg_random.hxx>
#include <simgear/props/props.hxx>
#include <simgear/props/props_io.hxx>
#include <simgear/sg_inlines.h>
#include <simgear/structure/commands.hxx>
#include <simgear/structure/event_mgr.hxx>
#include <simgear/structure/exception.hxx>
#include <simgear/timing/sg_time.hxx>
 
#include <Network/RemoteXMLRequest.hxx>
 
#include <FDM/flight.hxx>
#include <Aircraft/replay.hxx>
#include <Scripting/NasalSys.hxx>
#include <Airports/xmlloader.hxx>
#include <Network/HTTPClient.hxx>
#include <Viewer/viewmgr.hxx>
#include <Viewer/view.hxx>
#include <Viewer/VRManager.hxx>
#include <Environment/presets.hxx>
#include <Navaids/NavDataCache.hxx>
#include <GUI/gui.h>
#include <Main/sentryIntegration.hxx>
 
#include "fg_init.hxx"
#include "fg_io.hxx"
#include "fg_os.hxx"
#include "fg_commands.hxx"
#include "fg_props.hxx"
#include "globals.hxx"
#include "logger.hxx"
#include "main.hxx"
#include "positioninit.hxx"
 
#if FG_HAVE_GPERFTOOLS
# include <google/profiler.h>
#endif
 
using std::string;
using std::ifstream;
using std::ofstream;
 

// Static helper functions.
 
 
static inline SGPropertyNode *
get_prop (const SGPropertyNode * arg, SGPropertyNode * root)
{
    if (root != nullptr)
    {
        SGPropertyNode *rv = nullptr;
        rv = root->getNode(arg->getStringValue("property[0]", "/null"), true);
        if (rv == nullptr)
        {
            rv = root->getNode(arg->getStringValue("property[0]", "/null"), true);
            return fgGetNode(arg->getStringValue("property[0]", "/null"), true);
        }
        return rv;
    }
    return fgGetNode(arg->getStringValue("property[0]", "/null"), true);
}
 
static inline SGPropertyNode *
get_prop2 (const SGPropertyNode * arg, SGPropertyNode * root)
{
    if (root != nullptr)
    {
        SGPropertyNode *rv = nullptr;
        rv = root->getNode(arg->getStringValue("property[1]", "/null"), true);
        if (rv == nullptr)
        {
            rv = root->getNode(arg->getStringValue("property[1]", "/null"), true);
            return fgGetNode(arg->getStringValue("property[1]", "/null"), true);
        }
        return rv;
    }
    return fgGetNode(arg->getStringValue("property[1]", "/null"), true);
}
 

static void
split_value (double full_value, const char * mask,
             double * unmodifiable, double * modifiable)
{
    if (!strcmp("integer", mask)) {
        *modifiable = (full_value < 0 ? ceil(full_value) : floor (full_value));
        *unmodifiable = full_value - *modifiable;
    } else if (!strcmp("decimal", mask)) {
        *unmodifiable = (full_value < 0 ? ceil(full_value) : floor(full_value));
        *modifiable = full_value - *unmodifiable;
    } else {
        if (strcmp("all", mask))
            SG_LOG(SG_GENERAL, SG_ALERT, "Bad value " << mask << " for mask;"
                   << " assuming 'all'");
        *unmodifiable = 0;
        *modifiable = full_value;
    }
}

template <class T>
static std::optional<T>
getValueIndirect(const SGPropertyNode* node, const std::string& name, const std::string& indirectName = {})
{
    auto indirectNode = node->getChild(indirectName.empty() ? (name + "-prop") : indirectName);
    if (indirectNode) {
        const auto resolvedNode = fgGetNode(indirectNode->getStringValue());
        if (resolvedNode) {
            return resolvedNode->getValue<T>();
        }
 
        // if the path is not valid, warn
        SG_LOG(SG_GENERAL, SG_DEV_WARN, "getValueIndirect: property:" << indirectNode->getNameString() << " has value '" << indirectNode->getStringValue() << "' which was not found in the global property tree. Falling back to "
                                                                                                                                                              "value defined by argument '"
                                                                      << name << "'");
 
        // deliberate fall through here, so we use the value from the direct prop
    }
 
    auto directNode = node->getChild(name);
    if (directNode)
        return directNode->getValue<T>();
 
    return {};
}

static double
limit_value(double value, const SGPropertyNode* arg)
{
    const auto minv = getValueIndirect<double>(arg, "min");
    const auto maxv = getValueIndirect<double>(arg, "max");
 
    // we can wrap only if requested, and
    const bool canWrap = (minv && maxv);
    const bool wantsWrap = arg->getBoolValue("wrap");
    const bool wrap = canWrap && wantsWrap;
    if (wantsWrap && !canWrap) {
        SG_LOG(SG_GENERAL, SG_DEV_WARN, "limit_value: wrap requested, but no min/max values defined");
    }
 
    if (wrap) {                 // wrap such that min <= x < max
        const double resolution = arg->getDoubleValue("resolution");
        if (resolution > 0.0) {
            // snap to (min + N*resolution), taking special care to handle imprecision
            int n = (int)floor((value - minv.value()) / resolution + 0.5);
            int steps = (int)floor((maxv.value() - minv.value()) / resolution + 0.5);
            SG_NORMALIZE_RANGE(n, 0, steps);
            return minv.value() + resolution * n;
        } else {
            // plain circular wrapping
            return SGMiscd::normalizePeriodic(minv.value(), maxv.value(), value);
        }
    } else {                    // clamp such that min <= x <= max
        if (minv && (value < minv.value())) {
            return minv.value();
        }
 
        if (maxv && (value > maxv.value())) {
            return maxv.value();
        }
    }
 
    return value; // return unmodified value
}
 
static bool
compare_values (SGPropertyNode * value1, SGPropertyNode * value2)
{
    switch (value1->getType()) {
    case simgear::props::BOOL:
        return (value1->getBoolValue() == value2->getBoolValue());
    case simgear::props::INT:
        return (value1->getIntValue() == value2->getIntValue());
    case simgear::props::LONG:
        return (value1->getLongValue() == value2->getLongValue());
    case simgear::props::FLOAT:
        return (value1->getFloatValue() == value2->getFloatValue());
    case simgear::props::DOUBLE:
        return (value1->getDoubleValue() == value2->getDoubleValue());
    default:
        return value1->getStringValue() == value2->getStringValue();
    }
}
 
 

// Command implementations.
 

static bool
do_null (const SGPropertyNode * arg, SGPropertyNode * root)
{
  return true;
}

static bool
do_nasal (const SGPropertyNode * arg, SGPropertyNode * root)
{
    auto nasalSys = globals->get_subsystem<FGNasalSys>();
    if (!nasalSys) {
        SG_LOG(SG_GUI, SG_ALERT, "do_nasal command: Nasal subsystem not found");
        return false;
    }
 
    return nasalSys->handleCommand(arg, root);
}

static bool
do_replay (const SGPropertyNode * arg, SGPropertyNode * root)
{
    auto r = globals->get_subsystem<FGReplay>();
    return r->start();
}

static bool
do_pause (const SGPropertyNode * arg, SGPropertyNode * root)
{
    bool forcePause = arg->getBoolValue("force-pause", false );
    bool forcePlay = arg->getBoolValue("force-play", false );
 
    bool paused = fgGetBool("/sim/freeze/master",true) || fgGetBool("/sim/freeze/clock",true);
 
    if(forcePause) paused = false;
    if(forcePlay) paused = true;
 
    if (paused && (fgGetInt("/sim/freeze/replay-state",0)>0))
    {
        do_replay(NULL, nullptr);
    }
    else
    {
        fgSetBool("/sim/freeze/master",!paused);
        fgSetBool("/sim/freeze/clock",!paused);
    }
 
    syncPausePopupState();
    return true;
}

static bool
do_load (const SGPropertyNode * arg, SGPropertyNode * root)
{
    SGPath file(arg->getStringValue("file", "fgfs.sav").c_str());
 
    if (file.extension() != "sav")
        file.concat(".sav");
 
    const SGPath validated_path = SGPath(file).validate(false);
    if (validated_path.isNull()) {
        SG_LOG(SG_IO, SG_ALERT, "load: reading '" << file << "' denied "
                "(unauthorized access)");
        return false;
    }
 
    sg_ifstream input(validated_path);
    if (input.good() && fgLoadFlight(input)) {
        input.close();
        SG_LOG(SG_INPUT, SG_INFO, "Restored flight from " << file);
        return true;
    } else {
        SG_LOG(SG_INPUT, SG_WARN, "Cannot load flight from " << file);
        return false;
    }
}
 

static bool
do_save (const SGPropertyNode * arg, SGPropertyNode * root)
{
    SGPath file(arg->getStringValue("file", "fgfs.sav").c_str());
 
    if (file.extension() != "sav")
        file.concat(".sav");
 
    const SGPath validated_path = SGPath(file).validate(true);
    if (validated_path.isNull()) {
        SG_LOG(SG_IO, SG_ALERT, "save: writing '" << file << "' denied "
                "(unauthorized access)");
        return false;
    }
 
    bool write_all = arg->getBoolValue("write-all", false);
    SG_LOG(SG_INPUT, SG_INFO, "Saving flight");
    sg_ofstream output(validated_path);
    if (output.good() && fgSaveFlight(output, write_all)) {
        output.close();
        SG_LOG(SG_INPUT, SG_INFO, "Saved flight to " << file);
        return true;
    } else {
        SG_LOG(SG_INPUT, SG_ALERT, "Cannot save flight to " << file);
        return false;
    }
}

static bool
do_save_tape (const SGPropertyNode * arg, SGPropertyNode * root)
{
    auto replay = globals->get_subsystem<FGReplay>();
    replay->saveTape(arg);
 
    return true;
}

static bool
do_load_tape (const SGPropertyNode * arg, SGPropertyNode * root)
{
    auto replay = globals->get_subsystem<FGReplay>();
    replay->loadTape(arg);
 
    return true;
}
 
static void
do_view_next(bool do_it)
{
  // Only switch view if really requested to do so (and not for example while
  // reset/reposition where /command/view/next is set to false)
  if( do_it )
  {
    globals->get_current_view()->setHeadingOffset_deg(0.0);
    globals->get_viewmgr()->next_view();
  }
}
 
static void
do_view_prev(bool do_it)
{
  if( do_it )
  {
    globals->get_current_view()->setHeadingOffset_deg(0.0);
    globals->get_viewmgr()->prev_view();
  }
}

static bool
do_view_cycle (const SGPropertyNode * arg, SGPropertyNode * root)
{
  globals->get_current_view()->setHeadingOffset_deg(0.0);
  globals->get_viewmgr()->next_view();
  return true;
}
 

static bool
do_view_push (const SGPropertyNode * arg, SGPropertyNode * root)
{
  SG_LOG(SG_GENERAL, SG_DEBUG, "do_view_push() called");
  globals->get_viewmgr()->view_push();
  return true;
}
 

static bool
do_view_clone (const SGPropertyNode * arg, SGPropertyNode * root)
{
  SG_LOG(SG_GENERAL, SG_DEBUG, "do_view_clone() called");
  globals->get_viewmgr()->clone_current_view(arg);
  return true;
}
 

static bool
do_view_last_pair (const SGPropertyNode * arg, SGPropertyNode * root)
{
  SG_LOG(SG_GENERAL, SG_DEBUG, "do_view_last_pair() called");
  globals->get_viewmgr()->clone_last_pair(arg);
  return true;
}
 

static bool
do_view_last_pair_double (const SGPropertyNode * arg, SGPropertyNode * root)
{
  SG_LOG(SG_GENERAL, SG_DEBUG, "do_view_last_pair_double() called");
  globals->get_viewmgr()->clone_last_pair_double(arg);
  return true;
}
 

static bool
do_view_new (const SGPropertyNode * arg, SGPropertyNode * root)
{
  SG_LOG(SG_GENERAL, SG_ALERT, "do_view_new() called");
  globals->get_viewmgr()->view_new(arg);
  return true;
}

static bool
do_video_start (const SGPropertyNode * arg, SGPropertyNode * root)
{
    auto view_mgr = globals->get_subsystem<FGViewMgr>();
    if (!view_mgr) return false;
    view_mgr->video_start(
            arg->getStringValue("name"),
            arg->getStringValue("codec"),
            arg->getDoubleValue("quality", -1),
            arg->getDoubleValue("speed", -1),
            arg->getIntValue("bitrate", 0)
            );
    return true;
}

static bool
do_video_stop (const SGPropertyNode * arg, SGPropertyNode * root)
{
  auto view_mgr = globals->get_subsystem<FGViewMgr>();
  if (!view_mgr) return false;
  view_mgr->video_stop();
  return true;
}

static bool
do_property_toggle (const SGPropertyNode * arg, SGPropertyNode * root)
{
  SGPropertyNode * prop = get_prop(arg, root);
  return prop->setBoolValue(!prop->getBoolValue());
}
 

static bool
do_property_assign (const SGPropertyNode * arg, SGPropertyNode * root)
{
  SGPropertyNode * prop = get_prop(arg,root);
  const SGPropertyNode * value = arg->getNode("value");
 
  if (value != 0)
      return prop->setUnspecifiedValue(value->getStringValue());
  else
  {
      const SGPropertyNode * prop2 = get_prop2(arg,root);
      if (prop2)
          return prop->setUnspecifiedValue(prop2->getStringValue());
      else
          return false;
  }
}
 

static bool
do_property_adjust (const SGPropertyNode * arg, SGPropertyNode * root)
{
  SGPropertyNode * prop = get_prop(arg,root);
 
  double amount = 0;
  if (arg->hasValue("step"))
      amount = arg->getDoubleValue("step");
  else
      amount = (arg->getDoubleValue("factor", 1.0)
                * arg->getDoubleValue("offset"));
 
  double unmodifiable, modifiable;
  split_value(prop->getDoubleValue(), arg->getStringValue("mask", "all").c_str(),
              &unmodifiable, &modifiable);
  modifiable += amount;
  modifiable = limit_value(modifiable, arg);
 
  prop->setDoubleValue(unmodifiable + modifiable);
 
  return true;
}
 

static bool
do_property_multiply (const SGPropertyNode * arg, SGPropertyNode * root)
{
  SGPropertyNode * prop = get_prop(arg,root);
  auto factorValue = getValueIndirect<double>(arg, "factor");
  if (!factorValue) {
      SG_LOG(SG_GENERAL, SG_DEV_WARN, "property-multiply: missing factor/factor-prop argument");
      return false;
  }
 
  double unmodifiable, modifiable;
  split_value(prop->getDoubleValue(), arg->getStringValue("mask", "all").c_str(),
              &unmodifiable, &modifiable);
  modifiable *= factorValue.value();
  modifiable = limit_value(modifiable, arg);
 
  prop->setDoubleValue(unmodifiable + modifiable);
 
  return true;
}
 

static bool
do_property_swap (const SGPropertyNode * arg, SGPropertyNode * root)
{
  SGPropertyNode * prop1 = get_prop(arg,root);
  SGPropertyNode * prop2 = get_prop2(arg,root);
 
                                // FIXME: inefficient
  const string & tmp = prop1->getStringValue();
  return (prop1->setUnspecifiedValue(prop2->getStringValue()) &&
          prop2->setUnspecifiedValue(tmp.c_str()));
}
 

static bool
do_property_scale (const SGPropertyNode * arg, SGPropertyNode * root)
{
  SGPropertyNode * prop = get_prop(arg,root);
  double setting = arg->getDoubleValue("setting");
  double offset = arg->getDoubleValue("offset", 0.0);
  double factor = arg->getDoubleValue("factor", 1.0);
  bool squared = arg->getBoolValue("squared", false);
  int power = arg->getIntValue("power", (squared ? 2 : 1));
 
  int sign = (setting < 0 ? -1 : 1);
 
  switch (power) {
  case 1:
      break;
  case 2:
      setting = setting * setting * sign;
      break;
  case 3:
      setting = setting * setting * setting;
      break;
  case 4:
      setting = setting * setting * setting * setting * sign;
      break;
  default:
      setting =  pow(setting, power);
      if ((power % 2) == 0)
          setting *= sign;
      break;
  }
 
  return prop->setDoubleValue((setting + offset) * factor);
}
 

static bool
do_property_cycle (const SGPropertyNode * arg, SGPropertyNode * root)
{
    SGPropertyNode * prop = get_prop(arg,root);
    std::vector<SGPropertyNode_ptr> values = arg->getChildren("value");
 
    bool wrap = arg->getBoolValue("wrap", true);
    // compatible with knob/pick animations
    int offset = arg->getIntValue("offset", 1);
 
    int selection = -1;
    int nSelections = values.size();
 
    if (nSelections < 1) {
        SG_LOG(SG_GENERAL, SG_ALERT, "No values for property-cycle");
        return false;
    }
 
                                // Try to find the current selection
    for (int i = 0; i < nSelections; i++) {
        if (compare_values(prop, values[i])) {
            selection = i;
            break;
        }
    }
 
    if (selection < 0) { // default to first selection
        selection = 0;
    } else {
        selection += offset;
        if (wrap) {
            selection = (selection + nSelections) % nSelections;
        } else {
            SG_CLAMP_RANGE(selection, 0, nSelections - 1);
        }
    }
 
    prop->setUnspecifiedValue(values[selection]->getStringValue());
    return true;
}
 

static bool
do_property_randomize (const SGPropertyNode * arg, SGPropertyNode * root)
{
    SGPropertyNode * prop = get_prop(arg,root);
    double min = arg->getDoubleValue("min", DBL_MIN);
    double max = arg->getDoubleValue("max", DBL_MAX);
    prop->setDoubleValue(sg_random() * (max - min) + min);
    return true;
}

static bool
do_property_interpolate (const SGPropertyNode * arg, SGPropertyNode * root)
{
  SGPropertyNode * prop = get_prop(arg,root);
  if( !prop )
    return false;
 
  simgear::PropertyList time_nodes = arg->getChildren("time");
  simgear::PropertyList rate_nodes = arg->getChildren("rate");
 
  if( !time_nodes.empty() && !rate_nodes.empty() )
    // mustn't specify time and rate
    return false;
 
  simgear::PropertyList::size_type num_times = time_nodes.empty()
                                             ? rate_nodes.size()
                                             : time_nodes.size();
 
  simgear::PropertyList value_nodes = arg->getChildren("value");
  if( value_nodes.empty() )
  {
    simgear::PropertyList prop_nodes = arg->getChildren("property");
 
    // must have one more property node
    if( prop_nodes.size() != num_times + 1 )
      return false;
 
    value_nodes.reserve(num_times);
    for( size_t i = 1; i < prop_nodes.size(); ++i )
      value_nodes.push_back( fgGetNode(prop_nodes[i]->getStringValue()) );
  }
 
  // must match
  if( value_nodes.size() != num_times )
    return false;
 
  std::vector<double> deltas;
  deltas.reserve(num_times);
 
  if( !time_nodes.empty() )
  {
    for( size_t i = 0; i < num_times; ++i )
      deltas.push_back( time_nodes[i]->getDoubleValue() );
  }
  else
  {
    for( size_t i = 0; i < num_times; ++i )
    {
      // TODO calculate delta based on property type
      double delta = value_nodes[i]->getDoubleValue()
                   - ( i > 0
                     ? value_nodes[i - 1]->getDoubleValue()
                     : prop->getDoubleValue()
                     );
      deltas.push_back( fabs(delta / rate_nodes[i]->getDoubleValue()) );
    }
  }
 
  return prop->interpolate
  (
    arg->getStringValue("type", "numeric"),
    value_nodes,
    deltas,
    arg->getStringValue("easing", "linear")
  );
}

static bool
do_data_logging_commit (const SGPropertyNode * arg, SGPropertyNode * root)
{
    auto log = globals->get_subsystem<FGLogger>();
    log->reinit();
    return true;
}

static bool
do_log_level (const SGPropertyNode * arg, SGPropertyNode * root)
{
   sglog().setLogLevels( SG_ALL, (sgDebugPriority)arg->getIntValue() );
 
   return true;
}

 
static bool
do_load_xml_to_proptree(const SGPropertyNode * arg, SGPropertyNode * root)
{
    SGPath file(arg->getStringValue("filename"));
    if (file.isNull())
        return false;
 
    if (file.extension() != "xml")
        file.concat(".xml");
 
    // some Nasal uses loadxml to also speculatively probe for existence of
    // files. This flag allows us not to be noisy in the logs, in that case.
    const bool quiet = arg->getBoolValue("quiet", false);
 
    std::string icao = arg->getStringValue("icao");
    if (icao.empty()) {
        if (file.isRelative()) {
          SGPath absPath = globals->resolve_maybe_aircraft_path(file.utf8Str());
          if (!absPath.isNull())
              file = absPath;
          else
          {
              if (!quiet) {
                  SG_LOG(SG_IO, SG_ALERT, "loadxml: Cannot find XML property file '" << file << "'.");
                  simgear::reportFailure(simgear::LoadFailure::NotFound, simgear::ErrorCode::XMLLoadCommand,
                                         "loadxml: no such file:" + file.utf8Str(), file);
              }
              return false;
          }
        }
    } else {
        if (!XMLLoader::findAirportData(icao, file.utf8Str(), file)) {
            if (!quiet) {
                SG_LOG(SG_IO, SG_INFO, "loadxml: failed to find airport data for " << file << " at ICAO:" << icao);
                simgear::reportFailure(simgear::LoadFailure::NotFound, simgear::ErrorCode::XMLLoadCommand,
                                       "loadxml: no airport data file for:" + icao, file);
            }
          return false;
        }
    }
 
    if (!file.exists()) {
        if (!quiet) {
            SG_LOG(SG_IO, SG_WARN, "loadxml: no such file:" << file);
        }
        return false;
    }
 
    const SGPath validated_path = SGPath(file).validate(false);
    if (validated_path.isNull()) {
        SG_LOG(SG_IO, quiet ? SG_DEV_WARN : SG_ALERT, "loadxml: reading '" << file << "' denied "
                                                                                      "(unauthorized directory - authorization no longer follows symlinks; to authorize reading additional directories, pass them to --allow-nasal-read)");
        return false;
    }
 
    SGPropertyNode *targetnode;
    if (arg->hasValue("targetnode"))
        targetnode = fgGetNode(arg->getStringValue("targetnode"), true);
    else
        targetnode = const_cast<SGPropertyNode *>(arg)->getNode("data", true);
 
    try {
        readProperties(validated_path, targetnode, true);
    } catch (const sg_exception &e) {
        if (!quiet) {
            simgear::reportFailure(simgear::LoadFailure::BadData, simgear::ErrorCode::XMLLoadCommand,
                                   "loadxml exception:" + e.getFormattedMessage(), e.getLocation());
        }
        SG_LOG(SG_IO, quiet ? SG_DEV_WARN : SG_WARN, "loadxml exception: " << e.getFormattedMessage());
        return false;
    }
 
    return true;
}
 
static bool
do_load_xml_from_url(const SGPropertyNode * arg, SGPropertyNode * root)
{
    auto http = globals->get_subsystem<FGHTTPClient>();
    if (!http) {
        SG_LOG(SG_IO, SG_ALERT, "xmlhttprequest: HTTP client not running");
        return false;
    }
 
    std::string url(arg->getStringValue("url"));
    if (url.empty())
        return false;
 
    SGPropertyNode *targetnode;
    if (arg->hasValue("targetnode"))
        targetnode = fgGetNode(arg->getStringValue("targetnode"), true);
    else
        targetnode = const_cast<SGPropertyNode *>(arg)->getNode("data", true);
 
    RemoteXMLRequest* req = new RemoteXMLRequest(url, targetnode);
 
    if (arg->hasChild("body"))
        req->setBodyData(arg->getChild("body"));
 
// connect up optional reporting properties
    if (arg->hasValue("complete"))
        req->setCompletionProp(fgGetNode(arg->getStringValue("complete"), true));
    if (arg->hasValue("failure"))
        req->setFailedProp(fgGetNode(arg->getStringValue("failure"), true));
    if (arg->hasValue("status"))
        req->setStatusProp(fgGetNode(arg->getStringValue("status"), true));
 
    http->makeRequest(req);
    return true;
}
 

 
static bool
do_save_xml_from_proptree(const SGPropertyNode * arg, SGPropertyNode * root)
{
    SGPath file(arg->getStringValue("filename"));
    if (file.isNull())
        return false;
 
    if (file.extension() != "xml")
        file.concat(".xml");
 
    const SGPath validated_path = SGPath(file).validate(true);
    if (validated_path.isNull()) {
        SG_LOG(SG_IO, SG_ALERT, "savexml: writing to '" << file << "' denied "
                "(unauthorized directory - authorization no longer follows symlinks)");
        return false;
    }
 
    SGPropertyNode *sourcenode;
    if (arg->hasValue("sourcenode"))
        sourcenode = fgGetNode(arg->getStringValue("sourcenode"), true);
    else if (arg->getNode("data", false))
        sourcenode = const_cast<SGPropertyNode *>(arg)->getNode("data");
    else
        return false;
 
    try {
        writeProperties (validated_path, sourcenode, true);
    } catch (const sg_exception &e) {
        SG_LOG(SG_IO, SG_WARN, "savexml: " << e.getFormattedMessage());
        return false;
    }
 
    return true;
}
 
// Optional profiling commands using gperftools:
// http://code.google.com/p/gperftools/
 
#if !FG_HAVE_GPERFTOOLS
static void
no_profiling_support()
{
  SG_LOG
  (
    SG_GENERAL,
    SG_ALERT,
    "No profiling support! Install gperftools and reconfigure/rebuild fgfs."
  );
}
#endif
 
static bool
do_profiler_start(const SGPropertyNode *arg, SGPropertyNode *root)
{
#if FG_HAVE_GPERFTOOLS
  const char *filename = arg->getStringValue("filename", "fgfs.profile");
  ProfilerStart(filename);
  return true;
#else
  no_profiling_support();
  return false;
#endif
}
 
static bool
do_profiler_stop(const SGPropertyNode *arg, SGPropertyNode *root)
{
#if FG_HAVE_GPERFTOOLS
  ProfilerStop();
  return true;
#else
  no_profiling_support();
  return false;
#endif
}
 
static bool do_reload_nasal_module(const SGPropertyNode* arg, SGPropertyNode*)
{
    auto nasalSys = globals->get_subsystem<FGNasalSys>();
    if (!nasalSys) {
        SG_LOG(SG_GUI, SG_ALERT, "reloadModuleFromFile command: Nasal subsystem not found");
        return false;
    }
 
    return nasalSys->reloadModuleFromFile(arg->getStringValue("module"));
}
 
// VR related commands
 
#ifndef ENABLE_OSGXR
 
static bool
no_vr_support(const SGPropertyNode* arg, SGPropertyNode* root)
{
    SG_LOG(SG_GENERAL, SG_ALERT,
           "No VR support! Rebuild fgfs with VR enabled.");
    return false;
}
 
#define do_vr_recenter no_vr_support
 
#else // ENABLE_OSGXR
 
static bool
do_vr_recenter(const SGPropertyNode* arg, SGPropertyNode* root)
{
    return flightgear::VRManager::instance()->recenter();
}
 
#endif // ENABLE_OSGXR
 

// Command setup.
 

static struct {
  const char * name;
  SGCommandMgr::command_t command;
} built_ins[] = {
    {"null", do_null},
    {"nasal", do_nasal},
    {"nasal-reload", do_reload_nasal_module}, // avoid conflict with modules.nas which defines 'nasal-module-reload' 
    {"pause", do_pause},
    {"load", do_load},
    {"save", do_save},
    {"save-tape", do_save_tape},
    {"load-tape", do_load_tape},
    {"view-cycle", do_view_cycle},
    {"view-push", do_view_push},
    {"view-clone", do_view_clone},
    {"view-last-pair", do_view_last_pair},
    {"view-last-pair-double", do_view_last_pair_double},
    {"view-new", do_view_new},
    /*
    { "set-sea-level-air-temp-degc", do_set_sea_level_degc },
    { "set-outside-air-temp-degc", do_set_oat_degc },
    { "set-dewpoint-sea-level-air-temp-degc", do_set_dewpoint_sea_level_degc },
    { "set-dewpoint-temp-degc", do_set_dewpoint_degc },
    */
    {"property-toggle", do_property_toggle},
    {"property-assign", do_property_assign},
    {"property-adjust", do_property_adjust},
    {"property-multiply", do_property_multiply},
    {"property-swap", do_property_swap},
    {"property-scale", do_property_scale},
    {"property-cycle", do_property_cycle},
    {"property-randomize", do_property_randomize},
    {"property-interpolate", do_property_interpolate},
    {"data-logging-commit", do_data_logging_commit},
    {"log-level", do_log_level},
    {"replay", do_replay},
    /*
    { "decrease-visibility", do_decrease_visibility },
    { "increase-visibility", do_increase_visibility },
    */
    {"loadxml", do_load_xml_to_proptree},
    {"savexml", do_save_xml_from_proptree},
    {"xmlhttprequest", do_load_xml_from_url},
 
    {"profiler-start", do_profiler_start},
    {"profiler-stop", do_profiler_stop},
 
    {"video-start", do_video_start},
    {"video-stop", do_video_stop},
 
    {"vr-recenter", do_vr_recenter},
 
    {0, 0} // zero-terminated
};
 

void
fgInitCommands ()
{
  // set our property root as the implicit default root for the
  // command managr
  SGCommandMgr::instance()->setImplicitRoot(globals->get_props());
    
  SG_LOG(SG_GENERAL, SG_BULK, "Initializing basic built-in commands:");
  for (int i = 0; built_ins[i].name != 0; i++) {
    SG_LOG(SG_GENERAL, SG_BULK, "  " << built_ins[i].name);
    globals->get_commands()->addCommand(built_ins[i].name,
                                        built_ins[i].command);
  }
 
  typedef bool (*dummy)();
  fgTie( "/command/view/next", dummy(0), do_view_next );
  fgTie( "/command/view/prev", dummy(0), do_view_prev );
 
  globals->get_props()->setValueReadOnly( "/sim/debug/profiler-available",
                                          bool(FG_HAVE_GPERFTOOLS) );
}
 
// end of fg_commands.cxx