diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-01-20 19:42:30 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-01-20 19:42:30 +0000 |
| commit | a567e93b903bc9849952c06533059c2f2e2fb226 (patch) | |
| tree | a93a49d4b98bf39c527f7d33fb2568de0fc2c201 /embed.h | |
| parent | 3b6eb69b03afe7feeb11252d06d9daecc9c262f1 (diff) | |
| download | perl-a567e93b903bc9849952c06533059c2f2e2fb226.tar.gz | |
Infrastructure to allow:
open($fh,"|-",@array);
to be implemented
i.e. mark pp_open as needing a stack mark, and make pp_open
process its args in that style (and pass them _all_ to tied handles OPEN).
Invent do_openn() which takes SV ** at allow it to see multiple args.
Note this does not _do_ anything yet.
p4raw-id: //depot/perlio@8484
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -182,6 +182,7 @@ #define do_kv Perl_do_kv #define do_open Perl_do_open #define do_open9 Perl_do_open9 +#define do_openn Perl_do_openn #define do_pipe Perl_do_pipe #define do_print Perl_do_print #define do_readline Perl_do_readline @@ -1664,6 +1665,7 @@ #define do_kv() Perl_do_kv(aTHX) #define do_open(a,b,c,d,e,f,g) Perl_do_open(aTHX_ a,b,c,d,e,f,g) #define do_open9(a,b,c,d,e,f,g,h,i) Perl_do_open9(aTHX_ a,b,c,d,e,f,g,h,i) +#define do_openn(a,b,c,d,e,f,g,h,i) Perl_do_openn(aTHX_ a,b,c,d,e,f,g,h,i) #define do_pipe(a,b,c) Perl_do_pipe(aTHX_ a,b,c) #define do_print(a,b) Perl_do_print(aTHX_ a,b) #define do_readline() Perl_do_readline(aTHX) @@ -3261,6 +3263,8 @@ #define do_open Perl_do_open #define Perl_do_open9 CPerlObj::Perl_do_open9 #define do_open9 Perl_do_open9 +#define Perl_do_openn CPerlObj::Perl_do_openn +#define do_openn Perl_do_openn #define Perl_do_pipe CPerlObj::Perl_do_pipe #define do_pipe Perl_do_pipe #define Perl_do_print CPerlObj::Perl_do_print |