summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2018-02-11 23:11:41 +0000
committerKarl Berry <karl@freefriends.org>2018-02-11 23:11:41 +0000
commit4545b881bc1c7f2ebd05eb1a8b858ce1c49c7a12 (patch)
tree7b84d93702016bdf08e904d38419add1c0bd12e8
parentb9de7de1b0e84ce3e973659cb80d728685e83408 (diff)
semantic elements, tex4ht r373
git-svn-id: svn://tug.org/texlive/trunk@46603 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Master/texmf-dist/tex/generic/tex4ht/tex4ht.sty40
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