summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/stex/workaddress/workaddress.sty.ltxml
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/latex/stex/workaddress/workaddress.sty.ltxml')
-rw-r--r--Master/texmf-dist/tex/latex/stex/workaddress/workaddress.sty.ltxml63
1 files changed, 0 insertions, 63 deletions
diff --git a/Master/texmf-dist/tex/latex/stex/workaddress/workaddress.sty.ltxml b/Master/texmf-dist/tex/latex/stex/workaddress/workaddress.sty.ltxml
deleted file mode 100644
index be79b087423..00000000000
--- a/Master/texmf-dist/tex/latex/stex/workaddress/workaddress.sty.ltxml
+++ /dev/null
@@ -1,63 +0,0 @@
-# -*- CPERL -*-
-package LaTeXML::Package::Pool;
-use strict;
-use LaTeXML::Global;
-use LaTeXML::Package;
-RequirePackage('sref');
- sub getKeyValue_noDelim {
- my ($keyval,$key)=@_;
- my $valuelist = $keyval && ToString($keyval->getValue($key));
- $valuelist =~ s/^{(.*)}$/$1/g if $valuelist;
- return $valuelist;
-}
-sub ExportMetadata {
- my $keys = shift;
- my($id, $email,$affill,$address,$url,$name)=$keys
- && map(getKeyValue_noDelim($keys,$_),qw(id email affiliation address url name));
- if ($id) {
- AssignValue('WA_'.$id.'_email',$email,'global') if $email;
- AssignValue('WA_'.$id.'_affiliation',$affill,'global') if $affill;
- AssignValue('WA_'.$id.'_address',$email,'global') if $email;
- AssignValue('WA_'.$id.'_url',$url,'global') if $url;
- AssignValue('WA_'.$id.'_name',$name,'global') if $name;
- } else {print STDERR "Warning: key 'id' undefined in \\WAperson\n"};
- return;}#$
-DefKeyVal('wa@person','id','Semiverbatim');
-DefKeyVal('wa@person','birthdate','Semiverbatim');
-DefKeyVal('wa@person','email','Semiverbatim');
-DefKeyVal('wa@person','url','Semiverbatim');
-DefKeyVal('wa@person','affiliation','Semiverbatim');
-DefKeyVal('wa@person','personaltitle','Semiverbatim');
-DefKeyVal('wa@person','academictitle','Semiverbatim');
-DefKeyVal('wa@person','department','Semiverbatim');
-DefKeyVal('wa@person','workaddress','Semiverbatim');
-DefKeyVal('wa@person','privaddress','Semiverbatim');
-DefKeyVal('wa@person','worktel','Semiverbatim');
-DefKeyVal('wa@person','privtel','Semiverbatim');
-DefKeyVal('wa@person','workfax','Semiverbatim');
-DefKeyVal('wa@person','privfax','Semiverbatim');
-DefKeyVal('wa@person','worktelfax','Semiverbatim');
-DefKeyVal('wa@person','privtelfax','Semiverbatim');
-
-DefConstructor('\WAperson OptionalKeyVals:wa@person {}','',
-afterDigest=>sub {
- my ($stomach,$whatsit)=@_;
- my $keys=$whatsit->getArg(1);
- my $name=ToString($whatsit->getArg(2));
- $keys->setValue('name',$name);
- ExportMetadata($keys);
- return;
-});#$
-DefKeyVal('wa@institution','id','Semiverbatim');
-DefKeyVal('wa@institution','url','Semiverbatim');
-DefKeyVal('wa@institution','partof','Semiverbatim');
-DefConstructor('\WAinstitution OptionalKeyVals:wa@institution {}','',
-afterDigest=>sub {
- my ($stomach,$whatsit)=@_;
- my $keys=$whatsit->getArg(1);
- my $name=ToString($whatsit->getArg(2));
- $keys->setValue('name',$name);
- ExportMetadata($keys);
- return;
-});#$
-1;