shithub: mc

Info  •  Files  •  Log  •  Branches

Add function to split source into compns.

    Splits source filename into base, platform, suffix tuple. eg:

        foo+linux-i686.myr => ("foo", "+linux-i686", ".myr")

--- a/util.myr

+++ b/util.myr

@@ -2,11 +2,11 @@

 pkg bld =

 	const run	: (cmd : byte[:][:], dir : byte[:] -> void)

+	const srcsplit	: (src : byte[:] -> (byte[:], byte[:], byte[:]))

 	const swapsuffix	: (f : byte[:], suff : byte[:], newsuff : byte[:] -> byte[:])

 	const strlistfree	: (sl : byte[:][:] -> void)

 ;;

-

 const run = {cmd, dir

 	var pid

 	var status

@@ -46,6 +46,25 @@

 		;;

 	;;

 	std.put("\n")

+}

+

+const srcsplit = {src

+	var platf, suff

+

+	platf = ""

+	suff = ""

+	match std.strrfind(src, ".")

+	| `std.Some i:

+		suff = src[i:]

+		src = src[:i]

+	;;

+

+	match std.strrfind(src, "+")

+	| `std.Some i:

+		platf = src[i:]

+		src = src[:i]

+	;;

+	-> (src, platf, suff)

 }

 const swapsuffix = {f, suff, newsuff