ADD list.splice(other)

Author: Michal-Martinek

std/ds/list.mx

@@ -177,6 +177,26 @@
 		%seg:load(%this, %list_node:value) ; return detached.value
 	}
 
+	; this, other: *list ->
+	; splice list elements from other to front of this
+	; doesn't reallocate any nodes
+	%void_method{ list_splice, 2, 1,
+		%if { ; other is empty: do nothing
+			%seg:movptr(%arg, 1)
+			lmeq 0
+		,
+			%returnFunc(list_splice)
+		}
+		ldm ; other.first
+		str 0
+		%seg:move(%this, %head) ; tail = this.head, this.head = other.first
+		swap
+		%seg:store(%local, 0)
+		%call(__list_index_last)
+		%seg:load(%local, 0) ; last_spliced.next = tail
+		%seg:store(%this, %list_node:next)
+	}
+
 	; this ->
 	%void_method{ list_print, 1, 0,
 		outc '['

tests/std-list.mx

@@ -123,7 +123,27 @@
 	%callListMethod(list_size, 2)
 	%printResult('C', '\n')
 
-	; TODO splice
+	; A.splice(C)
+	outc 'S'
+	outc 'P'
+	outc 'L'
+	outc 'I'
+	outc 'C'
+	outc 'E'
+	outc ':'
+	outc ' '
+
+	%callListMethodWithArgs(list_splice, 0, %seg:push(%local, 2)) ; empty C
+
+	%callListMethodWithArgs(list_insert_after, 2, %stack:push(9))
+	%callListMethodWithArgs(list_insert_after, 2, %stack:push(8))
+
+	%print_spaced( outc 'C' )
+	%print_spaced( %callListMethod(list_print, 2) )
+
+	%callListMethodWithArgs(list_splice, 0, %seg:push(%local, 2)) ; splice [8, 9] up front
+
+	%print_endl( %callListMethod(list_print, 0) )
 
 	; set elems to their idx, emit node addresses
 	%print_spaced( outc 'A' )

tests/std-list.txt

@@ -1,6 +1,6 @@
 :returncode 0
 
-:stdout 310
+:stdout 372
 - VM -
 [6, 5, 7]
 IEs
@@ -26,9 +26,10 @@ I:5
 A[6, 5, 2, 7] B[] C[]
 A F:6 L:7
 S A:4 B:0 C:0
-A & 2058 2054 2066 2062 
-A[0, 1, 2, 3] B[] C[]
-20: 2057 2053 2065 2061 
+SPLICE: C [8, 9] [8, 9, 6, 5, 2, 7]
+A & 2074 2070 2058 2054 2066 2062 
+A[0, 1, 2, 3, 4, 5] B[] C[]
+20: 2073 2069 2057 2053 2065 2061 
 D0
 21: 
 2050: