restore stex (ca. 28jan12)

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

2 files changed, 319 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/stex/omtext/omtext.sty b/Master/texmf-dist/tex/latex/stex/omtext/omtext.sty
new file mode 100644
index 00000000000..d57be46a147
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/stex/omtext/omtext.sty
@@ -0,0 +1,96 @@
+%%
+%% This is file `omtext.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% omtext.dtx  (with options: `package')
+%% 
+\NeedsTeXFormat{LaTeX2e}[1999/12/01]
+\ProvidesPackage{omtext}[2012/01/28 v1.0 OMDoc Text Fragments]
+\DeclareOption{showmeta}{\PassOptionsToPackage{\CurrentOption}{metakeys}}
+\newif\ifindex\indextrue
+\DeclareOption{noindex}{\indexfalse}
+\ProcessOptions
+\ifindex\makeindex\fi
+\RequirePackage{sref}
+\RequirePackage{comment}
+\srefaddidkey{omtext}
+\addmetakey[]{omtext}{functions}
+\addmetakey*{omtext}{display}
+\addmetakey{omtext}{for}
+\addmetakey{omtext}{from}
+\addmetakey{omtext}{type}
+\addmetakey*{omtext}{title}
+\addmetakey*{omtext}{start}
+\addmetakey{omtext}{theory}
+\addmetakey{omtext}{continues}
+\addmetakey{omtext}{verbalizes}
+\addmetakey{omtext}{subject}
+\def\st@flow{flow}
+\def\omtext@pre@skip{\smallskip}
+\def\omtext@post@skip{}
+\providecommand{\stDMemph}[1]{\textbf{#1}}
+\newenvironment{omtext}[1][]{\bgroup\metasetkeys{omtext}{#1}\sref@label@id{this paragraph}%
+\def\lec##1{\@lec{##1}}
+\ifx\omtext@display\st@flow\else\omtext@pre@skip\par\noindent%
+\ifx\omtext@title\@empty\else\stDMemph{\omtext@title}: \fi\fi\ignorespaces}
+{\egroup\omtext@post@skip}
+\srefaddidkey{phrase}
+\addmetakey{phrase}{style}
+\addmetakey{phrase}{class}
+\addmetakey{phrase}{index}
+\addmetakey{phrase}{verbalizes}
+\addmetakey{phrase}{type}
+\newenvironment{phrase}[1][]{\metasetkeys{phrase}{#1}}{}
+\def\nlex#1{\green{\sl{#1}}}
+\def\nlcex#1{*\green{\sl{#1}}}
+\def\@sinlinequote#1{``{\sl{#1}}''}
+\def\@@sinlinequote#1#2{\@sinlinequote{#2}~#1}
+\newcommand{\sinlinequote}[2][]
+{\def\@opt{#1}\ifx\@opt\@empty\@sinlinequote{#2}\else\@@sinlinequote\@opt{#2}\fi}
+\def\begin@sblockquote{\begin{quote}\sl}
+\def\end@sblockquote{\end{quote}}
+\def\begin@@sblockquote#1{\begin@sblockquote}
+\def\end@@sblockquote#1{\def\@@lec##1{{\rm ##1}}\@lec{#1}\end@sblockquote}
+\newenvironment{sblockquote}[1][]
+  {\def\@opt{#1}\ifx\@opt\@empty\begin@sblockquote\else\begin@@sblockquote\@opt\fi}
+  {\ifx\@opt\@empty\end@sblockquote\else\end@@sblockquote\@opt\fi}
+\providecommand{\@@lec}[1]{(#1)}
+\def\@lec#1{\strut\hfil\strut\null\nobreak\hfill\hbox{\@@lec{#1}}}
+\def\lec#1{\@lec{#1}\par}
+\newcommand\mygraphics[2][]{\includegraphics[#1]{#2}}
+\newcommand\mycgraphics[2][]{\begin{center}\includegraphics[#1]{#2}\end{center}}
+\newcommand\mybgraphics[2][]{\fbox{\includegraphics[#1]{#2}\end{center}}}
+\newcommand{\omdoc@index}[2][]{\ifindex\def\@test{#1}%%
+\ifx\@test\@empty\def\@@idx{#2}\else\def\@@idx{#1}\fi%
+\@ifundefined{mod@id}{\index{\@@idx @#2}}%
+{\index{\@@idx @{\importmodule{\mod@id} #2}}\fi}}
+\newcommand{\indexalt}[3][]{{#2}\omdoc@index[#1]{#3}}               % word in text and index
+\newcommand{\indextoo}[2][]{{#2}\omdoc@index[#1]{#2}}               % word in text and index
+\newcommand{\@twin}[3][]{\ifindex\def\@test{#1}%%
+\ifx\@test\@empty\def\@@idx{#2}\else\def\@@idx{#1}\fi%
+\@ifundefined{mod@id}
+{\index{\@@idx @#2!#3}%
+\ifx\@test\@empty\def\@@idx{#3}\else\def\@@idx{#1}\fi%
+\index{\@@idx @#2!#3}}%
+{\index{\@@idx @{\importmodule{\mod@id} #2}!{\importmodule{\mod@id} #3}}%
+\ifx\@test\@empty\def\@@idx{#3}\else\def\@@idx{#1}\fi%
+\index{\@@idx @{\importmodule{\mod@id} #3}!{\importmodule{\mod@id} #2}}\fi}}
+\newcommand{\twinalt}[4][]{#2\@twin[#1]{#3}{#4}}
+\newcommand{\twintoo}[3][]{{#2 #3}\@twin[#1]{#2}{#3}}             % and use the word compound too
+\newcommand{\@atwin}[4][]{\ifindex\def\@test{#1}%%
+\ifx\@test\@empty\def\@@idx{#2}\else\def\@@idx{#1}\fi%
+\@ifundefined{mod@id}%
+{\index{\@@idx @#2!#3!#4}%
+\ifx\@test\@empty\def\@@idx{#3}\else\def\@@idx{#1}\fi
+\index{\@@idx @#3!#2 (#4)}}%
+{\index{\@@idx @{\importmodule{\mod@id} #2}!{\importmodule{\mod@id} #3}!{\importmodule{\mod@id} #4}}
+\ifx\@test\@empty\def\@@idx{#3}\else\def\@@idx{#1}\fi%
+\index{\@@idx @{\importmodule{\mod@id} #3}!{\importmodule{\mod@id} #2} ({\importmodule{\mod@id} #4})}\fi}}
+\newcommand{\atwinalt}[5][]{#2\@atwin[#1]{#3}{#4}{#4}}
+\newcommand{\atwintoo}[4][]{{#2 #3 #4}\@atwin[#1]{#2}{#3}{#4}}         % and use it too
+\def\omspace#1{\hspace*{#1}}
+\endinput
+%%
+%% End of file `omtext.sty'.
diff --git a/Master/texmf-dist/tex/latex/stex/omtext/omtext.sty.ltxml b/Master/texmf-dist/tex/latex/stex/omtext/omtext.sty.ltxml
new file mode 100644
index 00000000000..7d781b74e53
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/stex/omtext/omtext.sty.ltxml
@@ -0,0 +1,223 @@
+package LaTeXML::Package::Pool;
+use strict;
+use LaTeXML::Package;
+use Cwd qw(cwd abs_path);
+DeclareOption('noindex','');
+RequirePackage('sref');
+Tag('omdoc:metadata',afterOpen=>\&numberIt,afterClose=>\&locateIt,autoClose=>1,autoOpen=>1);
+sub declareFunctions{
+  my ($stomach,$whatsit) = @_;
+  my $keyval = $whatsit->getArg(1);
+  my $funval = KeyVal($keyval,'functions') if KeyVal($keyval,'functions');
+  my @funsymbs = ParseKeyValList($funval);
+  #Unread the function declarations at the Gullet
+  foreach (@funsymbs) {
+    $stomach->getGullet->unread(Tokenize('\lxDeclare[role=FUNCTION]{$'.$_.'$}')->unlist);
+  }
+  return;
+}
+Tag('omdoc:CMP', afterOpen => sub {AssignValue('_LastSeenCMP', $_[1], 'global');return;});#$
+DefParameterType('IfBeginFollows', sub {
+   my ($gullet) = @_;
+   $gullet->skipSpaces;
+                   my $next = $gullet->readToken;
+                   $gullet->unread($next);
+                   $next = ToString($next);
+                   #Hm, falling back to regexp handling, the $gullet->ifNext approach didn't work properly
+                   return 1 unless ($next=~/^\\begin/);
+                   return;
+                 },
+ reversion=>'', optional=>1);
+DefKeyVal('omtext','functions','Undigested');
+DefKeyVal('omtext','display','Semiverbatim');
+DefKeyVal('omtext','for','Semiverbatim');
+DefKeyVal('omtext','from','Semiverbatim');
+DefKeyVal('omtext','type','Semiverbatim');
+DefKeyVal('omtext','title','Plain'); #Math mode in titles.
+DefKeyVal('omtext','start','Plain'); #Math mode in start phrases
+DefKeyVal('omtext','theory','Semiverbatim');
+DefKeyVal('omtext','continues','Semiverbatim');
+DefKeyVal('omtext','verbalizes','Semiverbatim');
+DefEnvironment('{omtext} OptionalKeyVals:omtext',
+  "<omdoc:omtext "
+     . "?&KeyVal(#1,'id')(xml:id='&KeyVal(#1,'id')')() "
+     . "?&KeyVal(#1,'type')(type='&KeyVal(#1,'type')')() "
+     . "?&KeyVal(#1,'for')(for='&KeyVal(#1,'for')')() "
+             . "?&KeyVal(#1,'from')(from='&KeyVal(#1,'from')')()>"
+  . "?&KeyVal(#1,'title')(<dc:title>&KeyVal(#1,'title')</dc:title>)()"
+  . "<omdoc:CMP>"
+  .     "?&KeyVal(#1,'start')(<ltx:text class='startemph'>&KeyVal(#1,'start')</ltx:text>)()"
+                  .     "#body"
+                 ."</omdoc:omtext>");
+sub DefCMPEnvironment {
+  my ($proto, $replacement, %options) = @_;
+  my @before = $options{beforeDigest} ? ($options{beforeDigest}) : ();
+  push(@before, \&useCMPItemizations);
+  $options{beforeDigest} = \@before;
+  my @after = $options{afterDigestBegin} ? ($options{afterDigestBegin}) : ();
+  push(@after, \&declareFunctions);
+  $options{afterDigestBegin} = \@after;
+  DefEnvironment($proto, $replacement, %options);
+}
+sub DefCMPConstructor {
+  my ($proto, $replacement, %options) = @_;
+  my @before = $options{beforeDigest} ? ($options{beforeDigest}) : ();
+  push(@before, \&useCMPItemizations);
+  $options{beforeDigest} = \@before;
+  DefConstructor($proto, $replacement, %options);
+}#$
+DefKeyVal('phrase','id','Semiverbatim');
+DefKeyVal('phrase','style','Semiverbatim');
+DefKeyVal('phrase','class','Semiverbatim');
+DefKeyVal('phrase','index','Semiverbatim');
+DefKeyVal('phrase','verbalizes','Semiverbatim');
+DefKeyVal('phrase','type','Semiverbatim');
+DefConstructor('\phrase OptionalKeyVals:phrase {}',
+       "<ltx:text %&KeyVals(#1)>#2</ltx:text>");
+DefConstructor('\nlex{}',
+  "<ltx:text class='nlex'>#1</ltx:text>");
+DefConstructor('\nlcex{}',
+  "<ltx:text type='nlcex'>#1</ltx:text>");
+DefConstructor('\sinlinequote [] {}',
+              "<ltx:quote type='inlinequote'>"
+               . "?#1(<dc:source>#1</dc:source>\n)()"
+               . "#2"
+            . "</ltx:quote>");
+DefEnvironment('{sblockquote} []',
+               "?#1(<omdoc:omtext type='quote'>"
+               .     "<dc:source>#1</dc:source>"
+               .     "#body"
+             . "    </omdoc:omtext>)"
+            .    "(<ltx:quote>#body</ltx:quote>)");
+DefConstructor('\lec{}',
+   "\n<omdoc:note type='line-end-comment'>#1</omdoc:note>");
+RawTeX('
+\newcommand\mygraphics[2][]{\includegraphics[#1]{#2}}
+\newcommand\mycgraphics[2][]{\begin{center}\includegraphics[#1]{#2}\end{center}}
+\newcommand\mybgraphics[2][]{\fbox{\includegraphics[#1]{#2}\end{center}}}
+');
+DefConstructor('\indextoo[]{}',
+       "<omdoc:idx>"
+      .  "<omdoc:idt>#2</omdoc:idt>"
+      .  "<omdoc:ide ?#1(sort-by='#1')()>"
+      .    "<omdoc:idp>#2</omdoc:idp>"
+      .  "</omdoc:ide>"
+      ."</omdoc:idx>");
+DefConstructor('\indexalt[]{}{}',
+       "<omdoc:idx>"
+      .  "<omdoc:idt>#2</omdoc:idt>"
+      .  "<omdoc:ide ?#1(sort-by='#1')()>"
+      .    "<omdoc:idp>#3</omdoc:idp>"
+      .  "</omdoc:ide>"
+      ."</omdoc:idx>");
+DefConstructor('\twintoo[]{}{}',
+       "<omdoc:idx>"
+      .  "<omdoc:idt>#2 #3</omdoc:idt>"
+      .  "<omdoc:ide ?#1(sort-by='#1')()>"
+      .    "<omdoc:idp>#2</omdoc:idp>"
+      .    "<omdoc:idp>#3</omdoc:idp>"
+      .  "</omdoc:ide>"
+      ."</omdoc:idx>");
+DefConstructor('\twinalt[]{}{}{}',
+       "<omdoc:idx>"
+      .  "<omdoc:idt>#2</omdoc:idt>"
+      .  "<omdoc:ide ?#1(sort-by='#1')()>"
+      .    "<omdoc:idp>#2</omdoc:idp>"
+      .    "<omdoc:idp>#3</omdoc:idp>"
+      .  "</omdoc:ide>"
+      ."</omdoc:idx>");
+DefConstructor('\atwintoo[]{}{}{}',
+       "<omdoc:idx>"
+      .  "<omdoc:idt>#2 #3</omdoc:idt>"
+      .  "<omdoc:ide ?#1(sort-by='#1')()>"
+      .    "<omdoc:idp>#2</omdoc:idp>"
+      .    "<omdoc:idp>#3</omdoc:idp>"
+      .    "<omdoc:idp>#4</omdoc:idp>"
+      .  "</omdoc:ide>"
+      ."</omdoc:idx>");
+
+DefConstructor('\atwinalt[]{}{}{}{}',
+       "<omdoc:idx>"
+      .  "<omdoc:idt>#2</omdoc:idt>"
+      .  "<omdoc:ide ?#1(sort-by='#1')()>"
+      .    "<omdoc:idp>#2</omdoc:idp>"
+      .    "<omdoc:idp>#3</omdoc:idp>"
+      .    "<omdoc:idp>#4</omdoc:idp>"
+      .  "</omdoc:ide>"
+      ."</omdoc:idx>");
+# needed? DefConstructor('\par',sub { $_[0]->maybeCloseElement('ltx:p'); },alias=>"\\par\n");
+Tag('omdoc:CMP', autoClose=>1, autoOpen=>1);
+Tag('omdoc:omtext', autoClose=>1, autoOpen=>1);
+DefConstructor('\footnote[]{}',
+       "<omdoc:note type='foot' ?#1(mark='#1')>#2</omdoc:note>");
+DefConstructor('\footnotemark[]',"");
+DefConstructor('\footnotetext[]{}',
+       "<omdoc:note class='foot' ?#1(mark='#1')>#2</omdoc:note>");
+Tag('omdoc:omtext',afterOpen=>\&numberIt,afterClose=>\&locateIt);
+Tag('omdoc:omgroup',afterOpen=>\&numberIt,afterClose=>\&locateIt);
+Tag('omdoc:CMP',afterOpen=>\&numberIt,afterClose=>\&locateIt);
+Tag('omdoc:idx',afterOpen=>\&numberIt,afterClose=>\&locateIt);
+Tag('omdoc:ide',afterOpen=>\&numberIt,afterClose=>\&locateIt);
+Tag('omdoc:idt',afterOpen=>\&numberIt,afterClose=>\&locateIt);
+Tag('omdoc:note',afterOpen=>\&numberIt,afterClose=>\&locateIt);
+Tag('omdoc:metadata',afterOpen=>\&numberIt,afterClose=>\&locateIt);
+Tag('omdoc:meta',afterOpen=>\&numberIt,afterClose=>\&locateIt);
+Tag('omdoc:resource',afterOpen=>\&numberIt,afterClose=>\&locateIt);
+Tag('ltx:p',afterOpen=>\&numberIt,afterClose=>\&locateIt);
+Tag('ltx:tabular',afterOpen=>\&numberIt,afterClose=>\&locateIt);
+Tag('ltx:thead',afterOpen=>\&numberIt,afterClose=>\&locateIt);
+Tag('ltx:td',afterOpen=>\&numberIt,afterClose=>\&locateIt);
+Tag('ltx:tr',afterOpen=>\&numberIt,afterClose=>\&locateIt);
+Tag('ltx:caption',afterOpen=>\&numberIt,afterClose=>\&locateIt);
+sub numberIt {
+  my($document,$node,$whatsit)=@_;
+  my(@parents)=$document->findnodes('ancestor::*[@xml:id]',$node);
+  my $prefix= (@parents ? $parents[$#parents]->getAttribute('xml:id')."." : '');
+  my(@siblings)=$document->findnodes('preceding-sibling::*[@xml:id]',$node);
+  my $n = scalar(@siblings)+1;
+  my $id = ($node -> getAttribute('xml:id'));
+  my $localname = $node->localname;
+  $node->setAttribute('xml:id'=>$prefix."$localname$n") unless $id;
+  my $about = $node -> getAttribute('about');
+  $node->setAttribute('about'=>'#'.$node->getAttribute('xml:id')) unless $about;
+  #Also, provide locators:
+  my $locator = $whatsit->getProperty('locator');
+  #Need to inherit locators if missing:
+  $locator = (@parents ? $parents[$#parents]->getAttribute('stex:srcref') : '') unless $locator;
+  if ($locator) {
+    # There is a BUG with namespace declarations (or am I using the API wrongly??) which
+    # does not recognize the stex namespace. Hence, I need to redeclare it...
+    my $parent=$document->getNode;
+    if(! defined $parent->lookupNamespacePrefix("http://kwarc.info/ns/sTeX"))
+      { # namespace not already declared?
+        $document->getDocument->documentElement->setNamespace("http://kwarc.info/ns/sTeX","stex",0);
+      }
+    $node->setAttribute('stex:srcref'=>$locator);
+  }return;}
+
+sub locateIt {
+  my($document,$node,$whatsit)=@_;
+  #Estimate trailer locator:
+  my $trailer = $whatsit->getProperty('trailer');
+  return unless $trailer; #Nothing we can do if the trailer isn't defined
+  $trailer = $trailer->getLocator;
+  return unless ($trailer &&  $trailer!~/^\s*$/); #Useless if broken
+  my $locator = $node->getAttribute('stex:srcref');
+  if ($locator) {
+    $locator =~ /^(.+from=\d+;\d+)/;
+    my $from = $1;
+    $trailer =~ /(,to=\d+;\d+.+)$/;
+    my $to = $1;
+    $locator = $from.$to;
+  } else {
+    $locator = $trailer; #This should never happen
+  }
+  my $parent = $document->getNode;
+  if(! defined $parent->lookupNamespacePrefix("http://kwarc.info/ns/sTeX"))
+    { # namespace not already declared?
+      $document->getDocument->documentElement->setNamespace("http://kwarc.info/ns/sTeX","stex",0);
+    }
+  $node->setAttribute('stex:srcref' => $locator);
+  return;
+}
+1;