2017-02-19 17:20:00

1 files changed, 32 insertions, 2 deletions

diff --git a/tex/context/base/mkiv/util-env.lua b/tex/context/base/mkiv/util-env.lua
index b72226900..fb3dda41f 100644
--- a/tex/context/base/mkiv/util-env.lua
+++ b/tex/context/base/mkiv/util-env.lua
@@ -15,14 +15,44 @@ local concat, insert, remove = table.concat, table.insert, table.remove
 environment         = environment or { }
 local environment   = environment
 
--- precautions
+-- locales are a useless feature in and even dangerous for luatex
 
-os.setlocale(nil,nil) -- useless feature and even dangerous in luatex
+os.setlocale(nil,nil) -- setlocale("all","C")
 
 function os.setlocale()
     -- no way you can mess with it
 end
 
+-- do
+--
+--     local setlocale = os.setlocale
+--
+--     function os.resetlocale()
+--         setlocale(nil,nil)
+--     end
+--
+--     function os.pushlocale(...)
+--         insert(stack, {
+--             collate  = setlocale("collate"),
+--             ctype    = setlocale("ctype"),
+--             monetary = setlocale("monetary"),
+--             numeric  = setlocale("numeric"),
+--             time     = setlocale("time"),
+--         })
+--         setlocale(...)
+--     end
+--
+--     function os.poplocale(...)
+--         local l = remove(stack)
+--         if l then
+--             setlocale(unpack(l))
+--         else
+--             resetlocale()
+--         end
+--     end
+--
+-- end
+
 -- dirty tricks (we will replace the texlua call by luatex --luaonly)
 
 local validengines = allocate {