Add mblower and mbupper functions.

These are Unicode-safe versions of lower() and upper()
This commit is contained in:
Dianne Skoll
2026-02-05 12:41:36 -05:00
parent c0c49be0b5
commit ea2312c0b2
6 changed files with 230 additions and 24 deletions

View File

@@ -687,10 +687,12 @@ maxlen
maybexs
mbchar
mbindex
mblower
mbpad
mbstowcs
mbstrlen
mbsubstr
mbupper
md
memcpy
messageBox

View File

@@ -16767,7 +16767,11 @@ mbpad("
../tests/test.rem(1902): Invalid value for system variable
../tests/test.rem(1903): Invalid value for system variable
../tests/test.rem(1904): Invalid value for system variable
DynBuf Mallocs: 1124 mallocs; 31872896 bytes
mbupper("öÖçÇéôñÑÉÊ") => "ÖÖÇÇÉÔÑÑÉÊ"
mblower("öÖçÇéôñÑÉÊ") => "ööççéôññéê"
upper("öÖçÇéôñÑÉÊ") => "öÖçÇéôñÑÉÊ"
lower("öÖçÇéôñÑÉÊ") => "öÖçÇéôñÑÉÊ"
DynBuf Mallocs: 1132 mallocs; 31873408 bytes
Variable hash table statistics:
Entries: 100146; Buckets: 87719; Non-empty Buckets: 66303
Maxlen: 5; Minlen: 0; Avglen: 1.142; Stddev: 0.878; Avg nonempty len: 1.510
@@ -16789,7 +16793,7 @@ Expression nodes high-water: 302076
Expression nodes leaked: 0
Parse level high-water: 34
Max expr node evaluations per line: 2001
Total expression node evaluations: 106738
Total expression node evaluations: 106746
Test 2
@@ -24776,9 +24780,11 @@ lower
max
mbchar
mbindex
mblower
mbpad
mbstrlen
mbsubstr
mbupper
min
minsfromutc
minute

View File

@@ -1903,6 +1903,14 @@ SET $TimeSep "FOO"
SET $DateSep "BAR"
SET $DefaultColor "My oh my, what lovely eyes!"
# mbupper and mblower
DEBUG +x
SET a mbupper("öÖçÇéôñÑÉÊ")
SET a mblower("öÖçÇéôñÑÉÊ")
SET a upper("öÖçÇéôñÑÉÊ")
SET a lower("öÖçÇéôñÑÉÊ")
DEBUG -x
# Don't want Remind to queue reminders
EXIT