File: cstrings.ha

package info (click to toggle)
harec 0.25.2-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 1,420 kB
  • sloc: ansic: 19,905; asm: 247; makefile: 116; lisp: 80; sh: 45
file content (8 lines) | stat: -rw-r--r-- 186 bytes parent folder | download 
1
2
3
4
5
6
7
8
 
export fn toutf8(s: str) []u8 = *(&s: *[]u8);

fn alloc_cstr(s: str) *u8 = {
	let c: []u8 = alloc([], len(s) + 1)!;
	append(c, *(&s: *[]u8)...)!;
	append(c, 0)!;
	return *(&c: **u8);
};