1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
# wrapfig.perl by Herbert Swan <dprhws.edp.Arco.com> 12-22-95
#
# Extension to LaTeX2HTML supply support for the "wrapfig"
# LaTeX style, as described in "The LaTeX Companion," by
# Goossens, Mittelbach and Samarin (ISBN 0-201-54199-8).
#
# Change Log:
# ===========
package main;
#
# Make the wrapfigure environment be translated as
# an ordinary figure, ignoring its arguments.
#
#
sub do_env_wrapfigure{
local($_) = @_;
s/$optional_arg_rx//o; # ditch [nlines]
s/$next_pair_rx//o; # ditch {placement}
$wrapfigure_width = &missing_braces unless ( # save {width}
(s/$next_pair_pr_rx/$wrapfigure_width=$2;''/eo)
||(s/$next_pair_rx/$wrapfigure_width=$2;''/eo));
# &process_environment("figure", $global{'max_id'}++);
$_ = &do_env_figure($_);
$wrapfigure_width = ''; # clear width
$_;
}
&process_commands_in_tex (<<_RAW_ARG_CMDS_);
wrapfigure
_RAW_ARG_CMDS_
1; # This must be the last line
|
