From b8a4a97785091cd6279f068e6581e775834131d5 Mon Sep 17 00:00:00 2001
From: curt <curt>
Date: Thu, 28 Aug 2003 21:14:07 +0000
Subject: [PATCH] Initial revision of script to generate simple.apt from
 x-plane's latest airport database.

---
 src/Airports/xp2simpleapt.pl | 90 ++++++++++++++++++++++++++++++++++++
 1 file changed, 90 insertions(+)
 create mode 100755 src/Airports/xp2simpleapt.pl

diff --git a/src/Airports/xp2simpleapt.pl b/src/Airports/xp2simpleapt.pl
new file mode 100755
index 00000000..9b4d1e4a
--- /dev/null
+++ b/src/Airports/xp2simpleapt.pl
@@ -0,0 +1,90 @@
+#!/usr/bin/perl
+#
+# Convert the XP AirNav format to FlightGear's format
+#
+# Data source is:
+#
+#     http://www.x-plane.org/users/robinp/
+#
+# Written by Curt Olson <curt@flightgear.org> Started Aug 2003
+
+use strict;
+
+my( $line );
+my( @F );
+my( $last_apt ) = "";
+my( $last_elev ) = "";
+my( $last_name ) = "";
+my( $apt_type ) = "C";
+my( $rwy_lon ) = 0.0;
+my( $rwy_lat ) = 0.0;
+my( $has_tower ) = 0;
+my( $default_bldgs ) = 0;
+my( $count ) = 0;
+
+# strip the first line
+$line = <>;
+
+# copy the license / source / credits line
+$line = <>;
+print "// " . $line;
+
+while ( <> ) {
+    @F = split( /\s+/, $_ );
+    if ( $F[0] == 1 ) {
+        # print "airport = " . $_;
+
+        if ( $last_apt ne "" ) {
+            # print out airport definition line
+            my( $lon ) = $rwy_lon / $count;
+            my( $lat ) = $rwy_lat / $count;
+            printf( "A %-4s %10.6f %11.6f %5d %s%s%s %s\n",
+                    $last_apt, $lat, $lon, $last_elev,
+                    $apt_type, $has_tower, $default_bldgs, $last_name );
+        }
+
+        # current airport definition
+        $last_elev = $F[1];
+        $apt_type = "C";
+        if( $F[2] ) {
+            $has_tower = "Y";
+        } else {
+            $has_tower = "N";
+        }
+        if ( $F[3] ) {
+            $default_bldgs = "Y";
+        } else {
+            $default_bldgs = "N";
+        }
+        $last_apt = $F[4];
+        $last_name = $F[5];
+        for( my($i) = 6; $i <= $#F; ++$i ) {
+            $last_name .= " " . $F[$i];
+        }
+        $count = 0;
+        $rwy_lon = 0.0;
+        $rwy_lat = 0.0;
+    } elsif ( $F[0] == 10 ) {
+        if ( $F[3] ne "xxx" ) {
+            # runway definition
+            # print "runway = " . $_;
+            $rwy_lon += $F[2];
+            $rwy_lat += $F[1];
+            $count++;
+        } else {
+            # taxiway definition
+        }
+    } else {
+        # something we don't know how to handle right now
+    }
+}
+
+# grab that last data point
+if ( $last_apt ne "" ) {
+    # print out airport definition line
+    my( $lon ) = $rwy_lon / $count;
+    my( $lat ) = $rwy_lat / $count;
+    printf( "A %-4s %10.6f %11.6f %5d %s%s%s %s\n",
+            $last_apt, $lat, $lon, $last_elev,
+            $apt_type, $has_tower, $default_bldgs, $last_name );
+}