1 files changed, 51 insertions, 0 deletions
diff --git a/src/internal/pe_impl.c b/src/internal/pe_impl.c
new file mode 100644
index 0000000..46069e8
--- /dev/null
+++ b/src/internal/pe_impl.c
@@ -0,0 +1,51 @@
+/*****************************************************************************/
+/*  pemagination: a (virtual) tour into portable bits and executable bytes   */
+/*  Copyright (C) 2013,2014,2015  Z. Gilboa                                  */
+/*  Released under GPLv2 and GPLv3; see COPYING.PEMAGINE.                    */
+/*****************************************************************************/
+
+#include <psxtypes/psxtypes.h>
+#include <pemagine/pemagine.h>
+#include "pe_impl.h"
+
+size_t pe_impl_strlen_ansi(const char * str)
+{
+	char * ch;
+	char * upper_bound;
+
+	/* sanity check */
+	upper_bound = (char *)str + PE_STR_MAX_SYMBOL_LEN_ALLOWED;
+
+	for (ch = (char *)str; (ch < upper_bound) && (*ch); ch++);
+
+	if (ch < upper_bound)
+		return (size_t)((intptr_t)ch - (intptr_t)str);
+	else
+		return -1;
+}
+
+
+size_t pe_impl_strlen_utf16(const wchar16_t * str)
+{
+	wchar16_t *	wch;
+	wchar16_t *	upper_bound;
+
+	/* sanity check */
+	upper_bound = (wchar16_t *)str + PE_STR_MAX_SYMBOL_LEN_ALLOWED;
+
+	for (wch = (wchar16_t *)str; (wch < upper_bound) && (*wch); wch++);
+
+	if (wch < upper_bound)
+		return (size_t)((intptr_t)wch - (intptr_t)str);
+	else
+		return -1;
+}
+
+
+wchar16_t pe_impl_utf16_char_to_lower(const wchar16_t c)
+{
+	if ((c >= 'A') && (c <= 'Z'))
+		return c + 'a' - 'A';
+	else
+		return c;
+}