X-Git-Url: https://git.distorted.org.uk/~mdw/firewall/blobdiff_plain/0f6364ac757bbdd02fe0e1577edebc2bd6198221..b44f44040943cad5ac2c02159024e7b0392ce4f8:/functions.m4

diff --git a/functions.m4 b/functions.m4
index c0cd0b3..5cc70f8 100644
--- a/functions.m4
+++ b/functions.m4
@@ -50,6 +50,14 @@ defport () {
   eval port_$name=$number
 }
 
+## defproto NAME NUMBER
+##
+## Define $proto_NAME to be NUMBER.
+defproto () {
+  name=$1 number=$2
+  eval proto_$name=$number
+}
+
 m4_divert(38)m4_dnl
 ###--------------------------------------------------------------------------
 ### Utility chains (used by function definitions).