init: ported Has_{String,Unicode} primitive function

Since there are a number of level 1 libraries using the string function, we have to port its primitive ones into HestiaKERNEL library. Let's do this. This patch ports Has_{String,Unicode} primitive function into HestiaKERNEL library into init/ directory. Co-authored-by: Shuralyov, Jean <[email protected]> Co-authored-by: Galyna, Cory <[email protected]> Co-authored-by: (Holloway) Chew, Kean Ho <[email protected]> Signed-off-by: (Holloway) Chew, Kean Ho <[email protected]>
JeanShuralyov · Nov 9, 2024 · a3c289b · a3c289b
1 parent d9ac552
commit a3c289b
Show file tree

Hide file tree

Showing 6 changed files with 220 additions and 0 deletions.
diff --git a/init/services/HestiaKERNEL/String/Has_String.ps1 b/init/services/HestiaKERNEL/String/Has_String.ps1
@@ -0,0 +1,31 @@
+# Copyright 2024 (Holloway) Chew, Kean Ho <[email protected]>
+#
+#
+# Licensed under (Holloway) Chew, Kean Ho’s Liberal License (the "License").
+# You must comply with the license to use the content. Get the License at:
+#
+#                 https://doi.org/10.5281/zenodo.13770769
+#
+# You MUST ensure any interaction with the content STRICTLY COMPLIES with
+# the permissions and limitations set forth in the license.
+. "${env:LIBS_HESTIA}\HestiaKERNEL\Unicode\Has_Unicode.ps1"
+. "${env:LIBS_HESTIA}\HestiaKERNEL\Unicode\To_Unicode_From_String.ps1"
+
+
+
+
+function HestiaKERNEL-Has-String {
+        param (
+                [string]$___input,
+                [string]$___target
+        )
+
+
+        # execute
+        $___content = HestiaKERNEL-To-Unicode-From-String $___input
+        $___chars = HestiaKERNEL-To-Unicode-From-String $___prefix
+
+
+        # report status
+        return HestiaKERNEL-Has-Unicode $___content $___chars
+}
diff --git a/init/services/HestiaKERNEL/String/Has_String.sh b/init/services/HestiaKERNEL/String/Has_String.sh
@@ -0,0 +1,31 @@
+#!/bin/sh
+# Copyright 2024 (Holloway) Chew, Kean Ho <[email protected]>
+#
+#
+# Licensed under (Holloway) Chew, Kean Ho’s Liberal License (the "License").
+# You must comply with the license to use the content. Get the License at:
+#
+#                 https://doi.org/10.5281/zenodo.13770769
+#
+# You MUST ensure any interaction with the content STRICTLY COMPLIES with
+# the permissions and limitations set forth in the license.
+. "${LIBS_HESTIA}/HestiaKERNEL/Unicode/Has_Unicode.sh"
+. "${LIBS_HESTIA}/HestiaKERNEL/Unicode/To_Unicode_From_String.sh"
+
+
+
+
+HestiaKERNEL_Has_String() {
+        #___input="$1"
+        #___target="$2"
+
+
+        # execute
+        ___content="$(HestiaKERNEL_To_Unicode_From_String "$1")"
+        ___chars="$(HestiaKERNEL_To_Unicode_From_String "$2")"
+        printf -- "%d" "$(HestiaKERNEL_Has_Unicode "$___content" "$___chars")"
+
+
+        # report status
+        return $?
+}
diff --git a/init/services/HestiaKERNEL/Unicode/Has_Unicode.ps1 b/init/services/HestiaKERNEL/Unicode/Has_Unicode.ps1
@@ -0,0 +1,59 @@
+# Copyright 2024 (Holloway) Chew, Kean Ho <[email protected]>
+#
+#
+# Licensed under (Holloway) Chew, Kean Ho’s Liberal License (the "License").
+# You must comply with the license to use the content. Get the License at:
+#
+#                 https://doi.org/10.5281/zenodo.13770769
+#
+# You MUST ensure any interaction with the content STRICTLY COMPLIES with
+# the permissions and limitations set forth in the license.
+. "${env:LIBS_HESTIA}\HestiaKERNEL\Errors\Error_Codes.ps1"
+. "${env:LIBS_HESTIA}\HestiaKERNEL\Unicode\Is_Unicode.ps1"
+
+
+
+
+function HestiaKERNEL-Has-Unicode {
+        param (
+                [uint32[]]$___content_unicode,
+                [uint32[]]$___target_unicode
+        )
+
+
+        # validate input
+        if (
+                ($(HestiaKERNEL-Is-Unicode $___content_unicode) -ne ${env:HestiaKERNEL_ERROR_OK}) -or
+                ($(HestiaKERNEL-Is-Unicode $___target_unicode) -ne ${env:HestiaKERNEL_ERROR_OK})
+        ) {
+                return ${env:HestiaKERNEL_ERROR_ENTITY_EMPTY}
+        }
+
+        if ($___target_unicode.Length -gt $___content_unicode.Length) {
+                return ${env:HestiaKERNEL_ERROR_DATA_MISMATCHED} - # guarenteed mismatched by length
+        }
+
+
+        # execute
+        $___target_index = 0
+        $___target_length = $___target_unicode.Length - 1
+        for ($___index = 0; $___index -le $___content_unicode.Length - 1; $___index++) {
+                if ($___target_index -ge $___target_length) {
+                        # PASS - complete match
+                        return ${env:HestiaKERNEL_ERROR_OK}
+                }
+
+                if ($___content_unicode[$___index] -eq $___target_unicode[$___target_index]) {
+                        # PASS - char matched
+                        $___target_index += 1
+                        continue
+                }
+
+                # FAIL - char mismatched
+                $___target_index = 0
+        }
+
+
+        # report status
+        return ${env:HestiaKERNEL_ERROR_DATA_MISMATCHED}
+}
diff --git a/init/services/HestiaKERNEL/Unicode/Has_Unicode.sh b/init/services/HestiaKERNEL/Unicode/Has_Unicode.sh
@@ -0,0 +1,73 @@
+#!/bin/sh
+# Copyright 2024 (Holloway) Chew, Kean Ho <[email protected]>
+#
+#
+# Licensed under (Holloway) Chew, Kean Ho’s Liberal License (the "License").
+# You must comply with the license to use the content. Get the License at:
+#
+#                 https://doi.org/10.5281/zenodo.13770769
+#
+# You MUST ensure any interaction with the content STRICTLY COMPLIES with
+# the permissions and limitations set forth in the license.
+. "${LIBS_HESTIA}/HestiaKERNEL/Errors/Error_Codes.sh"
+. "${LIBS_HESTIA}/HestiaKERNEL/Unicode/Is_Unicode.sh"
+
+
+
+
+HestiaKERNEL_Has_Unicode() {
+        #___content_unicode="$1"
+        #___target_unicode="$2"
+
+
+        # validate input
+        if [ $(HestiaKERNEL_Is_Unicode "$1") -ne $HestiaKERNEL_ERROR_OK ]; then
+                printf -- "%s" "$HestiaKERNEL_ERROR_ENTITY_EMPTY"
+                return $HestiaKERNEL_ERROR_ENTITY_EMPTY
+        fi
+
+        if [ $(HestiaKERNEL_Is_Unicode "$2") -ne $HestiaKERNEL_ERROR_OK ]; then
+                printf -- "%s" "$HestiaKERNEL_ERROR_DATA_EMPTY"
+                return $HestiaKERNEL_ERROR_DATA_EMPTY
+        fi
+
+
+        # execute
+        ___content_unicode="$1"
+        ___target_unicode="$2"
+        while [ ! "$___content_unicode" = "" ]; do
+                # get current character
+                ___current="${___content_unicode%%, *}"
+                ___content_unicode="${___content_unicode#"$___current"}"
+                if [ "${___content_unicode%"${___content_unicode#?}"}" = "," ]; then
+                        ___content_unicode="${___content_unicode#, }"
+                fi
+
+
+                # get target character
+                ___target="${___target_unicode%%, *}"
+                ___target_unicode="${___target_unicode#"$___target"}"
+                if [ "${___target_unicode%"${___target_unicode#?}"}" = "," ]; then
+                        ___target_unicode="${___target_unicode#, }"
+                fi
+
+
+                # FAIL - reset $___target_unicode
+                if [ ! "$___current" = "$___target" ]; then
+                        ___target_unicode="$2"
+                        continue
+                fi
+
+
+                # PASS - fully matched
+                if [ "$___current" = "$___target" ] && [ "$___target_unicode" = "" ]; then
+                        printf -- "%d" "$HestiaKERNEL_ERROR_OK"
+                        return $HestiaKERNEL_ERROR_OK
+                fi
+        done
+
+
+        # report status
+        printf -- "%d" "$HestiaKERNEL_ERROR_DATA_MISMATCHED"
+        return $HestiaKERNEL_ERROR_DATA_MISMATCHED
+}
diff --git a/init/start.ps1 b/init/start.ps1
@@ -112,6 +112,19 @@ ${env:LIBS_HESTIA} = "${env:LIBS_UPSCALER}\services"
 . "${env:LIBS_UPSCALER}\services\i18n\report-success.ps1"
 
 ### TEST ZONE
+Write-Host "---- Has_String ----"
+. "${env:LIBS_HESTIA}\HestiaKERNEL\String\Has_String.ps1"
+Write-Host "|$(HestiaKERNEL-Has-String "e你feeeff你你aerg aegE你F" '')|"
+Write-Host "|$(HestiaKERNEL-Has-String '' "e你f")|"
+Write-Host "|$(HestiaKERNEL-Has-String '' "e你a")|"
+Write-Host "|$(HestiaKERNEL-Has-String "e你feeeff你你aerg aegE你F" "e你feeeff你你aerg aegE你F")|"
+Write-Host "|$(HestiaKERNEL-Has-String "e你feeeff你你aerg aegE你F" "e你feeeff你你aerg aegE你FX")|"
+Write-Host "|$(HestiaKERNEL-Has-String "e你feeeff你你aerg aegE你F" "e你a")|"
+Write-Host "|$(HestiaKERNEL-Has-String "e你feeeff你你aerg aegE你F" "e你f")|"
+Write-Host "|$(HestiaKERNEL-Has-String "e你feeeff你你aerg aegE你F" "a")|"
+Write-Host "|$(HestiaKERNEL-Has-String "e你feeeff你你aerg aegE你F" "你")|"
+Write-Host "----"
+
 Write-Host "---- Trim_Whitespace_String ----"
 . "${env:LIBS_HESTIA}\HestiaKERNEL\String\Trim_Whitespace_String.ps1"
 Write-Host "|$(HestiaKERNEL-Trim-Whitespace-String '')|"

diff --git a/init/start.sh b/init/start.sh
@@ -102,6 +102,19 @@ LIBS_HESTIA="${LIBS_UPSCALER}/services"
 . "${LIBS_UPSCALER}/services/i18n/report-success.sh"
 
 ### TEST ZONE
+1>&2 printf -- "---- Has_String ----\n"
+. "${LIBS_HESTIA}/HestiaKERNEL/String/Has_String.sh"
+1>&2 printf -- "|%s|\n" "$(HestiaKERNEL_Has_String "e你feeeff你你aerg aegE你F" "")"
+1>&2 printf -- "|%s|\n" "$(HestiaKERNEL_Has_String "" "e你f")"
+1>&2 printf -- "|%s|\n" "$(HestiaKERNEL_Has_String "" "e你a")"
+1>&2 printf -- "|%s|\n" "$(HestiaKERNEL_Has_String "e你feeeff你你aerg aegE你F" "e你feeeff你你aerg aegE你F")"
+1>&2 printf -- "|%s|\n" "$(HestiaKERNEL_Has_String "e你feeeff你你aerg aegE你F" "e你feeeff你你aerg aegE你FX")"
+1>&2 printf -- "|%s|\n" "$(HestiaKERNEL_Has_String "e你feeeff你你aerg aegE你F" "e你a")"
+1>&2 printf -- "|%s|\n" "$(HestiaKERNEL_Has_String "e你feeeff你你aerg aegE你F" "e你f")"
+1>&2 printf -- "|%s|\n" "$(HestiaKERNEL_Has_String "e你feeeff你你aerg aegE你F" "a")"
+1>&2 printf -- "|%s|\n" "$(HestiaKERNEL_Has_String "e你feeeff你你aerg aegE你F" "你")"
+1>&2 printf -- "----\n"
+
 1>&2 printf -- "---- Trim_Whitespace_String ----\n"
 . "${LIBS_HESTIA}/HestiaKERNEL/String/Trim_Whitespace_String.sh"
 1>&2 printf -- "|%s|\n" "$(HestiaKERNEL_Trim_Whitespace_String "")"