Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2025-11-02 13:16:07 +00:00
Code Issues Projects Releases Wiki Activity

also add strings.ncompare() to virtual lib

Browse Source
This commit is contained in:
Irmen de Jong
2025-03-09 14:33:31 +01:00
parent 8f8d99e3ed
commit 8b08895d0f
4 changed files with 51 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/res/prog8lib/virtual/strings.p8
View File

@@ -123,6 +123,19 @@ strings {
}}
}
sub ncompare(str st1, str st2, ubyte length) -> byte {
; Compares two strings for sorting.
; Returns -1 (255), 0 or 1, meaning: string1 sorts before, equal or after string2.
; Only compares the strings from index 0 up to the length argument.
%ir {{
loadm.w r99000,strings.ncompare.st1
loadm.w r99001,strings.ncompare.st2
loadm.b r99100,strings.ncompare.length
syscall 58 (r99000.w, r99001.w, r99100.b) : r99100.b
returnr.b r99100
}}
}
sub lower(str st) -> ubyte {
; Lowercases the petscii string in-place. Returns length of the string.
; (for efficiency, non-letter characters > 128 will also not be left intact,