src/Scripting/NasalCondition.cxx

   1 // NasalCondition -- expose SGCondition to Nasal
   2 //
   3 // Written by James Turner, started 2012.
   4 //
   5 // Copyright (C) 2012 James Turner
   6 //
   7 // This program is free software; you can redistribute it and/or
   8 // modify it under the terms of the GNU General Public License as
   9 // published by the Free Software Foundation; either version 2 of the
  10 // License, or (at your option) any later version.
  11 //
  12 // This program is distributed in the hope that it will be useful, but
  13 // WITHOUT ANY WARRANTY; without even the implied warranty of
  14 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15 // General Public License for more details.
  16 //
  17 // You should have received a copy of the GNU General Public License
  18 // along with this program; if not, write to the Free Software
  19 // Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
  20
  21 #ifdef HAVE_CONFIG_H
  22 #  include "config.h"
  23 #endif
  24
  25 #include "NasalCondition.hxx"
  26 #include "NasalSys.hxx"
  27 #include <Main/globals.hxx>
  28
  29 #include <simgear/nasal/cppbind/Ghost.hxx>
  30 #include <simgear/nasal/cppbind/NasalHash.hxx>
  31 #include <simgear/props/condition.hxx>
  32
  33 typedef nasal::Ghost<SGConditionRef> NasalCondition;
  34
  35 //------------------------------------------------------------------------------
  36 static naRef f_createCondition(naContext c, naRef me, int argc, naRef* args)
  37 {
  38   SGPropertyNode* node = argc > 0
  39                        ? ghostToPropNode(args[0])
  40                        : NULL;
  41   SGPropertyNode* root = argc > 1
  42                        ? ghostToPropNode(args[1])
  43                        : globals->get_props();
  44
  45   if( !node || !root )
  46     naRuntimeError(c, "createCondition: invalid argument(s)");
  47
  48   try
  49   {
  50     return nasal::to_nasal(c, sgReadCondition(root, node));
  51   }
  52   catch(std::exception& ex)
  53   {
  54     naRuntimeError(c, "createCondition: %s", ex.what());
  55   }
  56
  57   return naNil();
  58 }
  59
  60 //------------------------------------------------------------------------------
  61 naRef initNasalCondition(naRef globals, naContext c)
  62 {
  63   nasal::Ghost<SGConditionRef>::init("Condition")
  64     .method("test", &SGCondition::test);
  65
  66   nasal::Hash(globals, c).set("_createCondition", f_createCondition);
  67
  68   return naNil();
  69 }