diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2002-02-21 01:06:14 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-21 17:28:23 +0000 |
| commit | 18529408d66077360bcde31227a7fb97dfc49222 (patch) | |
| tree | 940b010257b7ddcef7fc18baec0bc75724bc3640 /proto.h | |
| parent | 7a2cf369e16a2ef8ad45d686139073724ed14fe2 (diff) | |
| download | perl-18529408d66077360bcde31227a7fb97dfc49222.tar.gz | |
grouping in pack/unpack
Message-ID: <20020221060614.A29836@math.ohio-state.edu>
p4raw-id: //depot/perl@14815
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -614,6 +614,7 @@ PERL_CALLCONV void Perl_set_numeric_local(pTHX); PERL_CALLCONV void Perl_set_numeric_radix(pTHX); PERL_CALLCONV void Perl_set_numeric_standard(pTHX); PERL_CALLCONV void Perl_require_pv(pTHX_ const char* pv); +PERL_CALLCONV void Perl_pack_cat(pTHX_ SV *cat, char *pat, char *patend, SV **beglist, SV **endlist, SV ***next_in_list, U32 flags); PERL_CALLCONV void Perl_pidgone(pTHX_ Pid_t pid, int status); PERL_CALLCONV void Perl_pmflag(pTHX_ U16* pmfl, int ch); PERL_CALLCONV OP* Perl_pmruntime(pTHX_ OP* pm, OP* expr, OP* repl); @@ -824,6 +825,7 @@ PERL_CALLCONV I32 Perl_unlnk(pTHX_ char* f); #if defined(USE_5005THREADS) PERL_CALLCONV void Perl_unlock_condpair(pTHX_ void* svv); #endif +PERL_CALLCONV I32 Perl_unpack_str(pTHX_ char *pat, char *patend, char *s, char *strbeg, char *strend, char **new_s, I32 ocnt, U32 flags); PERL_CALLCONV void Perl_unsharepvn(pTHX_ const char* sv, I32 len, U32 hash); PERL_CALLCONV void Perl_unshare_hek(pTHX_ HEK* hek); PERL_CALLCONV void Perl_utilize(pTHX_ int aver, I32 floor, OP* version, OP* id, OP* arg); @@ -1104,6 +1106,9 @@ STATIC void S_doencodes(pTHX_ SV* sv, char* s, I32 len); STATIC SV* S_mul128(pTHX_ SV *sv, U8 m); STATIC SV* S_is_an_int(pTHX_ char *s, STRLEN l); STATIC int S_div128(pTHX_ SV *pnum, bool *done); +STATIC char * S_next_symbol(pTHX_ char *pat, char *patend); +STATIC I32 S_find_count(pTHX_ char **ppat, char *patend, int *star); +STATIC char * S_group_end(pTHX_ char *pat, char *patend, char ender); #endif #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT) |