tlpmgui 1.58

git-svn-id: svn://tug.org/texlive/trunk@3503 c570f23f-e606-0410-a88d-b1316a301751

5 files changed, 152 insertions, 3 deletions

diff --git a/Master/setuptl/msgs/de.msg b/Master/setuptl/msgs/de.msg
index 28a214a1fdd..2e419ee179b 100644
--- a/Master/setuptl/msgs/de.msg
+++ b/Master/setuptl/msgs/de.msg
@@ -1,5 +1,5 @@
 # -*- Tcl -*-
-# $Id: de.msg 241 2007-01-14 12:27:38Z tlu $
+# $Id: de.msg 248 2007-01-14 22:01:41Z tlu $
 # --- new translations
 ::msgcat::mcset de \
 "Are you sure to install DVI previer - dviout?"\
@@ -351,7 +351,7 @@ Willkommen zu TeX Live!"
 #: D:/Work/TclTk/TL/tl43.vfs/guinb3.tcl:12
 ::msgcat::mcset de\
 "Use Ctrl or Shift or drag to select more"\
-"Verwenden Sie Strg oder Shift oder klicken für Auswahl"
+"Auswahl mehrerer Pakete: Linke Maustaste gedrückt halten, oder Mausklick bei gedrückter Strg oder Shift Taste"
 
 #. widget: none
 #: D:/Work/TclTk/TL/tl43.vfs/guinb2.tcl:18
@@ -704,7 +704,7 @@ Willkommen zu TeX Live!"
 "Please wait..."\
 "Bitte warten..."
 
-# $Id: de.msg 241 2007-01-14 12:27:38Z tlu $
+# $Id: de.msg 248 2007-01-14 22:01:41Z tlu $
 # 2005.10.08 20:10
 # 2005.10.11 0:40 TLu - Please wait...
 # 2005.10.31 21:55 TLu
