From a10bc5d5ed9ab1c11c951ad1edd90967e93f6ad3 Mon Sep 17 00:00:00 2001
From: Philipp Gesang <phg42.2a@gmail.com>
Date: Sun, 28 Jul 2013 13:42:27 +0200
Subject: [db] setup common lpeg patterns

---
 luaotfload-database.lua | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'luaotfload-database.lua')

diff --git a/luaotfload-database.lua b/luaotfload-database.lua
index a49e575..a0a532e 100644
--- a/luaotfload-database.lua
+++ b/luaotfload-database.lua
@@ -117,9 +117,17 @@ end
 
 local report = logs.names_report
 
+names.patterns          = { }
+local patterns          = names.patterns
+
 local trailingslashes   = P"/"^1 * P(-1)
 local stripslashes      = C((1 - trailingslashes)^0)
-names.patterns          = { stripslashes = stripslashes }
+patterns.stripslashes   = stripslashes
+
+local comma             = P","
+local noncomma          = 1-comma
+local splitcomma        = Ct((C(noncomma^1) + comma)^1)
+patterns.splitcomma     = splitcomma
 
 --[[doc--
     We use the functions in the cache.* namespace that come with the
-- 
cgit v1.2.3