initial commit -- gpligc 1.10.1

3 files changed, 461 insertions, 0 deletions

diff --git a/win/README_windows.txt b/win/README_windows.txt
new file mode 100644
index 0000000..7ed2445
--- /dev/null
+++ b/win/README_windows.txt
@@ -0,0 +1,69 @@
+GPLIGC/OGIE for windows
+
+Author:
+    Hannes Krueger
+
+Bug reports / Support / Forum
+    http://sourceforge.net/projects/gpligc/support
+
+Mailing list
+    There is a gpligc-announce mailing list, which will inform you about any updates
+    (extreme low traffic)
+    https://lists.sourceforge.net/lists/listinfo/gpligc-announce
+    This mailing list is also used by the author to estimate the number of users
+
+For detailed information about installation and usage
+read the manual (GPLIGC_Manual.pdf)
+
+Installation:
+    Before the installation can be performed using the
+    install_windows.pl
+    script, Perl has to be installed. If you dont have Perl
+    installed, visit
+    http://www.strawberryperl.com
+    to download and install the free Perl distribution.
+
+    Subsequently, the installation of GPLIGC/Ogie can be
+    carried out by running the install_windows.pl script.
+
+    IMPORTANT!!!
+    Dont run the install_windows.pl script from within
+    the zip-archive. Unpack the archive first!
+
+    For running GPLIGC the Perl Tk module is needed
+    (installation details are given in the GPLIGC_Manual.pdf)
+
+    OGIE can be used from the commandline or from within GPLIGC
+
+    more details can be found in the GPLIGC_Manual.pdf
+
+
+GPLIGC/OGIE is covered by the GPLv3 license,
+which is included in the Manual (and file COPYING)
+This zip package does not contain the full source-code.
+The sources are available at the GPLIGC website.
+
+The executable files of this software (ogie, etc.) are compiled
+using MinGW / MSYS (www.mingw.org).
+
+
+This package contains third party software:
+
+libglut-0.dll
+	see freeglut.sourceforge.net
+	freeglut is a completely OpenSourced alternative to
+	the OpenGL Utility Toolkit (GLUT) library.
+	freeglut is released under the X-Consortium license.
+libjpeg-9.dll
+	Ogie is based in part on the work of the Independent
+	JPEG Group. Ogie uses the jpeg-library functions, therefore
+	a compiled (using mingw) version of this library is
+	included. For more information see:
+	http://www.ijg.org/
+wgnuplot.exe
+	gnuplot 4.2.6 executable file for use with GPLIGC.
+	copyright/license details for gnuplot can be found in the file
+	Copyright-gnuplot
+	more details/info/and sourcecode can be found at
+	https://sourceforge.net/projects/gnuplot/files/gnuplot/4.2.6/
+	www.gnuplot.info
diff --git a/win/install_windows.pl b/win/install_windows.pl
new file mode 100755
index 0000000..44a2316
--- /dev/null
+++ b/win/install_windows.pl
@@ -0,0 +1,327 @@
+# GPLIGC Installer Windows
+# $Id: install_windows.pl 9 2014-08-01 10:52:42Z kruegerh $
+
+use Win32;
+use Win32::TieRegistry(Delimiter=>"/");
+use File::Copy;
+
+$email ="Hannes.Krueger\@gmail.com";
+
+$close_delay = 60;
+
+
+print <<ENDE;
+
+GPLIGC and OGIE installation (Windows XP/Vista)
+    should work on Win2003, Win2008 and Win7 too, but was not tested yet!
+
+(c) 2000-2014 by Hannes Krueger ($email)
+read the GPLIGC_Manual.pdf for more information
+
+Enter installation directory. Press enter for default.
+
+ENDE
+
+
+# Ask for installation directory
+installdirinput:
+print "[c:\\GPLIGC]:  ";
+chomp($installdir=<>);
+
+if ($installdir eq "") {$installdir="c:\\GPLIGC";}
+
+if ($installdir !~ /(^.:\\)/) {print "give path with drive letter\n"; goto installdirinput;}
+
+if ($installdir =~ /[;,!|<>\@\%\&\$\*\?\+]/) {   # ~ are allowed. (8.3 aliases as progra~1) # \s removed, trying whitespaces...
+    print "Do not use whitespaces* and/or special characters in the PATH!\n";  #
+    goto installdirinput;
+}
+
+
+# check for old installation and configfile
+$prev_install = 0;
+
+if (-d $installdir) {
+    print "\n$installdir already exists... \n";
+
+
+    if (-f $installdir."/ogie.ini") {
+	print "Configurationfile (ogie.ini) detected... The new default configfile will be installed as ogie-new.ini\n";
+	$prev_install=1;
+	# move configfile to .old to avoid replacing
+	move("$installdir/ogie.ini", "$installdir/ogie-old.ini") || failed_cp();
+    }
+
+
+    if (-f $installdir."/opengligcexplorer.ini") {
+	print "Configurationfile (opengligcexplorer.ini) detected... The new default configfile will be installed as ogie-new.ini\n";
+	$prev_install=1;
+	# move configfile to .old to avoid replacing
+	move("$installdir/opengligcexplorer.ini", "$installdir/ogie-old.ini") || failed_cp();
+    }
+
+}
+
+
+# copying files
+print "\ncopying files...\n";
+my $cmd = "xcopy /f /r /i /e * \"$installdir\" ";
+system($cmd) && failed_cp();
+print "Finished copying files...\n";
+
+
+# swap configfiles
+if ($prev_install) {
+    print "new default config file (ogie.ini) will be installed as ogie-new.ini\n";
+    move("$installdir/ogie.ini", "$installdir/ogie-new.ini") || failed_cp();
+    move("$installdir/ogie-old.ini", "$installdir/ogie.ini") || failed_cp();
+}
+
+
+#################################################
+
+# setting environment variables
+print "\nTrying to set environment variables GPLIGCHOME and PATH\n";
+
+# check for OS
+($osname, $edition) = Win32::GetOSName();
+print "\nYour operating system is: \"$osname\"  \"$edition\" \n";
+
+
+@autoexec_OSlist = qw(Win95 Win98 WinME);  # these OS's require ENV setting via autoexec.bat
+
+# these OS's require ENV setting via registry (not sure whether 2008/Win7 have the same structure of the registry... I hope so.
+@registry_OSlist = qw(WinNT Win2000 Win2003 WinHomeSrv WinXP WinVista Win2008 Win7 Win8);
+
+# untested, will try to use registy anyway
+@untested_OSlist = qw(Win2003 WinHomeSrv Win2008 Win10);
+
+foreach (@autoexec_OSlist) {
+    if ($osname =~ /$_/i) {
+      print "Sorry, $osname is not longer supported! Maybe it will work anyway..?\n";
+      print "GPLIGC/OGIE will be installed anyway.\n";
+      autoexec(); }
+}
+
+foreach (@registry_OSlist) {
+    if ($osname =~ /$_/i) { registry(); }
+# ups NT seems to be still ok with cygwin 1.7
+#    if ($osname eq "WinNT") {
+#      print "Sorry, $osname is not longer supported (by cygwin). Consequently OGIE will not work!\n";
+#    }
+}
+
+foreach (@untested_OSlist) {
+    if ($osname =~ /$_/i) {
+      untested();
+      registry();
+      }
+}
+
+print "Sorry, I did not recognize your Windows version...\n";
+print "You should write an Email to $email and tell me this: ->$osname<--->$edition<- \n";
+
+failed_env();
+install_end();
+
+
+##############################################
+
+
+# this adds some settings to AUTOEXEC.BAT
+# win95 / 98 / ME
+sub autoexec {
+
+    my $path_set = 0;
+
+    if ($ENV{winbootdir}) {
+
+	my $autoexec = substr($ENV{winbootdir},0,2) .'\autoexec.bat';
+
+	# make it writable if necessary
+	if (-e $autoexec && ! -w $autoexec) {
+    	    chmod 0755, $autoexec;
+	}
+
+
+	my @autoexec_bat;
+
+	# read autoexec.bat into @autoexec_bat
+	if (open(AUTOR, "<$autoexec")) {
+		     @autoexec_bat = <AUTOR>;
+	} else { warn "Cannot read autoexec.bat\n"; failed_env(); install_end(); }
+
+
+	# alter autoexec_bat in mem
+	$alter = 0;
+	$home_line = 0;
+	for ($i=0; $i<=$#autoexec_bat; $i++) {
+
+	    	if ( $autoexec_bat[$i] =~ /GPLIGCHOME/ ) {
+		    print "Found this line in autoexec.bat: $autoexec_bat[$i]\n";
+		    $autoexec_bat[$i] = "SET GPLIGCHOME=$installdir\n";
+		    $alter = 0.5; # half is done
+		    $home_line = $i;
+		    print "Changed to: $autoexec_bat[$i]\n";
+
+		    # prev line is probably the PATH line added by old installscript
+		    if ($autoexec_bat[$i-1] =~ /PATH/ ) {
+			print "Found this line in autoexec.bat: $autoexec_bat[$i-1]\n";
+			$autoexec_bat[$i-1] = "SET PATH=$installdir;%PATH%\n";
+			$alter = 1; # everything is done
+			print "Changed to: $autoexec_bat[$i-1]\n";
+		    }
+
+		}
+	}
+
+
+	# hmmm, maybe we set the path a second time now...
+	# (if previous install wasnt made by the install-script!)
+	if ($alter == 0.5) {
+	    splice(@autoexec_bat,$home_line,0, "SET PATH=$installdir;%PATH%\n");
+	    print "The line SET PATH=$installdir;%PATH% was inserted before the line containing SET GPLIGCHOME\n";
+
+
+	}
+
+	if ($alter == 0) {
+	    push(@autoexec_bat, "SET PATH=$installdir;%PATH%\n");
+	    push(@autoexec_bat, "SET GPLIGCHOME=$installdir\n");
+	    print "Environment varibles are set!\n";
+	}
+
+
+	# write back autoexec.bat
+	if (open(AUTOW, ">$autoexec")) {
+
+	    print "writing back $autoexec ... \n";
+
+	    # write autoexec_bat
+	    foreach (@autoexec_bat) {
+		print AUTOW "$_";
+	    }
+
+	    close AUTOW;
+            $path_set=1;
+
+	} else {
+    	    warn "Unable to open $autoexec for writing: $!\n";
+	    failed_env();
+	    install_end();
+        }
+
+    } else {
+	warn "No winbootdir environment variable found.\n";
+	failed_env();
+	install_end();
+    }
+
+
+    unless ($path_set) {
+        failed_env();
+	install_end();
+    }
+
+    print "\nInstallation finished\nReboot to make the new settings in AUTOEXEC.BAT take effect\n";
+    install_end();
+
+}
+
+
+# this sets the path in the registry
+sub registry {
+
+## I'm not sure if on every (2000/NT4/XP) platform the environment is
+## in the same place in registry....
+
+    print "Modifying registry...\n";
+
+
+    #$environment = $Registry->{"LMachine/System/CurrentControlSet/Control/Session Manager/Environment/"};
+    $environment = $Registry->{"CUser/Environment/"};
+
+    my $path = $environment->{"/Path"};
+    #print "Path : $path \n";
+
+
+    # nur wenn nicht schon drinnen /\: in $installdir????
+    $quotet_installdir=quotemeta($installdir);
+
+    if ($path !~ /$quotet_installdir/) {
+	# we have to put the new path before the rest (maybe there is an old installation?!
+	$path = $installdir.";".$path;
+	print "$installdir added to Path \n";
+    } else { print "Path already set...\n"; }
+
+
+    #setting environment variables in Registry
+
+    $environment->{"/Path"} = $path;
+    $environment->{"/GPLIGCHOME"} = $installdir;
+
+    $path_new = $environment->{"/Path"};
+    $installdir_new = $environment->{"/GPLIGCHOME"};
+
+    # check the reread values
+    my $failed = 0;
+    if ($path eq $path_new) {
+	print "\nPath is updated in HKEY_CURRENT_USER/Environment\n";
+    } else {
+	print "\nSetting Path in HKEY_CURRENT_USER/Environment _failed_ !!!\n";
+	$failed = 1;
+
+    }
+
+    if ($installdir eq $installdir_new) {
+	print "GPLIGCHOME is set in HKEY_CURRENT_USER/Environment\n";
+    } else {
+	print "Setting GPLIGCHOME in HKEY_CURRENT_USER/Environment _failed_ !!!\n";
+	$failed = 1;
+    }
+
+    if ($failed == 0) {
+        print "\nEnvironment Variables are set for current user!\n";
+	print "Log out and in to make changes in Registry take effect\n";
+	print "\nInstallation finished\n";
+    } else {
+	failed_env();
+    }
+
+    install_end();
+}
+
+
+##############################################
+
+
+sub install_end {
+    print "Window will be closed in $close_delay seconds.\n";
+    sleep $close_delay;
+    exit ;
+}
+
+sub failed_env {
+    print "\Setting the environment variables failed.\n";
+    print "You need to set the enviroment variable GPLIGCHOME to $installdir\n";
+    print "and add $installdir to PATH by yourself.\n\n";
+    print "Hhow to do this is described in the GPLIGC-manual.\n";
+    $close_delay = 240;
+}
+
+sub failed_cp {
+    print "\nInstallation failed!";
+    print "Failure while copying or moving files... Maybe you do not have write permissions for $installdir ?!\n";
+    print "If you cannot solve this feel free to contact me $email\n";
+    $close_delay = 240;
+    install_end();
+}
+
+sub untested {
+    print "\nGPLIGC/OGIE have not yet been tested on your Windows platform!\n";
+    print "Please check whether the installation was succesfull and write my a short notice\n";
+    print ">>> $email \n";
+    print "provide this line with your report: >>>$osname<<< >>>$edition<<< \n";
+    print "Thank you very much!\n";
+    #$close_delay = 240;
+}
diff --git a/win/makedist b/win/makedist
new file mode 100755
index 0000000..21e89ff
--- /dev/null
+++ b/win/makedist
@@ -0,0 +1,65 @@
+#!/bin/bash
+
+# define VERSION on cmdline
+# usage:
+# VERSION=1.xx-win32 makedist
+
+# script for creating a windows distribution file
+# works on MinGW32/msys platform
+#  additionally installed:
+#  freeglut-2.8.1  ./configure --without-x --prefix=/mingw
+#  jpeg-9a  ./configure --prefix=/mingw
+
+# we use and _ship_ gnuplot 4.2.6
+
+# configure and build (only ogie/src)
+cd ..
+./configure
+
+cd src
+make
+
+DOCS_WIN="../ChangeLog ../COPYING README_windows.txt"
+PDFDOC="../doc/GPLIGC_Manual.pdf"
+PERL_BIN="install_windows.pl ../perl/GPLIGC.pl ../perl/GPLIGCfunctions.pm ../perl/gpsp2igc.pl ../perl/gpsp2igcfile.pl ../perl/loopviewer.pl"
+IMG="../images/logo*"
+CONF="../src/.ogierc"
+BIN_WIN="../src/*.exe"
+
+# gnuplot 4.2.6   --> other versions need to be checked / compiled on mingw (dependencies)
+GNUPLOT_BIN="../../gnuplot-4.2.6/bin/wgnuplot.exe"
+GNUPLOT_HELP="../../gnuplot-4.2.6/bin/wgnuplot.hlp"
+GNUPLOT_LIC="../../gnuplot-4.2.6/Copyright"
+
+# dlls to ship
+DLL="/mingw/bin/libglut-0.dll /mingw/bin/libjpeg-9.dll /mingw/bin/libstdc++-6.dll /mingw/bin/libgcc_s_dw2-1.dll"
+
+# these have to be treated with unix2dos (files from DOCS_WIN need to be repeated here)
+TRANSL_WIN="*.pm *.pl ogie.ini COPYING ChangeLog *.txt"
+
+cd ../win
+mkdir GPLIGC-$VERSION
+
+cp -v $DOCS_WIN  GPLIGC-$VERSION/
+cp -v $PDFDOC    GPLIGC-$VERSION/
+cp -v $PERL_BIN  GPLIGC-$VERSION/
+cp -v $IMG       GPLIGC-$VERSION/
+cp -v $CONF      GPLIGC-$VERSION/ogie.ini
+cp -v $BIN_WIN   GPLIGC-$VERSION/
+cp -v $DLL       GPLIGC-$VERSION/
+
+# gnuplot
+cp -v $GNUPLOT_BIN  GPLIGC-$VERSION/
+cp -v $GNUPLOT_HELP GPLIGC-$VERSION/
+cp -v $GNUPLOT_LIC  GPLIGC-$VERSION/Copyright-gnuplot
+
+cd GPLIGC-$VERSION ; unix2dos $TRANSL_WIN
+
+# default path in ogie.ini is changed to C:/GPLIGC
+cd ..
+perl -p -i.old  -e "s#PREFIX/share/gpligc#C:/GPLIGC#g" GPLIGC-$VERSION/ogie.ini
+rm GPLIGC-$VERSION/*.old
+
+# create archive
+zip -r gpligc-$VERSION.zip GPLIGC-$VERSION/
+rm -rf GPLIGC-$VERSION