summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/doipubmed/latex2html/doipubmed.perl
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/doipubmed/latex2html/doipubmed.perl')
-rw-r--r--macros/latex/contrib/doipubmed/latex2html/doipubmed.perl79
1 files changed, 79 insertions, 0 deletions
diff --git a/macros/latex/contrib/doipubmed/latex2html/doipubmed.perl b/macros/latex/contrib/doipubmed/latex2html/doipubmed.perl
new file mode 100644
index 0000000000..64a14fd081
--- /dev/null
+++ b/macros/latex/contrib/doipubmed/latex2html/doipubmed.perl
@@ -0,0 +1,79 @@
+#!/usr/bin/perl
+
+# File : doipub.perl
+# Author : Nicola Talbot
+# Date : 9th September 2005
+# Last Modified : 20 Aug 2007
+# Version : 1.01
+#
+# This is a LaTeX2HTML style implementing the doipubmed package, and
+# is distributed as part of that package.
+# Copyright 2007 Nicola L.C. Talbot
+# This work may be distributed and/or modified under the
+# conditions of the LaTeX Project Public License, either version 1.3
+# of this license of (at your option) any later version.
+# The latest version of this license is in
+# http://www.latex-project.org/lppl.txt
+# and version 1.3 or later is part of all distributions of LaTeX
+# version 2005/12/01 or later.
+#
+# This work has the LPPL maintenance status `maintained'.
+#
+# The Current Maintainer of this work is Nicola Talbot.
+
+sub do_cmd_doitext{
+ local($_) = @_;
+ local($doi);
+
+ s/$next_pair_pr_rx/$doi=$2;''/eo;
+ join('', "doi", $_);
+}
+
+sub do_cmd_pubmedtext{
+ local($_) = @_;
+ local($pubmed);
+
+ s/$next_pair_pr_rx/$pubmed=$2;''/eo;
+ join('', "PubMed", $_);
+}
+
+sub do_cmd_doi{
+ local($_) = @_;
+ local($doi,$doitext,$br_id);
+
+ s/$next_pair_pr_rx/$br_id=$1;$doi=$2;''/eo;
+
+ $doitext = &translate_commands("\\doitext$OP$br_id$CP$doi$OP$br_id$CP");
+
+ $doi=~s/#/${percent_mark}23/g;
+ join('',
+ &make_href("http://dx.doi.org/$doi", $doitext),
+ $_);
+}
+
+sub do_cmd_pubmed{
+ local($_) = @_;
+ local($pubmed,$pubmedtext,$br_id);
+
+ s/$next_pair_pr_rx/$br_id=$1;$pubmed=$2;''/eo;
+
+ $pubmedtext = &translate_commands("\\pubmedtext$OP$br_id$CP$pubmed$OP$br_id$CP");
+
+ join('',
+ &make_href("http://www.ncbi.nlm.nih.gov/entrez/query.fcgi?cmd=Retrieve&db=PubMed&list_uids=$pubmed&dopt=Abstract",
+ $pubmedtext),
+ $_);
+}
+
+sub do_cmd_citeurl{
+ local($_) = @_;
+ local($url);
+
+ s/$next_pair_pr_rx/$url=$2;''/eo;
+
+ join('', '<',
+ &make_href($url, $url), '>',
+ $_);
+}
+
+1;