| /* Licensed to the Apache Software Foundation (ASF) under one or more |
| * contributor license agreements. See the NOTICE file distributed with |
| * this work for additional information regarding copyright ownership. |
| * The ASF licenses this file to You under the Apache License, Version 2.0 |
| * (the "License"); you may not use this file except in compliance with |
| * the License. You may obtain a copy of the License at |
| * |
| * http://www.apache.org/licenses/LICENSE-2.0 |
| * |
| * Unless required by applicable law or agreed to in writing, software |
| * distributed under the License is distributed on an "AS IS" BASIS, |
| * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. |
| * See the License for the specific language governing permissions and |
| * limitations under the License. |
| */ |
| |
| #ifndef MODPERL_IO_H |
| #define MODPERL_IO_H |
| |
| #include "modperl_io_apache.h" |
| |
| /* |
| * bleedperl change #11639 switch tied handle magic |
| * from living in the gv to the GvIOp(gv), so we have to deal |
| * with both to support 5.6.x |
| */ |
| #if MP_PERL_VERSION_AT_LEAST(5, 7, 0) |
| # define TIEHANDLE_SV(handle) (SV*)GvIOp((SV*)handle) |
| #else |
| # define TIEHANDLE_SV(handle) (SV*)handle |
| #endif |
| |
| #define dHANDLE(name) GV *handle = gv_fetchpv(name, TRUE, SVt_PVIO) |
| |
| #define IoFLUSH_off(gv) \ |
| IoFLAGS(GvIOp((gv))) &= ~IOf_FLUSH |
| |
| #define IoFLUSH_on(gv) \ |
| IoFLAGS(GvIOp((gv))) |= IOf_FLUSH |
| |
| #define IoFLUSH(gv) \ |
| (IoFLAGS(GvIOp((gv))) & IOf_FLUSH) |
| |
| MP_INLINE void modperl_io_handle_tie(pTHX_ GV *handle, |
| char *classname, void *ptr); |
| MP_INLINE GV *modperl_io_tie_stdout(pTHX_ request_rec *r); |
| |
| MP_INLINE GV *modperl_io_tie_stdin(pTHX_ request_rec *r); |
| |
| MP_INLINE int modperl_io_handle_tied(pTHX_ GV *handle, char *classname); |
| |
| MP_INLINE void modperl_io_handle_untie(pTHX_ GV *handle); |
| |
| MP_INLINE GV *modperl_io_perlio_override_stdin(pTHX_ request_rec *r); |
| |
| MP_INLINE GV *modperl_io_perlio_override_stdout(pTHX_ request_rec *r); |
| |
| MP_INLINE void modperl_io_perlio_restore_stdin(pTHX_ GV *handle); |
| |
| MP_INLINE void modperl_io_perlio_restore_stdout(pTHX_ GV *handle); |
| |
| #if defined(MP_IO_TIE_SFIO) |
| /* XXX */ |
| #elif defined(MP_IO_TIE_PERLIO) |
| #define modperl_io_override_stdin modperl_io_perlio_override_stdin |
| #define modperl_io_override_stdout modperl_io_perlio_override_stdout |
| #define modperl_io_restore_stdin modperl_io_perlio_restore_stdin |
| #define modperl_io_restore_stdout modperl_io_perlio_restore_stdout |
| #else |
| #define modperl_io_override_stdin modperl_io_tie_stdin |
| #define modperl_io_override_stdout modperl_io_tie_stdout |
| #define modperl_io_restore_stdin modperl_io_handle_untie |
| #define modperl_io_restore_stdout modperl_io_handle_untie |
| #endif |
| |
| |
| #endif /* MODPERL_IO_H */ |