% \iffalse meta-comment
% vim: textwidth=75
%<*internal>
\iffalse
%</internal>
%<*readme>
|
-------:| -----------------------------------------------------------------
ekdosis:| Typesetting of TEI xml compliant critical editions
 Author:| Robert Alessi
 E-mail:| alessi@robertalessi.net
License:| Released under the GNU General Public License v3 or later
    See:| http://www.gnu.org/licenses/


Short description:
Some text about the package: probably the same as the abstract.
%</readme>
%<*luapre>
--[[
This file is part of the `ekdosis' package

ekdosis -- Typesetting of TEI xml compliant critical editions
Copyright (C) 2016  Robert Alessi

Please send error reports and suggestions for improvements to Robert
Alessi <alessi@robertalessi.net>

This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.

This program is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program.  If not, see
<http://www.gnu.org/licenses/>.
--]]

%</luapre>
%<*internal>
\fi
\def\nameofplainTeX{plain}
\ifx\fmtname\nameofplainTeX\else
  \expandafter\begingroup
\fi
%</internal>
%<*install>
\input docstrip.tex
\keepsilent
\askforoverwritefalse
\preamble
-------:| -----------------------------------------------------------------
ekdosis:| Typesetting of TEI xml compliant critical editions
 Author:| Robert Alessi
 E-mail:| alessi@robertalessi.net
License:| Released under the GNU General Public License v3 or later
    See:| http://www.gnu.org/licenses/

This file is part of the `ekdosis' package

ekdosis -- Typesetting of TEI xml compliant critical editions
Copyright (C) 2016  Robert Alessi

Please send error reports and suggestions for improvements to Robert
Alessi <alessi@robertalessi.net>

This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.

This program is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program.  If not, see
<http://www.gnu.org/licenses/>.

This work consists of the file ekdosis.dtx and a Makefile.
Running "make" generates the derived files README, ekdosis.pdf and ekdosis.sty.
Running "make inst" installs the files in the user's TeX tree.
Running "make install" installs the files in the local TeX tree.
\endpreamble

\usedir{tex/lualatex/ekdosis}
\generate{
  \file{\jobname.sty}{\from{\jobname.dtx}{package}}
}
%</install>
%<install>\endbatchfile
%<*internal>
\usedir{source/lualatex/ekdosis}
\generate{
  \file{\jobname.ins}{\from{\jobname.dtx}{install}}
}
\nopreamble\nopostamble
\usedir{doc/lualatex/ekdosis}
\generate{
  \file{README.txt}{\from{\jobname.dtx}{readme}}
}
\usedir{tex/lualatex/ekdosis}
\generate{
  \file{ekdosis.lua}{
    \from{\jobname.dtx}{luapre}
    \from{\jobname.dtx}{lua}}
}
\ifx\fmtname\nameofplainTeX
  \expandafter\endbatchfile
\else
  \expandafter\endgroup
\fi
%</internal>
% \fi
%
% \iffalse
%<*driver>
\ProvidesFile{ekdosis.dtx}
%</driver>
%<package>\NeedsTeXFormat{LaTeX2e}[1999/12/01]
%<package>\ProvidesPackage{ekdosis}
%<*package>
    [2016/08/03 v1.0 Typesetting of TEI xml compliant critical editions]
%</package>
%<*driver>
\documentclass{ltxdoc}
\usepackage[a4paper,margin=25mm,left=50mm,nohead]{geometry}
\usepackage[numbered]{hypdoc}
\usepackage[toc,lot]{multitoc}
\usepackage{\jobname}
\usepackage{fontspec,luatextra}
\setmainfont{Old Standard}[RawFeature={+ss05;+ss06}]
\usepackage{relsize}
\usepackage{minted}
\usepackage[contents]{colordoc}
\usepackage{authblk}
\newcommand{\package}[1]{\textsf{#1}\index{#1=#1 (package)}}
\EnableCrossrefs
\CodelineIndex
\RecordChanges
%\OnlyDescription
\begin{document}
  \DocInput{\jobname.dtx}
  \PrintChanges
  \PrintIndex
\end{document}
%</driver>
% \fi
%
% \CheckSum{0}
%
% \CharacterTable
%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
%   Digits        \0\1\2\3\4\5\6\7\8\9
%   Exclamation   \!     Double quote  \"     Hash (number) \#
%   Dollar        \$     Percent       \%     Ampersand     \&
%   Acute accent  \'     Left paren    \(     Right paren   \)
%   Asterisk      \*     Plus          \+     Comma         \,
%   Minus         \-     Point         \.     Solidus       \/
%   Colon         \:     Semicolon     \;     Less than     \<
%   Equals        \=     Greater than  \>     Question mark \?
%   Commercial at \@     Left bracket  \[     Backslash     \\
%   Right bracket \]     Circumflex    \^     Underscore    \_
%   Grave accent  \`     Left brace    \{     Vertical bar  \|
%   Right brace   \}     Tilde         \~}
%
% \GetFileInfo{\jobname.dtx}
% \DoNotIndex{\newcommand,\newenvironment}
%
% \title{\textsf{ekdosis} --- Typesetting of TEI xml compliant
% critical editions\thanks{This file describes version \fileversion,
% last revised \filedate.}  }
%  
% \author{Robert Alessi}
% \affil{CNRS UMR 8167 (Paris, France)\footnote{\url{robert.alessi@cnrs.fr}}}
% \date{\fileversion\ released \filedate}
%
% \maketitle
% \footnotesize
% \tableofcontents
% \normalsize
%
%\changes{v1.00}{2016/08/03}{First public release}
%
% \begin{abstract}
% ==== Put abstract text here. ====
% \end{abstract}
%
% \section{Usage}
%
% ==== Put descriptive text here. ====
%
% \DescribeMacro{\dummyMacro}
% This macro does nothing.\index{doing nothing|usage} It is merely an
% example.  If this were a real macro, you would put a paragraph here
% describing what the macro is supposed to do, what its mandatory and
% optional arguments are, and so forth.
% 
% \DescribeEnv{dummyEnv}
% This environment does nothing.  It is merely an example.
% If this were a real environment, you would put a paragraph here
% describing what the environment is supposed to do, what its
% mandatory and optional arguments are, and so forth.
%
%
% \section{Implementation}
%
% \iffalse
%<*package>
% \fi
% 
% \package{ekdosis} relies on Lua functions and tables. Read the
% |.lua| files that accompany \package{ekdosis} for more
% information.
%    \begin{macrocode}
\RequirePackage{ifluatex}
%    \end{macrocode}
% \package{ekdosis} requires \LuaLaTeX\ of course. Issue a warning
% if the document is processed with another engine.
%    \begin{macrocode}
\ifluatex\else
 \PackageError{ekdosis}{lualatex needed}{%
  Package `ekdosis' needs LuaTeX.\MessageBreak
  So you should use `lualatex' to process your document.\MessageBreak
  See documentation of `ekdosis' for further information.}%
  \expandafter\expandafter\expandafter\csname endinput\endcsname
\fi
%    \end{macrocode}
% Packages that are required by \package{ekdosis}:
%    \begin{macrocode}
\RequirePackage{luacode}
\RequirePackage{xparse}
\RequirePackage{etoolbox}
\RequirePackage{lineno}
\PassOptionsToPackage{addpageno}{lineno}
\RequirePackage{vplref}
\RequirePackage{keyfloat}
\RequirePackage{afterpage}
\RequirePackage{refcount}
%    \end{macrocode}
% Here begins the real work: load |ekdosis.lua|:
%    \begin{macrocode}
\luadirect{dofile(kpse.find_file("ekdosis.lua"))}
%    \end{macrocode}
%    \begin{macrocode}
\AtEndDocument{\luadirect{closestream()}}
%    \end{macrocode}
%    \begin{macrocode}
\newbool{isapp}
\newbool{ekdstate}
\newbool{ekdstarted}
\newcounter{ekd@lab}
\NewDocumentCommand{\append}{+m}{%
  \ifbool{ekdstate}{%
    \label{ekd:\theekd@lab}%
    \luadirect{appin(\luastring{<\getpagerefnumber{ekd:\theekd@lab}>}, "no")}%
    \luadirect{appin(\luastringN{#1}, "no")}%
    \luadirect{appin(\luastring{</\getpagerefnumber{ekd:\theekd@lab}>}, "yes")}%
    \stepcounter{ekd@lab}}{}}
\NewDocumentCommand{\obappend}{+m}%
  {\luadirect{tex.sprint(mdvappend(\luastringN{#1}))}}
\NewDocumentCommand{\apparatus}{}{\luadirect{tex.sprint(appout())}}
\NewDocumentCommand{\testapparatus}{}{\luadirect{tex.sprint(testapparatus())}}
\def\blfootnote{\gdef\@thefnmark{\relax}\@footnotetext}
\def\add@@apparatus{%
  \testapparatus%
  \ifbool{isapp}{%
    % \blfootnote{\apparatus}%
      \keyparbox[b]{}{\rule{5cm}{0.5pt}\\
        \footnotesize\apparatus}%
}{}}
\def\add@apparatus{%
  \add@@apparatus%
  \afterpage{\add@apparatus}}
\NewDocumentCommand{\EkdosisStart}{}{%
  \add@@apparatus%
  \afterpage{\add@apparatus}}
\NewDocumentCommand{\EkdosisOn}{}{\setbool{ekdstate}{true}}
\NewDocumentCommand{\EkdosisOff}{}{\setbool{ekdstate}{false}}
\newenvironment{ekdosis}{%
\ifbool{ekdstarted}{}{\EkdosisStart\global\setbool{ekdstarted}{true}}
\EkdosisOn}{\EkdosisOff}
%    \end{macrocode}
% \iffalse
%</package>
% \fi
% \StopEventually{}
% \Finale
% \iffalse `'
%<*lua>
% \fi
% \begin{minted}[linenos,fontsize=\relsize{-0.5}]{lua}     
function closestream()
      os.remove(tex.jobname..".ekd")
      os.rename(tex.jobname.."_tmp.ekd", tex.jobname..".ekd")
      return true
end

function remove()
   os.remove(tex.jobname..".ekd")
end

function isintable(table, value)
   for _, v in pairs(table) do
      if v == value then return true end
   end
   return false
end

function appin(str, nl)
      local f = io.open(tex.jobname.."_tmp.ekd", "a+")
      if nl == "yes" then
	 f:write(str, "\n")
      else
	 f:write(str)
      end
      f:close()
      return true
end

function appout()
   local file = io.open(tex.jobname..".ekd", "r")
   if file ~= nil then io.close(file)
      f = assert(io.open(tex.jobname..".ekd", "r"))
      t = f:read("*a")
      local output = {}
      for i in string.gmatch(t, "<"..tex.count[0]..">.-</"..tex.count[0]..">")
      do
	 table.insert(output, i)
      end
      f:close()
      str = table.concat(output, "\n")
      str = string.gsub(str, "</"..tex.count[0]..">", " ")
      str = string.gsub(str, "<"..tex.count[0]..">", "")
      return str
   else end
end

function testapparatus()
   local file = io.open(tex.jobname..".ekd", "r")
   if file ~= nil then
      local t = file:read("*a")
      if string.find(t, "<"..tex.count[0]..">") then
      return "\\booltrue{isapp}" else return "\\boolfalse{isapp}" end
   else return "\\boolfalse{isapp}" end
   file:close()
end

md5items = {}
local salt = 0

function mdvappend(str)
   i = md5.sumhexa(str)
   if not isintable(md5items, i) then
      table.insert(md5items, i)
   else
      i = i..salt
      table.insert(md5items, i)
      salt = salt + 1
   end
   return "\\linelabel{"..i.."}\\append{\\textbf{\\getrefnumber{"..i.."}} "..str.."}"
end

--[[ -- of no use
function writemdv(str)
   str = md5.sumhexa(str)
   local f = io.open(tex.jobname.."_tmp.ekd", "a+")
   f:write("<md5>", str, "</md5>", "\n")
   f:close()
   return true
end
--]]
% \end{minted}
% \iffalse
%</lua>
% \fi
\endinput
