$title

\[([^\]]*)\]

+; $blabel = "$nentry" if ($label_style == $LABEL_NUMBERED); $bibcite{$bcite} = $blabel; } close(BBLFILE); $label_style = $LABEL_DEFAULT if (! defined $label_style); $list_start = $list_start[$label_style]; $list_end = $list_end[$label_style]; if (defined($opt_t)) { #TGK: Adding link to bibtex file print HTMLFILE "BibTeX file "; print HTMLFILE "$nentry references, last updated " . &ctime(time) . "

\n"; } #print HTMLFILE "<$list_start>\n\n"; print HTMLFILE "\n\n"; #foreach $key (sort (keys(%bibcite))) { # print "$key : $bibcite{$key}\n"; #} open(BBLFILE, "<$t") || die "error opening $t: $!\n"; $nentry = 0; loop: while () { # Skip definitions at start of .bbl file. next loop if (($nentry == 0) && (m/^#/)); $nentry++; # Protect \{, \}, and \$, and then assign matching {} pairs a unique ID. s/\\\{/\002/g; s/\\\}/\003/g; s/\\\$/\004/g; { local ($c, $l, $z) = (0, 0, ()); s/([\{\}])/join("","\001",($1 eq "\{" ? $z[$l++]=$c++ : $z[--$l]),$1)/ge; } # bibtex sometimes breaks long lines by inserting "%\n". We remove # that because it might accidently break the line in the middle # of a URL. We don't need to deal with TeX comments in general # because bibtex seems to munge them up anyway, so there shouldn't # be any in the bibliography file. s/\%\n//g; # bibtex's add.period$ knows how to avoid adding extra periods # when a block already ends in a period. bib2xhtml's modifications # of bibtex's style files break that. We fix it here. s/(\.(<\/cite>|<\/a>|\')+)\./$1/g; # Adjust beginning of entry based on bibliography style. if ($label_style == $LABEL_PLAIN) { #TGK modifications # s:

()\[[^\]]*\]()

$1$2:; # s:

::; if ($opt_k) { # $1 $2 $3 s:

()\[[^\]]*\]()

$2
$1$2$3:; s:

::; } else { s:

()\[[^\]]*\]()

$1$2:; s:

::; } # Attempt to fix up empty tag, which some browsers # don't handle properly (even though it *is* legal HTML). # First try to combine a with a following )([\w]+):$1$2<\/a>:; } elsif ($label_style == $LABEL_NUMBERED) { s:(

\[)[^\]]*(\]

):$1$nentry$2:; } # Append the key name, if asked so if ($opt_k && ($label_style == $LABEL_NUMBERED || $label_style == $LABEL_DEFAULT)) { # $1 $2 $3 $4 $5 s:(

\[)([^\]]*)(\]

):$1$2$3$4 --- $2$5:; } # Attempt to fix up crossrefs. while (m/(\\(cite(label)?)(\001\d+)\{([^\001]+)\4\})/) { $old = $1; $cmd = $2; $doxref = defined($3); $bcite = $5; if (! defined $bibcite{$bcite}) { $blabel = " [" . $bcite . "]"; } elsif ($doxref) { $blabel = " [" . $bibcite{$bcite} . "]<\/a>"; } else { $blabel = " [" . $bibcite{$bcite} . "]"; } $old =~ s/(\W)/\\$1/g; s/\s*$old/$blabel/g; } # In some styles crossrefs become something like # "In Doe and Roe [Doe and Roe, 1995]." Change this to # "In [Doe and Roe, 1995]." to remove the redundancy. s/In ()([^\[]+) \[(\2)/In $1\[$2/; # Handle the latex2html commands \htmladdnormallink{text}{url} # and \htmladdnormallinkfoot{text}{url}. s/\\htmladdnormallink(foot)?(\001\d+)\{([^\001]+)\2\}(\001\d+)\{([^\001]+)\4\}/$3<\/a>/g; s/\\href(\001\d+)\{([^\001]*)\1\}(\001\d+)\{([^\001]*)\3\}/$4<\/a>/g; s/\\&/&/g; # \& -> & if ($opt_u) { utf_ent(); } else { html_ent(); } # Handle \char123 -> &123;. while (m/\\char([\'\"]?[0-9a-fA-F]+)/) { $o = $r = $1; if ($r =~ s/^\'//) { $r = oct($r); } elsif ($r =~ s/^\"//) { $r = hex($r); } s/\\char$o\s*/&#$r;/g; } s/{\\etalchar\001(\d+)\{(.)}\001\1\}/$2/g; # {\etalchar{x}} -> x s/\\par\b/

