root/trunk/orca/tests/working/func_refine3.r

REBOL[]

f: func [a /opt b c] [ print c ]
f/opt 1 2 3
;3
f 1
;none

;>> f/opt 1 2
;** Script Error: f is missing its c argument
;** Near: f/opt 1 2

f: func [a /o b /j c] [ print c ]
f 1
;none

f: func [a /o b /j c] [ print [b c] ]
f 1
;none none

;>> f/j 2
;** Script Error: f is missing its c argument
;** Near: f/j 2

f/j 1 2
;none 2

f/o 1 2
;2 none

f/j/o 1 2 3
;3 2

f/o/j 1 2 3
;2 3

f/j/j 1 2 3
;none 3

f: func [a /b b /j c] [ print [b c] ]
f/b 1 2
;true none

;>> f/b/k 1 2
;** Script Error: f has no refinement called k
;** Near: f/b/k 1 2

;>> f/b/b/b 1 2
;** Script Error: f is missing its b argument
;** Near: f/b/b/b 1 2

f/b/b/b 1 2 3 4
;true none

o: context [ f: func [a /b b /j c] [ print [b c] ] ]
o/f/b 1 2
;true none