diff options
| author | LAUN Wolfgang <wolfgang.laun@alcatel.at> | 2003-03-17 14:55:37 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-03-17 19:15:23 +0000 |
| commit | cf168e39389efcb6b27a40cc81f2937bbead9505 (patch) | |
| tree | bace10f1f4824b6c3d0cbca8d16e4864872a63fd /proto.h | |
| parent | db7db7ca6ff0ca0cb35267b6ae13682c932483f7 (diff) | |
| download | perl-cf168e39389efcb6b27a40cc81f2937bbead9505.tar.gz | |
Integrate:
[ 19010]
Subject: pack changes and related fixes
Message-ID: <75A46BF1A9D8D311863A00508B6259A405F17EB8@ATTMSX4>
p4raw-link: @19010 on //depot/perl: 497043642ba2050cd87b28b50f6a01a0f50d0e90
p4raw-id: //depot/maint-5.8/perl@19011
p4raw-integrated: from //depot/perl@19009 'copy in'
t/lib/warnings/pp_pack (@10908..) pod/perlpacktut.pod
(@17743..) lib/diagnostics.pm (@18488..) 'merge in' t/op/pack.t
(@18752..) pp_pack.c (@18801..) embed.fnc embed.h (@18870..)
proto.h (@18871..) perl.h (@18925..) pod/perldiag.pod
(@18943..) pod/perlfunc.pod (@18991..)
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 12 |
1 files changed, 7 insertions, 5 deletions
@@ -1118,14 +1118,16 @@ STATIC U32 S_seed(pTHX); #endif #if defined(PERL_IN_PP_PACK_C) || defined(PERL_DECL_PROT) -STATIC void S_doencodes(pTHX_ SV* sv, char* s, I32 len); +STATIC I32 S_unpack_rec(pTHX_ tempsym_t* symptr, char *s, char *strbeg, char *strend, char **new_s); +STATIC SV ** S_pack_rec(pTHX_ SV *cat, tempsym_t* symptr, SV **beglist, SV **endlist); STATIC SV* S_mul128(pTHX_ SV *sv, U8 m); +STATIC I32 S_measure_struct(pTHX_ tempsym_t* symptr); +STATIC char * S_group_end(pTHX_ char *pat, char *patend, char ender); +STATIC char * S_get_num(pTHX_ char *ppat, I32 *); +STATIC bool S_next_symbol(pTHX_ tempsym_t* symptr); +STATIC void S_doencodes(pTHX_ SV* sv, char* s, I32 len); 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); -STATIC I32 S_measure_struct(pTHX_ char *pat, char *patend); #endif #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT) |