Chris@16: //
Chris@16: //  Copyright (c) 2000-2002
Chris@16: //  Joerg Walter, Mathias Koch
Chris@16: //
Chris@16: //  Distributed under the Boost Software License, Version 1.0. (See
Chris@16: //  accompanying file LICENSE_1_0.txt or copy at
Chris@16: //  http://www.boost.org/LICENSE_1_0.txt)
Chris@16: //
Chris@16: //  The authors gratefully acknowledge the support of
Chris@16: //  GeNeSys mbH & Co. KG in producing this work.
Chris@16: //
Chris@16: 
Chris@16: #ifndef _BOOST_UBLAS_DUFF_
Chris@16: #define _BOOST_UBLAS_DUFF_
Chris@16: 
Chris@16: #define DD_SWITCH(n, d, r, expr) \
Chris@16:     { \
Chris@16:         unsigned r = ((n) + (d) - 1) / (d); \
Chris@16:         switch ((n) % (d))  { \
Chris@16:         case 0: do { expr;
Chris@16: #define DD_CASE_I(i, expr) \
Chris@16:         case (i): expr;
Chris@16: #define DD_WHILE(r) \
Chris@16:             } while (-- (r) > 0); \
Chris@16:         } \
Chris@16:     }
Chris@16: 
Chris@16: #define DD_1T(n, d, r, expr) \
Chris@16:     DD_WHILE(r)
Chris@16: #define DD_2T(n, d, r, expr) \
Chris@16:     DD_CASE_I(1, expr) \
Chris@16:     DD_1T(n, d, r, expr)
Chris@16: #define DD_3T(n, d, r, expr) \
Chris@16:     DD_CASE_I(2, expr) \
Chris@16:     DD_2T(n, d, r, expr)
Chris@16: #define DD_4T(n, d, r, expr) \
Chris@16:     DD_CASE_I(3, expr) \
Chris@16:     DD_3T(n, d, r, expr)
Chris@16: #define DD_5T(n, d, r, expr) \
Chris@16:     DD_CASE_I(4, expr) \
Chris@16:     DD_4T(n, d, r, expr)
Chris@16: #define DD_6T(n, d, r, expr) \
Chris@16:     DD_CASE_I(5, expr) \
Chris@16:     DD_5T(n, d, r, expr)
Chris@16: #define DD_7T(n, d, r, expr) \
Chris@16:     DD_CASE_I(6, expr) \
Chris@16:     DD_6T(n, d, r, expr)
Chris@16: #define DD_8T(n, d, r, expr) \
Chris@16:     DD_CASE_I(7, expr) \
Chris@16:     DD_7T(n, d, r, expr)
Chris@16: 
Chris@16: #define DD(n, d, r, expr) \
Chris@16:     DD_SWITCH(n, d, r, expr) \
Chris@16:     DD_##d##T(n, d, r, expr)
Chris@16: 
Chris@16: #endif