2006-01-20 Ralf Corsepius <ralf.corsepius@rtems.org>

	* texi2www: Add provisory support for @image.

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
 		&copy_to_destdir($atarg);
 		$atarg =~ s|.*/||;
 		$x = "<IMG SRC=\"$atarg\">";
+	    } elsif ($atcmd eq 'image') {
+	        my ($f,$w,$h,$a) = split(',',$atarg);
+		$f .= '.png';
+		&copy_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";