summaryrefslogtreecommitdiff
path: root/support/autolatex/autolatex-gtk2.pl
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /support/autolatex/autolatex-gtk2.pl
Initial commit
Diffstat (limited to 'support/autolatex/autolatex-gtk2.pl')
-rwxr-xr-xsupport/autolatex/autolatex-gtk2.pl109
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__