checks/132.m4wrap

   1 dnl @ ../doc/m4.texi:4902: 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(`wrapfifo.m4')dnl
  11 dnl @result{}dnl Redefine m4wrap to have FIFO semantics.
  12 dnl @result{}define(`_m4wrap_level', `0')dnl
  13 dnl @result{}define(`m4wrap',
  14 dnl @result{}`ifdef(`m4wrap'_m4wrap_level,
  15 dnl @result{}       `define(`m4wrap'_m4wrap_level,
  16 dnl @result{}               defn(`m4wrap'_m4wrap_level)`$1')',
  17 dnl @result{}       `builtin(`m4wrap', `define(`_m4wrap_level',
  18 dnl @result{}                                  incr(_m4wrap_level))dnl
  19 dnl @result{}m4wrap'_m4wrap_level)dnl
  20 dnl @result{}define(`m4wrap'_m4wrap_level, `$1')')')dnl
  21 include(`wrapfifo.m4')
  22 dnl @result{}
  23 m4wrap(`a`'m4wrap(`c
  24 ', `d')')m4wrap(`b')
  25 dnl @result{}
  26 dnl @result{}abc