block-004.fth

( Block 4: case / case! / end-cases / switch  )

( NOTE: you can't use z" or ." when using 'case!' )
( Also, any case for #0 has to be the 1st case in the table )

find switch loaded?

case ( N-- )
v, find drop v, ;
case!( N-- )
v, here v, 1 state wc! ;
end-cases
0 v, 0 v, ;
switch( N TBL-- )
>t >abegin

      a@ t@ @ =if
t@ cell+ @ >r atdrop exitthen

      t@ 2 cells + t!

      t@ @if0
atdrop exitthen

  again
;

( Example usage ... )
find switch loaded?( this keeps the example from being loaded )

case-a
." (case a)" ;
case-b
." (case b)" ;

vhere const cases
 'a' case    case-a
 'b' case!  
123 . case-a space case-b 789 . ;
end-cases

'a' cases switch cr
'b' cases switch cr