xtl_metaphor.h

Go to the documentation of this file.

// Common Text Transformation Library
// Copyright (C) 1997-2006 by Igor Kholodov. 
//
// This library is free software; you can redistribute it and/or
// modify it under the terms of the GNU Lesser General Public
// License as published by the Free Software Foundation; either
// version 2.1 of the License, or (at your option) any later version.
//
// This library 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
// Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public
// License along with this library; if not, write to the
// Free Software Foundation, Inc.,
// 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
//
// mailto:cttl@users.sourceforge.net
// http://sourceforge.net/projects/cttl/

// xtl_metaphor.h

#ifndef _CTTL_XTL_METAPHOR_H_INCLUDED_
#define _CTTL_XTL_METAPHOR_H_INCLUDED_

#define CTTL_QWERTY_ "QWERTYUIOPASDFGHJKLZXCVBNM_qwertyuiopasdfghjklzxcvbnm"

#define CTTL_QWERTY_123_ "QWERTYUIOPASDFGHJKLZXCVBNM_qwertyuiopasdfghjklzxcvbnm1234567890"

#define CTTL_WCHAR_QWERTY_ L"QWERTYUIOPASDFGHJKLZXCVBNM_qwertyuiopasdfghjklzxcvbnm"

#define CTTL_WCHAR_QWERTY_123_ L"QWERTYUIOPASDFGHJKLZXCVBNM_qwertyuiopasdfghjklzxcvbnm1234567890"


