JFIF 

  
 
       	 ( %"1!%)+...383,7(-.+



-+++--++++---+-+-----+---------------+---+-++7-----       
" 

     

           
    H 
     
 !1AQaq"   2B    #R   Tbr   3cs    DS  $C   
 


            
   %

 
       
!1AQa"23     
  ?     p       Y  \?       p       Y  \?       0       [  	   i~T b
q 8O p   O O ` R    i   < Ft I   8 Df   }   6
 F y j  h    /  : c 
"Y   l>     te:q \o e 󲍷 HT4&     6        	  7 i  j|   >b  S?*       *h   r   U S炟[A a [    & j?   +EzP We  rJFt	 B  χ%#tE  z   O۫!1   ͏  % <!vB '  6  a  e`  0U[- Б4)M  YK* h  %  kÇ m - W Ls ?n  ~        l a     l  ե    r  L[   (  'V  l8  R vLvP :  N  F   >   ]  ( :@<       t  +  % Á h O J tM  >   w3
Y  牋4Ǎ   T >  = why ,        a    ѪQ|%6  A	 %: j<>ɗ   _ Cb      ݃|R  c f溪 t.С T  *Ŀ -{   czů _ ^X   miB[X d 1,  zE  &
 9g f 9 '.;  i}!    q  ٤ё    A    e"A$˝ s    
  	 # x   (l
	   3  5m!
rt`  0~'j2 (]S  kv,  l  JA   
J3E8 i :cɞ eZ   \ k (79   : X    & *  .   (  2    Hi TF  [   R  䢍mg .  <  S0    U f#V ;Ֆ P@3 o< -   .L|k   f 6@ eu | a Ɵ     >  ?cK 6 T Ɣ  sĤ ;H2 Rچ \ַ n'   # I   %     7  qT 3I  
 5I7 ! O          $Tc  [ ֳ  ';A     g
A 2Z
"i vd  .i   ) ]      & {V i  .      ?h Mt   [      V( }=ibԡ    b
 L􁥇piη_Z< z  )i wi  2h 3 = d 8 1  c   7  7 	 \ ) }	 f  pA L% c2    Qz ;T8s  q )QFM  X ±
N aF  8 !U		Z R   PV   in  -G    ˊ   z }     F }Uw # 5B {  } < D
   &  Db   M ."
   * 'V |   gll  klz[    A b E  dѻXx9 ܣ T/`  vI ݵ ˂ G  *   r|*}<  @ mĒM  .  Y |6 U j   qO
 kD   5   ;     G k \
	   = =S    S   p  Qű   ?  1ѕ Z ?h 
L l{Y*K ٛzc     + 	 - k  % E A'} >< I bp /q  voX  w,\   6Z[Xd  @֗ $ J # >'  
   <)4 ry٣| A n5  y  M 2{"}   l  WX\l   g  O  /  B f   [.P Zs  * T܈ QN      V (  *eՓ 5T    F  D [8'ҥa ڶk7a
*   'ҷ\8  \@\    q+D r m΅_ 滊Ӝ   R 9M  D l lffc+  ,      Ǥ=Œ 7    /  
         + ,u M   bm:  P { Gz[     KH ` ؊   P8Aq.C     k pj k N q  , N  - {Z    44 s   V R  m"
6? D9  T  ꋇ`4        orqК Z x4    u  f   [P ,Q  aX `P  Z    Y g A x
 6L x  * Q
ϒ h 
= ,6 #r <      , ꕀ a s '% "    B  H 3߰ $ Xn ֒ 2 Te  x  
    
 K  { t Ϋ j  Z[  7L 4V CE ]m  y  4-dz    x.* 
   b  h:   s`BT R  g⻩ j   sF  J Fl ȕXᓁ ~*j  +(  6-   G  y <ǒ . F H w(+)    z  T Fߘ  ;DmV 3 u@m  X   3B     <·  z, @ ŷd2] 8s I ޯ^ 9 u ~ A  4 M?
K]   Pl@s_ p:  ZR   JC[CS.h   ˜  ]   wR k7X k     =      ') 71 c    
` .{ p  j\ {1h{o  = U  G֌  -B m+AZX  
 H  Jm ; 䡟      i g $ Mk5 L    v   	,=f "   5  x6{ɏ ID0e v mi'     9$  *£ 9    Tԅ >JV } }$p[bԮ*[jzS*8
  T ͖ U wo$  =LT  ~     $榍q  + kFm)   i  qފ   (        #5    ﯅ X   *F#TXJ 
u JV &=i s1 3 'f  5 <=[ ޭ
 P ;   _~ģ 8r 
 w; hDT >  G 8   z   q ZcqJ   - [ܘbň  b   31 n i   ;1   
 X , q $>    Z Z 1{    + յ  T$ K]   *  tMI  Zb  iҘ}b 0  5  [5 ^ݜW   h 
 OWun  5 a2Z.G2 YL]j t 
 	 ӑ%" <    s  UZv  i  M  . V   #k  i <N      l˻{  <
[ Y  }j *    I e &gb p9 ^!   ? ^ Tzo@Q A & [    }пF Hq   {  H ?. %      9  ҉  ̥ s zW a hwօ  $m   :    | x 
 0 з$ a n            
 @k  gt 䢩 P 5 ?   m  ^  8  8    W     ,̓     V     ǎB  ÅZ    8; | 5)7a &2ٸ     ;  7" "7M d
   f5   ;" p5  3  J  G  & <{  K ֓3:   GP S ;
   n  p W)z'    #Xf2&  
    " \!Ñ9 
0 2A * M  $X
    X ,X    ' nF  lqJ X uaJ4    7 ;h"Z   ,vۋ N E( u )  a   k $ 1kmG  t >̖ ) T[)B   
xB B  T . ~ @VĶr#  *  ZND H; i 
],    p (     T.uC 4@  G  ) Cx  0 #:  F bR\(   
 f 4މF HX  ,  E    ] v ?tL vBY  6 u5 AQ 1    x H Ї ^	 KwJ ֎5 C  vܫ/B0$ k  = b ( )w A   	11 = Q  626  /`G  <} - 7KEH    Ȥmݱ     Snm = 䫚mݱ   ~  U J   B|E L y  jD $G    7 R8 ҅Ǜ	WVe#  	p Fx~ ݤF 0   K  S<6  WШ
;    ʐ \ u   ݖVN k 7o X     F   g   M~  =p,X 
   ŋ
  j .    
q Q  ZE   =6 ]   s >v  ^ \wq9r  \  kUR $ * Nq?Þ *!s  :TU_u T+ X 
   ,   BTs $؛4m椴z K]   P @ # `  =I fiV   nRm+ FPOh 0B 
 + 5c
v :P' y   V~ ӆ u kDoh$ \* %Ю=   aȼ   .- V   'ly 1 3 # E  S gV m <Hq ,sV   ߼H 􅹅M i  "   E Ø j|  VOu "f a   x   O` dHH  4K*H$ 5 
  
  CU A  sr 2    iڱ   e  _S   3  -3     cgD ڦ cX}'  J 9  ӭ 	     mO  V     I~   hh   wxl Z G 4 = )   
 vƎ%Uq 4q   h       1R c     y'   y  q   ;    S     z('S $ }*evھK  8 
  	j ] -  6    K+8 iS45jr   QD D ]R  SP 
xJ l>
= \ " WU  Ǽ   n 
G  
  N	D õN   ;H y ȩP  {:?R Ԩ F   b   JS | R iv     賴Iئ T!   ت   @q wn CW @JU  m6] :  x
' +  XvӦ m=  7  $ B ~ p%՟U   N@   ~w    5  ' e  5 //  ~ T   7  #    
p $ e  * ӊE WE s g  v SsLp  W  EW   H;  !CY Z  f  #1W.
\uW \,\ fj <qTb n  [vxx   '  1   M P  H)   A7s,| F   k 9  *  ; ! $Ei             S  $ N  z 5r    D   !    &@m  ^  d	q5Ln  N;.6  N|# "1N x  <3('&  
t  ~  u 1Tb㫨9ꖛ b d$ߣ=#   mU e $EF 5ýY       Ǘ ssM]  
0  JRӪ i +O58   x"	\    i  i
  
 
M+M  9  A  Q    K~ Ñg ִ~  [3GU ҽ# k ԮҔ   dWV IP  8u  E
 qLj   CB {A^  ;  `    
˼	 t  .tƐm*n y4o& x n   aup  j8 m   !o ; 0y^  ^Eѿ jz  )v  nÄL
 ^       3k	   h ]i    *     
C j j zn  
 #b'F 
 v '  'T  H  %M   & nj 1  	  
 i s   R-  k   7:  0    /a٬  #   
 aiVc .   㵔
 Yg        f 7 h᷸ }&D9  s       C   bFC|  (    -% 'a	̿)  n    ގX 4  H^ Α @  Eh  L8 j 
   V  R  5u 
V4lZ  = x     
     __yM1t ?u  Ik g @ [   X J j :nkŢu } Gz  /I 芬 48q F  R =  {   R icS
 ۠ Nt   £,w4r 쮻~x( U   # & դ>    9  {9eV [ j  u]  2 qњ J 0 sÄ|   0튔b > { _F`ة  :  ,v   fc1 "     n1#= 
  v~H<Q- k7 ; L   C .7
 hKL@ v  $ 4     R  Z7  j   r r J_P .#g g ) ` <K   '   3rw  ئ  Lf   
, I {Ƕ 8 $K  U/Oi>   A   ܀Ӛ] ;  I   Qi  9yw KG    zQY     Z07 X  h; M)i CH- T  |A0{  LږT  kܒd  rmm  جPF  cbE T  x  K    Ӯ7  (\4  øUu@j yĵ;  !  b.W =m    Kk
 K^  #p* 14qkZ 5    5 %  <   ԥ C	մ  $ ֓ ]٬q  [4  ! ϗ b쳐X A  ~`  r 8      < >   ?xs    	/ ;       {"@  z [ ߂ U_<ǟ 4 N  61 q u   F    J_   ~  A ݄ϗr D;xT   `ɫ su  O`?    
L # c5 o ؂y    ZR <&J +      i!  0 Ao  L  -2  W. t^ (K mH V@x  y      ^: 3w  7    ⹮:', M  n  + b 
Lȑ nR   %     Q: f  "P t   c l & ژ kv  + v  ,= v 6 X
y*  t  < : a <Q & ]i4音 z   H  xc      m퐡 ` ) C eh dHP6 ME Z ͨ	 T r뢘6*  ; s  ]ʎ    wR  up*  	 m : {  MU      o7:  
q 'E   k^u T $ $ {  BP al     ^} A
,  $ ]  . :    Xnno7X  B    1 >   ϲ= 6rO]XI    zڭ   6  w\d ~v   k ^m<     \)    ;  l   E  cѾ@vnM ,  
 Bx  z   %3 "}ٕ  >
B  ; ]V+P F_   >
ؚe|  OmF    q $/x x z` 9 "  ij !7.\Td 9M  i    50ގn   4  O * ^ Q     8= 
 s '  ٫ %P [O
  P V s  . ,kc   A9n X -ޚN[" QՉ M    XJ  aLj   m  ڠu    Q   
/ Ux:  ܒ Đ   3V   n 6 *  K   c  U  hs  j  j#, m R  lb UT  8  0  r`  	Ї
 "  

 	 6  f   oܱԷ-<  ) a  'ڻ TXq   Y
 Hy 9 IW Y uMF 
 ϒAq 4 / 
   'i$  = 
 | K 4 0 | 6p 0 )o ct H+CA-  x | X   
l8   3 :   KX U  #! /usr/bin/perl -w
# -*- perl -*-
# Generated from autoscan.in; do not edit by hand.

# autoscan - Create configure.scan (a preliminary configure.ac) for a package.
# Copyright (C) 1994, 1999-2012 Free Software Foundation, Inc.

# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.

# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.

# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.

# Written by David MacKenzie <djm@gnu.ai.mit.edu>.

eval 'case $# in 0) exec /usr/bin/perl -S "$0";; *) exec /usr/bin/perl -S "$0" "$@";; esac'
    if 0;

BEGIN
{
  my $pkgdatadir = $ENV{'autom4te_perllibdir'} || '/usr/share/autoconf';
  unshift @INC, $pkgdatadir;

  # Override SHELL.  On DJGPP SHELL may not be set to a shell
  # that can handle redirection and quote arguments correctly,
  # e.g.: COMMAND.COM.  For DJGPP always use the shell that configure
  # has detected.
  $ENV{'SHELL'} = '/bin/sh' if ($^O eq 'dos');
}

use Autom4te::ChannelDefs;
use Autom4te::Configure_ac;
use Autom4te::General;
use Autom4te::FileUtils;
use Autom4te::XFile;
use File::Basename;
use File::Find;
use strict;

use vars qw(@cfiles @makefiles @shfiles @subdirs %printed);

# The kind of the words we are looking for.
my @kinds = qw (function header identifier program
		makevar librarie);

# For each kind, the default macro.
my %generic_macro =
  (
   'function'   => 'AC_CHECK_FUNCS',
   'header'     => 'AC_CHECK_HEADERS',
   'identifier' => 'AC_CHECK_TYPES',
   'program'    => 'AC_CHECK_PROGS',
   'library'    => 'AC_CHECK_LIB'
  );

my %kind_comment =
  (
   'function'   => 'Checks for library functions.',
   'header'     => 'Checks for header files.',
   'identifier' => 'Checks for typedefs, structures, and compiler characteristics.',
   'program'    => 'Checks for programs.',
  );

# $USED{KIND}{ITEM} is the list of locations where the ITEM (of KIND) was used
# in the user package.
# For instance $USED{function}{alloca} is the list of `file:line' where
# `alloca (...)' appears.
my %used = ();

# $MACRO{KIND}{ITEM} is the list of macros to use to test ITEM.
# Initialized from lib/autoscan/*.  E.g., $MACRO{function}{alloca} contains
# the singleton AC_FUNC_ALLOCA.  Some require several checks.
my %macro = ();

# $NEEDED_MACROS{MACRO} is an array of locations requiring MACRO.
# E.g., $NEEDED_MACROS{AC_FUNC_ALLOC} the list of `file:line' containing
# `alloca (...)'.
my %needed_macros =
  (
   'AC_PREREQ' => [$me],
  );

my $configure_scan = 'configure.scan';
my $log;

# Autoconf and lib files.
my $autom4te = $ENV{'AUTOM4TE'} || '/usr/bin/autom4te';
my $autoconf = "$autom4te --language=autoconf";
my @prepend_include;
my @include = ('/usr/share/autoconf');

# $help
# -----
$help = "Usage: $0 [OPTION]... [SRCDIR]

Examine source files in the directory tree rooted at SRCDIR, or the
current directory if none is given.  Search the source files for
common portability problems, check for incompleteness of
`configure.ac', and create a file `$configure_scan' which is a
preliminary `configure.ac' for that package.

  -h, --help          print this help, then exit
  -V, --version       print version number, then exit
  -v, --verbose       verbosely report processing
  -d, --debug         don't remove temporary files

Library directories:
  -B, --prepend-include=DIR  prepend directory DIR to search path
  -I, --include=DIR          append directory DIR to search path

Report bugs to <bug-autoconf\@gnu.org>.
GNU Autoconf home page: <http://www.gnu.org/software/autoconf/>.
General help using GNU software: <http://www.gnu.org/gethelp/>.
";

# $version
# --------
$version = "autoscan (GNU Autoconf) 2.69
Copyright (C) 2012 Free Software Foundation, Inc.
License GPLv3+/Autoconf: GNU GPL version 3 or later
<http://gnu.org/licenses/gpl.html>, <http://gnu.org/licenses/exceptions.html>
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.

Written by David J. MacKenzie and Akim Demaille.
";




## ------------------------ ##
## Command line interface.  ##
## ------------------------ ##

# parse_args ()
# -------------
# Process any command line arguments.
sub parse_args ()
{
  getopt ('I|include=s' => \@include,
	  'B|prepend-include=s' => \@prepend_include);

  die "$me: too many arguments
Try `$me --help' for more information.\n"
    if @ARGV > 1;

  my $srcdir = $ARGV[0] || ".";

  verb "srcdir = $srcdir";
  chdir $srcdir || error "cannot cd to $srcdir: $!";
}


# init_tables ()
# --------------
# Put values in the tables of what to do with each token.
sub init_tables ()
{
  # The data file format supports only one line of macros per function.
  # If more than that is required for a common portability problem,
  # a new Autoconf macro should probably be written for that case,
  # instead of duplicating the code in lots of configure.ac files.
  my $file = find_file ("autoscan/autoscan.list",
			reverse (@prepend_include), @include);
  my $table = new Autom4te::XFile "< " . open_quote ($file);
  my $tables_are_consistent = 1;

  while ($_ = $table->getline)
    {
      # Ignore blank lines and comments.
      next
	if /^\s*$/ || /^\s*\#/;

      # '<kind>: <word> <macro invocation>' or...
      # '<kind>: <word> warn: <message>'.
      if (/^(\S+):\s+(\S+)\s+(\S.*)$/)
	{
	  my ($kind, $word, $macro) = ($1, $2, $3);
	  error "$file:$.: invalid kind: $_"
	    unless grep { $_ eq $kind } @kinds;
	  push @{$macro{$kind}{$word}}, $macro;
	}
      else
	{
	  error "$file:$.: invalid definition: $_";
	}
    }

  if ($debug)
    {
      foreach my $kind (@kinds)
	{
	  foreach my $word (sort keys %{$macro{$kind}})
	    {
	      print "$kind: $word: @{$macro{$kind}{$word}}\n";
	    }
	}

    }
}


# used ($KIND, $WORD, [$WHERE])
# -----------------------------
# $WORD is used as a $KIND.
sub used ($$;$)
{
  my ($kind, $word, $where) = @_;
  $where ||= "$File::Find::name:$.";
  if (
      # Check for all the libraries.  But `-links' is certainly a
      # `find' argument, and `-le', a `test' argument.
      ($kind eq 'library' && $word !~ /^(e|inks)$/)
      # Other than libraries are to be checked only if listed in
      # the Autoscan library files.
      || defined $macro{$kind}{$word}
     )
    {
      push (@{$used{$kind}{$word}}, $where);
    }
}



## ----------------------- ##
## Scanning source files.  ##
## ----------------------- ##


# scan_c_file ($FILE-NAME)
# ------------------------
sub scan_c_file ($)
{
  my ($file_name) = @_;
  push @cfiles, $File::Find::name;

  # Nonzero if in a multiline comment.
  my $in_comment = 0;

  my $file = new Autom4te::XFile "< " . open_quote ($file_name);

  while ($_ = $file->getline)
    {
      # Strip out comments.
      if ($in_comment && s,^.*?\*/,,)
	{
	  $in_comment = 0;
	}
      # The whole line is inside a comment.
      next if $in_comment;
      # All on one line.
      s,/\*.*?\*/,,g;

      # Starting on this line.
      if (s,/\*.*$,,)
	{
	  $in_comment = 1;
	}

      # Preprocessor directives.
      if (s/^\s*\#\s*//)
	{
	  if (/^include\s*<([^>]*)>/)
	    {
	      used ('header', $1);
	    }
	  if (s/^(if|ifdef|ifndef|elif)\s+//)
	    {
	      foreach my $word (split (/\W+/))
		{
		  used ('identifier', $word)
		    unless $word eq 'defined' || $word !~ /^[a-zA-Z_]/;
		}
	    }
	  # Ignore other preprocessor directives.
	  next;
	}

      # Remove string and character constants.
      s,\"[^\"]*\",,g;
      s,\'[^\']*\',,g;

      # Tokens in the code.
      # Maybe we should ignore function definitions (in column 0)?
      while (s/\b([a-zA-Z_]\w*)\s*\(/ /)
	{
	  used ('function', $1);
	}
      while (s/\b([a-zA-Z_]\w*)\b/ /)
	{
	  used ('identifier', $1);
	}
    }

  $file->close;
}


# scan_makefile($MAKEFILE-NAME)
# -----------------------------
sub scan_makefile ($)
{
  my ($file_name) = @_;
  push @makefiles, $File::Find::name;

  my $file = new Autom4te::XFile "< " . open_quote ($file_name);

  while ($_ = $file->getline)
    {
      # Strip out comments.
      s/#.*//;

      # Variable assignments.
      while (s/\b([a-zA-Z_]\w*)\s*=/ /)
	{
	  used ('makevar', $1);
	}
      # Be sure to catch a whole word.  For instance `lex$U.$(OBJEXT)'
      # is a single token.  Otherwise we might believe `lex' is needed.
      foreach my $word (split (/\s+/))
	{
	  # Libraries.
	  if ($word =~ /^-l([a-zA-Z_]\w*)$/)
	    {
	      used ('library', $1);
	    }
	  # Tokens in the code.
	  # We allow some additional characters, e.g., `+', since
	  # autoscan/programs includes `c++'.
	  if ($word =~ /^[a-zA-Z_][\w+]*$/)
	    {
	      used ('program', $word);
	    }
	}
    }

  $file->close;
}


# scan_sh_file($SHELL-SCRIPT-NAME)
# --------------------------------
sub scan_sh_file ($)
{
  my ($file_name) = @_;
  push @shfiles, $File::Find::name;

  my $file = new Autom4te::XFile "< " . open_quote ($file_name);

  while ($_ = $file->getline)
    {
      # Strip out comments and variable references.
      s/#.*//;
      s/\$\{[^\}]*}//g;
      s/@[^@]*@//g;

      # Tokens in the code.
      while (s/\b([a-zA-Z_]\w*)\b/ /)
	{
	  used ('program', $1);
	}
    }

  $file->close;
}


# scan_file ()
# ------------
# Called by &find on each file.  $_ contains the current file name with
# the current directory of the walk through.
sub scan_file ()
{
  # Wanted only if there is no corresponding FILE.in.
  return
    if -f "$_.in";

  # Save $_ as Find::File requires it to be preserved.
  local $_ = $_;

  # Strip a useless leading `./'.
  $File::Find::name =~ s,^\./,,;

  if ($_ ne '.' and -d $_ and
      -f "$_/configure.in"  ||
      -f "$_/configure.ac"  ||
      -f "$_/configure.gnu" ||
      -f "$_/configure")
    {
      $File::Find::prune = 1;
      push @subdirs, $File::Find::name;
    }
  if (/\.[chlym](\.in)?$/)
    {
      used 'program', 'cc', $File::Find::name;
      scan_c_file ($_);
    }
  elsif (/\.(cc|cpp|cxx|CC|C|hh|hpp|hxx|HH|H|yy|ypp|ll|lpp)(\.in)?$/)
    {
      used 'program', 'c++', $File::Find::name;
      scan_c_file ($_);
    }
  elsif ((/^((?:GNUm|M|m)akefile)(\.in)?$/ && ! -f "$1.am")
	 || /^(?:GNUm|M|m)akefile(\.am)?$/)
    {
      scan_makefile ($_);
    }
  elsif (/\.sh(\.in)?$/)
    {
      scan_sh_file ($_);
    }
}


# scan_files ()
# -------------
# Read through the files and collect lists of tokens in them
# that might create nonportabilities.
sub scan_files ()
{
  find (\&scan_file, '.');

  if ($verbose)
    {
      print "cfiles: @cfiles\n";
      print "makefiles: @makefiles\n";
      print "shfiles: @shfiles\n";

      foreach my $kind (@kinds)
	{
	  print "\n$kind:\n";
	  foreach my $word (sort keys %{$used{$kind}})
	    {
	      print "$word: @{$used{$kind}{$word}}\n";
	    }
	}
    }
}


## ----------------------- ##
## Output configure.scan.  ##
## ----------------------- ##


# output_kind ($FILE, $KIND)
# --------------------------
sub output_kind ($$)
{
  my ($file, $kind) = @_;
  # Lists of words to be checked with the generic macro.
  my @have;

  print $file "\n# $kind_comment{$kind}\n"
    if exists $kind_comment{$kind};
  foreach my $word (sort keys %{$used{$kind}})
    {
      # Output the needed macro invocations in $configure_scan if not
      # already printed, and remember these macros are needed.
      foreach my $macro (@{$macro{$kind}{$word}})
	{
	  if ($macro =~ /^warn:\s+(.*)/)
	    {
	      my $message = $1;
	      foreach my $location (@{$used{$kind}{$word}})
		{
		  warn "$location: warning: $message\n";
		}
	    }
	  elsif (exists $generic_macro{$kind}
	      && $macro eq $generic_macro{$kind})
	    {
	      push (@have, $word);
	      push (@{$needed_macros{"$generic_macro{$kind}([$word])"}},
		    @{$used{$kind}{$word}});
	    }
	  else
	    {
	      if (! $printed{$macro})
		{
		  print $file "$macro\n";
		  $printed{$macro} = 1;
		}
	      push (@{$needed_macros{$macro}},
		    @{$used{$kind}{$word}});
	    }
	}
    }
  print $file "$generic_macro{$kind}([" . join(' ', sort(@have)) . "])\n"
    if @have;
}


# output_libraries ($FILE)
# ------------------------
sub output_libraries ($)
{
  my ($file) = @_;

  print $file "\n# Checks for libraries.\n";
  foreach my $word (sort keys %{$used{'library'}})
    {
      print $file "# FIXME: Replace `main' with a function in `-l$word':\n";
      print $file "AC_CHECK_LIB([$word], [main])\n";
    }
}


# output ($CONFIGURE_SCAN)
# ------------------------
# Print a proto configure.ac.
sub output ($)
{
  my $configure_scan = shift;
  my %unique_makefiles;

  my $file = new Autom4te::XFile "> " . open_quote ($configure_scan);

  print $file
    ("#                                               -*- Autoconf -*-\n" .
     "# Process this file with autoconf to produce a configure script.\n" .
     "\n" .
     "AC_PREREQ([2.69])\n" .
     "AC_INIT([FULL-PACKAGE-NAME], [VERSION], [BUG-REPORT-ADDRESS])\n");
  if (defined $cfiles[0])
    {
      print $file "AC_CONFIG_SRCDIR([$cfiles[0]])\n";
      print $file "AC_CONFIG_HEADERS([config.h])\n";
    }

  output_kind ($file, 'program');
  output_kind ($file, 'makevar');
  output_libraries ($file);
  output_kind ($file, 'header');
  output_kind ($file, 'identifier');
  output_kind ($file, 'function');

  print $file "\n";
  if (@makefiles)
    {
      # Change DIR/Makefile.in to DIR/Makefile.
      foreach my $m (@makefiles)
	{
	  $m =~ s/\.(?:in|am)$//;
	  $unique_makefiles{$m}++;
	}
      print $file ("AC_CONFIG_FILES([",
		   join ("\n                 ",
			 sort keys %unique_makefiles), "])\n");
    }
  if (@subdirs)
    {
      print $file ("AC_CONFIG_SUBDIRS([",
		   join ("\n                   ",
			 sort @subdirs), "])\n");
    }
  print $file "AC_OUTPUT\n";

  $file->close;
}



## --------------------------------------- ##
## Checking the accuracy of configure.ac.  ##
## --------------------------------------- ##


# &check_configure_ac ($CONFIGURE_AC)
# -----------------------------------
# Use autoconf to check if all the suggested macros are included
# in CONFIGURE_AC.
sub check_configure_ac ($)
{
  my ($configure_ac) = @_;

  # Find what needed macros are invoked in CONFIGURE_AC.
  # I'd be very happy if someone could explain to me why sort (uniq ...)
  # doesn't work properly: I need `uniq (sort ...)'.  --akim
  my $trace_option =
    join (' --trace=', '',
	  uniq (sort (map { s/\(.*//; $_ } keys %needed_macros)));

  verb "running: $autoconf $trace_option $configure_ac";
  my $traces =
    new Autom4te::XFile "$autoconf $trace_option $configure_ac |";

  while ($_ = $traces->getline)
    {
      chomp;
      my ($file, $line, $macro, @args) = split (/:/, $_);
      if ($macro =~ /^AC_CHECK_(HEADER|FUNC|TYPE|MEMBER)S$/)
	{
	  # To be rigorous, we should distinguish between space and comma
	  # separated macros.  But there is no point.
	  foreach my $word (split (/\s|,/, $args[0]))
	    {
	      # AC_CHECK_MEMBERS wants `struct' or `union'.
	      if ($macro eq "AC_CHECK_MEMBERS"
		  && $word =~ /^stat.st_/)
		{
		  $word = "struct " . $word;
		}
	      delete $needed_macros{"$macro([$word])"};
	    }
	}
      else
	{
	  delete $needed_macros{$macro};
	}
    }

  $traces->close;

  # Report the missing macros.
  foreach my $macro (sort keys %needed_macros)
    {
      warn ("$configure_ac: warning: missing $macro wanted by: "
	    . (${$needed_macros{$macro}}[0])
	    . "\n");
      print $log "$me: warning: missing $macro wanted by: \n";
      foreach my $need (@{$needed_macros{$macro}})
	{
	  print $log "\t$need\n";
	}
    }
}


## -------------- ##
## Main program.  ##
## -------------- ##

parse_args;
$log = new Autom4te::XFile "> " . open_quote ("$me.log");

$autoconf .= " --debug" if $debug;
$autoconf .= " --verbose" if $verbose;
$autoconf .= join (' --include=', '', map { shell_quote ($_) } @include);
$autoconf .= join (' --prepend-include=', '', map { shell_quote ($_) } @prepend_include);

my $configure_ac = find_configure_ac;
init_tables;
scan_files;
output ('configure.scan');
if (-f $configure_ac)
  {
    check_configure_ac ($configure_ac);
  }
# This close is really needed.  For some reason, probably best named
# a bug, it seems that the dtor of $LOG is not called automatically
# at END.  It results in a truncated file.
$log->close;
exit 0;

### Setup "GNU" style for perl-mode and cperl-mode.
## Local Variables:
## perl-indent-level: 2
## perl-continued-statement-offset: 2
## perl-continued-brace-offset: 0
## perl-brace-offset: 0
## perl-brace-imaginary-offset: 0
## perl-label-offset: -2
## cperl-indent-level: 2
## cperl-brace-offset: 0
## cperl-continued-brace-offset: 0
## cperl-label-offset: -2
## cperl-extra-newline-before-brace: t
## cperl-merge-trailing-else: nil
## cperl-continued-statement-offset: 2
## End: