#!/usr/bin/perl -pi

#
# Add an image. This is better supported in later versions of SGML tools,
# but there were other problems with it, so I've stuck to 0.99.
# Stephen Wynne <stevemw@place.org>, June 1998
#
# Assumes a one-line \begin{document} statement.
#
# Thanks to Amit Patel at Stanford for help with the TeX :-)
#
s/^(\\documentstyle\[linuxdoc-sgml,isolatin,qwertz)/\1,graphics/;
if (/^(\\begin{document})$/) {
  my($save) = $1;
  s/.*\n//;			# Risky!
  print $save, "\n";
  print <<END
%%%%%%%%% BEGIN SCRIPT-HACKED SECTION
%
% See page 131 of Leslie Lamport's LaTeX book.
%
\\begin{figure}[ht]
\\includegraphics{linuxjava.eps}
\\end{figure}
%
%%%%%%%%% END SCRIPT-HACKED SECTION
END
  ;
}