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