checks/078.shift

   1 dnl @ ../doc/m4.texinfo:3177: 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 define(`argn', `ifelse(`$1', 1, ``$2'',
  11   `argn(decr(`$1'), shift(shift($@)))')')
  12 dnl @result{}
  13 argn(`1', `a')
  14 dnl @result{}a
  15 define(`foo', `argn(`11', $@)')
  16 dnl @result{}
  17 foo(`a', `b', `c', `d', `e', `f', `g', `h', `i', `j', `k', `l')
  18 dnl @result{}k