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.pl | |
| 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.pl')
| -rwxr-xr-x | embed.pl | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -1494,6 +1494,9 @@ Ap |bool |do_open |GV* gv|char* name|I32 len|int as_raw \ Ap |bool |do_open9 |GV *gv|char *name|I32 len|int as_raw \ |int rawmode|int rawperm|PerlIO *supplied_fp \ |SV *svs|I32 num +Ap |bool |do_openn |GV *gv|char *name|I32 len|int as_raw \ + |int rawmode|int rawperm|PerlIO *supplied_fp \ + |SV **svp|I32 num p |void |do_pipe |SV* sv|GV* rgv|GV* wgv p |bool |do_print |SV* sv|PerlIO* fp p |OP* |do_readline |