70 lines
1,014 B
Plaintext
70 lines
1,014 B
Plaintext
length := fn(ptr: ^u8): uint {
|
|
len := 0
|
|
loop if *(ptr + len) == 0 return len else len += 1
|
|
}
|
|
|
|
display_int := fn(num: int, p: ^u8, radix: uint): ^u8 {
|
|
ptr := p
|
|
negative := num < 0
|
|
if negative {
|
|
num = -num
|
|
}
|
|
|
|
if radix == 2 {
|
|
*ptr = 48
|
|
ptr += 1;
|
|
*ptr = 98
|
|
ptr += 1
|
|
} else if radix == 16 {
|
|
*ptr = 48
|
|
ptr += 1;
|
|
*ptr = 120
|
|
ptr += 1
|
|
} else if radix == 8 {
|
|
*ptr = 48
|
|
ptr += 1;
|
|
*ptr = 111
|
|
ptr += 1
|
|
}
|
|
digits_start := ptr
|
|
if num == 0 {
|
|
*ptr = 48
|
|
ptr += 1
|
|
} else {
|
|
loop if num == 0 break else {
|
|
digit := num % @bitcast(radix)
|
|
if digit < 10 {
|
|
*ptr = @intcast(digit) + 48
|
|
} else {
|
|
*ptr = @intcast(digit) + 55
|
|
}
|
|
ptr += 1
|
|
num /= @bitcast(radix)
|
|
}
|
|
}
|
|
|
|
if negative {
|
|
*ptr = 45
|
|
ptr += 1
|
|
};
|
|
|
|
*ptr = 0
|
|
|
|
@inline(reverse, digits_start)
|
|
|
|
return p
|
|
}
|
|
|
|
reverse := fn(s: ^u8): void {
|
|
i := 0
|
|
j := @inline(length, s) - 1
|
|
temp := @as(u8, 0)
|
|
loop if i >= j break else {
|
|
temp = *(s + i);
|
|
*(s + i) = *(s + j);
|
|
*(s + j) = temp
|
|
i += 1
|
|
j -= 1
|
|
}
|
|
return
|
|
} |