Re: [boost] Pascal Functions and Boost.Bind

From: Mac Murrett (mmurrett_at_[hidden])
Date: 2001-11-19 01:12:15

> #if defined(BOOST_BIND_ENABLE_PASCAL)
> #define BOOST_BIND_CC pascal
> #include <boost/bind/bind_cc.hpp>
> #undef BOOST_BIND_CC
> #endif

Oops... this doesn't compile -- the "pascal" has to be before the
parenthesis.

Instead, how about this...

#if defined(BOOST_BIND_ENABLE_PASCAL)
#define BOOST_BIND_ST pascal
#define BOOST_BIND_CC
#include <boost/bind/bind_cc.hpp>
#undef BOOST_BIND_ST
#undef BOOST_BIND_CC
#endif

... coupled with a find-and-replace of "R (BOOST_BIND_CC *" with
"BOOST_BIND_ST R (BOOST_BIND_CC *" in bind_cc.hpp, and of course empty
#defines of BOOST_BIND_ST for the other includes of bind_cc.hpp.  This,
unlike the easier suggestion I previously suggested, actually compiles and
works.

I will provide a diff for this if requested.

Thanks,
Mac.

PS - rationale for the name BOOST_BIND_ST is Boost Bind Stack Type.