#! /bin/sh
#  -*- Mode: Shell-script -*-
# define.test --- test evalstack functionality
#
# Author:            Bruce Korb <bkorb@gnu.org>
##
## This file is part of AutoGen.
## AutoGen Copyright (C) 1992-2016 by 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/>.
##
#
# ----------------------------------------------------------------------

. ./defs

# # # # # # # TEMPLATE LIBRARY FILE # # # # # #

echo creating $testname.tlib
cat > $testname.tlib <<'_EOF_'
[+ AutoGen5 Template Library +]
[+

# * * * * * * * * * * * *

      VISUAL SEPARATION
+][+

DEFINE first_macro
+][+(for-index)+] Argument list:
	[+
  FOR arg "\n\t"
    +]arg[ [+(for-index)+] ] = [+ arg +][+
  ENDFOR +][+
ENDDEF +][+

# * * * * * * * * * * * *

      VISUAL SEPARATION
+][+

DEFINE last_macro
  +]This is the last (number [+(for-index)+]) macro.[+
ENDDEF +]
_EOF_


# # # # # # # # # # TEMPLATE FILE # # # # # # # # #

echo creating $testname.tpl
cat > $testname.tpl <<'_EOF_'
[= AutoGen5 Template test =]
[=

DEFINE nest     =][=
  IF (exist? "name") =]
level [=(shell "printf '%u\\n' " (get "level"))
=] iteration [=(for-index)=] Nested Name:  [=name=][=
  ENDIF         =][=

  FOR .nesting  =][=
    nest        =][=
  ENDFOR        =][=

ENDDEF nest     =][=

FOR value

=][=
  IF (or (first-for?) (last-for?)) =][=
    INVOKE (string-append (get "value") "_macro")
       arg = one  arg = "the second arg = the second"
       arg = (shell "LC_ALL=C date +'%A, %D'") arg = 'done.' =][=
  ELSE =]

     non first/last value: [=value=] = [= (for-index) =]
[=ENDIF         =][=
ENDFOR          =]
[=invoke nest   =]
Done.
_EOF_


# # # # # # # # # # DEFINITIONS FILE # # # # # # # # #

echo creating $testname.def
cat > $testname.def <<_EOF_
autogen definitions $testname;

value = first;
value[2] = secondary;
value[4] = tertiary;
value[6] = last;

level = 0;
nesting[1] = {
  level = 1;
  name = primary;
  nesting[1] = {
    level = 0x2;
    name = secondary;
  }, {
    level = 0x2;
    /* no name defined - default to primary level */
    nesting[1] = {
      level = 3;
      name = tertiary;
    };
  };
};
_EOF_

# this is the output we should expect to see
cat > $testname.samp <<_EOF_
0 Argument list:
	arg[ 0 ] = one
	arg[ 1 ] = the second arg = the second
	arg[ 2 ] = `LC_ALL=C date +'%A, %D'`
	arg[ 3 ] = done.

     non first/last value: secondary = 2


     non first/last value: tertiary = 4
This is the last (number 6) macro.

level 1 iteration 1 Nested Name:  primary
level 2 iteration 1 Nested Name:  secondary
level 2 iteration 2 Nested Name:  primary
level 3 iteration 1 Nested Name:  tertiary
Done.
_EOF_

run_ag x --lib=$testname.tlib $testname.def || \
  failure "autogen failed"
set -x
cmp -s $testname.samp $testname.test || \
  failure "`diff $testname.samp $testname.test`"

cleanup

## Local Variables:
## mode: shell-script
## indent-tabs-mode: nil
## sh-indentation: 2
## sh-basic-offset: 2
## End:

# end of define.test