beta 2014.05.29 23:35

15 files changed, 101 insertions, 41 deletions

diff --git a/scripts/context/lua/mtxrun.lua b/scripts/context/lua/mtxrun.lua
index fbb2bcff2..7ce14a23c 100644
--- a/scripts/context/lua/mtxrun.lua
+++ b/scripts/context/lua/mtxrun.lua
@@ -11173,7 +11173,7 @@ do -- create closure to overcome 200 locals limit
 
 package.loaded["lxml-aux"] = package.loaded["lxml-aux"] or true
 
--- original size: 23804, stripped down to: 16817
+-- original size: 24291, stripped down to: 17063
 
 if not modules then modules={} end modules ['lxml-aux']={
   version=1.001,
@@ -11360,8 +11360,16 @@ function xml.delete(root,pattern)
             report('deleting',pattern,c,e)
           end
           local d=p.dt
-          remove(d,e.ni)
-          redo_ni(d) 
+          local ni=e.ni
+          if ni<=#d then
+            if false then
+              p.dt[ni]=""
+            else
+              remove(d,ni)
+              redo_ni(d) 
+            end
+          else
+          end
         end
       end
     end
@@ -11491,7 +11499,8 @@ local function include(xmldata,pattern,attribute,recursive,loaddata)
       local name=nil
       local ekdt=ek.dt
       local ekat=ek.at
-      local epdt=ek.__p__.dt
+      local ekrt=ek.__p__
+      local epdt=ekrt.dt
       if not attribute or attribute=="" then
         name=(type(ekdt)=="table" and ekdt[1]) or ekdt 
       end
@@ -11514,7 +11523,9 @@ local function include(xmldata,pattern,attribute,recursive,loaddata)
           if recursive then
             include(xi,pattern,attribute,recursive,loaddata)
           end
-          epdt[ek.ni]=xml.body(xi) 
+          local child=xml.body(xi) 
+          child.__p__=ekrt
+          epdt[ek.ni]=child
         end
       end
     end
@@ -16882,8 +16893,8 @@ end -- of closure
 
 -- used libraries    : l-lua.lua l-package.lua l-lpeg.lua l-function.lua l-string.lua l-table.lua l-io.lua l-number.lua l-set.lua l-os.lua l-file.lua l-gzip.lua l-md5.lua l-url.lua l-dir.lua l-boolean.lua l-unicode.lua l-math.lua util-str.lua util-tab.lua util-sto.lua util-prs.lua util-fmt.lua trac-set.lua trac-log.lua trac-inf.lua trac-pro.lua util-lua.lua util-deb.lua util-mrg.lua util-tpl.lua util-env.lua luat-env.lua lxml-tab.lua lxml-lpt.lua lxml-mis.lua lxml-aux.lua lxml-xml.lua trac-xml.lua data-ini.lua data-exp.lua data-env.lua data-tmp.lua data-met.lua data-res.lua data-pre.lua data-inp.lua data-out.lua data-fil.lua data-con.lua data-use.lua data-zip.lua data-tre.lua data-sch.lua data-lua.lua data-aux.lua data-tmf.lua data-lst.lua util-lib.lua luat-sta.lua luat-fmt.lua
 -- skipped libraries : -
--- original bytes    : 695252
--- stripped bytes    : 246810
+-- original bytes    : 695739
+-- stripped bytes    : 247051
 
 -- end library merge
 
diff --git a/scripts/context/stubs/mswin/mtxrun.lua b/scripts/context/stubs/mswin/mtxrun.lua
index fbb2bcff2..7ce14a23c 100644
--- a/scripts/context/stubs/mswin/mtxrun.lua
+++ b/scripts/context/stubs/mswin/mtxrun.lua
@@ -11173,7 +11173,7 @@ do -- create closure to overcome 200 locals limit
 
 package.loaded["lxml-aux"] = package.loaded["lxml-aux"] or true
 
--- original size: 23804, stripped down to: 16817
+-- original size: 24291, stripped down to: 17063
 
 if not modules then modules={} end modules ['lxml-aux']={
   version=1.001,
@@ -11360,8 +11360,16 @@ function xml.delete(root,pattern)
             report('deleting',pattern,c,e)
           end
           local d=p.dt
-          remove(d,e.ni)
-          redo_ni(d) 
+          local ni=e.ni
+          if ni<=#d then
+            if false then
+              p.dt[ni]=""
+            else
+              remove(d,ni)
+              redo_ni(d) 
+            end
+          else
+          end
         end
       end
     end
@@ -11491,7 +11499,8 @@ local function include(xmldata,pattern,attribute,recursive,loaddata)
       local name=nil
       local ekdt=ek.dt
       local ekat=ek.at
-      local epdt=ek.__p__.dt
+      local ekrt=ek.__p__
+      local epdt=ekrt.dt
       if not attribute or attribute=="" then
         name=(type(ekdt)=="table" and ekdt[1]) or ekdt 
       end
@@ -11514,7 +11523,9 @@ local function include(xmldata,pattern,attribute,recursive,loaddata)
           if recursive then
             include(xi,pattern,attribute,recursive,loaddata)
           end
-          epdt[ek.ni]=xml.body(xi) 
+          local child=xml.body(xi) 
+          child.__p__=ekrt
+          epdt[ek.ni]=child
         end
       end
     end
@@ -16882,8 +16893,8 @@ end -- of closure
 
 -- used libraries    : l-lua.lua l-package.lua l-lpeg.lua l-function.lua l-string.lua l-table.lua l-io.lua l-number.lua l-set.lua l-os.lua l-file.lua l-gzip.lua l-md5.lua l-url.lua l-dir.lua l-boolean.lua l-unicode.lua l-math.lua util-str.lua util-tab.lua util-sto.lua util-prs.lua util-fmt.lua trac-set.lua trac-log.lua trac-inf.lua trac-pro.lua util-lua.lua util-deb.lua util-mrg.lua util-tpl.lua util-env.lua luat-env.lua lxml-tab.lua lxml-lpt.lua lxml-mis.lua lxml-aux.lua lxml-xml.lua trac-xml.lua data-ini.lua data-exp.lua data-env.lua data-tmp.lua data-met.lua data-res.lua data-pre.lua data-inp.lua data-out.lua data-fil.lua data-con.lua data-use.lua data-zip.lua data-tre.lua data-sch.lua data-lua.lua data-aux.lua data-tmf.lua data-lst.lua util-lib.lua luat-sta.lua luat-fmt.lua
 -- skipped libraries : -
--- original bytes    : 695252
--- stripped bytes    : 246810
+-- original bytes    : 695739
+-- stripped bytes    : 247051
 
 -- end library merge
 
diff --git a/scripts/context/stubs/unix/mtxrun b/scripts/context/stubs/unix/mtxrun
index fbb2bcff2..7ce14a23c 100755
--- a/scripts/context/stubs/unix/mtxrun
+++ b/scripts/context/stubs/unix/mtxrun
@@ -11173,7 +11173,7 @@ do -- create closure to overcome 200 locals limit
 
 package.loaded["lxml-aux"] = package.loaded["lxml-aux"] or true
 
--- original size: 23804, stripped down to: 16817
+-- original size: 24291, stripped down to: 17063
 
 if not modules then modules={} end modules ['lxml-aux']={
   version=1.001,
@@ -11360,8 +11360,16 @@ function xml.delete(root,pattern)
             report('deleting',pattern,c,e)
           end
           local d=p.dt
-          remove(d,e.ni)
-          redo_ni(d) 
+          local ni=e.ni
+          if ni<=#d then
+            if false then
+              p.dt[ni]=""
+            else
+              remove(d,ni)
+              redo_ni(d) 
+            end
+          else
+          end
         end
       end
     end
@@ -11491,7 +11499,8 @@ local function include(xmldata,pattern,attribute,recursive,loaddata)
       local name=nil
       local ekdt=ek.dt
       local ekat=ek.at
-      local epdt=ek.__p__.dt
+      local ekrt=ek.__p__
+      local epdt=ekrt.dt
       if not attribute or attribute=="" then
         name=(type(ekdt)=="table" and ekdt[1]) or ekdt 
       end
@@ -11514,7 +11523,9 @@ local function include(xmldata,pattern,attribute,recursive,loaddata)
           if recursive then
             include(xi,pattern,attribute,recursive,loaddata)
           end
-          epdt[ek.ni]=xml.body(xi) 
+          local child=xml.body(xi) 
+          child.__p__=ekrt
+          epdt[ek.ni]=child
         end
       end
     end
@@ -16882,8 +16893,8 @@ end -- of closure
 
 -- used libraries    : l-lua.lua l-package.lua l-lpeg.lua l-function.lua l-string.lua l-table.lua l-io.lua l-number.lua l-set.lua l-os.lua l-file.lua l-gzip.lua l-md5.lua l-url.lua l-dir.lua l-boolean.lua l-unicode.lua l-math.lua util-str.lua util-tab.lua util-sto.lua util-prs.lua util-fmt.lua trac-set.lua trac-log.lua trac-inf.lua trac-pro.lua util-lua.lua util-deb.lua util-mrg.lua util-tpl.lua util-env.lua luat-env.lua lxml-tab.lua lxml-lpt.lua lxml-mis.lua lxml-aux.lua lxml-xml.lua trac-xml.lua data-ini.lua data-exp.lua data-env.lua data-tmp.lua data-met.lua data-res.lua data-pre.lua data-inp.lua data-out.lua data-fil.lua data-con.lua data-use.lua data-zip.lua data-tre.lua data-sch.lua data-lua.lua data-aux.lua data-tmf.lua data-lst.lua util-lib.lua luat-sta.lua luat-fmt.lua
 -- skipped libraries : -
--- original bytes    : 695252
--- stripped bytes    : 246810
+-- original bytes    : 695739
+-- stripped bytes    : 247051
 
 -- end library merge
 
diff --git a/scripts/context/stubs/win64/mtxrun.lua b/scripts/context/stubs/win64/mtxrun.lua
index fbb2bcff2..7ce14a23c 100644
--- a/scripts/context/stubs/win64/mtxrun.lua
+++ b/scripts/context/stubs/win64/mtxrun.lua
@@ -11173,7 +11173,7 @@ do -- create closure to overcome 200 locals limit
 
 package.loaded["lxml-aux"] = package.loaded["lxml-aux"] or true
 
--- original size: 23804, stripped down to: 16817
+-- original size: 24291, stripped down to: 17063
 
 if not modules then modules={} end modules ['lxml-aux']={
   version=1.001,
@@ -11360,8 +11360,16 @@ function xml.delete(root,pattern)
             report('deleting',pattern,c,e)
           end
           local d=p.dt
-          remove(d,e.ni)
-          redo_ni(d) 
+          local ni=e.ni
+          if ni<=#d then
+            if false then
+              p.dt[ni]=""
+            else
+              remove(d,ni)
+              redo_ni(d) 
+            end
+          else
+          end
         end
       end
     end
@@ -11491,7 +11499,8 @@ local function include(xmldata,pattern,attribute,recursive,loaddata)
       local name=nil
       local ekdt=ek.dt
       local ekat=ek.at
-      local epdt=ek.__p__.dt
+      local ekrt=ek.__p__
+      local epdt=ekrt.dt
       if not attribute or attribute=="" then
         name=(type(ekdt)=="table" and ekdt[1]) or ekdt 
       end
@@ -11514,7 +11523,9 @@ local function include(xmldata,pattern,attribute,recursive,loaddata)
           if recursive then
             include(xi,pattern,attribute,recursive,loaddata)
           end
-          epdt[ek.ni]=xml.body(xi) 
+          local child=xml.body(xi) 
+          child.__p__=ekrt
+          epdt[ek.ni]=child
         end
       end
     end
@@ -16882,8 +16893,8 @@ end -- of closure
 
 -- used libraries    : l-lua.lua l-package.lua l-lpeg.lua l-function.lua l-string.lua l-table.lua l-io.lua l-number.lua l-set.lua l-os.lua l-file.lua l-gzip.lua l-md5.lua l-url.lua l-dir.lua l-boolean.lua l-unicode.lua l-math.lua util-str.lua util-tab.lua util-sto.lua util-prs.lua util-fmt.lua trac-set.lua trac-log.lua trac-inf.lua trac-pro.lua util-lua.lua util-deb.lua util-mrg.lua util-tpl.lua util-env.lua luat-env.lua lxml-tab.lua lxml-lpt.lua lxml-mis.lua lxml-aux.lua lxml-xml.lua trac-xml.lua data-ini.lua data-exp.lua data-env.lua data-tmp.lua data-met.lua data-res.lua data-pre.lua data-inp.lua data-out.lua data-fil.lua data-con.lua data-use.lua data-zip.lua data-tre.lua data-sch.lua data-lua.lua data-aux.lua data-tmf.lua data-lst.lua util-lib.lua luat-sta.lua luat-fmt.lua
 -- skipped libraries : -
--- original bytes    : 695252
--- stripped bytes    : 246810
+-- original bytes    : 695739
+-- stripped bytes    : 247051
 
 -- end library merge
 
diff --git a/tex/context/base/cont-new.mkiv b/tex/context/base/cont-new.mkiv
index 00ae3dc21..323002aeb 100644
--- a/tex/context/base/cont-new.mkiv
+++ b/tex/context/base/cont-new.mkiv
@@ -11,7 +11,7 @@
 %C therefore copyrighted by \PRAGMA. See mreadme.pdf for
 %C details.
 
-\newcontextversion{2014.05.29 12:47}
+\newcontextversion{2014.05.29 23:35}
 
 %D This file is loaded at runtime, thereby providing an excellent place for
 %D hacks, patches, extensions and new features.
diff --git a/tex/context/base/context-version.pdf b/tex/context/base/context-version.pdf
index 90237aa1a..bb2ed684d 100644
--- a/tex/context/base/context-version.pdf
+++ b/tex/context/base/context-version.pdf
diff --git a/tex/context/base/context.mkiv b/tex/context/base/context.mkiv
index ab7701fb7..92ba1b9a7 100644
--- a/tex/context/base/context.mkiv
+++ b/tex/context/base/context.mkiv
@@ -28,7 +28,7 @@
 %D up and the dependencies are more consistent.
 
 \edef\contextformat {\jobname}
-\edef\contextversion{2014.05.29 12:47}
+\edef\contextversion{2014.05.29 23:35}
 \edef\contextkind   {beta}
 
 %D For those who want to use this:
diff --git a/tex/context/base/lxml-aux.lua b/tex/context/base/lxml-aux.lua
index 0fffe261a..963873bc9 100644
--- a/tex/context/base/lxml-aux.lua
+++ b/tex/context/base/lxml-aux.lua
@@ -221,8 +221,18 @@ function xml.delete(root,pattern)
                         report('deleting',pattern,c,e)
                     end
                     local d = p.dt
-                    remove(d,e.ni)
-                    redo_ni(d) -- can be made faster and inlined
+                    local ni = e.ni
+                    if ni <= #d then
+                        if false then
+                            p.dt[ni] = ""
+                        else
+                            -- what if multiple deleted in one set
+                            remove(d,ni)
+                            redo_ni(d) -- can be made faster and inlined
+                        end
+                    else
+                        -- disturbing
+                    end
                 end
             end
         end
@@ -365,7 +375,8 @@ local function include(xmldata,pattern,attribute,recursive,loaddata)
             local name = nil
             local ekdt = ek.dt
             local ekat = ek.at
-            local epdt = ek.__p__.dt
+            local ekrt = ek.__p__
+            local epdt = ekrt.dt
             if not attribute or attribute == "" then
                 name = (type(ekdt) == "table" and ekdt[1]) or ekdt -- check, probably always tab or str
             end
@@ -392,7 +403,9 @@ local function include(xmldata,pattern,attribute,recursive,loaddata)
                     if recursive then
                         include(xi,pattern,attribute,recursive,loaddata)
                     end
-                    epdt[ek.ni] = xml.body(xi) -- xml.assign(d,k,xi)
+                    local child = xml.body(xi) -- xml.assign(d,k,xi)
+                    child.__p__ = ekrt
+                    epdt[ek.ni] = child
                 end
             end
         end
diff --git a/tex/context/base/pack-mis.mkvi b/tex/context/base/pack-mis.mkvi
index 38fcc18e4..c5b218599 100644
--- a/tex/context/base/pack-mis.mkvi
+++ b/tex/context/base/pack-mis.mkvi
@@ -67,6 +67,7 @@
   %\ifinsidefloat \else
   %  \page_backgrounds_add_local_to_box\nextbox
   %\fi
+\flushnotes % new per 2014-05-29 : todo: move them up in the mvl
    \ifgridsnapping
      \pack_placement_flush_grid_yes
    \else
diff --git a/tex/context/base/publ-ini.lua b/tex/context/base/publ-ini.lua
index 00e82f23f..319d161ae 100644
--- a/tex/context/base/publ-ini.lua
+++ b/tex/context/base/publ-ini.lua
@@ -716,7 +716,7 @@ function publications.singularorplural(singular,plural)
     end
 end
 
-local patterns = { "publ-imp-%s.mkiv", "publ-imp-%s.tex" }
+local patterns = { "publ-imp-%s.mkvi", "publ-imp-%s.mkiv", "publ-imp-%s.tex" }
 
 local function failure(name)
     report("unknown library %a",name)
@@ -732,7 +732,7 @@ function commands.loadbtxdefinitionfile(name) -- a more specific name
         patterns = patterns,
         action   = action,
         failure  = failure,
-        onlyonce = false,
+        onlyonce = true,
     }
 end
 
diff --git a/tex/context/base/sort-ini.lua b/tex/context/base/sort-ini.lua
index 9ac020166..47fe3da69 100644
--- a/tex/context/base/sort-ini.lua
+++ b/tex/context/base/sort-ini.lua
@@ -113,6 +113,7 @@ sorters = {
         defaultlanguage   = v_default,
         defaultmethod     = v_default,
         defaultdigits     = v_numbers,
+        validmethods      = validmethods,
     }
 }
 
@@ -300,9 +301,9 @@ end
 
 local function setlanguage(l,m,d,u)
     language = (l ~= "" and l) or constants.defaultlanguage
-    data = definitions[language or constants.defaultlanguage] or definitions[constants.defaultlanguage]
-    method    = (m ~= "" and m) or data.method    or constants.defaultmethod
-    digits    = (d ~= "" and d) or data.digits    or constants.defaultdigits
+    data     = definitions[language or constants.defaultlanguage] or definitions[constants.defaultlanguage]
+    method   = (m ~= "" and m) or data.method or constants.defaultmethod
+    digits   = (d ~= "" and d) or data.digits or constants.defaultdigits
     if trace_tests then
         report_sorters("setting language %a, method %a, digits %a",language,method,digits)
     end
@@ -386,6 +387,7 @@ local function basic(a,b) -- trace ea and eb
         for j=1,#sequence do
             local m = sequence[j]
             result = basicsort(ea[m],eb[m])
+-- print(m,result)
             if result ~= 0 then
                 return result
             end
diff --git a/tex/context/base/status-files.pdf b/tex/context/base/status-files.pdf
index fbbe2b35d..6e357a658 100644
--- a/tex/context/base/status-files.pdf
+++ b/tex/context/base/status-files.pdf
diff --git a/tex/context/base/status-lua.pdf b/tex/context/base/status-lua.pdf
index ac0e796aa..198a3f81f 100644
--- a/tex/context/base/status-lua.pdf
+++ b/tex/context/base/status-lua.pdf
diff --git a/tex/context/base/strc-syn.lua b/tex/context/base/strc-syn.lua
index 604365b2d..e27974eb2 100644
--- a/tex/context/base/strc-syn.lua
+++ b/tex/context/base/strc-syn.lua
@@ -186,7 +186,7 @@ function synonyms.analyzed(class,options)
     local data = synonyms.collected[class]
     if data and data.entries then
         options = options or { }
-        sorters.setlanguage(options.language)
+        sorters.setlanguage(options.language,options.method)
         synonyms.filter(data,options)   -- filters entries to result
         synonyms.prepare(data,options)  -- adds split table parallel to list table
         synonyms.sort(data,options)     -- sorts entries in result
diff --git a/tex/generic/context/luatex/luatex-fonts-merged.lua b/tex/generic/context/luatex/luatex-fonts-merged.lua
index c22fd90ad..17833eb74 100644
--- a/tex/generic/context/luatex/luatex-fonts-merged.lua
+++ b/tex/generic/context/luatex/luatex-fonts-merged.lua
@@ -1,6 +1,6 @@
 -- merged file : luatex-fonts-merged.lua
 -- parent file : luatex-fonts.lua
--- merge date  : 05/29/14 12:47:14
+-- merge date  : 05/29/14 23:35:24
 
 do -- begin closure to overcome local limits and interference