mini_forth/c/example/lock.fth at master · Ljzn/mini_forth · GitHub

Sitelet https://github.com/Ljzn/mini_forth/blob/master/c/example/lock.fth

This repository was archived by the owner on Jul 28, 2022. It is now read-only.

20 lines (15 loc) · 341 Bytes

: share 1 ;
: exclusive 2 ;
\\ capability of acquiring a share lock
: lock_s exclusive != ;
\\ capability of acquiring an exclusive lock
: lock_x none = ;
    none lock_s verify
    share lock_s verify
    exclusive lock_s not verify
    none lock_s verify
    share lock_x not verify
    exclusive lock_x not verify