added support for biblatex through icite. improved label/ref to tei

1 files changed, 103 insertions, 12 deletions

diff --git a/ekdosis.dtx b/ekdosis.dtx
index 3f50def..c85aec8 100644
--- a/ekdosis.dtx
+++ b/ekdosis.dtx
@@ -5400,6 +5400,13 @@ local sections = lpeg.Cs(lpeg.P("book") + lpeg.P("part") + lpeg.P("chapter")
 local par =  lpeg.P(lpeg.P("\\par") * spce^1)
 local parb = lpeg.P(lpeg.Cs("\\p@rb") * spce^1)
 local para = lpeg.P(lpeg.Cs("\\p@ra") * spce^1)
+local labelrefcmds = lpeg.Cs(lpeg.P("label")
+                               + lpeg.P("linelabel")
+                               + lpeg.P("lineref")
+                               + lpeg.P("ref")
+                               + lpeg.P("pageref")
+                               + lpeg.P("vref")
+                               + lpeg.P("vpageref"))
 
 -- Bind to local variables
 local next = next
@@ -5494,7 +5501,7 @@ function ekdosis.newwitness(id,
    then
       tex.print("\\unexpanded{\\PackageWarning{ekdosis}{\""
          ..id..
-         "\" is not a valid xml:id. "
+         "\" is not a valid xml:id. \\MessageBreak "
          ..
          "Please pick another id.}}")
    else
@@ -5534,7 +5541,7 @@ function ekdosis.newhand(id, witid, siglum, description)
    then
       tex.print("\\unexpanded{\\PackageWarning{ekdosis}{\""
          ..id..
-         "\" is not a valid xml:id. "
+         "\" is not a valid xml:id. \\MessageBreak "
          ..
          "Please pick another id.}}")
    else
@@ -5591,7 +5598,7 @@ function ekdosis.newscholar(id, siglum)
    then
       tex.print("\\unexpanded{\\PackageWarning{ekdosis}{\""
          ..id..
-         "\" is not a valid xml:id. "
+         "\" is not a valid xml:id. \\MessageBreak "
          ..
          "Please pick another id.}}")
    else
@@ -5656,13 +5663,13 @@ local cmdtotags = {
 
 local texpatttotags = {
    {a="\\altrfont%s+", b=""},
-   {a="\\icite%s?%[(.-)%]%[(.-)%]{(.-)}", b="%1 <ref target=\"#%3\">%2</ref>"},
-   {a="\\icite%s?%[(.-)%]{(.-)}", b="<ref target=\"#%2\">%1</ref>"},
-   {a="\\icite%s?{(.-)}", b="<ptr target=\"#%1\"/>"},
-   {a="\\linelabel%s?{(.-)}", b="<anchor xml:id=\"%1\"/>"},
-   {a="\\label%s?{(.-)}", b="<anchor xml:id=\"%1\"/>"},
-   {a="\\v?pageref%s?{(.-)}", b="<ptr target=\"#%1\"/>"},
-   {a="\\v?ref%s?{(.-)}", b="<ptr target=\"#%1\"/>"},
+   -- {a="\\icite%s?%[(.-)%]%[(.-)%]{(.-)}", b="%1 <ref target=\"#%3\">%2</ref>"},
+   -- {a="\\icite%s?%[(.-)%]{(.-)}", b="<ref target=\"#%2\">%1</ref>"},
+   -- {a="\\icite%s?{(.-)}", b="<ptr target=\"#%1\"/>"},
+   -- {a="\\linelabel%s?{(.-)}", b="<anchor xml:id=\"%1\"/>"},
+   -- {a="\\label%s?{(.-)}", b="<anchor xml:id=\"%1\"/>"},
+   -- {a="\\v?pageref%s?{(.-)}", b="<ptr target=\"#%1\"/>"},
+   -- {a="\\v?ref%s?{(.-)}", b="<ptr target=\"#%1\"/>"},
    {a="\\LR%s+{(.-)}", b="%1"},
    {a="\\RL%s+{(.-)}", b="%1"}
 }
@@ -5928,6 +5935,70 @@ local function texpatttotei(str)
    return str
 end
 
+local function icitetotei(str)
+   str = gsub(str, lpeg.P("\\")
+                 * lpeg.Cs("icite")
+                 * spcenc^-1
+                 * bsqbrackets
+                 * bsqbrackets
+                 * bcbraces
+                 * bsqbrackets^-1,
+              function(cmd, pre, post, body, opt)
+                 pre = string.sub(pre, 2, -2)
+                 post = string.sub(post, 2, -2)
+                 body = string.sub(body, 2, -2)
+                 if not checkxmlid(body)
+                 then
+                    tex.print("\\unexpanded{\\PackageWarning{ekdosis}{\""
+                                 ..body..
+                                 "\" is not a valid xml:id. \\MessageBreak "
+                                 ..
+                                 "Please pick another id.}}")
+                 else
+                 end
+                 return string.format("%s <ref target=\"#%s\">%s</ref>", pre, body, post)
+   end)
+   str = gsub(str, lpeg.P("\\")
+                 * lpeg.Cs("icite")
+                 * spcenc^-1
+                 * bsqbrackets
+                 * bcbraces
+                 * bsqbrackets^-1,
+              function(cmd, post, body, opt)
+                 post = string.sub(post, 2, -2)
+                 body = string.sub(body, 2, -2)
+                 if not checkxmlid(body)
+                 then
+                    tex.print("\\unexpanded{\\PackageWarning{ekdosis}{\""
+                                 ..body..
+                                 "\" is not a valid xml:id. \\MessageBreak "
+                                 ..
+                                 "Please pick another id.}}")
+                 else
+                 end
+                 return string.format("<ref target=\"#%s\">%s</ref>", body, post)
+   end)
+   str = gsub(str, lpeg.P("\\")
+                 * lpeg.Cs("icite")
+                 * spcenc^-1
+                 * bcbraces
+                 * bsqbrackets^-1,
+              function(cmd, body, opt)
+                 body = string.sub(body, 2, -2)
+                 if not checkxmlid(body)
+                 then
+                    tex.print("\\unexpanded{\\PackageWarning{ekdosis}{\""
+                                 ..body..
+                                 "\" is not a valid xml:id. \\MessageBreak "
+                                 ..
+                                 "Please pick another id.}}")
+                 else
+                 end
+                 return string.format("<ptr target=\"#%s\"/>", body)
+   end)
+   return str
+end
+
 local function cmdtotei(str)
    for i = 1,#cmdtotags
    do
@@ -5963,6 +6034,25 @@ local function cmdtotei(str)
                         return string.format("<ref target=\"%s\">%s</ref>",
                                              teisiglum, printsiglum)
    end)
+   str = gsub(str, lpeg.P("\\") * labelrefcmds * spcenc^-1 * bcbraces,
+              function(cmd, body)
+                 body = string.sub(body, 2, -2)
+                 if not checkxmlid(body)
+                 then
+                    tex.print("\\unexpanded{\\PackageWarning{ekdosis}{\""
+                                 ..body..
+                                 "\" is not a valid xml:id. \\MessageBreak "
+                                 ..
+                                 "Please pick another id.}}")
+                 else
+                 end
+                 if string.find(cmd, "label")
+                 then
+                    return string.format("<anchor xml:id=\"%s\"/>", body)
+                 else
+                    return string.format("<ptr target=\"#%s\"/>", body)
+                 end
+   end)
    str = string.gsub(str, "\\(%a+)%s?%*?(%b[])(%b{})",
                      function(cmd, opt, body)
                         body = string.sub(body, 2, -2)
@@ -6296,6 +6386,7 @@ local function textotei(str)
    str = envtotei(str)
    str = ekddivs_totei(str)
    str = section_totei(str)
+   str = icitetotei(str)
    str = cmdtotei(str)
    str = self_close_tags(str)
    str = partotei(str)
@@ -6654,7 +6745,7 @@ function ekdosis.newscholar(id, siglum)
    then
       tex.print("\\unexpanded{\\PackageWarning{ekdosis}{\""
          ..id..
-         "\" is not a valid xml:id. "
+         "\" is not a valid xml:id. \\MessageBreak "
          ..
          "Please pick another id.}}")
    else
@@ -6687,7 +6778,7 @@ local function build_envdiv(str)
    then
       tex.print("\\unexpanded{\\PackageWarning{ekdosis}{\""
          ..div..
-         "\" is not a valid xml:id. "
+         "\" is not a valid xml:id. \\MessageBreak "
          ..
          "Please pick another id.}}")
    else