File: floatfig.perl

package info (click to toggle)
latex2html 2008-debian1-7
  • links: PTS
  • area: main
  • in suites: wheezy
  • size: 11,176 kB
  • sloc: perl: 30,941; makefile: 429; sh: 155
file content (34 lines) | stat: -rw-r--r-- 833 bytes parent folder | download | duplicates (15)
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
# floatfig.perl by Herbert Swan <dprhws.edp.Arco.com>  12-22-95
#
# Extension to LaTeX2HTML supply support for the "floatfig"
# LaTeX style, as described in "The LaTeX Companion," by
# Goossens, Mittelbach and Samarin (ISBN 0-201-54199-8). 
#
# Change Log:
# ===========

package main;
#
#  Make the floatingfigure environment be translated as
#  an ordinary figure, ignoring the mandatory width.
#
#

sub do_env_floatingfigure {
    local($_) = @_;

    $contents =~ s/$next_pair_rx//o;
    &process_environment("figure", $global{'max_id'}++);
    }

sub do_env_floatingfigure { &do_env_figure(@_) }

&ignore_commands( <<_IGNORED_CMDS_);
initfloatingfigs
_IGNORED_CMDS_

&process_commands_in_tex (<<_RAW_ARG_CMDS_);
floatingfigure # <<endfloatingfigure>>
_RAW_ARG_CMDS_

1;                              # This must be the last line