diff options
author | Ralf Corsepius <ralf.corsepius@rtems.org> | 2006-01-20 17:00:04 +0000 |
---|---|---|
committer | Ralf Corsepius <ralf.corsepius@rtems.org> | 2006-01-20 17:00:04 +0000 |
commit | f52fed0bebaee743eac666aae812df40f40fae49 (patch) | |
tree | 6e9c37cd2097fee4c00bdd83248c8976b7401eb6 /doc/tools/texi2www/texi2www | |
parent | 2006-01-20 Ralf Corsepius <ralf.corsepius@rtems.org> (diff) | |
download | rtems-f52fed0bebaee743eac666aae812df40f40fae49.tar.bz2 |
2006-01-20 Ralf Corsepius <ralf.corsepius@rtems.org>
* texi2www: Add provisory support for @image.
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"; |