15.6.2.1015 CS-PICK c-s-pick TOOLS EXT

Interpretation:

Interpretation semantics for this word are undefined.

Execution:

( C: dest_u ... orig₀ | dest₀ -- dest_u ... orig₀ | dest₀ dest_u ) ( S: u -- )

Remove u. Copy dest_u to the top of the control-flow stack. An ambiguous condition exists if there are less than u+1 items, each of which shall be an orig or dest, on the control-flow stack before CS-PICK is executed.

If the control-flow stack is implemented using the data stack, u shall be the topmost item on the data stack.

See:

A.15.6.2.1015 CS-PICK.

Rationale:

The intent is to copy a dest on the control-flow stack so that it can be resolved more than once. For example:

\ Conditionally transfer control to beginning of
\ loop. This is similar in spirit to C's "continue"
\ statement.

: ?REPEAT ( dest -- dest ) \ Compilation
( flag -- ) \ Execution
0 CS-PICK POSTPONE UNTIL
; IMMEDIATE

: XX ( -- ) \ Example use of ?REPEAT
   BEGIN
     ...
   flag ?REPEAT ( Go back to BEGIN if flag is false )
     ...
   flag ?REPEAT ( Go back to BEGIN if flag is false )
     ...
   flag UNTIL ( Go back to BEGIN if flag is false )
;

Testing:

: ?repeat
0 CS-PICK POSTPONE UNTIL
; IMMEDIATE

VARIABLE pt4

: <= > 0= ;

T{ : pt5  ( n1 -- )
      pt4 !
      BEGIN
        -1 pt4 +!
        pt4 @ 4 <= ?repeat    \ Back to BEGIN if false
        111
        pt4 @ 3 <= ?repeat
        222
        pt4 @ 2 <= ?repeat
        333
        pt4 @ 1 =
      UNTIL
    ; -> }T

T{ 6 pt5 -> 111 111 222 111 222 333 111 222 333 }T

ContributeContributions

UlrichHoffmann [66] CS-DROP (revised 2018-08-20) Proposal2018-08-20 20:22:25

This contribution has been moved to the proposal section.

UlrichHoffmann 2019-09-06 08:25:21

This reply has been moved to the proposal section.

UlrichHoffmann 2022-09-15 19:34:09

This reply has been moved to the proposal section.

Retired

Reply New Version

UlrichHoffmann [113] CS-DROP (revised 2019-08-22)Proposal2019-09-06 08:24:28

This contribution has been moved to the proposal section.

AntonErtl 2019-09-06 08:54:22

This reply has been moved to the proposal section.

UlrichHoffmann 2020-09-03 11:20:11

This reply has been moved to the proposal section.

AntonErtl 2020-09-03 11:43:10

This reply has been moved to the proposal section.

UlrichHoffmann 2020-09-03 12:26:48

This reply has been moved to the proposal section.

AntonErtl 2020-09-03 13:58:50

This reply has been moved to the proposal section.

AntonErtl 2024-01-01 09:50:56

This reply has been moved to the proposal section.

ruv 2024-09-03 21:43:58

This reply has been moved to the proposal section.

AntonErtl 2024-09-26 14:04:20

This reply has been moved to the proposal section.

Considered

StephenPelc 2024-09-26 14:05:54

This reply has been moved to the proposal section.

AntonErtl 2024-11-20 16:49:28

This reply has been moved to the proposal section.

Accepted

Reply New Version