Usenet 1994 January/usenetsourcesnewsgroupsinfomagicjanuary1994.iso/sources/misc/volume9/fplan/part06

Text File | 1989-11-26 | 28.4 KB | 944 lines

Newsgroups: comp.sources.misc
subject: v09i016: FPLAN 6/6
from: [e-mail] (Brandon S. Allbery - comp.sources.misc)
Reply-To: [e-mail] (Steve Tynor)

Posting-number: Volume 9, Issue 16
Submitted-by: [e-mail] (Steve Tynor)
Archive-name: fplan/part06

#This is part 6/6 of FPLAN
#!/bin/sh
# shar:    Shell Archiver  (v1.22)
#    Packed Mon Nov 20 19:28:42 EST 1989 by gaffa!tynor
#    from directory /files/home/users/tynor/src/fplan
#
#    Run the following text with /bin/sh to create:
#      fp_lex.l
#      fp_yacc.y
#      sv_draw.c
#      dosbuild.bat
#      mystring.h
#      wp_info.h
#      reverse.c
#      version.h
#
echo "x - extracting fp_lex.l (Text)"
sed 's/^X//' << 'SHAR_EOF' > fp_lex.l &&
X%{
X/*
X * $Id: fp_lex.l,v 2.4 89/11/14 20:28:11 tynor Exp $
X *----------------------------------------------------------------------------
X *    FPLAN - Flight Planner
X *    Steve Tynor
X *    [e-mail]
X *
X *    This program is in the public domain. Permission to copy,
X * distribute, modify this program is hearby given as long as this header
X * remains. If you redistribute this program after modifying it, please
X * document your changes so that I do not take the blame (or credit) for
X * those changes.  If you fix bugs or add features, please send me a
X * patch so that I can keep the 'official' version up-to-date.
X *
X *    Bug reports are welcome and I'll make an attempt to fix those
X * that are reported.
X *
X *    USE AT YOUR OWN RISK! I assume no responsibility for any
X * errors in this program, its database or documentation. I will make an
X * effort to fix bugs, but if you crash and burn because, for example,
X * fuel estimates in this program were inaccurate, it's your own fault
X * for trusting somebody else's code! Remember, as PIC, it's _your_
X * responsibility to do complete preflight planning. Use this program as
X * a flight planning aid, but verify its results before using them.
X *----------------------------------------------------------------------------
X */
X
X#include "fp_tok.h"
X
Xstatic char rcsid[] = "$Id: fp_lex.l,v 2.4 89/11/14 20:28:11 tynor Exp $";
X
Xdouble yydval;
Xextern double atof();
X
X%}
X
X%%
X
X\#.*$        ;    /* comment */
X\"        { int i;
X          for (i = 0; (yytext[i] = input()) != '\"'; i++) {
X             if (yytext[i] == '\"')
X            break;
X             if (yytext[i] == '\\')
X            yytext[i] = input();
X          }
X          yytext[i] = '\0';
X          return TOK_STRING;
X        };
Xalt        return TOK_ALT;
Xvia        return TOK_VIA;
Xfrom        return TOK_FROM;
Xto        return TOK_TO;
Xmi        return TOK_MI;
Xnm        return TOK_NM;
Xmph        return TOK_MPH;
Xkts        return TOK_KTS;
Xnav        return TOK_NAV;
Xwind        return TOK_WIND;
Xtas        return TOK_TAS;
Xfuel_amt    return TOK_FUEL_AMT;
Xfuel_rate    return TOK_FUEL_RATE;
Xfuel_used    return TOK_FUEL_USED;
X
X\@        return TOK_ATSIGN;
X
X[\+\-]?[0-9]+\.[0-9]+    { yydval = atof (yytext);
X          return TOK_REAL;
X        };
X[\+\-]?[0-9]+   { yydval = atof (yytext);
X          return TOK_INTEGER;
X        };
X\_?[0-9A-Za-z]+ return TOK_SYMBOL; /* use a leading _ for personal waypoints */
X\:\=        return TOK_ASSIGN;
X\;        return TOK_SEMICOLON;
X\,        return TOK_COMMA;
X\(        return TOK_LPAREN;
X\)        return TOK_RPAREN;
X[ \t\n]           ;    /* ignore whitespace */
X.        ;    /* ignore anything else too */
X%%
SHAR_EOF
chmod 0444 fp_lex.l || echo "restore of fp_lex.l fails"
echo "x - extracting fp_yacc.y (Text)"
sed 's/^X//' << 'SHAR_EOF' > fp_yacc.y &&
X%{
X/*
X * $Id: fp_yacc.y,v 2.5 89/11/11 19:17:00 tynor Exp $
X *----------------------------------------------------------------------------
X *    FPLAN - Flight Planner
X *    Steve Tynor
X *    [e-mail]
X *
X *    This program is in the public domain. Permission to copy,
X * distribute, modify this program is hearby given as long as this header
X * remains. If you redistribute this program after modifying it, please
X * document your changes so that I do not take the blame (or credit) for
X * those changes.  If you fix bugs or add features, please send me a
X * patch so that I can keep the 'official' version up-to-date.
X *
X *    Bug reports are welcome and I'll make an attempt to fix those
X * that are reported.
X *
X *    USE AT YOUR OWN RISK! I assume no responsibility for any
X * errors in this program, its database or documentation. I will make an
X * effort to fix bugs, but if you crash and burn because, for example,
X * fuel estimates in this program were inaccurate, it's your own fault
X * for trusting somebody else's code! Remember, as PIC, it's _your_
X * responsibility to do complete preflight planning. Use this program as
X * a flight planning aid, but verify its results before using them.
X *----------------------------------------------------------------------------
X */
X
X#include "wp_info.h"
X#include "mystring.h"
X
Xstatic char rcsid[] = "$Id: fp_yacc.y,v 2.5 89/11/11 19:17:00 tynor Exp $";
X
Xextern double degrees_mins_2_decimal ();
X
Xextern double yydval;
Xextern char   yytext[];
X
Xtypedef union {
X   int            ival;
X   double        dval;
X   char            *sval;
X   WAYPOINT_KIND    kval;
X} YYSTYPE;
X
X%}
X
X%type <kval> waypoint_kind
X   /*
X    * %type <dval> radial
X    */
X%type <dval> number
X%type <dval> latitude
X%type <dval> longitude
X%type <dval> heading
X%type <dval> distance
X%type <dval> speed
X%type <sval> optional_string
X%type <sval> desig
X
X%token TOK_SEMICOLON
X%token TOK_ASSIGN
X%token TOK_VIA
X%token TOK_ALT
X%token TOK_FROM
X%token TOK_TO
X%token TOK_MI
X%token TOK_NM
X%token TOK_MPH
X%token TOK_KTS
X%token TOK_COMMA
X%token TOK_REAL
X%token TOK_INTEGER
X%token TOK_NAV
X%token TOK_WIND
X%token TOK_TAS
X%token TOK_LPAREN
X%token TOK_RPAREN
X%token TOK_FUEL_AMT
X%token TOK_FUEL_RATE
X%token TOK_FUEL_USED
X%token TOK_STRING
X%token TOK_SYMBOL
X%token TOK_ATSIGN
X
X%start fplan
X
X%%
X
Xfplan        : directives
X        ;
X
Xdirectives     : /* empty */
X        | directives directive
X        ;
X
Xdirective    : named_waypoint    TOK_SEMICOLON
X           | inc_waypoint        TOK_SEMICOLON
X           /* | int_waypoint    TOK_SEMICOLON */
X           | lat_waypoint        TOK_SEMICOLON
X        | nav_fix        TOK_SEMICOLON
X        | true_airspeed        TOK_SEMICOLON
X        | wind            TOK_SEMICOLON
X        | fuel_amt        TOK_SEMICOLON
X        | fuel_rate        TOK_SEMICOLON
X        | fuel_used        TOK_SEMICOLON
X           | flight_altitude    TOK_SEMICOLON
X        ;
X
Xnamed_waypoint    : waypoint_kind desig
X            {add_named_waypoint ($1, $2);}
X
Xinc_waypoint     : waypoint_kind distance
X             optional_string optional_string optional_string
X            {add_inc_waypoint ($2, $3, $4, $5);}
X        ;
X
X/*
X *int_waypoint    : waypoint_kind desig TOK_COMMA radial TOK_COMMA desig
X *          TOK_COMMA radial optional_string
X *            {add_int_waypoint ($1, $2, $4, $6, $8, $9);}
X *        ;
X */
X
Xlat_waypoint    : waypoint_kind latitude TOK_COMMA longitude
X             optional_string optional_string optional_string
X          {add_lat_waypoint ($1, $2, $4, $5, $6, $7);}
X        ;
X
Xwaypoint_kind    : TOK_FROM {$$ = WP_FROM;}
X        | TOK_VIA  {$$ = WP_VIA;}
X        | TOK_TO   {$$ = WP_TO;}
X        ;
X
Xnav_fix        : TOK_NAV TOK_LPAREN number TOK_RPAREN  desig
X          {set_xfix ((int) $3, $5);}
X        ;
X
Xtrue_airspeed    : TOK_TAS  speed {set_tas ($2);}
X        ;
X
Xwind        : TOK_WIND  heading TOK_ATSIGN speed
X          {set_wind ($2, $4);}
X        ;
X
Xfuel_amt    : TOK_FUEL_AMT  number {set_fuel_amt ($2);}
X        ;
X
Xfuel_rate    : TOK_FUEL_RATE  number {set_fuel_rate ($2);}
X        ;
X
Xfuel_used    : TOK_FUEL_USED  number {set_extra_fuel_burn ($2);}
X        ;
X
Xflight_altitude    : TOK_ALT number {set_altitude ($2);}
X        ;
X
Xlatitude    : TOK_REAL    {$$ = degrees_mins_2_decimal (yydval);}
X        ;
X
Xlongitude    : TOK_REAL    {$$ = degrees_mins_2_decimal (yydval);}
X        ;
X
Xoptional_string    : /* empty */            {$$ = (char*) 0;}
X        | TOK_COMMA TOK_STRING    {$$ = strdup (yytext);}
X        ;
X
Xdesig        : TOK_SYMBOL    {$$ = strdup (yytext);}
X        ;
X
Xnumber        : TOK_REAL    {$$ = yydval;}
X        | TOK_INTEGER    {$$ = yydval;}
X        ;
X
Xdistance    : number TOK_MI {$$ = $1 / MI_PER_NM;}
X           | number     {$$ = $1;}
X           | number TOK_NM {$$ = $1;}
X        ;
X
Xspeed        : number TOK_MPH {$$ = $1 / MI_PER_NM;}
X           | number      {$$ = $1;}
X           | number TOK_KTS {$$ = $1;}
X        ;
X
X/*
X *radial           : heading
X *        ;
X */
X
Xheading        : number    {$$ = $1;}
X        ;
SHAR_EOF
chmod 0444 fp_yacc.y || echo "restore of fp_yacc.y fails"
echo "x - extracting sv_draw.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > sv_draw.c &&
X/*
X * $Id: sv_draw.c,v 1.3 89/11/11 19:43:17 tynor Exp $
X *----------------------------------------------------------------------------
X *    FPLAN - Flight Planner
X *    Steve Tynor
X *    [e-mail]
X *
X *    This program is in the public domain. Permission to copy,
X * distribute, modify this program is hearby given as long as this header
X * remains. If you redistribute this program after modifying it, please
X * document your changes so that I do not take the blame (or credit) for
X * those changes.  If you fix bugs or add features, please send me a
X * patch so that I can keep the 'official' version up-to-date.
X *
X *    Bug reports are welcome and I'll make an attempt to fix those
X * that are reported.
X *
X *    USE AT YOUR OWN RISK! I assume no responsibility for any
X * errors in this program, its database or documentation. I will make an
X * effort to fix bugs, but if you crash and burn because, for example,
X * fuel estimates in this program were inaccurate, it's your own fault
X * for trusting somebody else's code! Remember, as PIC, it's _your_
X * responsibility to do complete preflight planning. Use this program as
X * a flight planning aid, but verify its results before using them.
X *----------------------------------------------------------------------------
X */
X
X#ifdef GFX_SUNVIEW
X
X/*
X *==============================================================================
X * Graphics routines for Sunview
X *==============================================================================
X */
X
X#include "wp_info.h"
X#include <suntool/sunview.h>
X#include <suntool/canvas.h>
X#include <suntool/panel.h>
X#include <suntool/scrollbar.h>
X
Xstatic char rcsid[] = "$Id: sv_draw.c,v 1.3 89/11/11 19:43:17 tynor Exp $";
X
Xstatic double min_lat;
Xstatic double max_lat;
Xstatic double min_long;
Xstatic double max_long;
X
X#define PIX_OR (PIX_SRC | PIX_DST) /* Rasterop */
X
XPixfont *font;
X#define DEFAULT_SCALE 100 /* pixels per degree */
X#define SV_MARGIN 40
X
XPanel panel;
XFrame frame;
XCanvas canvas;
Xstatic BOOLEAN brief_mode;
Xint scale = DEFAULT_SCALE;
XBOOLEAN first_time;
XScrollbar vert_scroll, horiz_scroll;
X
X/*----------------------------------------------------------------------------*/
Xstatic void sv_draw_pt (canvas, x, y)
X     Canvas canvas;
X     int x, y;
X{
X   pw_writebackground (canvas_pixwin (canvas), x-1, y-1, 3, 3,
X               PIX_NOT (PIX_SRC));
X}
X
X/*----------------------------------------------------------------------------*/
Xstatic void sv_draw_str (canvas, x, y, str)
X     Canvas canvas;
X     int x, y;
X     char *str;
X{
X   pw_text (canvas_pixwin (canvas), x+3, y+3, PIX_OR, font, str);
X}
X
X/*----------------------------------------------------------------------------*/
Xstatic void sv_project (latitude, longitude, x, y)
Xdouble latitude, longitude;
Xint *x, *y;
X{
X   /*
X    * NOTE: this is "Tynor's naive projection system" - ignores the curvature
X    * of the earth:
X    */
X
X   *x = SV_MARGIN + (int) ((max_long - longitude) * (double) scale);
X   *y = SV_MARGIN + (int) ((max_lat - latitude  ) * (double) scale);
X}
X
X/*----------------------------------------------------------------------------*/
Xstatic void sv_draw_db (canvas, db)
X     Canvas canvas;
X     DATABASE_INFO *db;
X{
X   int x, y;
X
X   sv_project (db->latitude, db->longitude, &x, &y);
X   sv_draw_pt (canvas, x, y);
X   sv_draw_str (canvas, x, y,
X         (db->mode != WP_INCREMENTAL) ? db->desig : db->name);
X}
X
X/*----------------------------------------------------------------------------*/
Xstatic void sv_draw_leg (canvas, db1, db2)
X     Canvas canvas;
X     DATABASE_INFO *db1, *db2;
X{
X   int x1, y1, x2, y2;
X
X   sv_project (db1->latitude, db1->longitude, &x1, &y1);
X   sv_project (db2->latitude, db2->longitude, &x2, &y2);
X
X   pw_vector (canvas_pixwin (canvas), x1, y1, x2, y2, PIX_OR, 1);
X}
X
X/*----------------------------------------------------------------------------*/
Xstatic void sv_scroll_to (db)
X     DATABASE_INFO *db;
X{
X   int x, y;
X
X   sv_project (db->latitude, db->longitude, &x, &y);
X
X   /*
X    * try to center the waypoint on the canvas
X    */
X   scrollbar_scroll_to (horiz_scroll,
X            MIN ((int)window_get (canvas, CANVAS_WIDTH, 0),
X                 MAX (0,
X                  x - (int)window_get (canvas,
X                               WIN_WIDTH, 0) / 2)));
X   scrollbar_scroll_to (vert_scroll,
X            MIN ((int)window_get (canvas, CANVAS_HEIGHT, 0),
X                 MAX (0,
X                  y - (int)window_get (canvas,
X                               WIN_HEIGHT, 0) / 2)));
X}
X
X/*----------------------------------------------------------------------------*/
Xstatic void sv_redraw ()
X{
X   int width, height, i;
X
X#define MIN_WIDTH 400
X#define XTRA_WIDTH   30 /* frame needs to be this much bigger than the canvas */
X#define XTRA_HEIGHT 100 /* frame needs to be this much bigger than the canvas */
X
X   width  = ABS ((int) ((max_long - min_long) * (double) scale)) +
X      2 * SV_MARGIN;
X   height = ABS ((int) ((max_lat - min_lat)   * (double) scale)) +
X      2 * SV_MARGIN;
X
X   width = MAX (width, MIN_WIDTH);
X
X   window_set (canvas, CANVAS_HEIGHT, height, 0);
X   window_set (canvas, CANVAS_WIDTH, width, 0);
X
X   pw_writebackground (canvas_pixwin (canvas), 0, 0, 3000, 3000, PIX_SRC);
X
X   for (i = 0; i < num_cached; i++) {
X      sv_draw_db (canvas, cache[i]);
X   }
X
X   for (i = 0; i < num_waypoints - 1; i++) {
X      sv_draw_leg (canvas, waypoints[i].db, waypoints[i+1].db);
X      if ((!brief_mode) && (waypoints[i].db->mode == WP_INCREMENTAL))
X     sv_draw_db (canvas, waypoints[i].db);
X   }
X
X   if (first_time) {
X      Pixrect *screen = pr_open ("/dev/fb");
X
X      window_set (frame, WIN_WIDTH, MIN (screen->pr_size.x,
X                     XTRA_WIDTH + width), 0);
X      window_set (frame, WIN_HEIGHT, MIN (screen->pr_size.y,
X                      XTRA_HEIGHT + height), 0);
X      first_time = FALSE;
X      sv_scroll_to (waypoints[0].db);
X   }
X}
X
X/*----------------------------------------------------------------------------*/
Xsv_quit_event_proc (item, event)
X     Panel_item item;
X     Event *event;
X{
X   window_destroy (frame);
X}
X
X/*----------------------------------------------------------------------------*/
Xsv_brief_event_proc (item, event)
X     Panel_item item;
X     Event *event;
X{
X   brief_mode = (int) panel_get (item, PANEL_VALUE, 0);
X   sv_redraw ();
X}
X
X/*----------------------------------------------------------------------------*/
Xsv_tofirst_event_proc (item, event)
X     Panel_item item;
X     Event *event;
X{
X   sv_scroll_to (waypoints[0].db);
X}
X
X/*----------------------------------------------------------------------------*/
Xsv_tolast_event_proc (item, event)
X     Panel_item item;
X     Event *event;
X{
X   sv_scroll_to (waypoints[num_waypoints-1].db);
X}
X
X/*----------------------------------------------------------------------------*/
Xsv_scale_event_proc (item, event)
X     Panel_item item;
X     Event *event;
X{
X   scale = (int) panel_get (item, PANEL_VALUE, 0);
X   sv_redraw ();
X}
X
X/*----------------------------------------------------------------------------*/
Xvoid sv_draw (brief)
X     BOOLEAN brief;
X{
X
X   min_max_lat_long (&min_lat, &max_lat, &min_long, &max_long);
X
X   brief_mode = brief;
X   font = pf_open ("/usr/lib/fonts/fixedwidthfonts/screen.r.7");
X
X   frame = window_create (NULL, FRAME,
X              FRAME_LABEL, "FPLAN",
X              0);
X
X   panel = window_create (frame, PANEL,
X              0);
X
X   panel_create_item (panel, PANEL_BUTTON,
X              PANEL_NOTIFY_PROC, sv_quit_event_proc,
X              PANEL_LABEL_IMAGE, panel_button_image (panel,
X                                 "Quit", 0, 0),
X              PANEL_ITEM_X,       ATTR_COL (0),
X              PANEL_ITEM_Y,       ATTR_ROW (0),
X              0);
X
X   panel_create_item (panel, PANEL_BUTTON,
X              PANEL_NOTIFY_PROC, sv_tofirst_event_proc,
X              PANEL_LABEL_IMAGE, panel_button_image (panel,
X                                 "To First", 0, 0),
X              0);
X
X   panel_create_item (panel, PANEL_BUTTON,
X              PANEL_NOTIFY_PROC, sv_tolast_event_proc,
X              PANEL_LABEL_IMAGE, panel_button_image (panel,
X                                 "To Last", 0, 0),
X              0);
X
X   panel_create_item (panel, PANEL_CYCLE,
X              PANEL_LABEL_STRING,   "Brief:",
X              PANEL_CHOICE_STRINGS, "NO", "YES", 0,
X              PANEL_NOTIFY_PROC,    sv_brief_event_proc,
X              PANEL_VALUE,         brief_mode,
X              0);
X
X   panel_create_item (panel, PANEL_SLIDER,
X              PANEL_LABEL_STRING, "Scale:",
X              PANEL_VALUE,        scale,
X              PANEL_MIN_VALUE,        5,
X              PANEL_MAX_VALUE,        400,
X              PANEL_SLIDER_WIDTH,  200,
X              PANEL_NOTIFY_PROC,   sv_scale_event_proc,
X              0);
X
X   window_fit_height (panel);
X
X   horiz_scroll = scrollbar_create(0);
X   vert_scroll = scrollbar_create(0);
X
X   canvas = window_create (frame, CANVAS,
X               CANVAS_AUTO_SHRINK, FALSE,
X               WIN_VERTICAL_SCROLLBAR, vert_scroll,
X               WIN_HORIZONTAL_SCROLLBAR, horiz_scroll,
X               CANVAS_WIDTH, 1,
X               CANVAS_HEIGHT, 1,
X               0);
X   scrollbar_set (horiz_scroll, SCROLL_ADVANCED_MODE, 1, 0);
X   scrollbar_set (vert_scroll, SCROLL_ADVANCED_MODE, 1, 0);
X
X   first_time = TRUE;
X   sv_redraw ();
X   window_main_loop (frame);
X}
X
X#endif /* GFX_SUNVIEW */
SHAR_EOF
chmod 0444 sv_draw.c || echo "restore of sv_draw.c fails"
echo "x - extracting dosbuild.bat (Text)"
sed 's/^X//' << 'SHAR_EOF' > dosbuild.bat &&
X: $Id: dosbuild.bat,v 1.5 89/11/19 16:14:19 tynor Exp $
X:----------------------------------------------------------------------------
X:    FPLAN - Flight Planner
X:    Steve Tynor
X:    [e-mail]
X:
X:    This program is in the public domain. Permission to copy,
X: distribute, modify this program is hearby given as long as this header
X: remains. If you redistribute this program after modifying it, please
X: document your changes so that I do not take the blame (or credit) for
X: those changes.  If you fix bugs or add features, please send me a
X: patch so that I can keep the 'official' version up-to-date.
X:
X:    Bug reports are welcome and I'll make an attempt to fix those
X: that are reported.
X:
X:     USE AT YOUR OWN RISK! I assume no responsibility for any
X: errors in this program, its database or documentation. I will make an
X: effort to fix bugs, but if you crash and burn because, for example,
X: fuel estimates in this program were inaccurate, it's your own fault
X: for trusting somebody else's code! Remember, as PIC, it's _your_
X: responsibility to do complete preflight planning. Use this program as
X: a flight planning aid, but verify its results before using them.
X: ---------------------------------------------------------------------------
X
X: ---------------------------------------------------------------------------
X: This is a MessyDOS batch file to compile FPLAN -
X:
X: Uncomment the approriate lines to compile with whatever compiler you have.
X: ---------------------------------------------------------------------------
X
X: ---------------------------------------------------------------------------
X: Zortech:
Xztc -c -ml -w -p fp_lex.c
Xztc -c -ml -w -p fp_yacc.c
Xztc -c -ml -w -p add.c
Xztc -c -ml -w -p compute.c
Xztc -c -ml -w -p db.c
Xztc -c -ml -w -p main.c
Xztc -c -ml -w -p misc.c
Xztc -c -ml -w -p output.c
Xztc -c -ml -w -p strings.c
Xztc -c -ml -w -p reverse.c
Xztc -ml -L -ofplan.exe fp_lex.obj fp_yacc.obj add.obj compute.obj db.obj main.obj misc.obj output.obj strings.obj reverse.obj
X
X: ---------------------------------------------------------------------------
X: Microsoft:
X:cl /c /AL fp_lex.c
X:cl /c /AL fp_yacc.c
X:cl /c /AL add.c
X:cl /c /AL compute.c
X:cl /c /AL db.c
X:cl /c /AL main.c
X:cl /c /AL misc.c
X:cl /c /AL output.c
X:cl /c /AL strings.c
X:cl /c /AL reverse.c
X:cl /Fefplan.exe fp_lex fp_yacc add compute db main misc output strings reverse /link
X
SHAR_EOF
chmod 0444 dosbuild.bat || echo "restore of dosbuild.bat fails"
echo "x - extracting mystring.h (Text)"
sed 's/^X//' << 'SHAR_EOF' > mystring.h &&
X/*
X * $Id: mystring.h,v 1.2 89/11/11 19:17:04 tynor Exp $
X *----------------------------------------------------------------------------
X *    FPLAN - Flight Planner
X *    Steve Tynor
X *    [e-mail]
X *
X *    This program is in the public domain. Permission to copy,
X * distribute, modify this program is hearby given as long as this header
X * remains. If you redistribute this program after modifying it, please
X * document your changes so that I do not take the blame (or credit) for
X * those changes.  If you fix bugs or add features, please send me a
X * patch so that I can keep the 'official' version up-to-date.
X *
X *    Bug reports are welcome and I'll make an attempt to fix those
X * that are reported.
X *
X *    USE AT YOUR OWN RISK! I assume no responsibility for any
X * errors in this program, its database or documentation. I will make an
X * effort to fix bugs, but if you crash and burn because, for example,
X * fuel estimates in this program were inaccurate, it's your own fault
X * for trusting somebody else's code! Remember, as PIC, it's _your_
X * responsibility to do complete preflight planning. Use this program as
X * a flight planning aid, but verify its results before using them.
X *----------------------------------------------------------------------------
X */
X
X/*
X * define a couple of functions that are in SunOS string(3), but apparently
X * aren't 'standard' - so much for the wonder of the portability of the
X * standard C library...
X *
X * The only thing we count on is strlen().
X */
X
Xextern char *strdup();
Xextern char *strtok();
Xextern char *index();
Xextern int strlen();
SHAR_EOF
chmod 0444 mystring.h || echo "restore of mystring.h fails"
echo "x - extracting wp_info.h (Text)"
sed 's/^X//' << 'SHAR_EOF' > wp_info.h &&
X/*
X * $Id: wp_info.h,v 2.7 89/11/05 17:34:38 tynor Exp $
X *----------------------------------------------------------------------------
X *    FPLAN - Flight Planner
X *    Steve Tynor
X *    [e-mail]
X *
X *    This program is in the public domain. Permission to copy,
X * distribute, modify this program is hearby given as long as this header
X * remains. If you redistribute this program after modifying it, please
X * document your changes so that I do not take the blame (or credit) for
X * those changes.  If you fix bugs or add features, please send me a
X * patch so that I can keep the 'official' version up-to-date.
X *
X *    Bug reports are welcome and I'll make an attempt to fix those
X * that are reported.
X *
X *    USE AT YOUR OWN RISK! I assume no responsibility for any
X * errors in this program, its database or documentation. I will make an
X * effort to fix bugs, but if you crash and burn because, for example,
X * fuel estimates in this program were inaccurate, it's your own fault
X * for trusting somebody else's code! Remember, as PIC, it's _your_
X * responsibility to do complete preflight planning. Use this program as
X * a flight planning aid, but verify its results before using them.
X *----------------------------------------------------------------------------
X */
X
Xtypedef int BOOLEAN;
X#define FALSE ((BOOLEAN)0)
X#define TRUE  ((BOOLEAN)1)
X
X#define MI_PER_NM 1.3242928862    /* statute miles per natutical miles */
X
Xtypedef enum {WP_FROM, WP_VIA, WP_TO} WAYPOINT_KIND;
X
Xtypedef enum {WP_VOR, WP_AIRPORT, WP_NAMED_INTERSECTION,
X         WP_INTERSECTION, WP_INCREMENTAL, WP_LAT_LONG,
X         WP_NDB, WP_DME, WP_TAC, WP_ILS, WP_WPT, WP_LOM, WP_LMM, WP_UNK
X         } WAYPOINT_MODE;
X
X#define MAX_NUM_WAYPOINTS 100
X#define MAX_NUM_VOR_FIXES 6
X
Xtypedef enum {FROM, TO} FROM_TO;
X
Xtypedef struct {
X   BOOLEAN valid;
X   double  value;
X} OPTIONAL_DBL;
X
Xtypedef struct {
X   WAYPOINT_MODE           mode;
X   double        latitude;  /* stored in decimal - not degrees/min/sec */
X   double        longitude;
X   char         *desig;
X   char         *city;
X   char         *name;
X   char         *comment;
X   OPTIONAL_DBL        freq;
X   OPTIONAL_DBL        altitude;
X   double        mag_variation;
X   union {
X      /* when wp_mode == WP_INCREMENTAL */
X      double    dist_since_last_wp;
X   } u;
X} DATABASE_INFO;
X
Xtypedef struct {
X   BOOLEAN valid;
X   DATABASE_INFO *db;
X   double  heading;
X   double  distance;
X   FROM_TO from_to;
X} VOR_FIX;
X
X/*
X * NOTE: ALL VALUES STORED INTERNALLY IN KNOTS AND NAUTICAL MILES
X */
Xtypedef struct {
X   WAYPOINT_KIND           wp_kind;
X   DATABASE_INFO    *db;
X   OPTIONAL_DBL     tc;
X   OPTIONAL_DBL     mc;
X   OPTIONAL_DBL     mh;
X   OPTIONAL_DBL     wind_speed;
X   OPTIONAL_DBL     wind_direction;
X   OPTIONAL_DBL     dist_leg;
X   OPTIONAL_DBL     dist;
X   OPTIONAL_DBL     dist_remain;
X   OPTIONAL_DBL     eta_leg;
X   OPTIONAL_DBL     eta;
X   BOOLEAN        refuel;
X   OPTIONAL_DBL        extra_fuel_burn;
X   OPTIONAL_DBL     fuel_amt;
X   OPTIONAL_DBL     fuel_rate;
X   OPTIONAL_DBL     fuel_leg;
X   OPTIONAL_DBL     altitude;
X   OPTIONAL_DBL     tas;
X   OPTIONAL_DBL     egs;
X   VOR_FIX        vor_fix [MAX_NUM_VOR_FIXES];
X} WAYPOINT_INFO;
X
X
XWAYPOINT_INFO waypoints[MAX_NUM_WAYPOINTS];
X
Xint num_waypoints;
X
X#define MAX(x,y) (((x) > (y)) ? (x) : (y))
X#define MIN(x,y) (((x) < (y)) ? (x) : (y))
X#define ABS(x) (((x) < 0) ? -(x) : (x))
X
X
X#define PI ((double) 3.14159265358979323846)
X
X#define DEG2RAD(x) ((x)*PI/180.0)
X#define RAD2DEG(x) ((x)*180.0/PI)
X
Xint max_nav;
X
X#define CACHE_SIZE MAX_NUM_WAYPOINTS
XDATABASE_INFO *cache [CACHE_SIZE];
Xint num_cached;
X
SHAR_EOF
chmod 0444 wp_info.h || echo "restore of wp_info.h fails"
echo "x - extracting reverse.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > reverse.c &&
X/*
X * $Id: reverse.c,v 1.2 89/11/05 11:23:58 tynor Exp $
X *----------------------------------------------------------------------------
X *    FPLAN - Flight Planner
X *    Steve Tynor
X *    [e-mail]
X *
X *    This program is in the public domain. Permission to copy,
X * distribute, modify this program is hearby given as long as this header
X * remains. If you redistribute this program after modifying it, please
X * document your changes so that I do not take the blame (or credit) for
X * those changes.  If you fix bugs or add features, please send me a
X * patch so that I can keep the 'official' version up-to-date.
X *
X *    Bug reports are welcome and I'll make an attempt to fix those
X * that are reported.
X *
X *    USE AT YOUR OWN RISK! I assume no responsibility for any
X * errors in this program, its database or documentation. I will make an
X * effort to fix bugs, but if you crash and burn because, for example,
X * fuel estimates in this program were inaccurate, it's your own fault
X * for trusting somebody else's code! Remember, as PIC, it's _your_
X * responsibility to do complete preflight planning. Use this program as
X * a flight planning aid, but verify its results before using them.
X *----------------------------------------------------------------------------
X */
X
Xstatic char rcsid[] = "$Id: reverse.c,v 1.2 89/11/05 11:23:58 tynor Exp $";
X
X#include <stdio.h>
X#include "wp_info.h"
X
Xextern void distance_and_heading ();
X
X/*----------------------------------------------------------------------------*/
Xstatic void reverse_incrementals ()
X{
X   int i;
X   int last_non_inc = num_waypoints - 1;
X   double h;
X
X   for (i = num_waypoints - 2; i >= 0; i--)
X      if (waypoints[i].db->mode == WP_INCREMENTAL)
X     distance_and_heading (waypoints[i].db->latitude,
X                   waypoints[i].db->longitude,
X                   waypoints[last_non_inc].db->latitude,
X                   waypoints[last_non_inc].db->longitude,
X                   &waypoints[i].db->u.dist_since_last_wp, &h);
X      else
X     last_non_inc = i;
X}
X
X/*----------------------------------------------------------------------------*/
Xvoid print_reverse ()
X{
X   int i, j;
X
X   reverse_incrementals ();
X
X   for (i = num_waypoints - 1; i >= 0; i--) {
X      for (j = 1; j <= max_nav; j++) {
X     if ((i == num_waypoints - 1) ||
X         (strcmp (waypoints[i].vor_fix[j].db->desig,
X              waypoints[i+1].vor_fix[j].db->desig))) {
X        printf ("nav(%d) %s;\n", j+1, waypoints[i].vor_fix[j].db->desig);
X     }
X      }
X      if (waypoints[i].wp_kind == WP_TO)
X     printf ("\nfrom %s;\n", waypoints[i].db->desig);
X      else if (waypoints[i].wp_kind == WP_FROM)
X     printf ("to %s;\n", waypoints[i].db->desig);
X      else if (waypoints[i].db->mode != WP_INCREMENTAL)
X     printf ("\tvia %s;\n", waypoints[i].db->desig);
X      else {
X     printf ("\t\tvia %1.0lf", waypoints[i].db->u.dist_since_last_wp);
X     if (waypoints[i].db->name)
X        printf (", \"%s\"", waypoints[i].db->name);
X     if (waypoints[i].db->city)
X        printf (", \"%s\"", waypoints[i].db->city);
X     if (waypoints[i].db->comment)
X        printf (", \"%s\"", waypoints[i].db->comment);
X     printf (";\n");
X      }
X   }
X}
X
X
SHAR_EOF
chmod 0444 reverse.c || echo "restore of reverse.c fails"
echo "x - extracting version.h (Text)"
sed 's/^X//' << 'SHAR_EOF' > version.h &&
X#define VERSION "1.1"
SHAR_EOF
chmod 0444 version.h || echo "restore of version.h fails"
exit 0