namespace cttl {

using namespace cttl_impl;

inline xtl_wrap< xtl_opbinconcat< xtl_wrap< xtl_text_begin< CTTL_STD_STRING > >, xtl_wrap< xtl_text_end< CTTL_STD_STRING > > > >
literal()
{
    const CTTL_STD_CHAR CTTL_QWERTY_CONST[] = CTTL_QWERTY_;
    const CTTL_STD_CHAR CTTL_QWERTY_123_CONST[] = CTTL_QWERTY_123_;
    return xtl_wrap< xtl_opbinconcat< xtl_wrap< xtl_text_begin< CTTL_STD_STRING > >, xtl_wrap< xtl_text_end< CTTL_STD_STRING > > > >(
        //begin( CTTL_STD_STRING( CTTL_QWERTY_ ) ) ^ end( CTTL_STD_STRING( CTTL_QWERTY_123_ ) )
        begin( CTTL_STD_STRING( CTTL_QWERTY_CONST ) )
        ^
        end( CTTL_STD_STRING( CTTL_QWERTY_123_CONST ) )
        );
}

inline xtl_wrap< xtl_opbinconcat< xtl_wrap< xtl_text_begin< CTTL_STD_STRING > >, xtl_wrap< xtl_text_end< CTTL_STD_STRING > > > >
literal( CTTL_STD_CHAR const* text_begin_, CTTL_STD_CHAR const* text_end_ )
{
    // compile time function
    // literal() is example of a function returning complex expression of type "expr ^ expr"
    return xtl_wrap< xtl_opbinconcat< xtl_wrap< xtl_text_begin< CTTL_STD_STRING > >, xtl_wrap< xtl_text_end< CTTL_STD_STRING > > > >(
        begin( text_begin_ ) ^ end( text_end_ )
        );
}

inline xtl_wrap< xtl_opbinconcat< xtl_wrap< xtl_text_begin< CTTL_STD_STRING > >, xtl_wrap< xtl_text_end< CTTL_STD_STRING > > > >
literal( CTTL_STD_STRING const& text_begin_, CTTL_STD_STRING const& text_end_ )
{
    return xtl_wrap< xtl_opbinconcat< xtl_wrap< xtl_text_begin< CTTL_STD_STRING > >, xtl_wrap< xtl_text_end< CTTL_STD_STRING > > > >(
        begin( text_begin_ ) ^ end( text_end_ )
        );
}

inline xtl_wrap< xtl_opbinconcat< xtl_wrap< xtl_text_ref_begin< CTTL_STD_STRING > >, xtl_wrap< xtl_text_ref_end< CTTL_STD_STRING > > > >
literal( CTTL_STD_STRING const* text_begin_, CTTL_STD_STRING const* text_end_ )
{
    return xtl_wrap< xtl_opbinconcat< xtl_wrap< xtl_text_ref_begin< CTTL_STD_STRING > >, xtl_wrap< xtl_text_ref_end< CTTL_STD_STRING > > > >(
        begin( text_begin_ ) ^ end( text_end_ )
        );
}

inline xtl_wrap< xtl_opbinconcat< xtl_wrap< xtl_text_begin< CTTL_STD_WSTRING > >, xtl_wrap< xtl_text_end< CTTL_STD_WSTRING > > > >
wchar_literal()
{
    return xtl_wrap< xtl_opbinconcat< xtl_wrap< xtl_text_begin< CTTL_STD_WSTRING > >, xtl_wrap< xtl_text_end< CTTL_STD_WSTRING > > > >(
        begin( CTTL_STD_WSTRING( CTTL_WCHAR_QWERTY_ ) ) ^ end( CTTL_STD_WSTRING( CTTL_WCHAR_QWERTY_123_ ) )
        );
}


inline xtl_wrap< xtl_opbinconcat< xtl_wrap< xtl_text_begin< CTTL_STD_WSTRING > >, xtl_wrap< xtl_text_end< CTTL_STD_WSTRING > > > >
wchar_literal( CTTL_STD_WCHAR const* text_begin_, CTTL_STD_WCHAR const* text_end_ )
{
    return xtl_wrap< xtl_opbinconcat< xtl_wrap< xtl_text_begin< CTTL_STD_WSTRING > >, xtl_wrap< xtl_text_end< CTTL_STD_WSTRING > > > >(
        begin( text_begin_ ) ^ end( text_end_ )
        );
}


inline xtl_wrap< xtl_opbinconcat< xtl_wrap< xtl_text_begin< CTTL_STD_WSTRING > >, xtl_wrap< xtl_text_end< CTTL_STD_WSTRING > > > >
wchar_literal( CTTL_STD_WSTRING const& text_begin_, CTTL_STD_WSTRING const& text_end_ )
{
    return xtl_wrap< xtl_opbinconcat< xtl_wrap< xtl_text_begin< CTTL_STD_WSTRING > >, xtl_wrap< xtl_text_end< CTTL_STD_WSTRING > > > >(
        begin( text_begin_ ) ^ end( text_end_ )
        );
}


inline xtl_wrap< xtl_opbinconcat< xtl_wrap< xtl_text_ref_begin< CTTL_STD_WSTRING > >, xtl_wrap< xtl_text_ref_end< CTTL_STD_WSTRING > > > >
wchar_literal( CTTL_STD_WSTRING const* text_begin_, CTTL_STD_WSTRING const* text_end_ )
{
    return xtl_wrap< xtl_opbinconcat< xtl_wrap< xtl_text_ref_begin< CTTL_STD_WSTRING > >, xtl_wrap< xtl_text_ref_end< CTTL_STD_WSTRING > > > >(
        begin( text_begin_ ) ^ end( text_end_ )
        );
}


template< typename ExprT >
xtl_wrap<
    xtl_entity<
        xtl_wrap< ExprT >
    >
>
entity( xtl_wrap< ExprT > const& expr_ )
{
    typedef
        xtl_entity<
            xtl_wrap< ExprT >
        > xtl_entity_T;

    return xtl_wrap< xtl_entity_T >( xtl_entity_T( expr_ ) );
}


inline universe_T
entity()
{
    return universe_T(
        relaxed_bool_T( true ) + !end()
        );
}


}   // namespace cttl

#endif // _CTTL_XTL_METAPHOR_H_INCLUDED_

---