mdw@git.distorted.org.uk Git - userv-utils/blob - ipif/udptunnel-vpn-config.m4

   1 m4_define(V_JUNK,1)m4_divert(V_JUNK)
   2 m4_define(V_VARIABLE,2)
   3 m4_define(V_ACTIVES,3)
   4 m4_define(V_PASSIVES,4)
   5 m4_changequote([,])
   6
   7 m4_define(V_WARGS, [
   8  m4_define([$1], [m4_ifelse($][#,$2,[$3],
   9   [# ]m4___file__:m4___line__[: wrong number of args to $1])])])
  10
  11 V_WARGS([SET], 2, [V_SET([V_$1], [$2])])
  12 m4_define(V_YES, [m4_define([V_SET],[m4_define($][@)])])
  13 m4_define(V_NO, [m4_define([V_SET], [])])
  14
  15 m4_define(V_ACTPA, [
  16  V_WARGS($1, 1, [m4_divert(V_$1S)$][1 m4_dnl
  17  m4_divert(V_JUNK)m4_ifelse($][1,V_site,
  18   [V_YES],
  19   [V_NO]
  20 )])])
  21
  22 m4_dnl   V_WARGS(, 2, [m4_divert(V_PASSIVES)$1 m4_dnl
  23 m4_dnl   m4_divert(V_JUNK)m4_ifelse([$1],V_site, [$2])])
  24
  25 m4_divert(V_JUNK)
  26
  27 V_YES
  28 m4_include(V_defaults)
  29 m4_include(V_global)
  30
  31 V_WARGS(SITE, 1, [m4_ifelse([$1],V_site, [V_YES], [V_NO])])
  32 V_YES
  33 m4_include(V_sites)
  34 m4_undefine([SITE])
  35
  36 V_ACTPA(ACTIVE)
  37 V_ACTPA(PASSIVE)
  38 V_YES
  39 m4_include(V_tunnels)
  40
  41 m4_divert(V_VARIABLE)
  42 WHVARIABLE
  43 m4_divert(V_JUNK)
  44
  45 m4_define(V_WANTED, V_[]WANTED)
  46 m4_divert(0)
  47 m4_undivert(V_WANTED)
  48 m4_divert(-1)
  49 m4_undivert(V_JUNK)
  50 m4_undivert(V_ACTIVES)
  51 m4_undivert(V_PASSIVES)
  52 m4_undivert(V_VARIABLE)