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