forked from hollowaykeanho/Upscaler
-
Notifications
You must be signed in to change notification settings - Fork 0
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
init: ported Index_Any_Right_{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 Index_Any_Right_{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]>- Loading branch information
4 people
committed
Nov 12, 2024
1 parent
434d5e4
commit c6b9abc
Showing
8 changed files
with
284 additions
and
17 deletions.
There are no files selected for viewing
31 changes: 31 additions & 0 deletions
31
init/services/HestiaKERNEL/String/Index_Any_Right_String.ps1
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -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\Index_Any_Right_Unicode.ps1" | ||
| . "${env:LIBS_HESTIA}\HestiaKERNEL\Unicode\To_Unicode_From_String.ps1" | ||
|
|
||
|
|
||
|
|
||
|
|
||
| function HestiaKERNEL-Index-Any-Right-String { | ||
| param ( | ||
| [string]$___input, | ||
| [string]$___target | ||
| ) | ||
|
|
||
|
|
||
| # execute | ||
| $___content = HestiaKERNEL-To-Unicode-From-String $___input | ||
| $___chars = HestiaKERNEL-To-Unicode-From-String $___target | ||
|
|
||
|
|
||
| # report status | ||
| return HestiaKERNEL-Index-Any-Right-Unicode $___content $___chars | ||
| } |
31 changes: 31 additions & 0 deletions
31
init/services/HestiaKERNEL/String/Index_Any_Right_String.sh
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -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/Index_Any_Right_Unicode.sh" | ||
| . "${LIBS_HESTIA}/HestiaKERNEL/Unicode/To_Unicode_From_String.sh" | ||
|
|
||
|
|
||
|
|
||
|
|
||
| HestiaKERNEL_Index_Any_Right_String() { | ||
| #___input="$1" | ||
| #___target="$2" | ||
|
|
||
|
|
||
| # execute | ||
| ___content="$(HestiaKERNEL_To_Unicode_From_String "$1")" | ||
| ___chars="$(HestiaKERNEL_To_Unicode_From_String "$2")" | ||
| printf -- "%d" "$(HestiaKERNEL_Index_Any_Right_Unicode "$___content" "$___chars")" | ||
|
|
||
|
|
||
| # report status | ||
| return $? | ||
| } |
54 changes: 54 additions & 0 deletions
54
init/services/HestiaKERNEL/Unicode/Index_Any_Right_Unicode.ps1
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,54 @@ | ||
| # 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\Is_Unicode.ps1" | ||
|
|
||
|
|
||
|
|
||
|
|
||
| function HestiaKERNEL-Index-Any-Right-Unicode { | ||
| param ( | ||
| [uint32[]]$___content_unicode, | ||
| [uint32[]]$___target_unicode | ||
| ) | ||
| $___scan_index = -1 | ||
|
|
||
| # 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 $___scan_index | ||
| } | ||
|
|
||
| if ($___target_unicode.Length -gt $___content_unicode.Length) { | ||
| return $___scan_index | ||
| } | ||
|
|
||
|
|
||
| # execute | ||
| :scanner for ($___index = $___content_unicode.Length - 1; $___index -ge 0; $___index--) { | ||
| # get current character | ||
| $___current = $___content_unicode[$___index] | ||
|
|
||
|
|
||
| # scan character from given target | ||
| foreach ($___char in $___target_unicode) { | ||
| if ($___current -eq $___char) { | ||
| $___scan_index = $___index # exit early from O(m^2) timing ASAP | ||
| break scanner | ||
| } | ||
| } | ||
| } | ||
|
|
||
|
|
||
| # report status | ||
| return $___scan_index | ||
| } |
109 changes: 109 additions & 0 deletions
109
init/services/HestiaKERNEL/Unicode/Index_Any_Right_Unicode.sh
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,109 @@ | ||
| # 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_Index_Any_Right_Unicode() { | ||
| #___content_unicode="$1" | ||
| #___target_unicode="$2" | ||
| ___scan_index="-1" | ||
|
|
||
|
|
||
| # validate input | ||
| if [ "$(HestiaKERNEL_Is_Unicode "$1")" -ne $HestiaKERNEL_ERROR_OK ]; then | ||
| printf -- "%d" "$___scan_index" | ||
| return $HestiaKERNEL_ERROR_ENTITY_EMPTY | ||
| fi | ||
|
|
||
| if [ "$(HestiaKERNEL_Is_Unicode "$2")" -ne $HestiaKERNEL_ERROR_OK ]; then | ||
| printf -- "%d" "$___scan_index" | ||
| return $HestiaKERNEL_ERROR_DATA_EMPTY | ||
| fi | ||
|
|
||
|
|
||
| # execute | ||
| ___content_unicode="$1" | ||
| ___target_unicode="$2" | ||
| ___index=0 | ||
| ___is_scanning=0 | ||
| 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 | ||
|
|
||
|
|
||
| # continue counting content length if scan is completed | ||
| if [ $___is_scanning -ne 0 ]; then | ||
| ___index=$(($___index + 1)) | ||
| continue | ||
| fi | ||
|
|
||
|
|
||
| # get char from target character | ||
| ___target_unicode="$2" | ||
| ___mismatched=0 ## assume mismatched by default | ||
| while [ ! "$___target_unicode" = "" ]; do | ||
| ___target="${___target_unicode%%, *}" | ||
| ___target_unicode="${___target_unicode#"$___target"}" | ||
| if [ "${___target_unicode%"${___target_unicode#?}"}" = "," ]; then | ||
| ___target_unicode="${___target_unicode#, }" | ||
| fi | ||
|
|
||
| if [ "$___current" = "$___target" ]; then | ||
| ___target_unicode="" | ||
| ___mismatched=1 | ||
| break # exit early from O(m^2) timing ASAP | ||
| fi | ||
| done | ||
|
|
||
|
|
||
| # bail if mismatched | ||
| if [ $___mismatched -eq 0 ]; then | ||
| ___scan_index=-1 | ||
| ___index=$(($___index + 1)) | ||
| continue | ||
| fi | ||
|
|
||
|
|
||
| # it's a match - set $___scan_index if available | ||
| if [ $___scan_index -lt 0 ]; then | ||
| ___scan_index=$___index | ||
| ___is_scanning=1 | ||
| fi | ||
|
|
||
|
|
||
| # more characters - increase index and continue | ||
| ___index=$(($___index + 1)) | ||
| done | ||
|
|
||
|
|
||
| # report early if the scan is negative | ||
| if [ $___scan_index -lt 0 ]; then | ||
| printf -- "%d" "-1" | ||
| return $HestiaKERNEL_ERROR_OK | ||
| fi | ||
|
|
||
|
|
||
| # convert right-to-left index back to left-to-right index for | ||
| # programming language's consistency | ||
| ___scan_index="$(($___index - $___scan_index - 1))" | ||
|
|
||
|
|
||
| # report status | ||
| printf -- "%d" "$___scan_index" | ||
| return $HestiaKERNEL_ERROR_OK | ||
| } |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters