From b10c48bc0fe2e5be7305c0f31e41ea01f8596c30 Mon Sep 17 00:00:00 2001
From: Marius <mariausol@gmail.com>
Date: Tue, 11 Jun 2013 00:00:21 +0300
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
 7 files changed, 7 insertions(+), 3 deletions(-)

(limited to 'tex/context')

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
-- 
cgit v1.2.3