require '_h2ph_pre.ph';

no warnings 'redefine';

unless(defined(&__INDIRECT_ARRAY__)) {
    eval 'sub __INDIRECT_ARRAY__ () {1;}' unless defined(&__INDIRECT_ARRAY__);
    undef(&_DEFINE_VALARRAY_OPERATOR) if defined(&_DEFINE_VALARRAY_OPERATOR);
    eval 'sub _DEFINE_VALARRAY_OPERATOR {
        my($op, $name) = @_;
	    eval q( &template< &typename  &_Tp>  &inline  &void  &indirect_array< &_Tp>:: &operator$op= ( &const  &valarray< &_Tp>&  &__v)  &const {  &_Array_augmented_$name ( &_M_array,  &_M_index,  &_Array< &_Tp> ( &__v),  &_M_sz); }  &template< &typename  &_Tp>  &template< &class  &_Dom>  &inline  &void  &indirect_array< &_Tp>:: &operator$op= ( &const  &_Expr< &_Dom, &_Tp>&  &__e)  &const {  &_Array_augmented_$name ( &_M_array,  &_M_index,  &__e,  &_M_sz); });
    }' unless defined(&_DEFINE_VALARRAY_OPERATOR);
    undef(&_DEFINE_VALARRAY_OPERATOR) if defined(&_DEFINE_VALARRAY_OPERATOR);
}
1;
