{ ====================================================================
Round Robin

->ROBIN Removes from the round-robin all tasks after the current to the task
with status address aS.

-ROBIN Removes the task with status address aS from the round-robin.
==================================================================== }

: ->ROBIN ( aS -- )
>R
    STATUS DUP
    BEGIN
>FOLLOWER ( aS aS1 ) 2DUP DUP R@ =
      IF >FOLLOWER SWAP FOLLOWER ITS ! ELSE 2DROP THEN
      2DUP
      =
    UNTIL
    2DROP
  R> DROP
;

: -ROBIN ( aS -- )
>R
    STATUS DUP ( aS aS )
    BEGIN
      DUP
>FOLLOWER ( aS aS1 aS2 ) 2DUP DUP R@ =
        IF >FOLLOWER SWAP FOLLOWER ITS ( aS3 aF1 ) ! ELSE 2DROP THEN
      NIP
      2DUP
      =
    UNTIL
    2DROP
  R> DROP
;

-----Original Message-----
From: swiftx-bounce_at_forth.com [mailto:swiftx-bounce_at_forth.com]On Behalf
Of Frank Boon [Metatronics]
Sent: Friday, December 17, 2004 5:51
Subject: [swiftx] Inverse of BUILD

Does anybody have the inverse word of BUILD ?? e.g. to unlink a task
from the round-bobin? nothing more?
...
----------------------------------------------------------------------
swiftx_at_forth.com The SwiftX programming discussion email list
To unsubscribe, send subject "unsubscribe" to swiftx-request_at_forth.com
For list command help, send subject "help" to swiftx-request_at_forth.com
Message archives are located at http://www.forth.com/archive/swiftx
----------------------------------------------------------------------
This list is a forum for SwiftX users. For product support and bug
reports, please send email to support_at_forth.com
----------------------------------------------------------------------
Received on Fri Dec 17 2004 - 08:07:46 PST