summaryrefslogtreecommitdiff
path: root/embed.fnc
diff options
context:
space:
mode:
authorYves Orton <demerphq@gmail.com>2006-07-15 20:56:03 +0200
committerDave Mitchell <davem@fdisolutions.com>2006-07-15 21:59:43 +0000
commitab3bbdeb874c2a82798e2c9cc4b61acf5866b410 (patch)
treed7f35959899ec0f8a908e66bcfc7046d6191108c /embed.fnc
parent9acf5c354e13d8fc6d84c97a85840d7d803d8c62 (diff)
downloadperl-ab3bbdeb874c2a82798e2c9cc4b61acf5866b410.tar.gz
Updated escaping code. utf8 regex debug output improvements
Message-Id: <9b18b3110607150956o6273a16clb1518911d1945d4@mail.gmail.com> p4raw-id: //depot/perl@28582
Diffstat (limited to 'embed.fnc')
-rw-r--r--embed.fnc12
1 files changed, 10 insertions, 2 deletions
diff --git a/embed.fnc b/embed.fnc
index bfd7dcebfe..f57cf92e31 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -982,8 +982,15 @@ Apdbm |void |sv_usepvn_mg |NN SV *sv|NULLOK char *ptr|STRLEN len
ApR |MGVTBL*|get_vtbl |int vtbl_id
Apd |char* |pv_display |NN SV *dsv|NN const char *pv|STRLEN cur|STRLEN len \
|STRLEN pvlim
-Apd |char* |pv_escape |NN SV *dsv|NN const char *pv|const STRLEN count \
- |const STRLEN max|const U32 flags
+Apd |char* |pv_escape |NN SV *dsv|NN U8 const * const str\
+ |const STRLEN count|const STRLEN max\
+ |NULLOK STRLEN * const escaped\
+ |const U32 flags
+Apd |char* |pv_pretty |NN SV *dsv|NN U8 const * const str\
+ |const STRLEN count|const STRLEN max\
+ |NULLOK U8 const * const start_color\
+ |NULLOK U8 const * const end_color\
+ |const U32 flags
Afp |void |dump_indent |I32 level|NN PerlIO *file|NN const char* pat|...
Ap |void |dump_vindent |I32 level|NN PerlIO *file|NN const char* pat \
|NULLOK va_list *args
@@ -1354,6 +1361,7 @@ Es |void |to_utf8_substr |NN regexp * prog
Es |void |to_byte_substr |NN regexp * prog
# ifdef DEBUGGING
Es |void |dump_exec_pos |NN const char *locinput|NN const regnode *scan|const bool do_utf8
+Es |void |debug_start_match|NN const regexp *prog|const bool do_utf8|NN const char *start|NN const char *end|NN const char *blurb
# endif
#endif