source: tests/exceptions/cancel/coroutine.cfa @ b39e6566

arm-ehjacob/cs343-translationnew-ast-unique-expr
Last change on this file since b39e6566 was ecfd758, checked in by Andrew Beach <ajbeach@…>, 7 months ago

Major exception update, seperating type-ids from virtual tables. The major interface changes are done. There is a regression of ?Cancelled(T) to Some?Cancelled. There is some bits of code for the new verion of the ?Cancelled(T) interface already there. Not connected yet but I just reached the limit of what I wanted to do in one commit and then spent over a day cleaning up, so it will replace Some?Cancelled in a future commit.

  • Property mode set to 100644
File size: 674 bytes
Line 
1// Try cancelling a coroutine.
2
3#include <coroutine.hfa>
4#include <exception.hfa>
5
6EHM_EXCEPTION(internal_error)();
7EHM_VIRTUAL_TABLE(internal_error, internal_vt);
8
9coroutine WillCancel {};
10
11const char * msg(CoroutineCancelled(WillCancel) * this) {
12        return "CoroutineCancelled(WillCancel)";
13}
14
15void main(WillCancel & wc) {
16        printf("1");
17        cancel_stack((internal_error){&internal_vt});
18        printf("!");
19}
20
21int main(int argc, char * argv[]) {
22        WillCancel cancel;
23        try {
24                printf("0");
25                resume(cancel);
26                printf("4");
27        } catchResume (SomeCoroutineCancelled * error) {
28                printf("2");
29                if ((virtual internal_error *)error->the_exception) {
30                        printf("3");
31                }
32        }
33        printf("5\n");
34}
Note: See TracBrowser for help on using the repository browser.