diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-04-24 15:50:31 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-04-24 15:50:31 +0000 |
| commit | 0a4a3262b6bd15d09314b8113a697941b4c96620 (patch) | |
| tree | 5da9d48666a72c74e3df58837849a78992f7b717 /ext/Encode/Encode.xs | |
| parent | 3894def1afb359ac1e2f71100c2120898927583e (diff) | |
| parent | 642fd4ec89ceddb0cf486e3e53c2a028f331f4cd (diff) | |
| download | perl-0a4a3262b6bd15d09314b8113a697941b4c96620.tar.gz | |
Submit an old integrate
p4raw-id: //depot/perlio@16131
Diffstat (limited to 'ext/Encode/Encode.xs')
| -rw-r--r-- | ext/Encode/Encode.xs | 35 |
1 files changed, 32 insertions, 3 deletions
diff --git a/ext/Encode/Encode.xs b/ext/Encode/Encode.xs index 992fbfeb2d..be69c33352 100644 --- a/ext/Encode/Encode.xs +++ b/ext/Encode/Encode.xs @@ -1,5 +1,5 @@ /* - $Id: Encode.xs,v 1.31 2002/04/20 23:43:47 dankogai Exp dankogai $ + $Id: Encode.xs,v 1.34 2002/04/22 20:27:30 dankogai Exp $ */ #define PERL_NO_GET_CONTEXT @@ -8,6 +8,7 @@ #include "XSUB.h" #define U8 U8 #include "encode.h" +# define PERLIO_FILENAME "PerlIO/encoding.pm" /* set 1 or more to profile. t/encoding.t dumps core because of Perl_warner and PerlIO don't work well */ @@ -22,8 +23,9 @@ return (y)0; /* fool picky compilers */ \ } /**/ -UNIMPLEMENTED(_encoded_utf8_to_bytes, I32); -UNIMPLEMENTED(_encoded_bytes_to_utf8, I32); + +UNIMPLEMENTED(_encoded_utf8_to_bytes, I32) +UNIMPLEMENTED(_encoded_bytes_to_utf8, I32) void Encode_XSEncoding(pTHX_ encode_t * enc) @@ -263,6 +265,33 @@ CODE: XSRETURN(1); } +void +Method_needs_lines(obj) +SV * obj +CODE: +{ + encode_t *enc = INT2PTR(encode_t *, SvIV(SvRV(obj))); + ST(0) = &PL_sv_no; + XSRETURN(1); +} + +void +Method_perlio_ok(obj) +SV * obj +CODE: +{ + encode_t *enc = INT2PTR(encode_t *, SvIV(SvRV(obj))); + require_pv(PERLIO_FILENAME); + if (hv_exists(get_hv("INC", 0), + PERLIO_FILENAME, strlen(PERLIO_FILENAME))) + { + ST(0) = &PL_sv_yes; + }else{ + ST(0) = &PL_sv_no; + } + XSRETURN(1); +} + MODULE = Encode PACKAGE = Encode PROTOTYPES: ENABLE |