CASE — CASE...OF...ENDOF...ENDCASE 구조 시작
CASE — CASE...OF...ENDOF...ENDCASE 구조 시작
CASE는 CASE...OF...ENDOF...ENDCASE 선택 구조의 시작을 표시하는 코어 확장 단어예요.
본문
컴파일 (Compilation)
( C: -- case-sys )
CASE...OF...ENDOF...ENDCASE 구조의 시작을 표시해요. 아래 주어진 실행 시점 의미를 현재 정의에 추가해요.
실행 (Run-time)
( -- )
실행을 계속해요.
참조 (See)
- 6.2.1342 ENDCASE
- 6.2.1343 ENDOF
- 6.2.1950 OF
- A.6.2.0873 CASE
합리성 (Rationale)
전형적인 사용:
: X ...
CASE
test1 OF ... ENDOF
testn OF ... ENDOF
... ( default )
ENDCASE ...
;
테스트 (Testing)
T{ 1 cs1 -> 111 }T
T{ 2 cs1 -> 222 }T
T{ 3 cs1 -> 333 }T
T{ 4 cs1 -> 999 }T
: cs2 >R CASE
-1 OF CASE R@ 1 OF 100 ENDOF
2 OF 200 ENDOF
>R -300 R>
ENDCASE
ENDOF
-2 OF CASE R@ 1 OF -99 ENDOF
>R -199 R>
ENDCASE
ENDOF
>R 299 R>
ENDCASE R> DROP ;
T{ -1 1 cs2 -> 100 }T
T{ -1 2 cs2 -> 200 }T
T{ -1 3 cs2 -> -300 }T
T{ -2 1 cs2 -> -99 }T
T{ -2 2 cs2 -> -199 }T
T{ 0 2 cs2 -> 299 }T