File: itos.ha

package info (click to toggle)
harec 0.26.0-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 1,480 kB
  • sloc: ansic: 20,054; asm: 335; makefile: 116; lisp: 80; sh: 45
file content (28 lines) | stat: -rw-r--r-- 534 bytes parent folder | download
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
// SPDX-License-Identifier: MPL-2.0
// (c) Hare authors <https://harelang.org>

fn itos(i: int) str = {
	static let buf: [len("-2147483648")]u8 = [0...];
	let sl = buf[..0];
	if (i == 0) {
		return "0";
	} else if (i == -2147483648) {
		return "-2147483648";
	};
	if (i < 0) {
		static append(sl, '-')!;
		i = -i;
	};
	for (i > 0) {
		static append(sl, (i % 10): u8 + '0')!;
		i /= 10;
	};
	for (let s = 0z, e = len(sl) - 1; s < e) {
		let tmp = sl[s];
		sl[s] = sl[e];
		sl[e] = tmp;
		s += 1;
		e -= 1;
	};
	return *(&sl: *str);
};