From 2a9554684f61df8db63dec6d4e874f49b25a212b Mon Sep 17 00:00:00 2001
From: Marius <mariausol@gmail.com>
Date: Fri, 25 Feb 2011 23:40:24 +0200
Subject: beta 2011.02.25 22:03

---
 scripts/context/lua/mtxrun.lua         |  5 ++++-
 scripts/context/perl/mptopdf.pl        | 13 +++++++------
 scripts/context/stubs/mswin/mtxrun.lua |  5 ++++-
 scripts/context/stubs/unix/mtxrun      |  5 ++++-
 4 files changed, 19 insertions(+), 9 deletions(-)

(limited to 'scripts')

diff --git a/scripts/context/lua/mtxrun.lua b/scripts/context/lua/mtxrun.lua
index ea70a5cc4..0d9e071fe 100644
--- a/scripts/context/lua/mtxrun.lua
+++ b/scripts/context/lua/mtxrun.lua
@@ -1282,7 +1282,8 @@ local function serialize(root,name,_handle,_reduce,_noquotes,_hexify)
     if root then
         -- The dummy access will initialize a table that has a delayed initialization
         -- using a metatable.
-        local dummy = root.whatever
+        local dummy = root._w_h_a_t_e_v_e_r_
+        root._w_h_a_t_e_v_e_r_ = nil
         -- Let's forget about empty tables.
         if next(root) then
             do_serialize(root,name,"",0)
@@ -4792,6 +4793,7 @@ function setters.register(t,what,...)
             end
         end
     end
+    return false -- so we can use it in an assignment
 end
 
 function setters.enable(t,what)
@@ -7246,6 +7248,7 @@ if not modules then modules = { } end modules ['lxml-pth'] = {
 }
 
 -- e.ni is only valid after a filter run
+-- todo: B/C/[get first match]
 
 local concat, remove, insert = table.concat, table.remove, table.insert
 local type, next, tonumber, tostring, setmetatable, loadstring = type, next, tonumber, tostring, setmetatable, loadstring
diff --git a/scripts/context/perl/mptopdf.pl b/scripts/context/perl/mptopdf.pl
index 374d8912a..42db9001e 100644
--- a/scripts/context/perl/mptopdf.pl
+++ b/scripts/context/perl/mptopdf.pl
@@ -27,11 +27,12 @@ use File::Basename ;
 $Getopt::Long::passthrough = 1 ; # no error message
 $Getopt::Long::autoabbrev  = 1 ; # partial switch accepted
 
-my $Help = 0;
-my $Latex = 0;
-my $RawMP = 1;
+my $Help    = 0 ;
+my $Latex   = 0 ;
+my $TeXexec = 0 ;
+my $RawMP   = 1 ;
 my $MetaFun = 0 ;
-my $PassOn = '' ;
+my $PassOn  = '' ;
 
 &GetOptions
   ( "help"    => \$Help  ,
@@ -47,9 +48,9 @@ my $miktex        = 0 ;
 my $done          = 0 ;
 my $report        = '' ;
 my $mplatexswitch = " --tex=latex " ;
-my $texexecswitch = " --tex=\"texexec --batch --once --nomp --mptex\" " # untested
+my $texexecswitch = " --tex=\"texexec --batch --once --nomp --mptex\" " ; # untested
 
-my $dosish      = ($Config{'osname'} =~/^(ms)?dos|^os\/2|^mswin/i) ;
+my $dosish      = ($Config{'osname'} =~ /^(ms)?dos|^os\/2|^mswin/i) ;
 my $escapeshell = (($ENV{'SHELL'}) && ($ENV{'SHELL'} =~ m/sh/i ));
 
 if ($ENV{"TEXSYSTEM"}) {
diff --git a/scripts/context/stubs/mswin/mtxrun.lua b/scripts/context/stubs/mswin/mtxrun.lua
index ea70a5cc4..0d9e071fe 100644
--- a/scripts/context/stubs/mswin/mtxrun.lua
+++ b/scripts/context/stubs/mswin/mtxrun.lua
@@ -1282,7 +1282,8 @@ local function serialize(root,name,_handle,_reduce,_noquotes,_hexify)
     if root then
         -- The dummy access will initialize a table that has a delayed initialization
         -- using a metatable.
-        local dummy = root.whatever
+        local dummy = root._w_h_a_t_e_v_e_r_
+        root._w_h_a_t_e_v_e_r_ = nil
         -- Let's forget about empty tables.
         if next(root) then
             do_serialize(root,name,"",0)
@@ -4792,6 +4793,7 @@ function setters.register(t,what,...)
             end
         end
     end
+    return false -- so we can use it in an assignment
 end
 
 function setters.enable(t,what)
@@ -7246,6 +7248,7 @@ if not modules then modules = { } end modules ['lxml-pth'] = {
 }
 
 -- e.ni is only valid after a filter run
+-- todo: B/C/[get first match]
 
 local concat, remove, insert = table.concat, table.remove, table.insert
 local type, next, tonumber, tostring, setmetatable, loadstring = type, next, tonumber, tostring, setmetatable, loadstring
diff --git a/scripts/context/stubs/unix/mtxrun b/scripts/context/stubs/unix/mtxrun
index ea70a5cc4..0d9e071fe 100644
--- a/scripts/context/stubs/unix/mtxrun
+++ b/scripts/context/stubs/unix/mtxrun
@@ -1282,7 +1282,8 @@ local function serialize(root,name,_handle,_reduce,_noquotes,_hexify)
     if root then
         -- The dummy access will initialize a table that has a delayed initialization
         -- using a metatable.
-        local dummy = root.whatever
+        local dummy = root._w_h_a_t_e_v_e_r_
+        root._w_h_a_t_e_v_e_r_ = nil
         -- Let's forget about empty tables.
         if next(root) then
             do_serialize(root,name,"",0)
@@ -4792,6 +4793,7 @@ function setters.register(t,what,...)
             end
         end
     end
+    return false -- so we can use it in an assignment
 end
 
 function setters.enable(t,what)
@@ -7246,6 +7248,7 @@ if not modules then modules = { } end modules ['lxml-pth'] = {
 }
 
 -- e.ni is only valid after a filter run
+-- todo: B/C/[get first match]
 
 local concat, remove, insert = table.concat, table.remove, table.insert
 local type, next, tonumber, tostring, setmetatable, loadstring = type, next, tonumber, tostring, setmetatable, loadstring
-- 
cgit v1.2.3