generated from ChewKeanHo/AutomataCI
-
Notifications
You must be signed in to change notification settings - Fork 26
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
init: ported Scan_Any_Left_{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 Scan_Any_Left_{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 13, 2024
1 parent
29a5615
commit 8a304eb
Showing
7 changed files
with
350 additions
and
0 deletions.
There are no files selected for viewing
33 changes: 33 additions & 0 deletions
33
init/services/HestiaKERNEL/String/Scan_Any_Left_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,33 @@ | ||
| # 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\Scan_Any_Left_Unicode.ps1" | ||
| . "${env:LIBS_HESTIA}\HestiaKERNEL\Unicode\To_Unicode_From_String.ps1" | ||
|
|
||
|
|
||
|
|
||
|
|
||
| function HestiaKERNEL-Scan-Any-Left-String { | ||
| param ( | ||
| [string]$___input, | ||
| [string]$___target, | ||
| [int32]$___count, | ||
| [int32]$___ignore | ||
| ) | ||
|
|
||
|
|
||
| # execute | ||
| $___content = HestiaKERNEL-To-Unicode-From-String $___input | ||
| $___chars = HestiaKERNEL-To-Unicode-From-String $___target | ||
|
|
||
|
|
||
| # report status | ||
| return HestiaKERNEL-Scan-Any-Left-Unicode $___content $___chars $___count $___ignore | ||
| } |
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,33 @@ | ||
| #!/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/Scan_Any_Left_Unicode.sh" | ||
| . "${LIBS_HESTIA}/HestiaKERNEL/Unicode/To_Unicode_From_String.sh" | ||
|
|
||
|
|
||
|
|
||
|
|
||
| HestiaKERNEL_Scan_Any_Left_String() { | ||
| #___input="$1" | ||
| #___target="$2" | ||
| #___count="$3" | ||
| #___ignore="$4" | ||
|
|
||
|
|
||
| # execute | ||
| ___content="$(HestiaKERNEL_To_Unicode_From_String "$1")" | ||
| ___chars="$(HestiaKERNEL_To_Unicode_From_String "$2")" | ||
| printf -- "%b" "$(HestiaKERNEL_Scan_Any_Left_Unicode "$___content" "$___chars" "$3" "$4")" | ||
|
|
||
|
|
||
| # report status | ||
| return $? | ||
| } |
83 changes: 83 additions & 0 deletions
83
init/services/HestiaKERNEL/Unicode/Scan_Any_Left_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,83 @@ | ||
| # 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" | ||
| . "${env:LIBS_HESTIA}\HestiaKERNEL\Number\Is_Number.ps1" | ||
|
|
||
|
|
||
|
|
||
|
|
||
| function HestiaKERNEL-Scan-Any-Left-Unicode { | ||
| param ( | ||
| [uint32[]]$___content_unicode, | ||
| [uint32[]]$___target_unicode, | ||
| [int32]$___count, | ||
| [int32]$___ignore | ||
| ) | ||
| $___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 [uint32[]]@() | ||
| } | ||
|
|
||
| if ( | ||
| ("${___count}" -eq "") -or | ||
| ($___count -le 0) | ||
| ) { | ||
| $___count = -1 | ||
| } | ||
|
|
||
| if ( | ||
| ("${___ignore}" -eq "") -or | ||
| ($___ignore -le 0) | ||
| ) { | ||
| $___ignore = -1 | ||
| } | ||
|
|
||
|
|
||
| # execute | ||
| [System.Collections.Generic.List[uint32]]$___list_index = @() | ||
| $___target_index = 0 | ||
| $___target_length = $___target_unicode.Length - 1 | ||
| :scan for ($___index = 0; $___index -le $___content_unicode.Length - 1; $___index++) { | ||
| # get current character | ||
| $___current = $___content_unicode[$___index] | ||
|
|
||
|
|
||
| # scan character from given charset | ||
| foreach ($___char in $___target_unicode) { | ||
| if ($___current -eq $___char) { | ||
| if ($___ignore -le 0) { | ||
| $___list_index.Add($___index) | ||
|
|
||
| if ($___count -gt 0) { | ||
| $___count -= 1 | ||
| if ($___count -le 0) { | ||
| break scan | ||
| } | ||
| } | ||
| } else { | ||
| $___ignore -= 1 | ||
| } | ||
|
|
||
| continue scan # exit early from O(m^2) timing ASAP | ||
| } | ||
| } | ||
| } | ||
|
|
||
|
|
||
| # report status | ||
| return [uint32[]]$___list_index | ||
| } |
105 changes: 105 additions & 0 deletions
105
init/services/HestiaKERNEL/Unicode/Scan_Any_Left_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,105 @@ | ||
| #!/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" | ||
| . "${LIBS_HESTIA}/HestiaKERNEL/Number/Is_Number.sh" | ||
|
|
||
|
|
||
|
|
||
|
|
||
| HestiaKERNEL_Scan_Any_Left_Unicode() { | ||
| #___content_unicode="$1" | ||
| #___target_unicode="$2" | ||
| #___count="$3" | ||
| #___ignore="$4" | ||
| ___scan_index=-1 | ||
|
|
||
|
|
||
| # validate input | ||
| if [ $(HestiaKERNEL_Is_Unicode "$1") -ne $HestiaKERNEL_ERROR_OK ]; then | ||
| printf -- "" | ||
| return $HestiaKERNEL_ERROR_ENTITY_EMPTY | ||
| fi | ||
|
|
||
| if [ $(HestiaKERNEL_Is_Unicode "$2") -ne $HestiaKERNEL_ERROR_OK ]; then | ||
| printf -- "" | ||
| return $HestiaKERNEL_ERROR_DATA_EMPTY | ||
| fi | ||
|
|
||
| ___count=-1 | ||
| if [ $(HestiaKERNEL_Is_Number "$3") -eq $HestiaKERNEL_ERROR_OK ]; then | ||
| ___count="$3" | ||
| fi | ||
|
|
||
| ___ignore=-1 | ||
| if [ $(HestiaKERNEL_Is_Number "$4") -eq $HestiaKERNEL_ERROR_OK ]; then | ||
| ___ignore="$4" | ||
| fi | ||
|
|
||
|
|
||
| # execute | ||
| ___list_index="" | ||
| ___content_unicode="$1" | ||
| ___target_unicode="$2" | ||
| ___index=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 | ||
|
|
||
|
|
||
| # get target character | ||
| ___target_unicode="$2" | ||
| ___scan_index=-1 | ||
| 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="" | ||
| ___scan_index="$___index" | ||
| break # exit early from O(m^2) timing ASAP | ||
| fi | ||
| done | ||
|
|
||
|
|
||
| # handle matches when available | ||
| if [ $___scan_index -ge 0 ]; then | ||
| if [ $___ignore -le 0 ]; then | ||
| ___list_index="${___list_index}${___scan_index}\n" | ||
| if [ $___count -gt 0 ]; then | ||
| ___count=$(($___count - 1)) | ||
| if [ $___count -le 0 ]; then | ||
| break | ||
| fi | ||
| fi | ||
| else | ||
| ___ignore=$(($___ignore - 1)) | ||
| fi | ||
| fi | ||
|
|
||
|
|
||
| # more characters - increase index and continue | ||
| ___index=$(($___index + 1)) | ||
| done | ||
|
|
||
|
|
||
| # report status | ||
| printf -- "%b" "${___list_index%"\n"}" | ||
| 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