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