blob: e923c25f754e5f23451cf1bc8cf6858f3e21e387 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
isalpha c {
return (or (and (moreeq c 'A')
(lesseq c 'Z'))
(and (moreeq c 'a')
(lesseq c 'z')));
}
isdigit c {
return (and (moreeq c '0')
(lesseq c '9'));
}
isalnum c {
return (or (isalpha c) (isdigit c));
}
isascii c {
return (and (moreeq c 0) (lesseq c 127));
}
isprint c {
return (and (moreeq c ' ') (lesseq c '~'));
}
strlen s {
let size;
size = 0;
while [s size] {
size = (add size 1);
}
return size;
}
memset s c n {
while (more n 0) {
n = (sub n 1);
[s n] = c;
}
return s;
}
bzero s n {
(memset s 0 n);
}
memcpy dest src n {
while (more n 0) {
n = (sub n 1);
[dest n] = [src n];
}
return dest;
}
memmove dest src n {
if (less dest src) {
let i;
i = 0;
while (less i n) {
[dest i] = [src i];
i = (add i 1);
}
} else {
(memcpy dest src n);
}
return dest;
}
|