43 lines
2.5 KiB
Plaintext
43 lines
2.5 KiB
Plaintext
pub Compare( p, q ) | lp, lq, d
|
|
{{
|
|
Compares two strings. Returns a negative number if first string is "less than" the second,
|
|
0 if they're identical, a positive number otherwise.
|
|
}}
|
|
lp := strsize(p)
|
|
lq := strsize(q)
|
|
repeat lp <# lq
|
|
if (d := byte[p++] - (byte[q++] & $7f))
|
|
return ~~d
|
|
return lp-lq
|
|
|
|
pub Copy( p, q )
|
|
bytemove( p, q, strsize(q) + 1 )
|
|
|
|
pub Append( p, q )
|
|
Copy( p + strsize(p), q )
|
|
|
|
pub ToUpper( p )
|
|
repeat while byte[p]
|
|
if "a" =< byte[p] and byte[p] =< "z"
|
|
byte[p] += constant( "A" - "a" )
|
|
++p
|
|
|
|
{{
|
|
Copyright (c) 2009 Michael Park
|
|
+------------------------------------------------------------------------------------------------------------------------------+
|
|
| TERMS OF USE: MIT License |
|
|
+------------------------------------------------------------------------------------------------------------------------------+
|
|
|Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation |
|
|
|files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, |
|
|
|modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software|
|
|
|is furnished to do so, subject to the following conditions: |
|
|
| |
|
|
|The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.|
|
|
| |
|
|
|THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE |
|
|
|WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR |
|
|
|COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, |
|
|
|ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. |
|
|
+------------------------------------------------------------------------------------------------------------------------------+
|
|
}}
|
|
|