This page (revision-21) was last changed on 03-Feb-2023 15:21 by Carsten Strotmann 

This page was created on 29-Jul-2010 13:57 by Carsten Strotmann

Only authorized users are allowed to rename pages.

Only authorized users are allowed to delete pages.

Page revision history

Version Date Modified Size Author Changes ... Change note
21 03-Feb-2023 15:21 27 KB Carsten Strotmann to previous

Page References

Incoming links Outgoing links
VFHandbuchKapitel4
VFHandbuchKapitel4

Version management

Difference between version and

At line 258 added 31 lines
{{{
\ caselist initlist >marklist >resolvlist
| variable caselist
| : initlist ( list — addr )
dup @ swap off ;
| : >marklist ( list — )
here over @ , swap ! ;
| : >resolvelist ( addr list— )
BEGIN dup @
WHILE dup dup @ dup @ rot ! >resolve
REPEAT ! ;
\ case elsecase endcase
: CASE caselist initlist 4 ; immediate restrict
: ELSECASE 4 ?pairs compile drop 6 ; immediate restrict
: ENDCASE dup 4 =
IF drop compile drop
ELSE 6 ?pairs
THEN caselist >resolvelist
; immediate restrict
\ of endof
: OF 4 ?pairs compile over compile = compile ?branch >mark compile drop 5 ; immediate restrict
: ENDOF 5 ?pairs compile branch caselist >marklist >resolve 4 ; immediate restrict
}}}
This page (revision-21) was last changed on 03-Feb-2023 15:21 by Carsten Strotmann  Top