mirror of
https://github.com/KarolS/millfork.git
synced 2024-09-02 22:29:03 +00:00
83 lines
1.5 KiB
Plaintext
83 lines
1.5 KiB
Plaintext
import err
|
|
|
|
byte pstrlen(pointer str) {
|
|
return str[0]
|
|
}
|
|
|
|
sbyte pstrcmp(pointer str1, pointer str2) {
|
|
byte size
|
|
byte i
|
|
size = str1[0]
|
|
if str2[0] < size {
|
|
size = str2[0]
|
|
}
|
|
for i,1,to,size{
|
|
if str1[i] != str2[i] {
|
|
if str1[i] < str2[i] { return -1 }
|
|
return 1
|
|
}
|
|
}
|
|
if str1[0] == size {
|
|
if str2[0] == size { return 0 }
|
|
return -1
|
|
}
|
|
return 1
|
|
}
|
|
|
|
void pstrcopy(pointer dest, pointer src) {
|
|
byte i
|
|
byte size
|
|
size = src[0]
|
|
for i,0,parallelto,size{
|
|
dest[i] = src[i]
|
|
}
|
|
}
|
|
|
|
void pstrappend(pointer buffer, pointer str) {
|
|
byte i
|
|
byte size
|
|
pointer dest
|
|
dest = buffer + buffer[0] + 1
|
|
size = str[0]
|
|
for i,0,paralleluntil,size{
|
|
dest[i] = str[i + 1]
|
|
}
|
|
buffer[0] += size
|
|
}
|
|
|
|
void pstrpaste(pointer dest, pointer str) {
|
|
byte i, size
|
|
dest -= 1
|
|
size = str[0]
|
|
for i,1,parallelto,size{
|
|
dest[i] = str[i]
|
|
}
|
|
}
|
|
|
|
void pstrappendchar(pointer buffer, byte char) {
|
|
buffer[0] += 1
|
|
buffer[buffer[0]] = char
|
|
}
|
|
|
|
word pstr2word(pointer str) {
|
|
byte size, i, char
|
|
word next, result
|
|
result = 0
|
|
size = str[0]
|
|
errno = err_ok
|
|
for i,1,to,size {
|
|
char = str[i]
|
|
if '0' <= char <= '0' + 9 {
|
|
next = result * 10
|
|
next += char - '0'
|
|
if next < result {
|
|
errno = err_range
|
|
}
|
|
result = next
|
|
} else {
|
|
errno = err_numberformat
|
|
return result
|
|
}
|
|
}
|
|
return result
|
|
} |