added join function

lisätty join-funktio
fergusq · Jun 19, 2018 · 1096ff8 · 1096ff8
1 parent 0920e34
commit 1096ff8
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/src/org/kaivos/röda/commands/HeadAndTailPopulator.java b/src/org/kaivos/röda/commands/HeadAndTailPopulator.java
@@ -97,5 +97,17 @@ public static void populateHeadAndTail(RödaScope S) {
 			in.forAll(out::push);
 			args.forEach(out::push);
 		}, Arrays.asList(new Parameter("values", false)), true));
+
+		S.setLocal("join", RödaNativeFunction.of("join", (typeargs, args, kwargs, scope, in, out) -> {
+			RödaValue sep = args.get(0);
+			int i = 0;
+			while (true) {
+				RödaValue value = in.pull();
+				if (value == null) break;
+				if (i != 0) out.push(sep);
+				out.push(value);
+				i++;
+			}
+		}, Arrays.asList(new Parameter("value", false)), false));
 	}
 }