diff options
Diffstat (limited to 'doc')
-rw-r--r-- | doc/tools/texi2www/ChangeLog | 4 | ||||
-rwxr-xr-x | doc/tools/texi2www/texi2www | 10 |
2 files changed, 14 insertions, 0 deletions
diff --git a/doc/tools/texi2www/ChangeLog b/doc/tools/texi2www/ChangeLog index 4542b8dc44..3154785d01 100644 --- a/doc/tools/texi2www/ChangeLog +++ b/doc/tools/texi2www/ChangeLog @@ -1,3 +1,7 @@ +2006-01-20 Ralf Corsepius <ralf.corsepius@rtems.org> + + * texi2www: Add provisory support for @image. + 2003-12-12 Ralf Corsepius <corsepiu@faw.uni-ulm.de> * Makefile.am: Cosmetics. 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"; |