shithub: mc

ref: 8cd117e55ac16cda7d40738cbd48fc8f92066da4
dir: /libstd/strjoin.myr/

View raw version 
use "alloc.use"
use "die.use"
use "slcp.use"

pkg std =
	const strcat	: (a : byte[:], b : byte[:] -> byte[:])
	const strjoin	: (strings : byte[:][:] -> byte[:])
;;

const strcat = {a, b
	-> strjoin([a, b][:])
}

const strjoin = {strings
	var len, off
	var i
	var s

	len = 0
	for i = 0; i < strings.len; i++
		len += strings[i].len
	;;

	s = slalloc(len)
	off = 0
	for i = 0; i < strings.len; i++
		slcp(s[off:off + strings[i].len], strings[i])
		off += strings[i].len
	;;
	-> s
}