63 lines
1.4 KiB
Plaintext
63 lines
1.4 KiB
Plaintext
|
|
; return a value via endsub
|
|
o<function1> sub
|
|
o<function1> endsub [4711]
|
|
|
|
; return a value via return
|
|
o<function2> sub
|
|
o100 return [4712]
|
|
o<function2> endsub
|
|
|
|
; a procedure without return value
|
|
o<proc> sub
|
|
o<proc> endsub
|
|
|
|
;py,from interpreter import *
|
|
|
|
;;;py,print this.return_value
|
|
;;;py,print this.value_returned
|
|
|
|
;py,assert equal(this.return_value,0.0)
|
|
;py,assert this.value_returned == 0
|
|
|
|
o<function1> call
|
|
; make sure they are properly set
|
|
;py,assert equal(this.return_value,4711.0)
|
|
;py,assert this.value_returned == 1
|
|
|
|
o<proc> call
|
|
; make sure they are cleared
|
|
;py,assert equal(this.return_value,0.0)
|
|
;py,assert this.value_returned == 0
|
|
|
|
o<function2> call
|
|
; make sure they are properly set again
|
|
;py,assert equal(this.return_value,4712.0)
|
|
;py,assert this.value_returned == 1
|
|
|
|
o<proc> call
|
|
; make sure they are cleared again
|
|
;py,assert equal(this.return_value,0.0)
|
|
;py,assert this.value_returned == 0
|
|
|
|
; now the same for Python oword subs
|
|
o<returns4711> call
|
|
;py,assert equal(this.return_value,4711.0)
|
|
;py,assert this.value_returned == 1
|
|
|
|
o<nonereturned> call
|
|
; make sure they are cleared again
|
|
;;py,assert equal(this.return_value,0.0)
|
|
;;py,assert this.value_returned == 0
|
|
|
|
o<returns4711> call
|
|
;py,assert equal(this.return_value,4711.0)
|
|
;py,assert this.value_returned == 1
|
|
|
|
o<endswithpass> call
|
|
; make sure they are cleared again
|
|
;py,assert equal(this.return_value,0.0)
|
|
;py,assert this.value_returned == 0
|
|
|
|
m2
|