Hi while developping LinuxCNC features we saw some strange behavior of subroutines...
1. Oxxx RETURN works strange:
Code:
O123 sub
O<200> IF [5 LE 0.01]
O123 RETURN
O<200> ENDIF
O124 WHILE [1]
O124 BREAK
O124 ENDWHILE
O123 endsub(End definitions)
M02
This code gives "Unxepected character after O-word"
If we remove "O123 RETURN" or WHILE code is accepted.
2. This is more complicated example.
It's a subroutine which shuold generate rectangle pocket with multipass spiral milling of rectangle.
So we have two subs
first <multipass> sub - it makes passess for mulptipass machining
second spiral rectangle.
So here's the deal: in multipass sub there's O#<sub> CALL - a call to the sub defined in #<sub> parameter. And it does not work. It says that #<sub> parameter is undentified, dispite the first string of the sub #<sub> = #1.
We have tried several variations:
O#<sub> CALL [#8] [#9] [#10] [#11] [#12] [#13] [#14] [#15] [#16] [#17] [#18] [#19]
- does not work!
O#1 CALL [#8] [#9] [#10] [#11] [#12] [#13] [#14] [#15] [#16] [#17] [#18] [#19]
- works fine!
#<sub> = #1
O#<sub> CALL [#8] [#9] [#10] [#11] [#12] [#13] [#14] [#15] [#16] [#17] [#18] [#19]
- does not work!?!?!
How can it be?
the whole subroutine:
Code:
#<_tool_feed> = 100
(Rectangle sub definition)
O<multipass> SUB
#<sub> = #1
#<depth> = #2
#<step> = #3
#<surface> = #4
#<rappid> = #5
#<x0> = #6
#<y0> = #7
G0 Z#<rappid>
G0 X#<x0> Y#<y0>
#<z> = #<surface>
O<multipass-while> WHILE [#<z> GT #<depth>]
#<z> = [#<z>-#<step>]
O<multipass-if> IF [#<z> LT #<depth>]
#<z>=#<depth>
O<multipass-if> ENDIF
F#<_tool_feed>
G1 Z#<z>
(call pass sub with the restof parameters)
(DEBUG, #<sub>)
#<sub> = #1
O#<sub> CALL [#8] [#9] [#10] [#11] [#12] [#13] [#14] [#15] [#16] [#17] [#18] [#19]
O<multipass-while> ENDWHILE
G0 Z#<rappid>
O<multipass> ENDSUB
(Rectangle sub definition)
#<_spiral-rectangle> = 1000
O#<_spiral-rectangle> sub
#<cx> = #1
#<cy> = #2
#<w> = #3
#<h> = #4
#<spiral-step> = #5
#<a> = #6
O<spiral-rectangle-if-0001> IF [#<spiral-step> GT 0.01]
#<x1> = [#<cx>-#<w>/2]
#<x2> = [#<cx>+#<w>/2]
#<y1> = [#<cy>-#<h>/2]
#<y2> = [#<cy>+#<h>/2]
G1 X#<x1> Y#<y1>
; CW
O<spiral-rectangle-while> WHILE [1]
G1 X#<x1> Y#<y2>
#<x1> = [#<x1> + #<spiral-step>]
O<spiral-rectangle-if-0002> IF [#<x1> GT #<x2>]
G1 X[[#<x1>+#<x2>]/2]
G1 Y[#<y1>]
O<spiral-rectangle-while> BREAK
O<spiral-rectangle-if-0002> ENDIF
G1 X#<x2> Y#<y2>
#<y2> = [#<y2> - #<spiral-step>]
O<spiral-rectangle-if-0003> IF [#<y1> GT #<y2>]
G0 Y[[#<y1>+#<y2>]/2]
G0 X[#<x1>]
O<spiral-rectangle-while> BREAK
O<spiral-rectangle-if-0003> ENDIF
G1 X#<x2> Y#<y1>
#<x2> = [#<x2> - #<spiral-step>]
O<spiral-rectangle-if-0004> IF [#<x1> GT #<x2>]
G1 X[[#<x1>+#<x2>]/2]
G1 Y[#<y1>]
O<spiral-rectangle-while> BREAK
O<spiral-rectangle-if-0004> ENDIF
G1 X#<x1> Y#<y1>
#<y1> = [#<y1> + #<spiral-step>]
O<spiral-rectangle-if-0005> IF [#<y1> GT #<y2>]
G0 Y[[#<y1>+#<y2>]/2]
G0 X[#<x2>]
O<spiral-rectangle-while> BREAK
O<spiral-rectangle-if-0005> ENDIF
O<spiral-rectangle-while> ENDWHILE
O<spiral-rectangle-if-0001> ENDIF
O#<_spiral-rectangle> endsub(End definitions)
(Call spiral rectangle sub cX cY w h spiral-step depth depth-step surface rappid)
; sub depth step surf rappid #x0 #y0 #cx #cy w h [spir-step]
O<multipass> CALL [#<_spiral-rectangle>] [-5.1] [1] [0] [10] [5] [2] [1] [1] [10] [20] [.1]
M02
This subroutine should give something like this:
