source: tests/exceptions/cancel/coroutine.cfa @ 41870a5

// Try cancelling a coroutine.

#include <coroutine.hfa>

exception internal_error {};
vtable(internal_error) internal_vt;

coroutine WillCancel {};

const char * msg(CoroutineCancelled(WillCancel) * this) {
        return "CoroutineCancelled(WillCancel)";
}

void main(WillCancel & wc) {
        printf("1");
        cancel_stack((internal_error){&internal_vt});
        printf("!");
}

int main(int argc, char * argv[]) {
        WillCancel cancel;
        try {
                printf("0");
                resume(cancel);
                printf("4");
        } catchResume (CoroutineCancelled(WillCancel) * error) {
                printf("2");
                if ((virtual internal_error *)error->the_exception) {
                        printf("3");
                }
        }
        printf("5\n");
}