fly/flightgear
1
0
Fork 0
Code Activity

Speedups for win32.

Browse source
This commit is contained in:
curt 1998-11-20 01:02:55 +00:00
parent 8cf9f40c72
commit 90b73f480f
1 changed files with 7 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
Tools/process-dem.pl
View file

@ -58,6 +58,7 @@ $fg_root = shift(@ARGV);
$work_dir = shift(@ARGV); $work_dir = shift(@ARGV);
$error = shift(@ARGV); $error = shift(@ARGV);
$error += 0.0; $error += 0.0;
$system_name = `uname -s`; chop($system_name);
while ( $dem_file = shift(@ARGV) ) { while ( $dem_file = shift(@ARGV) ) {
print "Source file = $dem_file Error tolerance = $error\n"; print "Source file = $dem_file Error tolerance = $error\n";
@ -94,11 +95,7 @@ exit(0);
# replace all unix forward slashes with windoze backwards slashes if # replace all unix forward slashes with windoze backwards slashes if
# running on a cygwin32 system # running on a cygwin32 system
sub fix_slashes { my($in) = @_; sub fix_slashes { my($in) = @_;
if ( $system_name =~ m/CYGWIN32/ ) {
$system = `uname -s`;
chop($system);
if ( $system =~ m/CYGWIN32/ ) {
$in =~ s/\/+/\//g; $in =~ s/\/+/\//g;
$in =~ s/\//\\/g; $in =~ s/\//\\/g;
} }
@ -474,10 +471,7 @@ sub install {
$install_dir =~ s/\/+/\//g; $install_dir =~ s/\/+/\//g;
print "Install dir = $install_dir\n"; print "Install dir = $install_dir\n";
$system = `uname -s`; if ( $system_name !~ m/CYGWIN32/ ) {
chop($system);
if ( $system !~ m/CYGWIN32/ ) {
$command = "mkdir -p $install_dir"; $command = "mkdir -p $install_dir";
} else { } else {
$command = "Makedir/makedir $install_dir"; $command = "Makedir/makedir $install_dir";
@ -491,13 +485,12 @@ sub install {
} }
close(OUT); close(OUT);
# write out version and info record # write out version and info record
$version_file = "$install_dir/VERSION"; $version_file = "$install_dir/VERSION";
open(VERSION, ">$version_file") || open(VERSION, ">$version_file") ||
die "Cannot open $version_file for writing\n"; die "Cannot open $version_file for writing\n";
print VERSION "FGFS Scenery Version $scenery_format_version\n"; print VERSION "FGFS Scenery Version $scenery_format_version\n";
if ( $system !~ m/CYGWIN32/ ) { if ( $system_name !~ m/CYGWIN32/ ) {
$date = `date`; chop($date); $date = `date`; chop($date);
} else { } else {
# ??? # ???
@ -551,6 +544,9 @@ sub install {
#--------------------------------------------------------------------------- #---------------------------------------------------------------------------
# $Log$ # $Log$
# Revision 1.32 1998/11/20 01:02:55 curt
# Speedups for win32.
#
# Revision 1.31 1998/10/28 19:39:06 curt # Revision 1.31 1998/10/28 19:39:06 curt
# Changes to better support win32 scenery development. # Changes to better support win32 scenery development.
# #