shithub: mc

Info  •  Files  •  Log  •  Branches

Add sljoin function

--- a/libstd/Makefile

+++ b/libstd/Makefile

@@ -13,6 +13,7 @@

     slappend.myr \

     slcp.myr \

     sleq.myr \

+    sljoin.myr \

     slurp.myr \

     strcmp.myr \

     sys.myr \

--- /dev/null

+++ b/libstd/sljoin.myr

@@ -1,0 +1,15 @@

+use "alloc.use"

+use "slcp.use"

+

+pkg std =

+	generic sljoin	: (dst : @a[:], src : @a[:]	-> @a[:])

+;;

+

+generic sljoin = {dst, src

+	var len

+

+	len = dst.len

+	dst = slgrow(dst, len + src.len)

+	slcp(dst[len:], src)

+	-> dst 

+}