### -*-m4-*-
###
### Diversion map for distorted.org.uk Exim configuration.
###
### (c) 2012 Mark Wooding
###

###----- Licensing notice ---------------------------------------------------
###
### This program is free software; you can redistribute it and/or modify
### it under the terms of the GNU General Public License as published by
### the Free Software Foundation; either version 2 of the License, or
### (at your option) any later version.
###
### This program is distributed in the hope that it will be useful,
### but WITHOUT ANY WARRANTY; without even the implied warranty of
### MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
### GNU General Public License for more details.
###
### You should have received a copy of the GNU General Public License
### along with this program; if not, write to the Free Software Foundation,
### Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.

###--------------------------------------------------------------------------
### Numbering machinery.

## Rather than maintain the diversion numbers by hand, this chunk of Emacs
## Lisp will recompute them when they've been edited.  All you have to do is
## declare the diversions in the correct order.
(save-excursion
  (save-match-data
    (goto-char (point-min))
    (let ((next-div 0) div)
      (while (re-search-forward (concat "\\(DEFDIVERSION(\\)" ;1
					"\\([^,]+\\)"	      ;2 = diversion
					"\\(,\\s-*\\)"	      ;3
					"\\([0-9]+\\)"	      ;4 = number
					"\\([,)]\\)")	      ;5
				nil t)
	(setq div (match-string 2))
	(if (not (string-match-p "/" div))
	    (setq next-div (* 100 (/ (+ next-div 100) 100))))
	(replace-match (concat "\\1\\2\\3"
			       (int-to-string next-div)
			       "\\5"))
	(setq next-div (+ next-div 2))))))

m4_define(<:_div:null:>,	 <:-1:>)

m4_define(<:DEFDIVERSION:>, <:m4_dnl
  m4_define(<:_div:$1:>, <:$2:>)m4_dnl
  m4_ifelse(<:$3:>, <::>, <::>, <:m4_dnl
    m4_define(<:_head:$1:>, <:$3:>):>):>)

###--------------------------------------------------------------------------
### The diversion map.

## header			   0

DEFDIVERSION(global,			 100, ### Global settings.)
DEFDIVERSION(global/logging,		 102, Logging.)

DEFDIVERSION(global/lists,		 104)

DEFDIVERSION(global/misc,		 106, Miscellaneous.)
DEFDIVERSION(global/param,		 108, Exim parameters.)
DEFDIVERSION(global/env,		 110, Environment variables.)
DEFDIVERSION(global/priv,		 112, Privilege controls.)
DEFDIVERSION(global/frozen,		 114, Frozen messages.)
DEFDIVERSION(global/lookups,		 116, Data lookups.)
DEFDIVERSION(global/msgid,		 118, Message ids.)
DEFDIVERSION(global/perl,		 120, Embedded Perl startup.)
DEFDIVERSION(global/daemon,		 122, Daemon.)
DEFDIVERSION(global/resource,		 124, Resource control.)
DEFDIVERSION(global/policy,		 126, Policy controls.)
DEFDIVERSION(global/callout,		 128, Callout cache.)
DEFDIVERSION(global/tls,		 130, TLS.)
DEFDIVERSION(global/users,		 132, Local user handling.)
DEFDIVERSION(global/incoming,		 134,
	All incoming messages (SMTP and non-SMTP).)
DEFDIVERSION(global/non-smtp,		 136, Non-SMTP incoming messages.)
DEFDIVERSION(global/smtp,		 138, Incoming SMTP messages.)
DEFDIVERSION(global/process,		 140, Processing messages.)
DEFDIVERSION(global/filter,		 142, System filter.)
DEFDIVERSION(global/routing,		 144, Routing and delivery.)
DEFDIVERSION(global/bounce,		 146, Bounce and warning messages.)
DEFDIVERSION(global/acl,		 148, Access control lists.)
DEFDIVERSION(global/acl-after,		 150)

DEFDIVERSION(acl,			 200)
DEFDIVERSION(acl/connect,		 202)
DEFDIVERSION(acl/connect-hooks,		 204)
DEFDIVERSION(acl/connect-tail,		 206)
DEFDIVERSION(acl/mail,			 208)
DEFDIVERSION(acl/mail-hooks,		 210)
DEFDIVERSION(acl/mail-tail,		 212)
DEFDIVERSION(acl/rcpt,			 214)
DEFDIVERSION(acl/rcpt-hooks,		 216)
DEFDIVERSION(acl/rcpt-tail,		 218)
DEFDIVERSION(acl/data,			 220)
DEFDIVERSION(acl/data-hooks,		 222)
DEFDIVERSION(acl/data-tail,		 224)
DEFDIVERSION(acl/misc,			 226)

DEFDIVERSION(auth,			 300, begin authenticators)

DEFDIVERSION(routers,			 400)
DEFDIVERSION(routers/virtual-spam,	 402)
DEFDIVERSION(routers/route,		 404)
DEFDIVERSION(routers/remote,		 406)
DEFDIVERSION(routers/virtual,		 408)
DEFDIVERSION(routers/virtual-hooks,	 410)
DEFDIVERSION(routers/virtual-tail,	 412)
DEFDIVERSION(routers/real,		 414)
DEFDIVERSION(routers/alias,		 416)
DEFDIVERSION(routers/alias-opts,	 418)
DEFDIVERSION(routers/smarthost,		 420)
DEFDIVERSION(routers/allspam,		 422)
DEFDIVERSION(routers/dispatch,		 424)
DEFDIVERSION(routers/forward,		 426)
DEFDIVERSION(routers/deliver,		 428)

DEFDIVERSION(transports,		 500)

DEFDIVERSION(retry,			 600)
DEFDIVERSION(retry/misc,		 602)
DEFDIVERSION(retry/default,		 604)

DEFDIVERSION(rewrite,			 700)

## warning trailer			1000

DIVERT(null)
###----- That's all, folks --------------------------------------------------