From 55d09dc854b450c4051bea8318009a46a7c083f7 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Sat, 9 Feb 2013 21:23:30 -0700 Subject: Extract common code to an inline function This fairly short paradigm is repeated in several places; a later commit will improve it. --- inline.h | 22 ++++++++++++++++++++-- 1 file changed, 20 insertions(+), 2 deletions(-) (limited to 'inline.h') diff --git a/inline.h b/inline.h index 066edf1bda..63a5e064d1 100644 --- a/inline.h +++ b/inline.h @@ -203,8 +203,26 @@ S_croak_memory_wrap(void) /* ------------------------------- utf8.h ------------------------------- */ -/* These exist only to replace the macros they formerly were so that their use - * can be deprecated */ +PERL_STATIC_INLINE void +S_append_utf8_from_native_byte(const U8 byte, U8** dest) +{ + /* Takes an input 'byte' (Latin1 or EBCDIC) and appends it to the UTF-8 + * encoded string at '*dest', updating '*dest' to include it */ + + const U8 uv = NATIVE_TO_LATIN1(byte); + + PERL_ARGS_ASSERT_APPEND_UTF8_FROM_NATIVE_BYTE; + + if (UNI_IS_INVARIANT(uv)) + *(*dest)++ = UNI_TO_NATIVE(uv); + else { + *(*dest)++ = UTF8_EIGHT_BIT_HI(uv); + *(*dest)++ = UTF8_EIGHT_BIT_LO(uv); + } +} + +/* These two exist only to replace the macros they formerly were so that their + * use can be deprecated */ PERL_STATIC_INLINE bool S_isIDFIRST_lazy(pTHX_ const char* p) -- cgit v1.2.1