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