examples/wraplifo.m4

   1 dnl Redefine m4wrap to have LIFO semantics.
   2 define(`_m4wrap_level', `0')dnl
   3 define(`_m4wrap', defn(`m4wrap'))dnl
   4 define(`m4wrap',
   5 `ifdef(`m4wrap'_m4wrap_level,
   6        `define(`m4wrap'_m4wrap_level,
   7                `$1'defn(`m4wrap'_m4wrap_level))',
   8        `_m4wrap(`define(`_m4wrap_level', incr(_m4wrap_level))dnl
   9 m4wrap'_m4wrap_level)dnl
  10 define(`m4wrap'_m4wrap_level, `$1')')')dnl