From 0e5e2ed9466714e41c31af26673df50ca3754dd4 Mon Sep 17 00:00:00 2001
From: Hans Hagen <pragma@wxs.nl>
Date: Thu, 24 Nov 2005 00:00:00 +0100
Subject: stable 2005.11.24

---
 scripts/context/ruby/ctxtools.rb   |  74 ++++----
 scripts/context/ruby/newtexexec.rb |  22 +++
 scripts/context/ruby/texmfstart.rb | 347 ++++++++++++++++++++-----------------
 3 files changed, 252 insertions(+), 191 deletions(-)

(limited to 'scripts')

diff --git a/scripts/context/ruby/ctxtools.rb b/scripts/context/ruby/ctxtools.rb
index 7e1b6fa7a..1ba4dce12 100644
--- a/scripts/context/ruby/ctxtools.rb
+++ b/scripts/context/ruby/ctxtools.rb
@@ -1325,7 +1325,7 @@ end
 class Array
 
     def add_shebang(filename,program)
-        unless self[0] =~ /^\#!/ then
+        unless self[0] =~ /^\#/ then
             self.insert(0,"\#!/usr/env #{program}")
         end
         unless self[2] =~ /^\#.*?copyright\=/ then
@@ -1386,43 +1386,47 @@ class Commands
         done  = false
 
         files.each do |filename|
-            ok = false
-            begin
-                data = IO.readlines(filename)
-                case filename
-                    when /\.rb$/ then
-                        ok = data.add_shebang(filename,'ruby')
-                    when /\.pl$/ then
-                        ok = data.add_shebang(filename,'perl')
-                    when /\.py$/ then
-                        ok = data.add_shebang(filename,'python')
-                    when /\.lua$/ then
-                        ok = data.add_shebang(filename,'lua')
-                    when /\.tex$/ then
-                        ok = data.add_directive(filename,'tex')
-                    when /\.mp$/ then
-                        ok = data.add_directive(filename,'metapost')
-                    when /\.mf$/ then
-                        ok = data.add_directive(filename,'metafont')
-                    when /\.(xml|xsl|fo|fx|rlx|rng|exa)$/ then
-                        ok = data.add_comment(filename)
-                end
-            rescue
-                report("fatal error in processing #{filename}") # maybe this catches the mac problem taco reported
-            else
-                if ok then
-                    report()
-                    report(filename)
-                    report()
-                    for i in 0..4 do
-                       report('  ' + data[i].chomp)
+            if FileTest.file?(filename) then
+                ok = false
+                begin
+                    data = IO.readlines(filename)
+                    case filename
+                        when /\.rb$/ then
+                            ok = data.add_shebang(filename,'ruby')
+                        when /\.pl$/ then
+                            ok = data.add_shebang(filename,'perl')
+                        when /\.py$/ then
+                            ok = data.add_shebang(filename,'python')
+                        when /\.lua$/ then
+                            ok = data.add_shebang(filename,'lua')
+                        when /\.tex$/ then
+                            ok = data.add_directive(filename,'tex')
+                        when /\.mp$/ then
+                            ok = data.add_directive(filename,'metapost')
+                        when /\.mf$/ then
+                            ok = data.add_directive(filename,'metafont')
+                        when /\.(xml|xsl|fo|fx|rlx|rng|exa)$/ then
+                            ok = data.add_comment(filename)
                     end
-                    if force && f = File.open(filename,'w') then
-                        f.puts data
-                        f.close
+                rescue
+                    report("fatal error in processing #{filename}") # maybe this catches the mac problem taco reported
+                else
+                    if ok then
+                        report()
+                        report(filename)
+                        report()
+                        for i in 0..4 do
+                           report('  ' + data[i].chomp)
+                        end
+                        if force && f = File.open(filename,'w') then
+                            f.puts data
+                            f.close
+                        end
+                        done = true
                     end
-                    done = true
                 end
+            else
+                report("no file named #{filename}")
             end
         end
         report() if done
diff --git a/scripts/context/ruby/newtexexec.rb b/scripts/context/ruby/newtexexec.rb
index 27f8eeed9..43d840e5b 100644
--- a/scripts/context/ruby/newtexexec.rb
+++ b/scripts/context/ruby/newtexexec.rb
@@ -543,6 +543,28 @@ commandline.registeraction('copy',    'copy pages from file(s)')
 commandline.registeraction('trim',    'trim pages from file(s)')
 commandline.registeraction('combine', 'combine multiple pages')
 
