diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /support/autolatex/autolatex-gtk2.pl |
Initial commit
Diffstat (limited to 'support/autolatex/autolatex-gtk2.pl')
-rwxr-xr-x | support/autolatex/autolatex-gtk2.pl | 109 |
1 files changed, 109 insertions, 0 deletions
diff --git a/support/autolatex/autolatex-gtk2.pl b/support/autolatex/autolatex-gtk2.pl new file mode 100755 index 0000000000..c91463e5f7 --- /dev/null +++ b/support/autolatex/autolatex-gtk2.pl @@ -0,0 +1,109 @@ +#!/usr/bin/perl -w + +# autolatex - autolatex-gtk.pl +# Copyright (C) 2007-13 Stephane Galland <galland@arakhne.org> +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; see the file COPYING. If not, write to +# the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +# Boston, MA 02111-1307, USA. + +require 5.014; + +use strict ; + +use File::Basename ; +use File::Spec ; + +#------------------------------------------------------ +# +# Initialization code +# +#------------------------------------------------------ +{ + my $PERLSCRIPTDIR ; + my $PERLSCRIPTNAME ; + my $LAUNCHINGNAME ; + BEGIN{ + # Where is this script? + $PERLSCRIPTDIR = "$0"; + $LAUNCHINGNAME = basename("$0"); + my $scriptdir = dirname( $PERLSCRIPTDIR ); + while ( -e $PERLSCRIPTDIR && -l $PERLSCRIPTDIR ) { + $PERLSCRIPTDIR = readlink($PERLSCRIPTDIR); + if ( substr( $PERLSCRIPTDIR, 0, 1 ) eq '.' ) { + $PERLSCRIPTDIR = File::Spec->catfile( $scriptdir, "$PERLSCRIPTDIR" ) ; + } + $scriptdir = dirname( $PERLSCRIPTDIR ); + } + $PERLSCRIPTNAME = basename( $PERLSCRIPTDIR ) ; + $PERLSCRIPTDIR = dirname( $PERLSCRIPTDIR ) ; + $PERLSCRIPTDIR = File::Spec->rel2abs( "$PERLSCRIPTDIR" ); + # Push the path where the script is to retreive the arakhne.org packages + push(@INC,"$PERLSCRIPTDIR"); + push(@INC,File::Spec->catfile("$PERLSCRIPTDIR","pm")); + + + } + use AutoLaTeX::Core::Util; + AutoLaTeX::Core::Util::setAutoLaTeXInfo("$LAUNCHINGNAME","$PERLSCRIPTNAME","$PERLSCRIPTDIR"); +} + +use AutoLaTeX::Core::Main; +use AutoLaTeX::Core::Config; +use AutoLaTeX::Core::IntUtils; +use AutoLaTeX::GUI::Gtk::Window; + +################################################### +# Add the include path to the "user" interpreters # +################################################### +push @INC, File::Spec->catfile(getUserConfigDirectory(),"translators"); + + + +#------------------------------------------------------ +# +# MAIN PROGRAM: Treat main program actions +# +#------------------------------------------------------ + +setDebugLevel(0); + +initTextDomain('autolatexgtk', File::Spec->catfile(getAutoLaTeXDir(), 'po'), 'UTF-8'); +initTextDomain('autolatex', File::Spec->catfile(getAutoLaTeXDir(), 'po'), 'UTF-8'); + +my %currentConfiguration = mainProgram(0); + +my %systemConfiguration = readOnlySystemConfiguration(); +my %userConfiguration = readOnlyUserConfiguration(); +my $projectConfiguration = undef; + +if ($currentConfiguration{'__private__'}{'input.project directory'}) { + my @path = File::Spec->splitdir($currentConfiguration{'__private__'}{'input.project directory'}); + $projectConfiguration = readOnlyProjectConfiguration(@path); +} + +my $gui = AutoLaTeX::GUI::Gtk::Window->new ( + \%currentConfiguration, + \%systemConfiguration, + \%userConfiguration, + $projectConfiguration); + +$gui->setAdminUser($< == 0); +$gui->setCommandLine(getAutoLaTeXLaunchingName(),@ARGV); + +$gui->showDialog(); + +exit(0); + +__END__ |