add strstarts strends strcasestarts strcaseends wcsstarts wcsends wcscasestarts wcscaseends

Signed-off-by: Mattias Andrée <maandree@operamail.com>

2 files changed, 168 insertions, 0 deletions

diff --git a/src/string/strstr.c b/src/string/strstr.c
index d63628a..34b3120 100644
--- a/src/string/strstr.c
+++ b/src/string/strstr.c
@@ -182,3 +182,87 @@ void* memcasemem(const void* __haystack, size_t haystack_length,
 #undef CASE
 }
 
+
+/**
+ * Check whether a string starts with a specific string.
+ * This check is case sensitive.
+ * 
+ * This is a slibc extension.
+ * 
+ * @param   string   The string to inspect.
+ * @param   desired  The desired beginning of the string.
+ * @return           `string` if `string` begins with
+ *                   `desired`, `NULL` otherwise.
+ */
+char* strstarts(const char* string, const char* desired)
+{
+  size_t n = strlen(string);
+  size_t m = strlen(desired);
+  if (n < m)
+    return NULL;
+  return memcmp(string, desired, m) ? NULL : string;
+}
+
+
+/**
+ * Check whether a string ends with a specific string.
+ * This check is case sensitive.
+ * 
+ * This is a slibc extension.
+ * 
+ * @param   string   The string to inspect.
+ * @param   desired  The desired ending of the string.
+ * @return           The `string`, where `desired` beings if
+ *                   `string` ends with `desired`, `NULL` otherwise.
+ */
+char* strends(const char* string, const char* desired)
+{
+  size_t n = strlen(string);
+  size_t m = strlen(desired);
+  if (n < m)
+    return NULL;
+  return memcmp(string + (n - m), desired, m) ? NULL : (string + n);
+}
+
+
+/**
+ * Check whether a string starts with a specific string.
+ * This check is case insensitive.
+ * 
+ * This is a slibc extension.
+ * 
+ * @param   string   The string to inspect.
+ * @param   desired  The desired beginning of the string.
+ * @return           `string` if `string` begins with
+ *                   `desired`, `NULL` otherwise.
+ */
+char* strcasestarts(const char* string, const char* desired)
+{
+  size_t n = strlen(string);
+  size_t m = strlen(desired);
+  if (n < m)
+    return NULL;
+  return memcasecmp(string, desired, m) ? NULL : string;
+}
+
+
+/**
+ * Check whether a string ends with a specific string.
+ * This check is case insensitive.
+ * 
+ * This is a slibc extension.
+ * 
+ * @param   string   The string to inspect.
+ * @param   desired  The desired ending of the string.
+ * @return           The `string`, where `desired` beings if
+ *                   `string` ends with `desired`, `NULL` otherwise.
+ */
+char* strcaseends(const char* string, const char* desired)
+{
+  size_t n = strlen(string);
+  size_t m = strlen(desired);
+  if (n < m)
+    return NULL;
+  return memcasecmp(string + (n - m), desired, m) ? NULL : (string + n);
+}
+
diff --git a/src/wchar/wcsstr.c b/src/wchar/wcsstr.c
index f54ff6e..bc2bbec 100644
--- a/src/wchar/wcsstr.c
+++ b/src/wchar/wcsstr.c
@@ -192,3 +192,87 @@ wchar_t* wmemcasemem(const wchar_t* haystack, size_t haystack_length,
 #undef CASE
 }
 
+
+/**
+ * Check whether a string starts with a specific string.
+ * This check is case sensitive.
+ * 
+ * This is a slibc extension.
+ * 
+ * @param   string   The string to inspect.
+ * @param   desired  The desired beginning of the string.
+ * @return           `string` if `string` begins with
+ *                   `desired`, `NULL` otherwise.
+ */
+wchar_t* wcsstarts(const wchar_t* string, const wchar_t* desired)
+{
+  size_t n = wcslen(string);
+  size_t m = wcslen(desired);
+  if (n < m)
+    return NULL;
+  return wmemcmp(string, desired, m) ? NULL : string;
+}
+
+
+/**
+ * Check whether a string ends with a specific string.
+ * This check is case sensitive.
+ * 
+ * This is a slibc extension.
+ * 
+ * @param   string   The string to inspect.
+ * @param   desired  The desired ending of the string.
+ * @return           The `string`, where `desired` beings if
+ *                   `string` ends with `desired`, `NULL` otherwise.
+ */
+wchar_t* wcsends(const wchar_t* string, const wchar_t* desired)
+{
+  size_t n = wcslen(string);
+  size_t m = wcslen(desired);
+  if (n < m)
+    return NULL;
+  return wmemcmp(string + (n - m), desired, m) ? NULL : (string + n);
+}
+
+
+/**
+ * Check whether a string starts with a specific string.
+ * This check is case insensitive.
+ * 
+ * This is a slibc extension.
+ * 
+ * @param   string   The string to inspect.
+ * @param   desired  The desired beginning of the string.
+ * @return           `string` if `string` begins with
+ *                   `desired`, `NULL` otherwise.
+ */
+wchar_t* wcscasestarts(const wchar_t* string, const wchar_t* desired)
+{
+  size_t n = wcslen(string);
+  size_t m = wcslen(desired);
+  if (n < m)
+    return NULL;
+  return wmemcasecmp(string, desired, m) ? NULL : string;
+}
+
+
+/**
+ * Check whether a string ends with a specific string.
+ * This check is case insensitive.
+ * 
+ * This is a slibc extension.
+ * 
+ * @param   string   The string to inspect.
+ * @param   desired  The desired ending of the string.
+ * @return           The `string`, where `desired` beings if
+ *                   `string` ends with `desired`, `NULL` otherwise.
+ */
+wchar_t* wcscaseends(const wchar_t* string, const wchar_t* desired)
+{
+  size_t n = wcslen(string);
+  size_t m = wcslen(desired);
+  if (n < m)
+    return NULL;
+  return wmemcasecmp(string + (n - m), desired, m) ? NULL : (string + n);
+}
+