src/FDM/ExternalNet/ExternalNet.cxx

   1 // ExternalNet.hxx -- an net interface to an external flight dynamics model
   2 //
   3 // Written by Curtis Olson, started November 2001.
   4 //
   5 // Copyright (C) 2001  Curtis L. Olson  - curt@flightgear.org
   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., 675 Mass Ave, Cambridge, MA 02139, USA.
  20 //
  21 // $Id$
  22
  23 #include <simgear/debug/logstream.hxx>
  24 #include <simgear/io/lowlevel.hxx> // endian tests
  25
  26 #include <Main/fg_props.hxx>
  27
  28 #include "ExternalNet.hxx"
  29
  30
  31 // FreeBSD works better with this included last ... (?)
  32 #if defined(WIN32) && !defined(__CYGWIN__)
  33 #  include <windows.h>
  34 #else
  35 #  include <netinet/in.h>       // htonl() ntohl()
  36 #endif
  37
  38
  39 // The function htond is defined this way due to the way some
  40 // processors and OSes treat floating point values.  Some will raise
  41 // an exception whenever a "bad" floating point value is loaded into a
  42 // floating point register.  Solaris is notorious for this, but then
  43 // so is LynxOS on the PowerPC.  By translating the data in place,
  44 // there is no need to load a FP register with the "corruped" floating
  45 // point value.  By doing the BIG_ENDIAN test, I can optimize the
  46 // routine for big-endian processors so it can be as efficient as
  47 // possible
  48 static void htond (double &x)
  49 {
  50     if ( sgIsLittleEndian() ) {
  51         int    *Double_Overlay;
  52         int     Holding_Buffer;
  53
  54         Double_Overlay = (int *) &x;
  55         Holding_Buffer = Double_Overlay [0];
  56
  57         Double_Overlay [0] = htonl (Double_Overlay [1]);
  58         Double_Overlay [1] = htonl (Holding_Buffer);
  59     } else {
  60         return;
  61     }
  62 }
  63
  64
  65 static void global2net( FGNetCtrls *net ) {
  66     int i;
  67
  68     // fill in values
  69     SGPropertyNode * node = fgGetNode("/controls", true);
  70     net->version = FG_NET_CTRLS_VERSION;
  71     net->aileron = node->getDoubleValue( "aileron" );
  72     net->elevator = node->getDoubleValue( "elevator" );
  73     net->elevator_trim = node->getDoubleValue( "elevator-trim" );
  74     net->rudder = node->getDoubleValue( "rudder" );
  75     net->flaps = node->getDoubleValue( "flaps" );
  76     net->flaps_power
  77             = node->getDoubleValue( "/systems/electrical/outputs/flaps",
  78                                     1.0 ) >= 1.0;
  79     net->num_engines = FGNetCtrls::FG_MAX_ENGINES;
  80     for ( i = 0; i < FGNetCtrls::FG_MAX_ENGINES; ++i ) {
  81         net->throttle[i] = node->getDoubleValue( "throttle", 0.0 );
  82         net->mixture[i] = node->getDoubleValue( "mixture", 0.0 );
  83         net->fuel_pump_power[i]
  84             = node->getDoubleValue( "/systems/electrical/outputs/fuel-pump",
  85                                     1.0 ) >= 1.0;
  86         net->prop_advance[i] = node->getDoubleValue( "propeller-pitch", 0.0 );
  87         net->magnetos[i] = node->getIntValue( "magnetos", 0 );
  88         if ( i == 0 ) {
  89           // cout << "Magnetos -> " << node->getIntValue( "magnetos", 0 );
  90         }
  91         net->starter_power[i]
  92             = node->getDoubleValue( "/systems/electrical/outputs/starter",
  93                                     1.0 ) >= 1.0;
  94         if ( i == 0 ) {
  95           // cout << " Starter -> " << node->getIntValue( "stater", false )
  96           //      << endl;
  97         }
  98     }
  99     net->num_tanks = FGNetCtrls::FG_MAX_TANKS;
 100     for ( i = 0; i < FGNetCtrls::FG_MAX_TANKS; ++i ) {
 101         if ( node->getChild("fuel-selector", i) != 0 ) {
 102             net->fuel_selector[i]
 103                 = node->getChild("fuel-selector", i)->getDoubleValue();
 104         } else {
 105             net->fuel_selector[i] = false;
 106         }
 107     }
 108     net->num_wheels = FGNetCtrls::FG_MAX_WHEELS;
 109     for ( i = 0; i < FGNetCtrls::FG_MAX_WHEELS; ++i ) {
 110         if ( node->getChild("brakes", i) != 0 ) {
 111             net->brake[i]
 112                 = node->getChild("brakes", i)->getDoubleValue();
 113         } else {
 114             net->brake[i] = 0.0;
 115         }
 116     }
 117
 118     node = fgGetNode("/controls/switches", true);
 119     net->master_bat = node->getChild("master-bat")->getBoolValue();
 120     net->master_alt = node->getChild("master-alt")->getBoolValue();
 121     net->master_avionics = node->getChild("master-avionics")->getBoolValue();
 122
 123     // cur_fdm_state->get_ground_elev_ft() is what we want ... this
 124     // reports the altitude of the aircraft.
 125     // "/environment/ground-elevation-m" reports the ground elevation
 126     // of the current view point which could change substantially if
 127     // the user is switching views.
 128     net->hground = cur_fdm_state->get_ground_elev_ft() * SG_FEET_TO_METER;
 129     net->magvar = fgGetDouble("/environment/magnetic-variation-deg");
 130     net->speedup = fgGetInt("/sim/speed-up");
 131
 132     // convert to network byte order
 133     net->version = htonl(net->version);
 134     htond(net->aileron);
 135     htond(net->elevator);
 136     htond(net->elevator_trim);
 137     htond(net->rudder);
 138     htond(net->flaps);
 139     net->flaps_power = htonl(net->flaps_power);
 140     for ( i = 0; i < FGNetCtrls::FG_MAX_ENGINES; ++i ) {
 141         htond(net->throttle[i]);
 142         htond(net->mixture[i]);
 143         net->fuel_pump_power[i] = htonl(net->fuel_pump_power[i]);
 144         htond(net->prop_advance[i]);
 145         net->magnetos[i] = htonl(net->magnetos[i]);
 146         net->starter_power[i] = htonl(net->starter_power[i]);
 147     }
 148     net->num_engines = htonl(net->num_engines);
 149     for ( i = 0; i < FGNetCtrls::FG_MAX_TANKS; ++i ) {
 150         net->fuel_selector[i] = htonl(net->fuel_selector[i]);
 151     }
 152     net->num_tanks = htonl(net->num_tanks);
 153     for ( i = 0; i < FGNetCtrls::FG_MAX_WHEELS; ++i ) {
 154         htond(net->brake[i]);
 155     }
 156     net->num_wheels = htonl(net->num_wheels);
 157     net->gear_handle = htonl(net->gear_handle);
 158     net->master_bat = htonl(net->master_bat);
 159     net->master_alt = htonl(net->master_alt);
 160     net->master_avionics = htonl(net->master_avionics);
 161     htond(net->hground);
 162     htond(net->magvar);
 163     net->speedup = htonl(net->speedup);
 164 }
 165
 166
 167 static void net2global( FGNetFDM *net ) {
 168     int i;
 169
 170     // Convert to the net buffer from network format
 171     net->version = ntohl(net->version);
 172
 173     htond(net->longitude);
 174     htond(net->latitude);
 175     htond(net->altitude);
 176     htond(net->phi);
 177     htond(net->theta);
 178     htond(net->psi);
 179
 180     htond(net->phidot);
 181     htond(net->thetadot);
 182     htond(net->psidot);
 183     htond(net->vcas);
 184     htond(net->climb_rate);
 185     htond(net->v_north);
 186     htond(net->v_east);
 187     htond(net->v_down);
 188     htond(net->v_wind_body_north);
 189     htond(net->v_wind_body_east);
 190     htond(net->v_wind_body_down);
 191     htond(net->stall_warning);
 192
 193     htond(net->A_X_pilot);
 194     htond(net->A_Y_pilot);
 195     htond(net->A_Z_pilot);
 196
 197     net->num_engines = htonl(net->num_engines);
 198     for ( i = 0; i < net->num_engines; ++i ) {
 199         htonl(net->eng_state[i]);
 200         htond(net->rpm[i]);
 201         htond(net->fuel_flow[i]);
 202         htond(net->EGT[i]);
 203         htond(net->oil_temp[i]);
 204         htond(net->oil_px[i]);
 205     }
 206
 207     net->num_tanks = htonl(net->num_tanks);
 208     for ( i = 0; i < net->num_tanks; ++i ) {
 209         htond(net->fuel_quantity[i]);
 210     }
 211
 212     net->num_wheels = htonl(net->num_wheels);
 213     // I don't need to convert the Wow flags, since they are one byte in size
 214     htond(net->flap_deflection);
 215
 216     net->cur_time = ntohl(net->cur_time);
 217     net->warp = ntohl(net->warp);
 218     htond(net->visibility);
 219
 220     if ( net->version == FG_NET_FDM_VERSION ) {
 221         // cout << "pos = " << net->longitude << " " << net->latitude << endl;
 222         // cout << "sea level rad = " << cur_fdm_state->get_Sea_level_radius()
 223         //      << endl;
 224         cur_fdm_state->_updateGeodeticPosition( net->latitude,
 225                                                 net->longitude,
 226                                                 net->altitude
 227                                                   * SG_METER_TO_FEET );
 228         cur_fdm_state->_set_Euler_Angles( net->phi,
 229                                           net->theta,
 230                                           net->psi );
 231         cur_fdm_state->_set_Euler_Rates( net->phidot,
 232                                          net->thetadot,
 233                                          net->psidot );
 234         cur_fdm_state->_set_V_calibrated_kts( net->vcas );
 235         cur_fdm_state->_set_Climb_Rate( net->climb_rate );
 236         cur_fdm_state->_set_Velocities_Local( net->v_north,
 237                                               net->v_east,
 238                                               net->v_down );
 239         cur_fdm_state->_set_Velocities_Wind_Body( net->v_wind_body_north,
 240                                                   net->v_wind_body_east,
 241                                                   net->v_wind_body_down );
 242
 243         fgSetDouble( "/sim/aero/alarms/stall-warning", net->stall_warning );
 244         cur_fdm_state->_set_Accels_Pilot_Body( net->A_X_pilot,
 245                                                net->A_Y_pilot,
 246                                                net->A_Z_pilot );
 247
 248         for ( i = 0; i < net->num_engines; ++i ) {
 249             SGPropertyNode *node = fgGetNode( "engines/engine", i, true );
 250
 251             // node->setBoolValue("running", t->isRunning());
 252             // node->setBoolValue("cranking", t->isCranking());
 253
 254             // cout << net->eng_state[i] << endl;
 255             if ( net->eng_state[i] == 0 ) {
 256                 node->setBoolValue( "cranking", false );
 257                 node->setBoolValue( "running", false );
 258             } else if ( net->eng_state[i] == 1 ) {
 259                 node->setBoolValue( "cranking", true );
 260                 node->setBoolValue( "running", false );
 261             } else if ( net->eng_state[i] == 2 ) {
 262                 node->setBoolValue( "cranking", false );
 263                 node->setBoolValue( "running", true );
 264             }
 265
 266             node->setDoubleValue( "rpm", net->rpm[i] );
 267             node->setDoubleValue( "fuel-flow-gph", net->fuel_flow[i] );
 268             node->setDoubleValue( "egt-degf", net->EGT[i] );
 269             node->setDoubleValue( "oil-temperature-degf", net->oil_temp[i] );
 270             node->setDoubleValue( "oil-pressure-psi", net->oil_px[i] );
 271         }
 272
 273         for (i = 0; i < net->num_tanks; ++i ) {
 274             SGPropertyNode * node
 275                 = fgGetNode("/consumables/fuel/tank", i, true);
 276             node->setDoubleValue("level-gal_us", net->fuel_quantity[i] );
 277         }
 278
 279         for (i = 0; i < net->num_wheels; ++i ) {
 280             SGPropertyNode * node
 281                 = fgGetNode("/gear/gear", i, true);
 282             node->setDoubleValue("wow", net->wow[i] );
 283         }
 284
 285         fgSetDouble("/surface-positions/flap-pos-norm", net->flap_deflection);
 286         SGPropertyNode * node = fgGetNode("/controls", true);
 287         fgSetDouble("/surface-positions/elevator-pos-norm",
 288                     node->getDoubleValue( "elevator" ));
 289         fgSetDouble("/surface-positions/rudder-pos-norm",
 290                     node->getDoubleValue( "rudder" ));
 291         fgSetDouble("/surface-positions/left-aileron-pos-norm",
 292                     node->getDoubleValue( "aileron" ));
 293         fgSetDouble("/surface-positions/right-aileron-pos-norm",
 294                     -node->getDoubleValue( "aileron" ));
 295
 296         /* these are ignored for now  ... */
 297         /*
 298         if ( net->cur_time ) {
 299             fgSetLong("/sim/time/cur-time-override", net->cur_time);
 300         }
 301
 302         globals->set_warp( net->warp );
 303         last_warp = net->warp;
 304         */
 305     } else {
 306         SG_LOG( SG_IO, SG_ALERT, "Error: version mismatch in net2global()" );
 307         SG_LOG( SG_IO, SG_ALERT,
 308                 "\tread " << net->version << " need " << FG_NET_FDM_VERSION );
 309         SG_LOG( SG_IO, SG_ALERT,
 310                 "\tsomeone needs to upgrade net_fdm.hxx and recompile." );
 311     }
 312 }
 313
 314
 315 FGExternalNet::FGExternalNet( double dt, string host, int dop, int dip, int cp )
 316 {
 317 //     set_delta_t( dt );
 318
 319     valid = true;
 320
 321     data_in_port = dip;
 322     data_out_port = dop;
 323     cmd_port = cp;
 324     fdm_host = host;
 325
 326     /////////////////////////////////////////////////////////
 327     // Setup client udp connection (sends data to remote fdm)
 328
 329     if ( ! data_client.open( false ) ) {
 330         SG_LOG( SG_FLIGHT, SG_ALERT, "Error opening client data channel" );
 331         valid = false;
 332     }
 333
 334     // fire and forget
 335     data_client.setBlocking( false );
 336
 337     if ( data_client.connect( fdm_host.c_str(), data_out_port ) == -1 ) {
 338         printf("error connecting to %s:%d\n", fdm_host.c_str(), data_out_port);
 339         valid = false;
 340     }
 341
 342     /////////////////////////////////////////////////////////
 343     // Setup server udp connection (for receiving data)
 344
 345     if ( ! data_server.open( false ) ) {
 346         SG_LOG( SG_FLIGHT, SG_ALERT, "Error opening client server channel" );
 347         valid = false;
 348     }
 349
 350     // disable blocking
 351     data_server.setBlocking( false );
 352
 353     // allowed to read from a broadcast addr
 354     // data_server.setBroadcast( true );
 355
 356     // if we bind to fdm_host = "" then we accept messages from
 357     // anyone.
 358     if ( data_server.bind( "", data_in_port ) == -1 ) {
 359         printf("error binding to port %d\n", data_in_port);
 360         valid = false;
 361     }
 362 }
 363
 364
 365 FGExternalNet::~FGExternalNet() {
 366     data_client.close();
 367     data_server.close();
 368 }
 369
 370
 371 // Initialize the ExternalNet flight model, dt is the time increment
 372 // for each subsequent iteration through the EOM
 373 void FGExternalNet::init() {
 374     // cout << "FGExternalNet::init()" << endl;
 375
 376     // Explicitly call the superclass's
 377     // init method first.
 378     common_init();
 379
 380     double lon = fgGetDouble( "/position/longitude-deg" );
 381     double lat = fgGetDouble( "/position/latitude-deg" );
 382     double ground = fgGetDouble( "/environment/ground-elevation-m" );
 383     double heading = fgGetDouble("/orientation/heading-deg");
 384
 385     char cmd[256];
 386
 387     HTTPClient *http;
 388     sprintf( cmd, "/longitude-deg?value=%.8f", lon );
 389     http = new HTTPClient( fdm_host.c_str(), cmd_port, cmd );
 390     while ( !http->isDone(1000000) ) http->poll(0);
 391     delete http;
 392
 393     sprintf( cmd, "/latitude-deg?value=%.8f", lat );
 394     http = new HTTPClient( fdm_host.c_str(), cmd_port, cmd );
 395     while ( !http->isDone(1000000) ) http->poll(0);
 396     delete http;
 397
 398     sprintf( cmd, "/ground-m?value=%.8f", ground );
 399     http = new HTTPClient( fdm_host.c_str(), cmd_port, cmd );
 400     while ( !http->isDone(1000000) ) http->poll(0);
 401     delete http;
 402
 403     sprintf( cmd, "/heading-deg?value=%.8f", heading );
 404     http = new HTTPClient( fdm_host.c_str(), cmd_port, cmd );
 405     while ( !http->isDone(1000000) ) http->poll(0);
 406     delete http;
 407
 408     SG_LOG( SG_IO, SG_INFO, "before sending reset command." );
 409
 410     sprintf( cmd, "/reset?value=ground" );
 411     http = new HTTPClient( fdm_host.c_str(), cmd_port, cmd );
 412     while ( !http->isDone(1000000) ) http->poll(0);
 413     delete http;
 414
 415     SG_LOG( SG_IO, SG_INFO, "Remote FDM init() finished." );
 416 }
 417
 418
 419 // Run an iteration of the EOM.
 420 void FGExternalNet::update( double dt ) {
 421     int length;
 422     int result;
 423
 424     if (is_suspended())
 425       return;
 426
 427     // Send control positions to remote fdm
 428     length = sizeof(ctrls);
 429     global2net( &ctrls );
 430     if ( data_client.send( (char *)(& ctrls), length, 0 ) != length ) {
 431         SG_LOG( SG_IO, SG_DEBUG, "Error writing data." );
 432     } else {
 433         SG_LOG( SG_IO, SG_DEBUG, "wrote control data." );
 434     }
 435
 436     // Read next set of FDM data (blocking enabled to maintain 'sync')
 437     length = sizeof(fdm);
 438     while ( (result = data_server.recv( (char *)(& fdm), length, 0)) >= 0 ) {
 439         SG_LOG( SG_IO, SG_DEBUG, "Success reading data." );
 440         net2global( &fdm );
 441     }
 442 }