shithub: mc

Info  •  Files  •  Log  •  Branches

Add sldup() function to standard library.

--- a/libstd/Makefile

+++ b/libstd/Makefile

@@ -17,6 +17,7 @@

     rand.myr \

     slappend.myr \

     slcp.myr \

+    sldup.myr \

     sleq.myr \

     sljoin.myr \

     slurp.myr \

--- /dev/null

+++ b/libstd/sldup.myr

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

+use "alloc.use"

+use "die.use"

+use "slcp.use"

+

+pkg std =

+	generic sldup : (sl : @a[:] -> @a[:])

+;;

+

+generic sldup = {sl

+	var ret

+

+	ret = slalloc(sl.len)

+	slcp(ret, sl)

+	-> ret

+}