texlive[46603] Master/texmf-dist/tex/generic/tex4ht/tex4ht.sty:

[commits+karl at tug.org]

Revision: 46603
          http://tug.org/svn/texlive?view=revision&revision=46603
Author:   karl
Date:     2018-02-12 00:11:41 +0100 (Mon, 12 Feb 2018)
Log Message:
-----------
semantic elements, tex4ht r373

Revision Links:
--------------
    http://tug.org/svn/texlive?view=revision&revision=373

Modified Paths:
--------------
    trunk/Master/texmf-dist/tex/generic/tex4ht/tex4ht.sty

Modified: trunk/Master/texmf-dist/tex/generic/tex4ht/tex4ht.sty
===================================================================
--- trunk/Master/texmf-dist/tex/generic/tex4ht/tex4ht.sty	2018-02-11 22:50:58 UTC (rev 46602)
+++ trunk/Master/texmf-dist/tex/generic/tex4ht/tex4ht.sty	2018-02-11 23:11:41 UTC (rev 46603)
@@ -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