From f52fed0bebaee743eac666aae812df40f40fae49 Mon Sep 17 00:00:00 2001
From: Ralf Corsepius <ralf.corsepius@rtems.org>
Date: Fri, 20 Jan 2006 17:00:04 +0000
Subject: 2006-01-20	Ralf Corsepius <ralf.corsepius@rtems.org>

	* texi2www: Add provisory support for @image.
---
 doc/tools/texi2www/ChangeLog |  4 ++++
 doc/tools/texi2www/texi2www  | 10 ++++++++++
 2 files changed, 14 insertions(+)

(limited to 'doc/tools')

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";
-- 
cgit v1.2.3