Home
last modified time | relevance | path

Searched refs:PerlIO (Results 1 – 25 of 194) sorted by relevance

12345678

/openbsd-src/gnu/usr.bin/perl/
H A Dperliol.h21 IV (*Pushed) (pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab);
22 IV (*Popped) (pTHX_ PerlIO *f);
23 PerlIO *(*Open) (pTHX_ PerlIO_funcs *tab,
27 PerlIO *old, int narg, SV **args);
28 IV (*Binmode)(pTHX_ PerlIO *f);
29 SV *(*Getarg) (pTHX_ PerlIO *f, CLONE_PARAMS *param, int flags);
30 IV (*Fileno) (pTHX_ PerlIO *f);
31 PerlIO *(*Dup) (pTHX_ PerlIO *f, PerlIO *o, CLONE_PARAMS *param, int flags);
33 SSize_t(*Read) (pTHX_ PerlIO *f, void *vbuf, Size_t count);
34 SSize_t(*Unread) (pTHX_ PerlIO *f, const void *vbuf, Size_t count);
[all …]
H A Dperlio.h56 #ifndef PerlIO
62 typedef PerlIOl *PerlIO; typedef
63 #define PerlIO PerlIO macro
84 PERL_CALLCONV PerlIO *PerlIO_push(pTHX_ PerlIO *f, PERLIO_FUNCS_DECL(*tab),
86 PERL_CALLCONV void PerlIO_pop(pTHX_ PerlIO *f);
87 PERL_CALLCONV AV* PerlIO_get_layers(pTHX_ PerlIO *f);
189 PERL_CALLCONV int PerlIO_puts(PerlIO *, const char *);
192 PERL_CALLCONV PerlIO *PerlIO_open(const char *, const char *);
195 PERL_CALLCONV PerlIO *PerlIO_openn(pTHX_ const char *layers, const char *mode,
196 int fd, int imode, int perm, PerlIO *old,
[all …]
H A Dperlio.c17 /* This file contains the functions needed to implement PerlIO, which
36 * This file provides those parts of PerlIO abstraction
205 PerlIO_apply_layers(pTHX_ PerlIO *f, const char *mode, const char *names) in PerlIO_apply_layers()
214 Perl_croak(aTHX_ "Cannot apply \"%s\" in non-PerlIO perl", names); in PerlIO_apply_layers()
227 PerlIO_binmode(pTHX_ PerlIO *fp, int iotype, int mode, const char *names) in PerlIO_binmode()
232 PerlIO *
233 PerlIO_fdupopen(pTHX_ PerlIO *f, CLONE_PARAMS *param, int flags) in PerlIO_fdupopen()
265 PerlIO *
267 int imode, int perm, PerlIO *old, int narg, SV **args)
318 newXS("PerlIO
[all...]
/openbsd-src/gnu/usr.bin/perl/t/io/
H A Dlayers.t40 sub PerlIO::F_UTF8 () { 0x00008000 } # from perliol.h
110 check([ PerlIO::get_layers(STDIN) ],
117 check([ PerlIO::get_layers(F) ],
123 check([ PerlIO::get_layers(F) ],
129 check([ PerlIO::get_layers(F) ],
135 check([ PerlIO::get_layers(F) ],
141 check([ PerlIO::get_layers(F) ],
147 check([ PerlIO::get_layers(F) ],
153 check([ PerlIO::get_layers(F) ],
159 check([ PerlIO::get_layers(F) ],
[all …]
H A Dcrlf.t72 # require PerlIO; print PerlIO::get_layers(FOO), "\n";
74 # require PerlIO; print PerlIO::get_layers(FOO), "\n";
95 ok((() = grep($_ eq "utf8", PerlIO::get_layers($fh))),
98 ok(!(() = grep($_ eq "utf8", PerlIO::get_layers($fh))),
H A Dbinmode.t17 unless find PerlIO::Layer 'perlio';
27 unless find PerlIO::Layer 'perlio';
/openbsd-src/gnu/usr.bin/perl/pod/
H A Dperlapio.pod10 PerlIO *PerlIO_stdin(void);
11 PerlIO *PerlIO_stdout(void);
12 PerlIO *PerlIO_stderr(void);
14 PerlIO *PerlIO_open(const char *path,const char *mode);
15 PerlIO *PerlIO_fdopen(int fd, const char *mode);
16 PerlIO *PerlIO_reopen(const char *path, /* deprecated */
17 const char *mode, PerlIO *old);
18 int PerlIO_close(PerlIO *f);
21 int PerlIO_puts(PerlIO *f,const char *string);
22 int PerlIO_putc(PerlIO *
[all...]
H A Dperliol.pod12 This document describes the behavior and implementation of the PerlIO
17 The PerlIO abstraction was introduced in perl5.003_02 but languished as
22 The aim of the implementation is to provide the PerlIO API in a flexible
28 PerlIO is a stack of layers.
47 operating system: that's where PerlIO buffering comes into play.
49 When you do an open() and specify extra PerlIO layers to be deployed,
56 configuration, and Perl runtime configuration. See L<PerlIO>,
64 limited to the "top": PerlIO layers can be very 'active' and inspect
73 directly at the level of file descriptors: in the terms of PerlIO
95 typedef PerlIOl *PerlIO;
[all...]
/openbsd-src/gnu/usr.bin/perl/cpan/autodie/t/
H A Dutf8_open.t33 my @layers = PerlIO::get_layers($fh);
44 my @layers = PerlIO::get_layers($fh);
54 my @layers = PerlIO::get_layers($fh);
64 my @layers = PerlIO::get_layers($fh);
72 my @layers = PerlIO::get_layers($fh);
80 my @layers = PerlIO::get_layers($fh);
92 my @layers = PerlIO::get_layers($fh);
109 my @layers = PerlIO::get_layers($fh);
120 my @layers = PerlIO::get_layers($fh);
130 my @layers = PerlIO::get_layers($fh);
/openbsd-src/gnu/usr.bin/perl/ext/PerlIO-scalar/
H A Dscalar.xs
/openbsd-src/gnu/usr.bin/perl/ext/PerlIO-via/
H A Dvia.xs69 PerlIOVia_method(pTHX_ PerlIO * f, const char *method, CV ** save, int flags, in PerlIOVia_method()
132 PerlIOVia_pushed(pTHX_ PerlIO * f, const char *mode, SV * arg, in PerlIOVia_pushed()
155 newSVpvn(Perl_form(aTHX_ "PerlIO::via::%s", pkg), in PerlIOVia_pushed()
220 static PerlIO *
223 PerlIO * f, int narg, SV ** args) in PerlIOVia_open()
316 PerlIOVia_popped(pTHX_ PerlIO * f) in PerlIOVia_popped()
342 PerlIOVia_close(pTHX_ PerlIO * f) in PerlIOVia_close()
355 PerlIOVia_fileno(pTHX_ PerlIO * f) in PerlIOVia_fileno()
364 PerlIOVia_binmode(pTHX_ PerlIO * f) in PerlIOVia_binmode()
377 PerlIOVia_seek(pTHX_ PerlIO *
[all...]
/openbsd-src/gnu/usr.bin/perl/t/lib/warnings/
H A Dperlio11 Invalid separator character %c%c%c in PerlIO layer specification %s
16 Argument list not closed for PerlIO layer \"%.*s\""
20 Unknown PerlIO layer \"%.*s\"
22 # PerlIO/xyz.pm has 1;
34 Invalid separator character '-' in PerlIO layer specification -aa at - line 6.
44 Argument list not closed for PerlIO layer "aa(" at - line 6.
58 Unknown PerlIO layer "xyz" at - line 5.
/openbsd-src/gnu/usr.bin/perl/cpan/Encode/lib/Encode/
H A DPerlIO.pod3 Encode::PerlIO -- a detailed document on Encode and PerlIO
10 C<Encode> provides a "layer" (see L<PerlIO>) which can transform
49 You can also use PerlIO to convert larger amounts of data you don't
71 Here is a crude diagram of how filehandle, PerlIO, and Encode
74 filehandle <-> PerlIO PerlIO <-> scalar (read/printed)
78 When PerlIO receives data from either direction, it fills a buffer
80 Encode tries to convert the valid part and passes it back to PerlIO,
82 PerlIO then appends more data to the buffer, calls Encode again,
85 To do so, PerlIO always calls (de|en)code methods with CHECK set to 1.
88 PerlIO and Encode tries to encode (from utf8) more than 1024 bytes
[all …]
/openbsd-src/gnu/usr.bin/perl/ext/PerlIO-mmap/
H A Dmmap.xs27 PerlIOMmap_map(pTHX_ PerlIO *f) in PerlIOMmap_map()
91 PerlIOMmap_unmap(pTHX_ PerlIO *f) in PerlIOMmap_unmap()
119 PerlIOMmap_get_base(pTHX_ PerlIO *f) in PerlIOMmap_get_base()
152 PerlIOMmap_unread(pTHX_ PerlIO *f, const void *vbuf, Size_t count) in PerlIOMmap_unread()
183 PerlIOMmap_write(pTHX_ PerlIO *f, const void *vbuf, Size_t count) in PerlIOMmap_write()
210 PerlIOMmap_flush(pTHX_ PerlIO *f) in PerlIOMmap_flush()
238 PerlIOMmap_fill(pTHX_ PerlIO *f) in PerlIOMmap_fill()
251 static PerlIO *
252 PerlIOMmap_dup(pTHX_ PerlIO *f, PerlIO *o, CLONE_PARAMS *param, int flags) in PerlIOMmap_dup()
291 MODULE = PerlIO::mmap PACKAGE = PerlIO::mmap
/openbsd-src/gnu/usr.bin/perl/cpan/Term-ReadKey/
H A DReadKey.xs9 #define InputStream PerlIO *
382 STATIC int GetTermSizeVIO _((pTHX_ PerlIO * file,
386 STATIC int GetTermSizeGWINSZ _((pTHX_ PerlIO * file,
390 STATIC int GetTermSizeGSIZE _((pTHX_ PerlIO * file,
394 STATIC int GetTermSizeWin32 _((pTHX_ PerlIO * file,
398 STATIC int SetTerminalSize _((pTHX_ PerlIO * file,
402 STATIC void ReadMode _((pTHX_ PerlIO * file,int mode));
404 STATIC int pollfile _((pTHX_ PerlIO * file, double delay));
406 STATIC int setnodelay _((pTHX_ PerlIO * file, int mode));
408 STATIC int selectfile _((pTHX_ PerlIO * file, double delay));
[all …]
/openbsd-src/regress/usr.sbin/ospfd/
H A DPassFd.xs28 sendfd(PerlIO *so, PerlIO *fh)
57 PerlIO *
58 recvfd(PerlIO *so)
60 PerlIO *fh = NULL;
/openbsd-src/gnu/usr.bin/perl/lib/
H A Dopen.t23 like( $@, qr/needs explicit list of PerlIO layers/,
40 like( $warn, qr/Unknown PerlIO layer/,
56 like( $@, qr/Unknown PerlIO layer class/, 'should croak with unknown class' );
65 skip("no perlio", 1) unless (find PerlIO::Layer 'perlio');
/openbsd-src/gnu/usr.bin/perl/dist/IO/
H A DIO.xs31 #ifdef PerlIO
40 typedef PerlIO * InputStream;
41 typedef PerlIO * OutputStream;
67 #ifndef PerlIO in not_here()
154 #ifdef PerlIO
194 #ifdef PerlIO
236 #ifdef PerlIO
312 #ifdef PerlIO
357 #ifdef PerlIO
378 #ifdef PerlIO
[all...]
/openbsd-src/gnu/usr.bin/perl/ext/PerlIO-encoding/t/
H A Dfallback.t4 unless (find PerlIO::Layer 'perlio') {
29 $PerlIO::encoding::fallback = Encode::PERLQQ;
42 $PerlIO::encoding::fallback = Encode::HTMLCREF;
72 $PerlIO::encoding::fallback = Encode::WARN_ON_ERR;
/openbsd-src/gnu/usr.bin/perl/ext/PerlIO-encoding/
H A Dencoding.xs61 PerlIOEncode_getarg(pTHX_ PerlIO * f, CLONE_PARAMS * param, int flags) in PerlIOEncode_getarg()
97 PerlIOEncode_pushed(pTHX_ PerlIO * f, const char *mode, SV * arg, PerlIO_funcs *tab) in PerlIOEncode_pushed()
172 e->chk = newSVsv(get_sv("PerlIO::encoding::fallback", 0)); in PerlIOEncode_pushed()
174 Perl_croak(aTHX_ "PerlIO::encoding::fallback must be an integer"); in PerlIOEncode_pushed()
185 PerlIOEncode_popped(pTHX_ PerlIO * f) in PerlIOEncode_popped()
208 PerlIOEncode_get_base(pTHX_ PerlIO * f) in PerlIOEncode_get_base()
245 PerlIOEncode_fill(pTHX_ PerlIO * f) in PerlIOEncode_fill()
250 PerlIO *n; in PerlIOEncode_fill()
404 PerlIOEncode_flush(pTHX_ PerlIO * f) in PerlIOEncode_flush()
520 PerlIOEncode_close(pTHX_ PerlIO *
[all...]
/openbsd-src/gnu/usr.bin/perl/cpan/Encode/t/
H A DCJKT.t11 # should work w/o PerlIO now!
12 # unless (PerlIO::Layer->find('perlio')){
13 # print "1..0 # Skip: PerlIO required\n";
53 if (PerlIO::Layer->find('perlio')){
65 if (PerlIO::Layer->find('perlio')){
80 if (PerlIO::Layer->find('perlio')){
H A Dutf32warnings.t196 use PerlIO::encoding;
197 $PerlIO::encoding::fallback |= Encode::ONLY_PRAGMA_WARNINGS;
206 is($warn, undef, "Calling PerlIO :encoding on valid string produces no warnings");
207 is($str, "a", "PerlIO decodes string correctly");
219 …like($warn, qr/may not be portable.* at $script line /, "Calling PerlIO :encoding on invalid strin…
230 is($warn, undef, "Warning from PerlIO :encoding can be silenced via no warnings 'utf8'");
241 is($warn, undef, "Warning from PerlIO :encoding can be silenced via no warnings");
251 is($warn, undef, "Calling PerlIO :encoding on valid string produces no warnings");
252 is($str, $valid, "PerlIO encodes string correctly");
262 …like($warn, qr/UTF-16 surrogate.* at $script line /, "Calling PerlIO :encoding on invalid string w…
[all …]
/openbsd-src/gnu/usr.bin/perl/cpan/PerlIO-via-QuotedPrint/t/
H A DQuotedPrint.t7 unless (find PerlIO::Layer 'perlio') {
8 print "1..0 # Skip: PerlIO not used\n";
19 BEGIN { use_ok('PerlIO::via::QuotedPrint') }
37 open( my $out,'>:via(PerlIO::via::QuotedPrint)', $file ),
/openbsd-src/gnu/usr.bin/perl/ext/VMS-Stdio/
H A DStdio.xs83 newFH(PerlIO *fp, char type) { in newFH()
136 PerlIO *fp;
184 PerlIO * fp
194 PerlIO * fp
205 PerlIO * fp
275 PerlIO * fp
300 PerlIO *pio_fp;
367 PerlIO *pio_fp;
418 PerlIO * fp
434 PerlIO *fp = io ? IoOFP(io) : NULL; in IoOFP()
/openbsd-src/gnu/usr.bin/perl/ext/PerlIO-via/t/
H A Dvia.t6 print "1..0 # Skip -- Perl configured without PerlIO::via module\n";
22 BEGIN { use_ok('PerlIO::via::QuotedPrint'); }
24 ok( !open($fh,"<via(PerlIO::via::QuotedPrint)", $tmp), 'open QuotedPrint for input fails');
25 ok( open($fh,">via(PerlIO::via::QuotedPrint)", $tmp), 'open QuotedPrint for output');
29 ok( open($fh,"<via(PerlIO::via::QuotedPrint)", $tmp), 'open QuotedPrint for input');
77 sub PerlIO::via::Bar::PUSHED { $obj = shift; -1; } subroutine
81 is( $obj, 'PerlIO::via::Bar', 'search for package PerlIO::via::Bar' );
104 package PerlIO::via::XXX;
117 package PerlIO
[all...]

12345678