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 ////////////////////////////////////////////////////////////////////////
  48 // Default property bindings (not yet handled by any module).
  49 ////////////////////////////////////////////////////////////////////////
  50
  51 struct LogClassMapping {
  52   sgDebugClass c;
  53   string name;
  54   LogClassMapping(sgDebugClass cc, string nname) { c = cc; name = nname; }
  55 };
  56
  57 LogClassMapping log_class_mappings [] = {
  58   LogClassMapping(SG_NONE, "none"),
  59   LogClassMapping(SG_TERRAIN, "terrain"),
  60   LogClassMapping(SG_ASTRO, "astro"),
  61   LogClassMapping(SG_FLIGHT, "flight"),
  62   LogClassMapping(SG_INPUT, "input"),
  63   LogClassMapping(SG_GL, "gl"),
  64   LogClassMapping(SG_VIEW, "view"),
  65   LogClassMapping(SG_COCKPIT, "cockpit"),
  66   LogClassMapping(SG_GENERAL, "general"),
  67   LogClassMapping(SG_MATH, "math"),
  68   LogClassMapping(SG_EVENT, "event"),
  69   LogClassMapping(SG_AIRCRAFT, "aircraft"),
  70   LogClassMapping(SG_AUTOPILOT, "autopilot"),
  71   LogClassMapping(SG_IO, "io"),
  72   LogClassMapping(SG_CLIPPER, "clipper"),
  73   LogClassMapping(SG_NETWORK, "network"),
  74   LogClassMapping(SG_INSTR, "instrumentation"),
  75   LogClassMapping(SG_ATC, "atc"),
  76   LogClassMapping(SG_NASAL, "nasal"),
  77   LogClassMapping(SG_SYSTEMS, "systems"),
  78   LogClassMapping(SG_AI, "ai"),
  79   LogClassMapping(SG_ENVIRONMENT, "environment"),
  80   LogClassMapping(SG_SOUND, "sound"),
  81   LogClassMapping(SG_NAVAID, "navaid"),
  82   LogClassMapping(SG_GUI, "gui"),
  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   d = fabs(d);
 395
 396   if (format == 0) {
 397     snprintf(buf, 32, "%3.6f%c", d, c);
 398
 399   } else if (format == 1) {
 400     // dd mm.mmm' (DMM-Format) -- uses a round-off factor tailored to the
 401     // required precision of the minutes field (three decimal places),
 402     // preventing minute values of 60.
 403     double deg = d + 5.0E-4 / 60.0;
 404     double min = (deg - int(deg)) * 60.0 - 4.999E-4;
 405     snprintf(buf, 32, "%d*%06.3f%c", int(deg), min, c);
 406
 407   } else {
 408     // mm'ss.s'' (DMS-Format) -- uses a round-off factor tailored to the
 409     // required precision of the seconds field (one decimal place),
 410     // preventing second values of 60.
 411     double deg = d + 0.05 / 3600.0;
 412     double min = (deg - int(deg)) * 60.0;
 413     double sec = (min - int(min)) * 60.0 - 0.049;
 414     snprintf(buf, 32, "%d*%02d %04.1f%c", int(deg),
 415         int(min), fabs(sec), c);
 416   }
 417   buf[31] = '\0';
 418   return buf;
 419 }
 420
 421 const char *
 422 FGProperties::getLatitudeString ()
 423 {
 424   static char buf[32];
 425   double d = _latDeg->getDoubleValue();
 426   int format = _lonLatformat->getIntValue();
 427   char c = d < 0.0 ? 'S' : 'N';
 428   d = fabs(d);
 429
 430   if (format == 0) {
 431     snprintf(buf, 32, "%3.6f%c", d, c);
 432
 433   } else if (format == 1) {
 434     double deg = d + 5.0E-4 / 60.0;
 435     double min = (deg - int(deg)) * 60.0 - 4.999E-4;
 436     snprintf(buf, 32, "%d*%06.3f%c", int(deg), min, c);
 437
 438   } else {
 439     double deg = d + 0.05 / 3600.0;
 440     double min = (deg - int(deg)) * 60.0;
 441     double sec = (min - int(min)) * 60.0 - 0.049;
 442     snprintf(buf, 32, "%d*%02d %04.1f%c", int(deg),
 443         int(min), fabs(sec), c);
 444   }
 445   buf[31] = '\0';
 446   return buf;
 447 }
 448
 449
 450
 451 \f
 452
 453 FGProperties::FGProperties ()
 454 {
 455 }
 456
 457 FGProperties::~FGProperties ()
 458 {
 459 }
 460
 461 void
 462 FGProperties::init ()
 463 {
 464 }
 465
 466 void
 467 FGProperties::bind ()
 468 {
 469   _longDeg      = fgGetNode("/position/longitude-deg", true);
 470   _latDeg       = fgGetNode("/position/latitude-deg", true);
 471   _lonLatformat = fgGetNode("/sim/lon-lat-format", true);
 472
 473   _offset = fgGetNode("/sim/time/local-offset", true);
 474
 475   // utc date/time
 476   _uyear = fgGetNode("/sim/time/utc/year", true);
 477   _umonth = fgGetNode("/sim/time/utc/month", true);
 478   _uday = fgGetNode("/sim/time/utc/day", true);
 479   _uhour = fgGetNode("/sim/time/utc/hour", true);
 480   _umin = fgGetNode("/sim/time/utc/minute", true);
 481   _usec = fgGetNode("/sim/time/utc/second", true);
 482   _uwday = fgGetNode("/sim/time/utc/weekday", true);
 483   _udsec = fgGetNode("/sim/time/utc/day-seconds", true);
 484
 485   // real local date/time
 486   _ryear = fgGetNode("/sim/time/real/year", true);
 487   _rmonth = fgGetNode("/sim/time/real/month", true);
 488   _rday = fgGetNode("/sim/time/real/day", true);
 489   _rhour = fgGetNode("/sim/time/real/hour", true);
 490   _rmin = fgGetNode("/sim/time/real/minute", true);
 491   _rsec = fgGetNode("/sim/time/real/second", true);
 492   _rwday = fgGetNode("/sim/time/real/weekday", true);
 493
 494   _tiedProperties.setRoot(globals->get_props());
 495
 496   // Simulation
 497   _tiedProperties.Tie("/sim/logging/priority", getLoggingPriority, setLoggingPriority);
 498   _tiedProperties.Tie("/sim/logging/classes", getLoggingClasses, setLoggingClasses);
 499   _tiedProperties.Tie("/sim/freeze/master", getFreeze, setFreeze);
 500
 501   _tiedProperties.Tie("/sim/time/elapsed-sec", getElapsedTime_sec);
 502   _tiedProperties.Tie("/sim/time/gmt", getDateString, setDateString);
 503   fgSetArchivable("/sim/time/gmt");
 504   _tiedProperties.Tie("/sim/time/gmt-string", getGMTString);
 505
 506   // Position
 507   _tiedProperties.Tie("/position/latitude-string", getLatitudeString);
 508   _tiedProperties.Tie("/position/longitude-string", getLongitudeString);
 509
 510   // Orientation
 511   _tiedProperties.Tie("/orientation/heading-magnetic-deg", getHeadingMag);
 512   _tiedProperties.Tie("/orientation/track-magnetic-deg", getTrackMag);
 513
 514   // Misc. Temporary junk.
 515   _tiedProperties.Tie("/sim/temp/winding-ccw", getWindingCCW, setWindingCCW, false);
 516 }
 517
 518 void
 519 FGProperties::unbind ()
 520 {
 521     _tiedProperties.Untie();
 522
 523     // drop static references to properties
 524     _longDeg = 0;
 525     _latDeg = 0;
 526     _lonLatformat = 0;
 527 }
 528
 529 void
 530 FGProperties::update (double dt)
 531 {
 532     _offset->setIntValue(globals->get_time_params()->get_local_offset());
 533
 534     // utc date/time
 535     struct tm *u = globals->get_time_params()->getGmt();
 536     _uyear->setIntValue(u->tm_year + 1900);
 537     _umonth->setIntValue(u->tm_mon + 1);
 538     _uday->setIntValue(u->tm_mday);
 539     _uhour->setIntValue(u->tm_hour);
 540     _umin->setIntValue(u->tm_min);
 541     _usec->setIntValue(u->tm_sec);
 542     _uwday->setIntValue(u->tm_wday);
 543     _udsec->setIntValue(u->tm_hour * 3600 + u->tm_min * 60 + u->tm_sec);
 544
 545     // real local date/time
 546     time_t real = time(0);
 547     struct tm *r = localtime(&real);
 548     _ryear->setIntValue(r->tm_year + 1900);
 549     _rmonth->setIntValue(r->tm_mon + 1);
 550     _rday->setIntValue(r->tm_mday);
 551     _rhour->setIntValue(r->tm_hour);
 552     _rmin->setIntValue(r->tm_min);
 553     _rsec->setIntValue(r->tm_sec);
 554     _rwday->setIntValue(r->tm_wday);
 555 }
 556
 557
 558 \f
 559 ////////////////////////////////////////////////////////////////////////
 560 // Save and restore.
 561 ////////////////////////////////////////////////////////////////////////
 562
 563
 564 /**
 565  * Save the current state of the simulator to a stream.
 566  */
 567 bool
 568 fgSaveFlight (std::ostream &output, bool write_all)
 569 {
 570
 571   fgSetBool("/sim/presets/onground", false);
 572   fgSetArchivable("/sim/presets/onground");
 573   fgSetBool("/sim/presets/trim", false);
 574   fgSetArchivable("/sim/presets/trim");
 575   fgSetString("/sim/presets/speed-set", "UVW");
 576   fgSetArchivable("/sim/presets/speed-set");
 577
 578   try {
 579     writeProperties(output, globals->get_props(), write_all);
 580   } catch (const sg_exception &e) {
 581     guiErrorMessage("Error saving flight: ", e);
 582     return false;
 583   }
 584   return true;
 585 }
 586
 587
 588 /**
 589  * Restore the current state of the simulator from a stream.
 590  */
 591 bool
 592 fgLoadFlight (std::istream &input)
 593 {
 594   SGPropertyNode props;
 595   try {
 596     readProperties(input, &props);
 597   } catch (const sg_exception &e) {
 598     guiErrorMessage("Error reading saved flight: ", e);
 599     return false;
 600   }
 601
 602   fgSetBool("/sim/presets/onground", false);
 603   fgSetBool("/sim/presets/trim", false);
 604   fgSetString("/sim/presets/speed-set", "UVW");
 605
 606   copyProperties(&props, globals->get_props());
 607
 608   return true;
 609 }
 610
 611
 612 bool
 613 fgLoadProps (const char * path, SGPropertyNode * props, bool in_fg_root, int default_mode)
 614 {
 615     string fullpath;
 616     if (in_fg_root) {
 617         SGPath loadpath(globals->get_fg_root());
 618         loadpath.append(path);
 619         fullpath = loadpath.str();
 620     } else {
 621         fullpath = path;
 622     }
 623
 624     try {
 625         readProperties(fullpath, props, default_mode);
 626     } catch (const sg_exception &e) {
 627         guiErrorMessage("Error reading properties: ", e);
 628         return false;
 629     }
 630     return true;
 631 }
 632
 633
 634 \f
 635 ////////////////////////////////////////////////////////////////////////
 636 // Property convenience functions.
 637 ////////////////////////////////////////////////////////////////////////
 638
 639 SGPropertyNode *
 640 fgGetNode (const char * path, bool create)
 641 {
 642   return globals->get_props()->getNode(path, create);
 643 }
 644
 645 SGPropertyNode *
 646 fgGetNode (const char * path, int index, bool create)
 647 {
 648   return globals->get_props()->getNode(path, index, create);
 649 }
 650
 651 bool
 652 fgHasNode (const char * path)
 653 {
 654   return (fgGetNode(path, false) != 0);
 655 }
 656
 657 void
 658 fgAddChangeListener (SGPropertyChangeListener * listener, const char * path)
 659 {
 660   fgGetNode(path, true)->addChangeListener(listener);
 661 }
 662
 663 void
 664 fgAddChangeListener (SGPropertyChangeListener * listener,
 665                      const char * path, int index)
 666 {
 667   fgGetNode(path, index, true)->addChangeListener(listener);
 668 }
 669
 670 bool
 671 fgGetBool (const char * name, bool defaultValue)
 672 {
 673   return globals->get_props()->getBoolValue(name, defaultValue);
 674 }
 675
 676 int
 677 fgGetInt (const char * name, int defaultValue)
 678 {
 679   return globals->get_props()->getIntValue(name, defaultValue);
 680 }
 681
 682 long
 683 fgGetLong (const char * name, long defaultValue)
 684 {
 685   return globals->get_props()->getLongValue(name, defaultValue);
 686 }
 687
 688 float
 689 fgGetFloat (const char * name, float defaultValue)
 690 {
 691   return globals->get_props()->getFloatValue(name, defaultValue);
 692 }
 693
 694 double
 695 fgGetDouble (const char * name, double defaultValue)
 696 {
 697   return globals->get_props()->getDoubleValue(name, defaultValue);
 698 }
 699
 700 const char *
 701 fgGetString (const char * name, const char * defaultValue)
 702 {
 703   return globals->get_props()->getStringValue(name, defaultValue);
 704 }
 705
 706 bool
 707 fgSetBool (const char * name, bool val)
 708 {
 709   return globals->get_props()->setBoolValue(name, val);
 710 }
 711
 712 bool
 713 fgSetInt (const char * name, int val)
 714 {
 715   return globals->get_props()->setIntValue(name, val);
 716 }
 717
 718 bool
 719 fgSetLong (const char * name, long val)
 720 {
 721   return globals->get_props()->setLongValue(name, val);
 722 }
 723
 724 bool
 725 fgSetFloat (const char * name, float val)
 726 {
 727   return globals->get_props()->setFloatValue(name, val);
 728 }
 729
 730 bool
 731 fgSetDouble (const char * name, double val)
 732 {
 733   return globals->get_props()->setDoubleValue(name, val);
 734 }
 735
 736 bool
 737 fgSetString (const char * name, const char * val)
 738 {
 739   return globals->get_props()->setStringValue(name, val);
 740 }
 741
 742 void
 743 fgSetArchivable (const char * name, bool state)
 744 {
 745   SGPropertyNode * node = globals->get_props()->getNode(name);
 746   if (node == 0)
 747     SG_LOG(SG_GENERAL, SG_DEBUG,
 748            "Attempt to set archive flag for non-existant property "
 749            << name);
 750   else
 751     node->setAttribute(SGPropertyNode::ARCHIVE, state);
 752 }
 753
 754 void
 755 fgSetReadable (const char * name, bool state)
 756 {
 757   SGPropertyNode * node = globals->get_props()->getNode(name);
 758   if (node == 0)
 759     SG_LOG(SG_GENERAL, SG_DEBUG,
 760            "Attempt to set read flag for non-existant property "
 761            << name);
 762   else
 763     node->setAttribute(SGPropertyNode::READ, state);
 764 }
 765
 766 void
 767 fgSetWritable (const char * name, bool state)
 768 {
 769   SGPropertyNode * node = globals->get_props()->getNode(name);
 770   if (node == 0)
 771     SG_LOG(SG_GENERAL, SG_DEBUG,
 772            "Attempt to set write flag for non-existant property "
 773            << name);
 774   else
 775     node->setAttribute(SGPropertyNode::WRITE, state);
 776 }
 777
 778 void
 779 fgUntie(const char * name)
 780 {
 781   SGPropertyNode* node = globals->get_props()->getNode(name);
 782   if (!node) {
 783     SG_LOG(SG_GENERAL, SG_WARN, "fgUntie: unknown property " << name);
 784     return;
 785   }
 786
 787   if (!node->isTied()) {
 788     return;
 789   }
 790
 791   if (!node->untie()) {
 792     SG_LOG(SG_GENERAL, SG_WARN, "Failed to untie property " << name);
 793   }
 794 }
 795
 796
 797 // end of fg_props.cxx