diff options
author | Karl Berry <karl@freefriends.org> | 2006-01-09 00:49:07 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-01-09 00:49:07 +0000 |
commit | 007f67a693e4d031fd3d792df8e4d5f43e2cb2e7 (patch) | |
tree | 90d17e00e572ecb1e24764b6f29c80e098b08d29 /Master/texmf-dist/doc/latex/doipubmed/doipubmed.perl | |
parent | 950209b26f70aa87ed07c54f82a95b6f03b7c3a0 (diff) |
doc/latex
git-svn-id: svn://tug.org/texlive/trunk@84 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/latex/doipubmed/doipubmed.perl')
-rw-r--r-- | Master/texmf-dist/doc/latex/doipubmed/doipubmed.perl | 62 |
1 files changed, 62 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/doipubmed/doipubmed.perl b/Master/texmf-dist/doc/latex/doipubmed/doipubmed.perl new file mode 100644 index 00000000000..614414481ab --- /dev/null +++ b/Master/texmf-dist/doc/latex/doipubmed/doipubmed.perl @@ -0,0 +1,62 @@ +#!/usr/bin/perl + +# File : doipub.perl +# Author : Nicola Talbot +# Date : 9th September 2005 +# Description : LaTeX2HTML style file implementing doipubmed package + +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 = &do_cmd_doitext("$OP$br_id$CP$doi$OP$br_id$CP"); + + 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 = &do_cmd_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; |