semantic elements, tex4ht r373

git-svn-id: svn://tug.org/texlive/trunk@46603 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 36 insertions, 4 deletions

diff --git a/Master/texmf-dist/tex/generic/tex4ht/tex4ht.sty b/Master/texmf-dist/tex/generic/tex4ht/tex4ht.sty
index c9ee5cc0380..cf9ae0c78e8 100644
--- a/Master/texmf-dist/tex/generic/tex4ht/tex4ht.sty
+++ b/Master/texmf-dist/tex/generic/tex4ht/tex4ht.sty
@@ -1,8 +1,8 @@
 \ifnum\the\catcode`\%=14\else\expandafter\edef\csname
   \string:RestoreCatcodes\endcsname{\catcode`\%\the
   \catcode`\%}\catcode`\%14\fi
-% tex4ht.sty (2016-07-18-16:08), generated from tex4ht-sty.tex
-% Copyright 2009-2016 TeX Users Group
+% tex4ht.sty (2018-02-11-15:01), generated from tex4ht-sty.tex
+% Copyright 2009-2018 TeX Users Group
 % Copyright 1996-2009 Eitan M. Gurari
 %
 % This work may be distributed and/or modified under the
@@ -20,7 +20,7 @@
 %
 % If you modify this program, changing the
 % version identification would be appreciated.
-\immediate\write-1{version 2016-07-18-16:08}
+\immediate\write-1{version 2018-02-11-15:01}
 
 
 \ifx  \Preamble\UnDef  \else
@@ -1590,7 +1590,39 @@
        use the command line option `fonts+'}%
 \fi
 
-   \:CheckOption{verify} \if:Option
+   \def\InsertTagStart#1#2{%
+  \edef\local:properties{\ifx\relax#2\relax\else\space#2\fi}
+  \HCode{<\get:tag{#1}\get:block:properties{#1}\local:properties>}%
+}
+\def\InsertTagEnd#1{\HCode{</\get:tag{#1}>}}
+
+\long\def\InlineElementStart#1#2{\InsertTagStart{#1}{#2}}
+\long\def\InlineElementEnd#1{\InsertTagEnd{#1}}
+
+\long\def\BlockElementStart#1#2{\ifvmode\IgnorePar\fi\EndP\InsertTagStart{#1}{#2}}
+\long\def\BlockElementEnd#1#2{\ifvmode\IgnorePar\fi\EndP\InsertTagEnd{#1}}
+
+% define default values for a new logical block
+\def\NewLogicalBlock#1{%
+  \SetTag{#1}{span}%
+  \expandafter\def\csname #1:properties\endcsname{}
+}
+
+\def\SetTag#1#2{\expandafter\xdef\csname #1:tagname\endcsname{#2}}
+\def\get:tag#1{\expandafter\expandafter\csname #1:tagname\endcsname}
+
+\def\SetBlockProperty#1#2#3{%
+  \expandafter\ifcsname #1:property:#2\endcsname\else%
+  \expandafter\edef\csname #1:properties\endcsname{\csname #1:properties\endcsname\space\csname #1:property:#2\endcsname }
+  \fi%
+  \expandafter\def\csname #1:property:#2\endcsname{#2="#3"}
+}
+
+\def\get:block:properties#1{%
+\expandafter\csname #1:properties\endcsname%
+}
+
+\:CheckOption{verify} \if:Option
    \let\:chk:trc\:gobble
 
 \else  \:CheckOption{verify+} \if:Option