source: tests/concurrency/waituntil/timeout.cfa @ e15293b

#include <time.hfa>
#include <alarm.hfa>
#include <select.hfa>
#include <stdbool.h>
#include <stdio.h>

int main() {
    waituntil( sleep( 1`ms ) ) { printf("timeout\n"); }
    waituntil( timeout( 1`s ) ) { printf("timeout\n"); } or waituntil( timeout( 2`s ) ) { printf("timeout\n"); }
    waituntil( timeout( 100`s ) ) { printf("timeout 1\n"); } or else { printf("else\n"); }
    waituntil( timeout( 1`ns ) ) { printf("timeout\n"); } and waituntil( timeout( 2`s ) ) { printf("timeout\n"); }
    int count = 0;
    for ( i; 1000 )
        waituntil( timeout( 1`ns ) ) { count++; } or else { count++; }

    assert( count == 1000 );
    sleep( 1`ms );
    printf("done\n");
}