From 522bda44879e834e502851dee212bbb4eb93fc11 Mon Sep 17 00:00:00 2001
From: Hans Hagen <pragma@wxs.nl>
Date: Mon, 10 Jun 2013 22:51:00 +0200
Subject: beta 2013.06.10 22:51

---
 tex/context/base/cont-new.mkiv                     |   2 +-
 tex/context/base/context-version.pdf               | Bin 4104 -> 4103 bytes
 tex/context/base/context.mkiv                      |   2 +-
 tex/context/base/m-database.lua                    |   5 ++++-
 tex/context/base/m-database.mkiv                   |   1 +
 tex/context/base/status-files.pdf                  | Bin 24634 -> 24635 bytes
 tex/context/base/status-lua.pdf                    | Bin 213137 -> 213195 bytes
 tex/generic/context/luatex/luatex-fonts-merged.lua |   2 +-
 8 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/tex/context/base/cont-new.mkiv b/tex/context/base/cont-new.mkiv
index 2dfef3f31..0e3ff6cf6 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{2013.06.10 22:31}
+\newcontextversion{2013.06.10 22:51}
 
 %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 f3726f9a2..f08b763d1 100644
Binary files a/tex/context/base/context-version.pdf and b/tex/context/base/context-version.pdf differ
diff --git a/tex/context/base/context.mkiv b/tex/context/base/context.mkiv
index 2efac7624..2d018984d 100644
--- a/tex/context/base/context.mkiv
+++ b/tex/context/base/context.mkiv
@@ -25,7 +25,7 @@
 %D up and the dependencies are more consistent.
 
 \edef\contextformat {\jobname}
-\edef\contextversion{2013.06.10 22:31}
+\edef\contextversion{2013.06.10 22:51}
 \edef\contextkind   {beta}
 
 %D For those who want to use this:
diff --git a/tex/context/base/m-database.lua b/tex/context/base/m-database.lua
index 0aaee7e93..31e87ad40 100644
--- a/tex/context/base/m-database.lua
+++ b/tex/context/base/m-database.lua
@@ -48,6 +48,8 @@ function moduledata.database.csv.process(settings)
         data = buffers.getlines(settings.database)
     end
     if data and #data > 0 then
+        local catcodes = tonumber(settings.catcodes) or tex.catcodetable
+        context.pushcatcodes(catcodes)
         if trace_flush then
             context.pushlogger(report_database)
         end
@@ -65,7 +67,7 @@ function moduledata.database.csv.process(settings)
             local quotedata = nil
             for chr in gmatch(quotechar,".") do
                 local quotechar = lpegP(chr)
-                local quoteword = l_space^0 * quotechar * lpegC((1 - quotechar)^0) * quotechar * l_space^0
+                local quoteword = lpegCs(((l_space^0 * quotechar)/"") * (1 - quotechar)^0 * ((quotechar * l_space^0)/""))
                 if quotedata then
                     quotedata = quotedata + quoteword
                 else
@@ -120,6 +122,7 @@ function moduledata.database.csv.process(settings)
                 context.endgroup()
             end
         end
+        context.popcatcodes()
         if trace_flush then
             context.poplogger()
         end
diff --git a/tex/context/base/m-database.mkiv b/tex/context/base/m-database.mkiv
index b7357f11a..cc7dd3d72 100644
--- a/tex/context/base/m-database.mkiv
+++ b/tex/context/base/m-database.mkiv
@@ -68,6 +68,7 @@
      left        = \!!bs\databaseparameter\c!left       \!!es,
      right       = \!!bs\databaseparameter\c!right      \!!es,
      command     = \!!bs\databaseparameter\c!command    \!!es,
+     catcodes    = \number\catcodetable
   }}}
 
 \unexpanded\def\processdatabasebuffer{\dodoubleempty\module_database_process_buffer}
diff --git a/tex/context/base/status-files.pdf b/tex/context/base/status-files.pdf
index a5197f7b8..bff528ee0 100644
Binary files a/tex/context/base/status-files.pdf and b/tex/context/base/status-files.pdf differ
diff --git a/tex/context/base/status-lua.pdf b/tex/context/base/status-lua.pdf
index c124504c2..c2a6132f1 100644
Binary files a/tex/context/base/status-lua.pdf and b/tex/context/base/status-lua.pdf differ
diff --git a/tex/generic/context/luatex/luatex-fonts-merged.lua b/tex/generic/context/luatex/luatex-fonts-merged.lua
index 406e567b3..4cd0c4dc0 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  : 06/10/13 22:31:59
+-- merge date  : 06/10/13 22:51:12
 
 do -- begin closure to overcome local limits and interference
 
-- 
cgit v1.2.3