Import LinuxCNC source tree

tests/interp/m98m99/02-variables/expected

@@ -0,0 +1,25 @@
+ 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..... COMMENT("Fanuc params have global scope; rs274ngc params #1..#30 have local scope ")
+ MAIN/FANUC: PRE-M98: 1=42.010000; 30=42.300000; 31=42.310000
+ O1: START: 1=42.010000; 30=42.300000; 31=42.310000
+ O1: END: 1=13.010000; 30=13.300000; 31=13.310000
+ MAIN/FANUC: POST-M98: 1=13.010000; 30=13.300000; 31=13.310000
+ MAIN/RS274NGC: PRE-O-CALL: 1=42.010000; 30=42.300000; 31=42.310000
+ O2: START: 1=0.000000; 30=0.000000; 31=42.310000
+ O2: END: 1=13.010000; 30=13.300000; 31=13.310000
+ MAIN/RS274NGC: POST-O-CALL: 1=42.010000; 30=42.300000; 31=13.310000
+ 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..... PALLET_SHUTTLE()
+ N..... PROGRAM_END()
+ N..... ON_RESET()
+ N..... ON_RESET()

tests/interp/m98m99/02-variables/test.ngc

@@ -0,0 +1,37 @@
+%
+( Fanuc params have global scope; rs274ngc params #1..#30 have local scope )
+
+; Fanuc-style:  Test that all params are globally changed
+#1 = 42.01
+#30 = 42.30
+#31 = 42.31
+(PRINT,Q MAIN/FANUC:  PRE-M98:  1=#1; 30=#30; 31=#31)
+M98 P1
+(PRINT,Q MAIN/FANUC:  POST-M98:  1=#1; 30=#30; 31=#31)
+
+; RS274NGC-style:  Test that params #1..#30 are not globally changed
+#1 = 42.01
+#30 = 42.30
+#31 = 42.31
+(PRINT,Q MAIN/RS274NGC:  PRE-O-CALL:  1=#1; 30=#30; 31=#31)
+O2 call
+(PRINT,Q MAIN/RS274NGC:  POST-O-CALL:  1=#1; 30=#30; 31=#31)
+M30
+
+O1  ; Fanuc-style
+(PRINT,Q O1:  START:  1=#1; 30=#30; 31=#31)
+#1 = 13.01
+#30 = 13.30
+#31 = 13.31
+(PRINT,Q O1:  END:  1=#1; 30=#30; 31=#31)
+M99
+
+O2 sub  ; rs274ngc-style
+(PRINT,Q O2:  START:  1=#1; 30=#30; 31=#31)
+#1 = 13.01
+#30 = 13.30
+#31 = 13.31
+(PRINT,Q O2:  END:  1=#1; 30=#30; 31=#31)
+O2 endsub
+
+%

tests/interp/m98m99/02-variables/test.sh

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