按规划持续工作

wasm-port/vendor/linuxcnc/tests/interp/do-while-break/README

@@ -0,0 +1,3 @@
+Tests for bug 3420655 (http://sourceforge.net/tracker/?func=detail&atid=106744&aid=3420655&group_id=6744)
+
+

wasm-port/vendor/linuxcnc/tests/interp/do-while-break/bug.ngc

@@ -0,0 +1,7 @@
+o102 do
+    (print,@start of do-while-loop)
+o102 break
+    (print,@end of do-while-loop)
+o102 while [1]
+(print,@endsub)
+M2

wasm-port/vendor/linuxcnc/tests/interp/do-while-break/expected

@@ -0,0 +1,21 @@
+ N..... USE_LENGTH_UNITS(CANON_UNITS_MM)
+ N..... SET_G5X_OFFSET(1, 0.0000, 0.0000, 0.0000, 0.0000, 0.0000, 0.0000)
+ N..... SET_G92_OFFSET(0.0000, 0.0000, 0.0000, 0.0000, 0.0000, 0.0000)
+ N..... SET_XY_ROTATION(0.0000)
+ N..... SET_FEED_REFERENCE(CANON_XYZ)
+ N..... ON_RESET()
+ N..... MESSAGE("must-execute-outer")
+ N..... MESSAGE("must-execute-nested")
+ N..... MESSAGE("must-execute-inner")
+ N..... MESSAGE("post-inner-while")
+ N..... MESSAGE("post-nested-while")
+ N..... MESSAGE("post-outer-while")
+ N..... SET_G5X_OFFSET(1, 0.0000, 0.0000, 0.0000, 0.0000, 0.0000, 0.0000)
+ N..... SET_XY_ROTATION(0.0000)
+ N..... SET_FEED_MODE(0, 0)
+ N..... SET_FEED_RATE(0.0000)
+ N..... STOP_SPINDLE_TURNING(0)
+ N..... SET_SPINDLE_MODE(0 0.0000)
+ N..... PROGRAM_END()
+ N..... ON_RESET()
+ N..... ON_RESET()

wasm-port/vendor/linuxcnc/tests/interp/do-while-break/test.ngc

@@ -0,0 +1,30 @@
+
+#<one_pass> = 0
+
+o100 do
+    (debug,must-execute-outer)
+    #<one_pass> = [#<one_pass> + 1]
+    #<two_pass> = 0
+    o200 do
+        (debug,must-execute-nested)
+        #<two_pass> = [#<two_pass> + 1]
+        #<three_pass> = 0
+	o300 do
+            (debug,must-execute-inner)
+            #<three_pass> = [#<three_pass> + 1]
+	o300 break
+	     (debug,do-not-execute-inner)
+        o300 while [#<three_pass> LT 3]
+	(debug,post-inner-while)
+
+    o200 break
+        (debug,do-not-execute-nested)
+    o200 while [#<two_pass> LT 3]
+    (debug,post-nested-while)
+
+o100 break
+    (debug,do-not-execute-outer)
+o100 while [#<one_pass> LT 3]
+(debug,post-outer-while)
+
+M2

wasm-port/vendor/linuxcnc/tests/interp/do-while-break/test.sh

@@ -0,0 +1,3 @@
+#!/bin/bash
+rs274 -g test.ngc | awk '{$1=""; print}'
+exit "${PIPESTATUS[0]}"