/g; s/\\url(\001\d+)\{([^\001]*)\1\}/$2<\/a>/g; #\url{text} -> text # There's no way to easily handle \rm and \textrm because # HTML has no tag to convert back to plain text. Since it's very # difficult to do the right thing, we do the wrong thing, and just # remove them. s/(\001\d+)\{\\rm\s+([^\001]*)\1\}/$2/g; # {\rm text} -> text s/\\textrm(\001\d+)\{([^\001]*)\1\}/$2/g; # \textrm{text} -> text # This doesn't create correct HTML, because HTML doesn't allow nested # character style tags. Oh well. s/(\001\d+)\{\\em\s+([^\001]*)\1\}/$2<\/em>/g; # {\em text} -> text s/(\001\d+)\{\\it\s+([^\001]*)\1\}/$2<\/i>/g; # {\it text} -> text s/(\001\d+)\{\\bf\s+([^\001]*)\1\}/$2<\/b>/g; # {\bf text} -> text s/(\001\d+)\{\\tt\s+([^\001]*)\1\}/$2<\/tt>/g; # {\tt text} -> text s/\\emph(\001\d+)\{([^\001]*)\1\}/$2<\/em>/g; # \emph{text} -> text s/\\textit(\001\d+)\{([^\001]*)\1\}/$2<\/i>/g; # \textit{text} -> text s/\\textbf(\001\d+)\{([^\001]*)\1\}/$2<\/b>/g; # \textbf{text} -> text s/\\texttt(\001\d+)\{([^\001]*)\1\}/$2<\/tt>/g;# \textit{text} -> text s/\\mathrm(\001\d+)\{([^\001]*)\1\}/$2/g; # \mathrm{text} -> text s/\\mathnormal(\001\d+)\{([^\001]*)\1\}/$2/g; # \mathnormal{text} -> text s/\\mathsf(\001\d+)\{([^\001]*)\1\}/$2/g; # \mathsf{text} -> text s/\\mathbf(\001\d+)\{([^\001]*)\1\}/$2<\/b>/g; # \mathbf{text} -> text s/\\mathcal(\001\d+)\{([^\001]*)\1\}/$2<\/i>/g;# \mathcal{text} -> text s/\\mathit(\001\d+)\{([^\001]*)\1\}/$2<\/i>/g; # \mathit{text} -> text s/\\mathtt(\001\d+)\{([^\001]*)\1\}/$2<\/tt>/g;# \mathtt{text} -> text # {\boldmath $mathstuff$} -> mathstuff # s/(\001\d+)\{\s*\\boldmath ?([^A-Za-z\{\}][^\{\}]*)\}/$1<\/b>/g; sub domath { local($t) = @_; $t =~ s/\^(\001\d+)\{\\circ\1\}/\&\#176/g; # ^{\circ}->degree $t =~ s/\^\\circ/\&\#176/g; # ^\circ->degree # $t =~ s/\^(\001\d+)\{([^\001]*)\1\}/^{$2<\/sup>/g; # ^{x} $t =~ s/\^(\001\d+)\{(.*)\1\}/^{$2<\/sup>/g; # ^{x} $t =~ s/\^(\w)/^{$1<\/sup>/g; # ^x # $t =~ s/\_(\001\d+)\{([^\001]*)\1\}/_{$2<\/sub>/g; # _{x} $t =~ s/\_(\001\d+)\{(.*)\1\}/_{$2<\/sub>/g; # _{x} $t =~ s/\_(\w)/_{$1<\/sub>/g; # _x $t; } # Handle superscripts and subscripts in inline math mode. s/(\$([^\$]+)\$)/&domath($2)/ge; # $ ... $ s/(\\$(([^\\]|\\[^\($])+)\\\))/&domath($2)/ge; # $ ... $ # Remove \mbox. s/\\mbox(\001\d+)\{([^\001]*)\1\}/$2/g; # \mbox{x} if ($opt_u) { s/([^\/\\])~/$1 /g; # ~ non-breaking space - s/\\\,/ /g; # \, thin space - s/\\ldots\b\s*/…/g; # Horizontal ellipsis } else { s/([^\/\\])~/$1 /g; # ~ non-breaking space s/\\\,/ /g; # \, thin space s/\\ldots\b/…/g; # Horizontal ellipsis } s/\\ / /g; # \ (normal space) s/\\textasciitilde\b\s*/~/g; # \textasciitilde -> ~ # Non-alphabetic macros that we keep. s/\\([\#\&\%\~\_\^\|])/$1/g; # Non-alphabetic macros that we remove. # (discretionary hyphen) # (italic correction) s/\\\W//g; # Clean up things we don't handle. # s/\\//g; # The format {\Xyz{Abc}} is interpreted by BibTeX as a single letter # whose text is given by "Abc". If we see this pattern, it is # likely that discarding the \Xyz will do the right thing. s/\001(\d+)\{\\[A-Za-z]+\001(\d+)\{([^\001]*)\001\2\}\001\1\}/$3/g; # Macro names may be meaningful, so keep them and don't run them together. s/\\([A-Za-z]+)/ $1 /g; # Remove an empty tag that bad cross-referencing # in the BibTeX file may have left us with. s+In ++; &doPaperLinks; # Get rid of { } ids, and put protected { } back. s/\001\d+[\{\}]//g; tr/\002\003\004/{}$/; print HTMLFILE $_; } close(BBLFILE); #print HTMLFILE "<$list_end>\n\n$endstring\n"; print HTMLFILE "}}}}}}

\n\n$endstring\n"; if ($updating) { while () { print HTMLFILE; } close (OHTMLFILE); } else { print HTMLFILE " \n"; print HTMLFILE "\n"; print HTMLFILE " \n"; print HTMLFILE " \n"; print HTMLFILE " \n"; print HTMLFILE " \n"; print HTMLFILE " \n"; print HTMLFILE "\n"; } close(HTMLFILE); if (defined ($htmlfile)) { #$mode &= 0777; #print "setting $htmlfile$$ to $mode\n"; #printf("mode = %lo\n", $mode); chmod($mode, "$htmlfile$$"); rename("$htmlfile$$", $htmlfile); } unlink(@tmpfiles); exit(0);