source: doc/theses/andrew_beach_MMath/code/resume-detor.cfa@ d5f6a14

// Throw Across Destructor
#include <exception.hfa>
#include <stdlib.hfa>

EHM_EXCEPTION(empty_exception)();

EHM_VIRTUAL_TABLE(empty_exception, empty_vt);

struct WithDestructor {};

void ^?{}(WithDestructor & this) {
    // ...
}

void unwind_destructor(unsigned int frames) {
    if (frames) {

        WithDestructor object;
        unwind_destructor(frames - 1);
    } else {
        throwResume (empty_exception){&empty_vt};
    }
}

int main(int argc, char * argv[]) {
        unsigned int times = 1;
        unsigned int total_frames = 1;
        if (2 < argc) {
                times = strtol(argv[1], 0p, 10);
        }
        if (3 < argc) {
                total_frames = strtol(argv[2], 0p, 10);
        }

    for (int count = 0 ; count < times ; ++count) {
        try {
            unwind_destructor(total_frames);
        } catchResume (empty_exception *) {
            // ...
        }
    }
}