#! /bin/sh
#  -*- Mode: Shell-script -*-
# ----------------------------------------------------------------------
# option.test --- test option extraction
#
# Author:	     Bruce Korb <bkorb@gnu.org>
# Time-stamp:        "2007-07-04 11:40:07 bkorb"
# Last Modified:  $Date: 2007/07/04 20:51:19 $
#            by: bkorb
##
##  This file is part of AutoGen.
##  AutoGen copyright (c) 1992-2007 Bruce Korb - all rights reserved
##
##  AutoGen 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.
##
##  AutoGen 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/>.
#
# $Id: option.test,v 4.3 2007/07/04 20:51:19 bkorb Exp $
# ----------------------------------------------------------------------

# Common definitions
if test -z "$srcdir"; then
    srcdir=`echo "$0" | sed 's,[^/]*$,,'`
    test -z "$srcdir" && srcdir=.
    test "$srcdir" = "$0" && srcdir=.
    test "${VERBOSE+set}" != set && VERBOSE=1
fi
. $srcdir/defs

# Create the files we need in the test environment
cat > ${testname}.c <<EOF

/*=* global
 *
 *  test:  subblock
 *  doc:  we want to see
 *        just what happens
=*/

/*=--subblock=exparg=arg_name,arg_desc,arg_optional,arg_list=*/

/*=gfunc in_p
 *
 * exparg: test-string   , string to look for
           + arg-name    + arg-desc                + arg-opt + arg-list +
 * exparg: @ string-list @ list of strings to check,,       @@ list
 *
 * opt:  1
 * doc:
 *      Return SCM_BOOL_T if the first argument is duplicated
 *      in the second (list) argument.
=*/
    SCM
ag_scm_in_p( SCM obj, SCM list )
{
}
EOF

cat > ${testname}.test <<_EOF_
/*  -*- buffer-read-only: t -*- vi: set ro:
 *
 *
 *  DO NOT EDIT THIS FILE   (option.out)
 *
 *  It has been extracted by getdefs from the following files:
 *
 *      option.c
 */
autogen definitions testdir;

/* GLOBALDEFS */

#line 2 "option.c"
    test = 'subblock';
    doc = 'we want to see
just what happens';


#line 11 "option.c"
gfunc = {
    name    = 'in_p';
    exparg = {
        arg_name = 'test-string';
        arg_desc = 'string to look for';
    };
    exparg = {
        arg_name = 'string-list';
        arg_desc = 'list of strings to check,,';
        arg_list = 'list';
    };
    opt = '1';
    doc =
'Return SCM_BOOL_T if the first argument is duplicated
in the second (list) argument.';
};
_EOF_
set -x
${GDexe} output=${testname}.out ${testname}.c || \
    failure running ${GDexe}
cmp -s ${testname}.test ${testname}.out || \
	failure "`diff ${testname}.test ${testname}.out`"

# option.test ends here