checks/215.improved_f

   1 dnl @ ../doc/m4.texi:7790: Origin of test
   2 dnl @ expected status: 0
   3 dnl @ extra options:
   4 dnl @ Copyright (C) 2006, 2007, 2008, 2009 Free Software
   5 dnl @ Foundation, Inc.
   6 dnl @ This file is free software; the Free Software Foundation
   7 dnl @ gives unlimited permission to copy and/or distribute it
   8 dnl @ with or without modifications, as long as this notice
   9 dnl @ is preserved.
  10 undivert(`forloop2.m4')dnl
  11 dnl @result{}divert(`-1')
  12 dnl @result{}# forloop(var, from, to, stmt) - improved version:
  13 dnl @result{}#   works even if VAR is not a strict macro name
  14 dnl @result{}#   performs sanity check that FROM is larger than TO
  15 dnl @result{}#   allows complex numerical expressions in TO and FROM
  16 dnl @result{}define(`forloop', `ifelse(eval(`($2) <= ($3)'), `1',
  17 dnl @result{}  `pushdef(`$1')_$0(`$1', eval(`$2'),
  18 dnl @result{}    eval(`$3'), `$4')popdef(`$1')')')
  19 dnl @result{}define(`_forloop',
  20 dnl @result{}  `define(`$1', `$2')$4`'ifelse(`$2', `$3', `',
  21 dnl @result{}    `$0(`$1', incr(`$2'), `$3', `$4')')')
  22 dnl @result{}divert`'dnl
  23 include(`forloop2.m4')
  24 dnl @result{}
  25 forloop(`i', `2', `1', `no iteration occurs')
  26 dnl @result{}
  27 forloop(`', `1', `2', ` odd iterator name')
  28 dnl @result{} odd iterator name odd iterator name
  29 forloop(`i', `5 + 5', `0xc', ` 0x`'eval(i, `16')')
  30 dnl @result{} 0xa 0xb 0xc
  31 forloop(`i', `a', `b', `non-numeric bounds')
  32 dnl @error{}m4:stdin:6: bad expression in eval (bad input): (a) <= (b)
  33 dnl @result{}