src/Main/fg_props.cxx

   1 // fg_props.cxx -- support for FlightGear properties.
   2 //
   3 // Written by David Megginson, started 2000.
   4 //
   5 // Copyright (C) 2000, 2001 David Megginson - david@megginson.com
   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 // $Id$
  22
  23 #ifdef HAVE_CONFIG_H
  24 #  include "config.h"
  25 #endif
  26
  27 #include <simgear/compiler.h>
  28 #include <simgear/structure/exception.hxx>
  29 #include <simgear/props/props_io.hxx>
  30
  31 #include <simgear/timing/sg_time.hxx>
  32 #include <simgear/misc/sg_path.hxx>
  33 #include <simgear/scene/model/particles.hxx>
  34 #include <simgear/sound/soundmgr_openal.hxx>
  35
  36 #include <GUI/gui.h>
  37
  38 #include "globals.hxx"
  39 #include "fg_props.hxx"
  40
  41
  42 static bool winding_ccw = true; // FIXME: temporary
  43
  44 static bool frozen = false;     // FIXME: temporary
  45
  46 using std::string;
  47 \f
  48 ////////////////////////////////////////////////////////////////////////
  49 // Default property bindings (not yet handled by any module).
  50 ////////////////////////////////////////////////////////////////////////
  51
  52 struct LogClassMapping {
  53   sgDebugClass c;
  54   string name;
  55   LogClassMapping(sgDebugClass cc, string nname) { c = cc; name = nname; }
  56 };
  57
  58 LogClassMapping log_class_mappings [] = {
  59   LogClassMapping(SG_NONE, "none"),
  60   LogClassMapping(SG_TERRAIN, "terrain"),
  61   LogClassMapping(SG_ASTRO, "astro"),
  62   LogClassMapping(SG_FLIGHT, "flight"),
  63   LogClassMapping(SG_INPUT, "input"),
  64   LogClassMapping(SG_GL, "gl"),
  65   LogClassMapping(SG_VIEW, "view"),
  66   LogClassMapping(SG_COCKPIT, "cockpit"),
  67   LogClassMapping(SG_GENERAL, "general"),
  68   LogClassMapping(SG_MATH, "math"),
  69   LogClassMapping(SG_EVENT, "event"),
  70   LogClassMapping(SG_AIRCRAFT, "aircraft"),
  71   LogClassMapping(SG_AUTOPILOT, "autopilot"),
  72   LogClassMapping(SG_IO, "io"),
  73   LogClassMapping(SG_CLIPPER, "clipper"),
  74   LogClassMapping(SG_NETWORK, "network"),
  75   LogClassMapping(SG_INSTR, "instrumentation"),
  76   LogClassMapping(SG_ATC, "atc"),
  77   LogClassMapping(SG_NASAL, "nasal"),
  78   LogClassMapping(SG_SYSTEMS, "systems"),
  79   LogClassMapping(SG_AI, "ai"),
  80   LogClassMapping(SG_ENVIRONMENT, "environment"),
  81   LogClassMapping(SG_SOUND, "sound"),
  82   LogClassMapping(SG_NAVAID, "navaid"),
  83   LogClassMapping(SG_UNDEFD, "")
  84 };
  85
  86
  87 /**
  88  * Get the logging classes.
  89  */
  90 // XXX Making the result buffer be global is a band-aid that hopefully
  91 // delays its destruction 'til after its last use.
  92 namespace
  93 {
  94 string loggingResult;
  95 }
  96
  97 static const char *
  98 getLoggingClasses ()
  99 {
 100   sgDebugClass classes = sglog().get_log_classes();
 101   loggingResult.clear();
 102   for (int i = 0; log_class_mappings[i].c != SG_UNDEFD; i++) {
 103     if ((classes&log_class_mappings[i].c) > 0) {
 104       if (!loggingResult.empty())
 105         loggingResult += '|';
 106       loggingResult += log_class_mappings[i].name;
 107     }
 108   }
 109   return loggingResult.c_str();
 110 }
 111
 112
 113 static void
 114 addLoggingClass (const string &name)
 115 {
 116   sgDebugClass classes = sglog().get_log_classes();
 117   for (int i = 0; log_class_mappings[i].c != SG_UNDEFD; i++) {
 118     if (name == log_class_mappings[i].name) {
 119       sglog().set_log_classes(sgDebugClass(classes|log_class_mappings[i].c));
 120       return;
 121     }
 122   }
 123   SG_LOG(SG_GENERAL, SG_WARN, "Unknown logging class: " << name);
 124 }
 125
 126
 127 /**
 128  * Set the logging classes.
 129  */
 130 void
 131 setLoggingClasses (const char * c)
 132 {
 133   string classes = c;
 134   sglog().set_log_classes(SG_NONE);
 135
 136   if (classes == "none") {
 137     SG_LOG(SG_GENERAL, SG_INFO, "Disabled all logging classes");
 138     return;
 139   }
 140
 141   if (classes.empty() || classes == "all") { // default
 142     sglog().set_log_classes(SG_ALL);
 143     SG_LOG(SG_GENERAL, SG_INFO, "Enabled all logging classes: "
 144            << getLoggingClasses());
 145     return;
 146   }
 147
 148   string rest = classes;
 149   string name = "";
 150   string::size_type sep = rest.find('|');
 151   if (sep == string::npos)
 152     sep = rest.find(',');
 153   while (sep != string::npos) {
 154     name = rest.substr(0, sep);
 155     rest = rest.substr(sep+1);
 156     addLoggingClass(name);
 157     sep = rest.find('|');
 158     if (sep == string::npos)
 159       sep = rest.find(',');
 160   }
 161   addLoggingClass(rest);
 162   SG_LOG(SG_GENERAL, SG_INFO, "Set logging classes to "
 163          << getLoggingClasses());
 164 }
 165
 166
 167 /**
 168  * Get the logging priority.
 169  */
 170 static const char *
 171 getLoggingPriority ()
 172 {
 173   switch (sglog().get_log_priority()) {
 174   case SG_BULK:
 175     return "bulk";
 176   case SG_DEBUG:
 177     return "debug";
 178   case SG_INFO:
 179     return "info";
 180   case SG_WARN:
 181     return "warn";
 182   case SG_ALERT:
 183     return "alert";
 184   default:
 185     SG_LOG(SG_GENERAL, SG_WARN, "Internal: Unknown logging priority number: "
 186            << sglog().get_log_priority());
 187     return "unknown";
 188   }
 189 }
 190
 191
 192 /**
 193  * Set the logging priority.
 194  */
 195 void
 196 setLoggingPriority (const char * p)
 197 {
 198   if (p == 0)
 199       return;
 200   string priority = p;
 201   if (priority == "bulk") {
 202     sglog().set_log_priority(SG_BULK);
 203   } else if (priority == "debug") {
 204     sglog().set_log_priority(SG_DEBUG);
 205   } else if (priority.empty() || priority == "info") { // default
 206     sglog().set_log_priority(SG_INFO);
 207   } else if (priority == "warn") {
 208     sglog().set_log_priority(SG_WARN);
 209   } else if (priority == "alert") {
 210     sglog().set_log_priority(SG_ALERT);
 211   } else {
 212     SG_LOG(SG_GENERAL, SG_WARN, "Unknown logging priority " << priority);
 213   }
 214   SG_LOG(SG_GENERAL, SG_DEBUG, "Logging priority is " << getLoggingPriority());
 215 }
 216
 217
 218 /**
 219  * Return the current frozen state.
 220  */
 221 static bool
 222 getFreeze ()
 223 {
 224   return frozen;
 225 }
 226
 227
 228 /**
 229  * Set the current frozen state.
 230  */
 231 static void
 232 setFreeze (bool f)
 233 {
 234     frozen = f;
 235
 236     // Stop sound on a pause
 237     SGSoundMgr *smgr = globals->get_soundmgr();
 238     if ( smgr != NULL ) {
 239         if ( f ) {
 240             smgr->suspend();
 241         } else if (fgGetBool("/sim/sound/working")) {
 242             smgr->resume();
 243         }
 244     }
 245
 246     // Pause the particle system
 247     simgear::Particles::setFrozen(f);
 248 }
 249
 250
 251 /**
 252  * Return the number of milliseconds elapsed since simulation started.
 253  */
 254 static double
 255 getElapsedTime_sec ()
 256 {
 257   return globals->get_sim_time_sec();
 258 }
 259
 260
 261 /**
 262  * Return the current Zulu time.
 263  */
 264 static const char *
 265 getDateString ()
 266 {
 267   static char buf[64];          // FIXME
 268
 269   SGTime * st = globals->get_time_params();
 270   if (!st) {
 271     buf[0] = 0;
 272     return buf;
 273   }
 274
 275   struct tm * t = st->getGmt();
 276   sprintf(buf, "%.4d-%.2d-%.2dT%.2d:%.2d:%.2d",
 277           t->tm_year + 1900, t->tm_mon + 1, t->tm_mday,
 278           t->tm_hour, t->tm_min, t->tm_sec);
 279   return buf;
 280 }
 281
 282
 283 /**
 284  * Set the current Zulu time.
 285  */
 286 static void
 287 setDateString (const char * date_string)
 288 {
 289   SGTime * st = globals->get_time_params();
 290   struct tm * current_time = st->getGmt();
 291   struct tm new_time;
 292
 293                                 // Scan for basic ISO format
 294                                 // YYYY-MM-DDTHH:MM:SS
 295   int ret = sscanf(date_string, "%d-%d-%dT%d:%d:%d",
 296                    &(new_time.tm_year), &(new_time.tm_mon),
 297                    &(new_time.tm_mday), &(new_time.tm_hour),
 298                    &(new_time.tm_min), &(new_time.tm_sec));
 299
 300                                 // Be pretty picky about this, so
 301                                 // that strange things don't happen
 302                                 // if the save file has been edited
 303                                 // by hand.
 304   if (ret != 6) {
 305     SG_LOG(SG_INPUT, SG_WARN, "Date/time string " << date_string
 306            << " not in YYYY-MM-DDTHH:MM:SS format; skipped");
 307     return;
 308   }
 309
 310                                 // OK, it looks like we got six
 311                                 // values, one way or another.
 312   new_time.tm_year -= 1900;
 313   new_time.tm_mon -= 1;
 314                                 // Now, tell flight gear to use
 315                                 // the new time.  This was far
 316                                 // too difficult, by the way.
 317   long int warp =
 318     mktime(&new_time) - mktime(current_time) + globals->get_warp();
 319
 320   fgSetInt("/sim/time/warp", warp);
 321 }
 322
 323 /**
 324  * Return the GMT as a string.
 325  */
 326 static const char *
 327 getGMTString ()
 328 {
 329   static char buf[16];
 330   SGTime * st = globals->get_time_params();
 331   if (!st) {
 332     buf[0] = 0;
 333     return buf;
 334   }
 335
 336   struct tm *t = st->getGmt();
 337   snprintf(buf, 16, "%.2d:%.2d:%.2d",
 338       t->tm_hour, t->tm_min, t->tm_sec);
 339   return buf;
 340 }
 341
 342 /**
 343  * Return the current heading in degrees.
 344  */
 345 static double
 346 getHeadingMag ()
 347 {
 348   double magheading = fgGetDouble("/orientation/heading-deg") -
 349     fgGetDouble("/environment/magnetic-variation-deg");
 350   return SGMiscd::normalizePeriodic(0, 360, magheading );
 351 }
 352
 353 /**
 354  * Return the current track in degrees.
 355  */
 356 static double
 357 getTrackMag ()
 358 {
 359   double magtrack = fgGetDouble("/orientation/track-deg") -
 360     fgGetDouble("/environment/magnetic-variation-deg");
 361   return SGMiscd::normalizePeriodic(0, 360, magtrack );
 362 }
 363
 364 static bool
 365 getWindingCCW ()
 366 {
 367   return winding_ccw;
 368 }
 369
 370 static void
 371 setWindingCCW (bool state)
 372 {
 373   winding_ccw = state;
 374   if ( winding_ccw )
 375     glFrontFace ( GL_CCW );
 376   else
 377     glFrontFace ( GL_CW );
 378 }
 379
 380 ////////////////////////////////////////////////////////////////////////
 381 // Tie the properties.
 382 ////////////////////////////////////////////////////////////////////////
 383 SGConstPropertyNode_ptr FGProperties::_longDeg;
 384 SGConstPropertyNode_ptr FGProperties::_latDeg;
 385 SGConstPropertyNode_ptr FGProperties::_lonLatformat;
 386
 387 const char *
 388 FGProperties::getLongitudeString ()
 389 {
 390   static char buf[32];
 391   double d = _longDeg->getDoubleValue();
 392   int format = _lonLatformat->getIntValue();
 393   char c = d < 0.0 ? 'W' : 'E';
 394
 395   if (format == 0) {
 396     snprintf(buf, 32, "%3.6f%c", d, c);
 397
 398   } else if (format == 1) {
 399     // dd mm.mmm' (DMM-Format) -- uses a round-off factor tailored to the
 400     // required precision of the minutes field (three decimal places),
 401     // preventing minute values of 60.
 402     double deg = fabs(d) + 5.0E-4 / 60.0;
 403     double min = fabs(deg - int(deg)) * 60.0 - 4.999E-4;
 404     snprintf(buf, 32, "%d*%06.3f%c", int(d < 0.0 ? -deg : deg), min, c);
 405
 406   } else {
 407     // mm'ss.s'' (DMS-Format) -- uses a round-off factor tailored to the
 408     // required precision of the seconds field (one decimal place),
 409     // preventing second values of 60.
 410     double deg = fabs(d) + 0.05 / 3600.0;
 411     double min = (deg - int(deg)) * 60.0;
 412     double sec = (min - int(min)) * 60.0 - 0.049;
 413     snprintf(buf, 32, "%d*%02d %04.1f%c", int(d < 0.0 ? -deg : deg),
 414         int(min), fabs(sec), c);
 415   }
 416   buf[31] = '\0';
 417   return buf;
 418 }
 419
 420 const char *
 421 FGProperties::getLatitudeString ()
 422 {
 423   static char buf[32];
 424   double d = _latDeg->getDoubleValue();
 425   int format = _lonLatformat->getIntValue();
 426   char c = d < 0.0 ? 'S' : 'N';
 427
 428   if (format == 0) {
 429     snprintf(buf, 32, "%3.6f%c", d, c);
 430
 431   } else if (format == 1) {
 432     double deg = fabs(d) + 5.0E-4 / 60.0;
 433     double min = fabs(deg - int(deg)) * 60.0 - 4.999E-4;
 434     snprintf(buf, 32, "%d*%06.3f%c", int(d < 0.0 ? -deg : deg), min, c);
 435
 436   } else {
 437     double deg = fabs(d) + 0.05 / 3600.0;
 438     double min = (deg - int(deg)) * 60.0;
 439     double sec = (min - int(min)) * 60.0 - 0.049;
 440     snprintf(buf, 32, "%d*%02d %04.1f%c", int(d < 0.0 ? -deg : deg),
 441         int(min), fabs(sec), c);
 442   }
 443   buf[31] = '\0';
 444   return buf;
 445 }
 446
 447
 448
 449 \f
 450
 451 FGProperties::FGProperties ()
 452 {
 453 }
 454
 455 FGProperties::~FGProperties ()
 456 {
 457 }
 458
 459 void
 460 FGProperties::init ()
 461 {
 462 }
 463
 464 void
 465 FGProperties::bind ()
 466 {
 467   _longDeg      = fgGetNode("/position/longitude-deg", true);
 468   _latDeg       = fgGetNode("/position/latitude-deg", true);
 469   _lonLatformat = fgGetNode("/sim/lon-lat-format", true);
 470
 471   _offset = fgGetNode("/sim/time/local-offset", true);
 472
 473   // utc date/time
 474   _uyear = fgGetNode("/sim/time/utc/year", true);
 475   _umonth = fgGetNode("/sim/time/utc/month", true);
 476   _uday = fgGetNode("/sim/time/utc/day", true);
 477   _uhour = fgGetNode("/sim/time/utc/hour", true);
 478   _umin = fgGetNode("/sim/time/utc/minute", true);
 479   _usec = fgGetNode("/sim/time/utc/second", true);
 480   _uwday = fgGetNode("/sim/time/utc/weekday", true);
 481   _udsec = fgGetNode("/sim/time/utc/day-seconds", true);
 482
 483   // real local date/time
 484   _ryear = fgGetNode("/sim/time/real/year", true);
 485   _rmonth = fgGetNode("/sim/time/real/month", true);
 486   _rday = fgGetNode("/sim/time/real/day", true);
 487   _rhour = fgGetNode("/sim/time/real/hour", true);
 488   _rmin = fgGetNode("/sim/time/real/minute", true);
 489   _rsec = fgGetNode("/sim/time/real/second", true);
 490   _rwday = fgGetNode("/sim/time/real/weekday", true);
 491
 492   _tiedProperties.setRoot(globals->get_props());
 493
 494   // Simulation
 495   _tiedProperties.Tie("/sim/logging/priority", getLoggingPriority, setLoggingPriority);
 496   _tiedProperties.Tie("/sim/logging/classes", getLoggingClasses, setLoggingClasses);
 497   _tiedProperties.Tie("/sim/freeze/master", getFreeze, setFreeze);
 498
 499   _tiedProperties.Tie("/sim/time/elapsed-sec", getElapsedTime_sec);
 500   _tiedProperties.Tie("/sim/time/gmt", getDateString, setDateString);
 501   fgSetArchivable("/sim/time/gmt");
 502   _tiedProperties.Tie("/sim/time/gmt-string", getGMTString);
 503
 504   // Position
 505   _tiedProperties.Tie("/position/latitude-string", getLatitudeString);
 506   _tiedProperties.Tie("/position/longitude-string", getLongitudeString);
 507
 508   // Orientation
 509   _tiedProperties.Tie("/orientation/heading-magnetic-deg", getHeadingMag);
 510   _tiedProperties.Tie("/orientation/track-magnetic-deg", getTrackMag);
 511
 512   // Misc. Temporary junk.
 513   _tiedProperties.Tie("/sim/temp/winding-ccw", getWindingCCW, setWindingCCW, false);
 514 }
 515
 516 void
 517 FGProperties::unbind ()
 518 {
 519     _tiedProperties.Untie();
 520
 521     // drop static references to properties
 522     _longDeg = 0;
 523     _latDeg = 0;
 524     _lonLatformat = 0;
 525 }
 526
 527 void
 528 FGProperties::update (double dt)
 529 {
 530     _offset->setIntValue(globals->get_time_params()->get_local_offset());
 531
 532     // utc date/time
 533     struct tm *u = globals->get_time_params()->getGmt();
 534     _uyear->setIntValue(u->tm_year + 1900);
 535     _umonth->setIntValue(u->tm_mon + 1);
 536     _uday->setIntValue(u->tm_mday);
 537     _uhour->setIntValue(u->tm_hour);
 538     _umin->setIntValue(u->tm_min);
 539     _usec->setIntValue(u->tm_sec);
 540     _uwday->setIntValue(u->tm_wday);
 541     _udsec->setIntValue(u->tm_hour * 3600 + u->tm_min * 60 + u->tm_sec);
 542
 543     // real local date/time
 544     time_t real = time(0);
 545     struct tm *r = localtime(&real);
 546     _ryear->setIntValue(r->tm_year + 1900);
 547     _rmonth->setIntValue(r->tm_mon + 1);
 548     _rday->setIntValue(r->tm_mday);
 549     _rhour->setIntValue(r->tm_hour);
 550     _rmin->setIntValue(r->tm_min);
 551     _rsec->setIntValue(r->tm_sec);
 552     _rwday->setIntValue(r->tm_wday);
 553 }
 554
 555
 556 \f
 557 ////////////////////////////////////////////////////////////////////////
 558 // Save and restore.
 559 ////////////////////////////////////////////////////////////////////////
 560
 561
 562 /**
 563  * Save the current state of the simulator to a stream.
 564  */
 565 bool
 566 fgSaveFlight (std::ostream &output, bool write_all)
 567 {
 568
 569   fgSetBool("/sim/presets/onground", false);
 570   fgSetArchivable("/sim/presets/onground");
 571   fgSetBool("/sim/presets/trim", false);
 572   fgSetArchivable("/sim/presets/trim");
 573   fgSetString("/sim/presets/speed-set", "UVW");
 574   fgSetArchivable("/sim/presets/speed-set");
 575
 576   try {
 577     writeProperties(output, globals->get_props(), write_all);
 578   } catch (const sg_exception &e) {
 579     guiErrorMessage("Error saving flight: ", e);
 580     return false;
 581   }
 582   return true;
 583 }
 584
 585
 586 /**
 587  * Restore the current state of the simulator from a stream.
 588  */
 589 bool
 590 fgLoadFlight (std::istream &input)
 591 {
 592   SGPropertyNode props;
 593   try {
 594     readProperties(input, &props);
 595   } catch (const sg_exception &e) {
 596     guiErrorMessage("Error reading saved flight: ", e);
 597     return false;
 598   }
 599
 600   fgSetBool("/sim/presets/onground", false);
 601   fgSetBool("/sim/presets/trim", false);
 602   fgSetString("/sim/presets/speed-set", "UVW");
 603
 604   copyProperties(&props, globals->get_props());
 605
 606   return true;
 607 }
 608
 609
 610 bool
 611 fgLoadProps (const char * path, SGPropertyNode * props, bool in_fg_root, int default_mode)
 612 {
 613     string fullpath;
 614     if (in_fg_root) {
 615         SGPath loadpath(globals->get_fg_root());
 616         loadpath.append(path);
 617         fullpath = loadpath.str();
 618     } else {
 619         fullpath = path;
 620     }
 621
 622     try {
 623         readProperties(fullpath, props, default_mode);
 624     } catch (const sg_exception &e) {
 625         guiErrorMessage("Error reading properties: ", e);
 626         return false;
 627     }
 628     return true;
 629 }
 630
 631
 632 \f
 633 ////////////////////////////////////////////////////////////////////////
 634 // Property convenience functions.
 635 ////////////////////////////////////////////////////////////////////////
 636
 637 SGPropertyNode *
 638 fgGetNode (const char * path, bool create)
 639 {
 640   return globals->get_props()->getNode(path, create);
 641 }
 642
 643 SGPropertyNode *
 644 fgGetNode (const char * path, int index, bool create)
 645 {
 646   return globals->get_props()->getNode(path, index, create);
 647 }
 648
 649 bool
 650 fgHasNode (const char * path)
 651 {
 652   return (fgGetNode(path, false) != 0);
 653 }
 654
 655 void
 656 fgAddChangeListener (SGPropertyChangeListener * listener, const char * path)
 657 {
 658   fgGetNode(path, true)->addChangeListener(listener);
 659 }
 660
 661 void
 662 fgAddChangeListener (SGPropertyChangeListener * listener,
 663                      const char * path, int index)
 664 {
 665   fgGetNode(path, index, true)->addChangeListener(listener);
 666 }
 667
 668 bool
 669 fgGetBool (const char * name, bool defaultValue)
 670 {
 671   return globals->get_props()->getBoolValue(name, defaultValue);
 672 }
 673
 674 int
 675 fgGetInt (const char * name, int defaultValue)
 676 {
 677   return globals->get_props()->getIntValue(name, defaultValue);
 678 }
 679
 680 long
 681 fgGetLong (const char * name, long defaultValue)
 682 {
 683   return globals->get_props()->getLongValue(name, defaultValue);
 684 }
 685
 686 float
 687 fgGetFloat (const char * name, float defaultValue)
 688 {
 689   return globals->get_props()->getFloatValue(name, defaultValue);
 690 }
 691
 692 double
 693 fgGetDouble (const char * name, double defaultValue)
 694 {
 695   return globals->get_props()->getDoubleValue(name, defaultValue);
 696 }
 697
 698 const char *
 699 fgGetString (const char * name, const char * defaultValue)
 700 {
 701   return globals->get_props()->getStringValue(name, defaultValue);
 702 }
 703
 704 bool
 705 fgSetBool (const char * name, bool val)
 706 {
 707   return globals->get_props()->setBoolValue(name, val);
 708 }
 709
 710 bool
 711 fgSetInt (const char * name, int val)
 712 {
 713   return globals->get_props()->setIntValue(name, val);
 714 }
 715
 716 bool
 717 fgSetLong (const char * name, long val)
 718 {
 719   return globals->get_props()->setLongValue(name, val);
 720 }
 721
 722 bool
 723 fgSetFloat (const char * name, float val)
 724 {
 725   return globals->get_props()->setFloatValue(name, val);
 726 }
 727
 728 bool
 729 fgSetDouble (const char * name, double val)
 730 {
 731   return globals->get_props()->setDoubleValue(name, val);
 732 }
 733
 734 bool
 735 fgSetString (const char * name, const char * val)
 736 {
 737   return globals->get_props()->setStringValue(name, val);
 738 }
 739
 740 void
 741 fgSetArchivable (const char * name, bool state)
 742 {
 743   SGPropertyNode * node = globals->get_props()->getNode(name);
 744   if (node == 0)
 745     SG_LOG(SG_GENERAL, SG_DEBUG,
 746            "Attempt to set archive flag for non-existant property "
 747            << name);
 748   else
 749     node->setAttribute(SGPropertyNode::ARCHIVE, state);
 750 }
 751
 752 void
 753 fgSetReadable (const char * name, bool state)
 754 {
 755   SGPropertyNode * node = globals->get_props()->getNode(name);
 756   if (node == 0)
 757     SG_LOG(SG_GENERAL, SG_DEBUG,
 758            "Attempt to set read flag for non-existant property "
 759            << name);
 760   else
 761     node->setAttribute(SGPropertyNode::READ, state);
 762 }
 763
 764 void
 765 fgSetWritable (const char * name, bool state)
 766 {
 767   SGPropertyNode * node = globals->get_props()->getNode(name);
 768   if (node == 0)
 769     SG_LOG(SG_GENERAL, SG_DEBUG,
 770            "Attempt to set write flag for non-existant property "
 771            << name);
 772   else
 773     node->setAttribute(SGPropertyNode::WRITE, state);
 774 }
 775
 776 void
 777 fgUntie(const char * name)
 778 {
 779   SGPropertyNode* node = globals->get_props()->getNode(name);
 780   if (!node) {
 781     SG_LOG(SG_GENERAL, SG_WARN, "fgUntie: unknown property " << name);
 782     return;
 783   }
 784
 785   if (!node->isTied()) {
 786     return;
 787   }
 788
 789   if (!node->untie()) {
 790     SG_LOG(SG_GENERAL, SG_WARN, "Failed to untie property " << name);
 791   }
 792 }
 793
 794
 795 // end of fg_props.cxx