diff --git a/Master/setuptl/tlpm-x86_64-linux.pl b/Master/setuptl/tlpm-x86_64-linux.pl
new file mode 100755
index 00000000000..891db4e609a
--- /dev/null
+++ b/Master/setuptl/tlpm-x86_64-linux.pl
@@ -0,0 +1,149 @@
+#!/usr/bin/env perl
+# This file belongs to TLPM v2.19, TeX Live Package Manager
+# Public Domain, P.Jackowski@gust.org.pl
+
+BEGIN{$tlpm_version="2.19";$tlpm_os="x86_64-linux"}
+
+# the main tlpm script
+
+use TLPM::common;
+use TLPM::constants;
+
+use TLPM::pkg;
+use TLPM::reg;
+use TLPM::cmdl;
+
+use TLPM::list;
+use TLPM::incl;
+use TLPM::blng;
+use TLPM::inst;
+use TLPM::uninst;
+use TLPM::check;
+use TLPM::help;
+use TLPM::info;
+
+%commands =
+(
+        'exit' => sub {exit(0)},
+        'quit' => sub {exit(0)},
+        'list' => \&list,
+        'incl' => \&incl,
+        'blng' => \&blng,
+        'inst' => \&inst,
+      'uninst' => \&uninst,
+       'check' => \&check,
+        'info' => \&info,
+        'help' => \&help,
+#        'Help' => \&readme,
+#      'readme' => \&readme,
+#     'version' => \&version,
+         'cmd' => \&sys,
+         'set' => \&set
+);
+
+# interactive mode
+
+sub prompt
+{
+      local ($cmd_name,@cmd_args,$cmd_line);
+      while($true)
+      {
+            print STDOUT $tlpm_prompt;
+            $cmd_line = <STDIN>;
+            exit(0) unless defined $cmd_line; # otherwise looop after 'echo <command> | tlpm'
+            chomp $cmd_line;
+            &execute_cmd();
+      }
+}
+
+# batch mode
+
+sub batch
+{
+      local ($cmd_name,@cmd_args,$cmd_line);
+      local *INP;
+      &norm_path($batch_file);
+      $batch_file = &rel2abs($batch_file,$curr_dir);
+      open(INP,"<$batch_file") or exit $error{'wrong_inp'} -> ($batch_file);
+      $message -> ("Executing batch file '$batch_file'");
+      foreach $cmd_line (<INP>)
+      {
+            exit(0) unless defined $cmd_line;
+            chomp $cmd_line;
+            next if $cmd_line =~ /\A\s*(%|#|\z)/; # comment
+            print STDOUT $tlpm_prompt . $cmd_line . "\n";
+            &execute_cmd();
+      }
+      close INP;
+}
+
+sub execute_cmd
+{
+      my $err;
+      &resolve_env($cmd_line);
+      &set_out($cmd_line);
+      &open_out();
+      @cmd_args = &parse_cmd($cmd_line);
+      return(0) unless @cmd_args; # return prompt on ENTER
+      $cmd_name = shift @cmd_args;
+      if(defined $commands{$cmd_name})
+      {
+            $err = $commands{$cmd_name} -> (@cmd_args);
+      }
+      else
+      {
+            $err = $error{'wrong_cmd'} -> ($cmd_name,'help');
+      }
+      &close_out();
+      return $err;
+}
+
+# the main procedure
+
+sub main
+{
+      my ($arg,@args);
+      @args = &parse_cmd(join(" ",@ARGV));
+      while(defined($arg = shift @args))
+      {
+               $arg eq ''                    and next
+#            or &no_opt($arg)                 and return $error{'wrong_cmd'} -> ($arg,'tlpm --help')
+            or &no_opt($arg)                 and do {$tl_binaries{$arg} = $true}
+            or &is_opt($arg,'d','directory') and do {$tl_target = shift @args;1}
+            or &is_opt($arg,'s','source')    and do {$tl_source = shift @args;1}
+            or &is_opt($arg,'v','version')   and return $heeelp -> ('tlpm_banner')
+            or &is_opt($arg,'h','help')      and return &help(shift @args)
+            or &is_opt($arg,'H','Help','readme') and return &readme()
+            or &is_opt($arg,'b','batch')     and do {$batch_file  = shift @args;$batch_mode = 1}
+#            or &is_opt($arg,'q','quiet')     and do {$quiet_mode = 1}
+            or &is_opt($arg,'D','debug')     and do {$debug_mode = 1}
+            or &rem_opt($arg)                and return $error{'wrong_opt'} -> ($arg,'tlpm --help');
+      }
+      unless(defined $tl_source){$tl_source = $ENV{'tl_source'}}# ...or remains undefined
+      unless(defined $tl_target){$tl_target = $ENV{'tl_target'}}
+      $tl_source_indeed = $false; # we need to check the source availability anyway
+      unless(defined %tl_binaries) # new; installing not only native binaries
+      {
+            %tl_binaries = ($tlpm_os => $true);
+      }
+      $tl_target_indeed = $false;
+      if($batch_mode)
+      {
+            &batch($batch_file);
+      }
+      else
+      {
+            $heeelp -> ('tlpm_banner');
+            $heeelp -> ('type_help');
+            &prompt();
+      }
+}
+
+#$quiet_mode = 0;
+$debug_mode = 0;
+$batch_mode = 0;
+$batch_file = '';
+
+&main();
+
+# uff
diff --git a/Master/setuptl/tlpmgui-i386-linux b/Master/setuptl/tlpmgui-i386-linux
index 9dd7f5717a0..16c4917e55d 100755
--- a/Master/setuptl/tlpmgui-i386-linux
+++ b/Master/setuptl/tlpmgui-i386-linux
diff --git a/Master/setuptl/tlpmgui-x86_64-linux b/Master/setuptl/tlpmgui-x86_64-linux
new file mode 100755
index 00000000000..da605e5a032
--- /dev/null
+++ b/Master/setuptl/tlpmgui-x86_64-linux
diff --git a/Master/setuptl/tlpmgui.exe b/Master/setuptl/tlpmgui.exe
index 5c64adc813a..e42e64cd85a 100644
--- a/Master/setuptl/tlpmgui.exe
+++ b/Master/setuptl/tlpmgui.exe