diff options
Diffstat (limited to 'doc/tools/texi2www/texi2www')
-rwxr-xr-x | doc/tools/texi2www/texi2www | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/doc/tools/texi2www/texi2www b/doc/tools/texi2www/texi2www index 1a294d24bb..6f36d03d1b 100755 --- a/doc/tools/texi2www/texi2www +++ b/doc/tools/texi2www/texi2www @@ -295,6 +295,16 @@ sub get_more_stuff_to_parse ©_to_destdir($atarg); $atarg =~ s|.*/||; $x = "<IMG SRC=\"$atarg\">"; + } elsif ($atcmd eq 'image') { + my ($f,$w,$h,$a) = split(',',$atarg); + $f .= '.png'; + ©_to_destdir($f); + $x = "<IMG ALIGN=MIDDLE SRC=\"$f\" ALT=\"$a\""; + if ( $w =~ /([0-9]+)(in)/ ) { + my $scale = 500.0/4.0; # 500dots/4in + $x .= " WIDTH=" . ( $scale * $1 ); + } + $x .= ">" } else { print "**WARNING** Don't know how to expand " . "\@$atcmd\{$atarg\}\n"; |