+# compatibility switch
+
+class Commands
+
+    include CommandBase
+
+    alias pdfarrange :arrange
+    alias pdfselect  :select
+    alias pdfcopy    :copy
+    alias pdftrim    :trim
+    alias pdfcombine :combine
+
+end
+
+commandline.registeraction('pdfarrange')
+commandline.registeraction('pdfselect')
+commandline.registeraction('pdfcopy')
+commandline.registeraction('pdftrim')
+commandline.registeraction('pdfcombine')
+
+# so far for compatibility
+
 @@extrastringvars = [
     'pages', 'background', 'backspace', 'topspace', 'boxtype', 'tempdir',
     'printformat', 'paperformat', 'method', 'scale', 'selection',
diff --git a/scripts/context/ruby/texmfstart.rb b/scripts/context/ruby/texmfstart.rb
index 5d0b286b0..94b89d170 100644
--- a/scripts/context/ruby/texmfstart.rb
+++ b/scripts/context/ruby/texmfstart.rb
@@ -81,6 +81,18 @@ $predefined['mpstools'] = 'mpstools.rb'
 $predefined['exatools'] = 'exatools.rb'
 $predefined['xmltools'] = 'xmltools.rb'
 
+$makelist = [
+    'texexec',
+    'texutil',
+    'pstopdf',
+    'mptopdf',
+    'ctxtools',
+    'pdftools',
+    'xmltools',
+    'textools',
+    'mpstools',
+    'tmftools'
+]
 
 if ENV['TEXMFSTART_MODE'] = 'experimental' then
     $predefined['texexec'] = 'newtexexec.rb'
@@ -400,6 +412,8 @@ def usage
     print("           texmfstart texmfstart bin:scite kpse:texmf.cnf\n")
     print("           texmfstart texmfstart --exec bin:scite *.tex\n")
     print("           texmfstart texmfstart --edit texmf.cnf\n")
+    print("           texmfstart texmfstart --stubpath=/usr/local/bin --make texexec\n")
+    print("           texmfstart texmfstart --stubpath=auto --make all\n")
 end
 
 # somehow registration does not work out (at least not under windows)
@@ -413,7 +427,7 @@ def registered?(filename)
 end
 
 def registered(filename)
-    return ENV[tag(filename)]
+    return ENV[tag(filename)] || 'unknown'
 end
 
 def register(filename,fullname)
@@ -427,186 +441,192 @@ def register(filename,fullname)
 end
 
 def find(filename,program)
-    filename = filename.sub(/script:/o, '') # so we have bin: and script: and nothing
-    if $predefined.key?(filename) then
-        report("expanding '#{filename}' to '#{$predefined[filename]}'")
-        filename = $predefined[filename]
-    end
-    if registered?(filename) then
-        report("already located '#{filename}'")
-        return registered(filename)
-    end
-    # create suffix list
-    if filename =~ /^(.*)\.(.+)$/ then
-        filename = $1
-        suffixlist = [$2]
-    else
-        suffixlist = [$scriptlist.split('|'),$documentlist.split('|')].flatten
-    end
-    # first we honor a given path
-    if filename =~ /[\\\/]/ then
-        report("trying to honor '#{filename}'")
-        suffixlist.each do |suffix|
-            fullname = filename+'.'+suffix
-            if FileTest.file?(fullname) && register(filename,fullname)
-                return shortpathname(fullname)
-            end
+    begin
+        filename = filename.sub(/script:/o, '') # so we have bin: and script: and nothing
+        if $predefined.key?(filename) then
+            report("expanding '#{filename}' to '#{$predefined[filename]}'")
+            filename = $predefined[filename]
         end
-    end
-    filename.sub!(/^.*[\\\/]/, '')
-    # next we look at the current path and the callerpath
-    [['.','current'],[$ownpath,'caller'],[registered("THREAD"),'thread']].each do |p|
-        if p && ! p.empty? then
+        if registered?(filename) then
+            report("already located '#{filename}'")
+            return registered(filename)
+        end
+        # create suffix list
+        if filename =~ /^(.*)\.(.+)$/ then
+            filename = $1
+            suffixlist = [$2]
+        else
+            suffixlist = [$scriptlist.split('|'),$documentlist.split('|')].flatten
+        end
+        # first we honor a given path
+        if filename =~ /[\\\/]/ then
+            report("trying to honor '#{filename}'")
             suffixlist.each do |suffix|
-                fname = "#{filename}.#{suffix}"
-                fullname = File.expand_path(File.join(p[0],fname))
-                report("locating '#{fname}' in #{p[1]} path '#{p[0]}'")
-                if FileTest.file?(fullname) && register(filename,fullname) then
-                    report("'#{fname}' located in #{p[1]} path")
+                fullname = filename+'.'+suffix
+                if FileTest.file?(fullname) && register(filename,fullname)
                     return shortpathname(fullname)
                 end
             end
         end
-    end
-    # now we consult environment settings
-    fullname = nil
-    suffixlist.each do |suffix|
-        begin
-            break unless $suffixinputs[suffix]
-            environment = ENV[$suffixinputs[suffix]] || ENV[$suffixinputs[suffix]+".#{$program}"]
-            if ! environment || environment.empty? then
-                begin
-                    environment = `kpsewhich -expand-path=\$#{$suffixinputs[suffix]}`.chomp
-                rescue
-                    environment = nil
-                else
-                    if environment && ! environment.empty? then
-                        report("using kpsewhich variable #{$suffixinputs[suffix]}")
+        filename.sub!(/^.*[\\\/]/, '')
+        # next we look at the current path and the callerpath
+        [['.','current'],[$ownpath,'caller'],[registered("THREAD"),'thread']].each do |p|
+            if p && ! p.empty? && ! (p[0] == 'unknown') then
+                suffixlist.each do |suffix|
+                    fname = "#{filename}.#{suffix}"
+                    fullname = File.expand_path(File.join(p[0],fname))
+                    report("locating '#{fname}' in #{p[1]} path '#{p[0]}'")
+                    if FileTest.file?(fullname) && register(filename,fullname) then
+                        report("'#{fname}' located in #{p[1]} path")
+                        return shortpathname(fullname)
                     end
                 end
-            elsif environment && ! environment.empty? then
-                report("using environment variable #{$suffixinputs[suffix]}")
             end
-            if environment && ! environment.empty? then
-                environment.split($separator).each do |e|
-                    e.strip!
-                    e = '.' if e == '\.' # somehow . gets escaped
-                    e += '/' unless e =~ /[\\\/]$/
-                    fullname = e + filename + '.' + suffix
-                    report("testing '#{fullname}'")
-                    if FileTest.file?(fullname) then
-                        break
+        end
+        # now we consult environment settings
+        fullname = nil
+        suffixlist.each do |suffix|
+            begin
+                break unless $suffixinputs[suffix]
+                environment = ENV[$suffixinputs[suffix]] || ENV[$suffixinputs[suffix]+".#{$program}"]
+                if ! environment || environment.empty? then
+                    begin
+                        environment = `kpsewhich -expand-path=\$#{$suffixinputs[suffix]}`.chomp
+                    rescue
+                        environment = nil
                     else
-                        fullname = nil
+                        if environment && ! environment.empty? then
+                            report("using kpsewhich variable #{$suffixinputs[suffix]}")
+                        end
+                    end
+                elsif environment && ! environment.empty? then
+                    report("using environment variable #{$suffixinputs[suffix]}")
+                end
+                if environment && ! environment.empty? then
+                    environment.split($separator).each do |e|
+                        e.strip!
+                        e = '.' if e == '\.' # somehow . gets escaped
+                        e += '/' unless e =~ /[\\\/]$/
+                        fullname = e + filename + '.' + suffix
+                        report("testing '#{fullname}'")
+                        if FileTest.file?(fullname) then
+                            break
+                        else
+                            fullname = nil
+                        end
                     end
                 end
+            rescue
+                report("environment string '#{$suffixinputs[suffix]}' cannot be used to locate '#{filename}'")
+                fullname = nil
+            else
+                return shortpathname(fullname) if register(filename,fullname)
             end
-        rescue
-            report("environment string '#{$suffixinputs[suffix]}' cannot be used to locate '#{filename}'")
-            fullname = nil
-        else
-            return shortpathname(fullname) if register(filename,fullname)
         end
-    end
-    return shortpathname(fullname) if register(filename,fullname)
-    # then we fall back on kpsewhich
-    suffixlist.each do |suffix|
-        # TDS script scripts location as per 2004
-        if suffix =~ /(#{$scriptlist})/ then
+        return shortpathname(fullname) if register(filename,fullname)
+        # then we fall back on kpsewhich
+        suffixlist.each do |suffix|
+            # TDS script scripts location as per 2004
+            if suffix =~ /(#{$scriptlist})/ then
+                begin
+                    report("using 'kpsewhich' to locate '#{filename}' in suffix space '#{suffix}' (1)")
+                    fullname = `kpsewhich -progname=#{program} -format=texmfscripts #{filename}.#{suffix}`.chomp
+                rescue
+                    report("kpsewhich cannot locate '#{filename}' in suffix space '#{suffix}' (1)")
+                    fullname = nil
+                else
+                    return shortpathname(fullname) if register(filename,fullname)
+                end
+            end
+            # old TDS location: .../texmf/context/...
             begin
-                report("using 'kpsewhich' to locate '#{filename}' in suffix space '#{suffix}' (1)")
-                fullname = `kpsewhich -progname=#{program} -format=texmfscripts #{filename}.#{suffix}`.chomp
+                report("using 'kpsewhich' to locate '#{filename}' in suffix space '#{suffix}' (2)")
+                fullname = `kpsewhich -progname=#{program} -format="other text files" #{filename}.#{suffix}`.chomp
             rescue
-                report("kpsewhich cannot locate '#{filename}' in suffix space '#{suffix}' (1)")
+                report("kpsewhich cannot locate '#{filename}' in suffix space '#{suffix}' (2)")
                 fullname = nil
             else
                 return shortpathname(fullname) if register(filename,fullname)
             end
         end
-        # old TDS location: .../texmf/context/...
-        begin
-            report("using 'kpsewhich' to locate '#{filename}' in suffix space '#{suffix}' (2)")
-            fullname = `kpsewhich -progname=#{program} -format="other text files" #{filename}.#{suffix}`.chomp
-        rescue
-            report("kpsewhich cannot locate '#{filename}' in suffix space '#{suffix}' (2)")
-            fullname = nil
-        else
-            return shortpathname(fullname) if register(filename,fullname)
-        end
-    end
-    return shortpathname(fullname) if register(filename,fullname)
-    # let's take a look at the path
-    paths = ENV['PATH'].split($separator)
-    suffixlist.each do |s|
-        paths.each do |p|
-            report("checking #{p} for suffix #{s}")
-            if FileTest.file?(File.join(p,"#{filename}.#{s}")) then
-                fullname = File.join(p,"#{filename}.#{s}")
-                return  shortpathname(fullname) if register(filename,fullname)
+        return shortpathname(fullname) if register(filename,fullname)
+        # let's take a look at the path
+        paths = ENV['PATH'].split($separator)
+        suffixlist.each do |s|
+            paths.each do |p|
+                report("checking #{p} for suffix #{s}")
+                if FileTest.file?(File.join(p,"#{filename}.#{s}")) then
+                    fullname = File.join(p,"#{filename}.#{s}")
+                    return  shortpathname(fullname) if register(filename,fullname)
+                end
             end
         end
-    end
-    # bad luck, we need to search the tree ourselves
-    if (suffixlist.length == 1) && (suffixlist.first =~ /(#{$documentlist})/) then
-        report("aggressively locating '#{filename}' in document trees")
-        begin
-            texroot = `kpsewhich -expand-var=$SELFAUTOPARENT`.chomp
-        rescue
-            texroot = ''
-        else
-            texroot.sub!(/[\\\/][^\\\/]*?$/, '')
-        end
-        if not texroot.empty? then
-            sffxlst = suffixlist.join(',')
+        # bad luck, we need to search the tree ourselves
+        if (suffixlist.length == 1) && (suffixlist.first =~ /(#{$documentlist})/) then
+            report("aggressively locating '#{filename}' in document trees")
             begin
-                report("locating '#{filename}' in document tree '#{texroot}/doc*'")
-                if (result = Dir.glob("#{texroot}/doc*/**/#{filename}.{#{sffxlst}}")) && result && result[0] && FileTest.file?(result[0]) then
-                    fullname = result[0]
-                end
+                texroot = `kpsewhich -expand-var=$SELFAUTOPARENT`.chomp
             rescue
-                report("locating '#{filename}.#{suffixlist.join('|')}' in tree '#{texroot}' aborted")
+                texroot = ''
+            else
+                texroot.sub!(/[\\\/][^\\\/]*?$/, '')
             end
+            if not texroot.empty? then
+                sffxlst = suffixlist.join(',')
+                begin
+                    report("locating '#{filename}' in document tree '#{texroot}/doc*'")
+                    if (result = Dir.glob("#{texroot}/doc*/**/#{filename}.{#{sffxlst}}")) && result && result[0] && FileTest.file?(result[0]) then
+                        fullname = result[0]
+                    end
+                rescue
+                    report("locating '#{filename}.#{suffixlist.join('|')}' in tree '#{texroot}' aborted")
+                end
+            end
+            return shortpathname(fullname) if register(filename,fullname)
         end
-        return shortpathname(fullname) if register(filename,fullname)
-    end
-    report("aggressively locating '#{filename}' in tex trees")
-    begin
-        textrees = `kpsewhich -expand-var=$TEXMF`.chomp
-    rescue
-        textrees = ''
-    end
-    if not textrees.empty? then
-        textrees.gsub!(/[\{\}\!]/, '')
-        textrees = textrees.split(',')
-        if (suffixlist.length == 1) && (suffixlist.first =~ /(#{$documentlist})/) then
-            speedup = ['doc**','**']
-        else
-            speedup = ['**']
+        report("aggressively locating '#{filename}' in tex trees")
+        begin
+            textrees = `kpsewhich -expand-var=$TEXMF`.chomp
+        rescue
+            textrees = ''
         end
-        sffxlst = suffixlist.join(',')
-        speedup.each do |speed|
-            textrees.each do |tt|
-                tt.gsub!(/[\\\/]$/, '')
-                if FileTest.directory?(tt) then
-                    begin
-                        report("locating '#{filename}' in tree '#{tt}/#{speed}/#{filename}.{#{sffxlst}}'")
-                        if (result = Dir.glob("#{tt}/#{speed}/#{filename}.{#{sffxlst}}")) && result && result[0] && FileTest.file?(result[0]) then
-                            fullname = result[0]
-                            break
+        if not textrees.empty? then
+            textrees.gsub!(/[\{\}\!]/, '')
+            textrees = textrees.split(',')
+            if (suffixlist.length == 1) && (suffixlist.first =~ /(#{$documentlist})/) then
+                speedup = ['doc**','**']
+            else
+                speedup = ['**']
+            end
+            sffxlst = suffixlist.join(',')
+            speedup.each do |speed|
+                textrees.each do |tt|
+                    tt.gsub!(/[\\\/]$/, '')
+                    if FileTest.directory?(tt) then
+                        begin
+                            report("locating '#{filename}' in tree '#{tt}/#{speed}/#{filename}.{#{sffxlst}}'")
+                            if (result = Dir.glob("#{tt}/#{speed}/#{filename}.{#{sffxlst}}")) && result && result[0] && FileTest.file?(result[0]) then
+                                fullname = result[0]
+                                break
+                            end
+                        rescue
+                            report("locating '#{filename}' in tree '#{tt}' aborted")
+                            next
                         end
-                    rescue
-                        report("locating '#{filename}' in tree '#{tt}' aborted")
-                        next
                     end
                 end
+                break if fullname && ! fullname.empty?
             end
-            break if fullname && ! fullname.empty?
         end
-    end
-    if register(filename,fullname) then
-        return shortpathname(fullname)
-    else
-        return ''
+        if register(filename,fullname) then
+            return shortpathname(fullname)
+        else
+            return ''
+        end
+    rescue
+        # error, trace = $!, $@.join("\n")
+        # report("fatal error: #{error}\n#{trace}")
+        report("fatal error")
     end
 end
 
@@ -652,7 +672,11 @@ def make(filename,windows=false,linux=false)
     basename = filename.dup
     basename.sub!(/\.[^.]+?$/, '')
     basename.sub!(/^.*[\\\/]/, '')
-    basename = $stubpath + '/' + basename unless $stubpath.empty?
+    if $stubpath == 'auto' then
+        basename = File.dirname($0) + '/' + basename
+    else
+        basename = $stubpath + '/' + basename unless $stubpath.empty?
+    end
     if basename == filename then
         report('nothing made')
     else
@@ -817,12 +841,19 @@ def execute(arguments)
         report("texmfstart version #{$version}")
         checktree($tree)
         if $make then
-            if $windows then
-                make($filename,true,false)
-            elsif $unix then
-                make($filename,false,true)
+            if $filename == 'all' then
+                makelist = $makelist
             else
-                make($filename,$mswindows,!$mswindows)
+                makelist = [$filename]
+            end
+            makelist.each do |filename|
+                if $windows then
+                    make(filename,true,false)
+                elsif $unix then
+                    make(filename,false,true)
+                else
+                    make(filename,$mswindows,!$mswindows)
+                end
             end
         elsif $browser && $filename =~ /^http\:\/\// then
             launch($filename)
@@ -835,8 +866,12 @@ def execute(arguments)
                         edit($filename)
                     else # script: or no prefix
                         command = find(shortpathname($filename),$program)
-                        register("THREAD",File.dirname(File.expand_path(command)))
-                        run(command)
+                        if command then
+                            register("THREAD",File.dirname(File.expand_path(command)))
+                            run(command)
+                        else
+                            report('unable to locate program')
+                        end
                     end
                 end
             rescue
-- 
cgit v1.2.3