summaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
authorHans Hagen <pragma@wxs.nl>2011-02-25 22:03:00 +0100
committerHans Hagen <pragma@wxs.nl>2011-02-25 22:03:00 +0100
commit3c5dbaefc44f38d6da23a7db2c06a0a4af0996fa (patch)
treec3ad9361af8d3f1dd37de52463fa505680446a1e /scripts
parent15ee46403d36de6f29b4e45171e061708ec69193 (diff)
downloadcontext-3c5dbaefc44f38d6da23a7db2c06a0a4af0996fa.tar.gz
beta 2011.02.25 22:03
Diffstat (limited to 'scripts')
-rw-r--r--scripts/context/lua/mtxrun.lua5
-rw-r--r--scripts/context/perl/mptopdf.pl13
-rw-r--r--scripts/context/stubs/mswin/mtxrun.lua5
-rwxr-xr-xscripts/context/stubs/unix/mtxrun5
4 files changed, 19 insertions, 9 deletions
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 100755
--- 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