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
|
package odin_libc
@(require, linkage="strong", link_name="isdigit")
isdigit :: proc "c" (c: i32) -> b32 {
switch c {
case '0'..='9': return true
case: return false
}
}
@(require, linkage="strong", link_name="isblank")
isblank :: proc "c" (c: i32) -> b32 {
switch c {
case '\t', ' ': return true
case: return false
}
}
@(require, linkage="strong", link_name="isspace")
isspace :: proc "c" (c: i32) -> b32 {
switch c {
case '\t', ' ', '\n', '\v', '\f', '\r': return true
case: return false
}
}
@(require, linkage="strong", link_name="toupper")
toupper :: proc "c" (c: i32) -> i32 {
if c >= 'a' && c <= 'z' {
return c - ('a' - 'A')
}
return c
}
|
