1# floatfig.perl by Herbert Swan <dprhws.edp.Arco.com>  12-22-95
2#
3# Extension to LaTeX2HTML supply support for the "floatfig"
4# LaTeX style, as described in "The LaTeX Companion," by
5# Goossens, Mittelbach and Samarin (ISBN 0-201-54199-8).
6#
7# Change Log:
8# ===========
9
10package main;
11#
12#  Make the floatingfigure environment be translated as
13#  an ordinary figure, ignoring the mandatory width.
14#
15#
16
17sub do_env_floatingfigure {
18    local($_) = @_;
19
20    $contents =~ s/$next_pair_rx//o;
21    &process_environment("figure", $global{'max_id'}++);
22    }
23
24sub do_env_floatingfigure { &do_env_figure(@_) }
25
26&ignore_commands( <<_IGNORED_CMDS_);
27initfloatingfigs
28_IGNORED_CMDS_
29
30&process_commands_in_tex (<<_RAW_ARG_CMDS_);
31floatingfigure # <<endfloatingfigure>>
32_RAW_ARG_CMDS_
33
341;                              # This must be the last line
35