Christian Mayer wrote:
Probably we should have a mechanism for allowing some hand crafted airports. Those that don't have a hand crafted version should be automatically generated as they are at the moment.

This gives us the best of both worlds.

That's why I wrote this - it'll dump a new airports list to stdout, given a directory full of taxiway files, and (optionally) an existing airport list. I suspect it'll need an update for the new beacon and windsock stuff though.


#!/usr/bin/perl

use strict;

my $twypath=$ARGV[0];
my $listfile=$ARGV[1]||"/usr/lib/FlightGear/Airports/runways.dat.gz";
my $field;
my $file;

open LIST,"zcat $listfile|";
open OUT,">runways.dat";
while (<LIST>)
{       ($field)=(/^. (.*?) /);
        next if ($file eq $field);
        if (/^A/)
        {       if (-r "$twypath/$field.twy")
                {       open INSERT,"<$twypath/$field.twy";
                        while (<INSERT>)
                        {       print OUT;
                        };
                        close INSERT;
                        $file=$field;
                } else
                {       print OUT;
                };
        } else
        {       print OUT;
        };
};
close LIST;
close OUT;
exit 0;


-- Jon Stockill [EMAIL PROTECTED]

_______________________________________________
Flightgear-users mailing list
[EMAIL PROTECTED]
http://mail.flightgear.org/mailman/listinfo/flightgear-users
2f585eeea02e2c79d7b1d8c4963bae2d

Reply via email to