source: tests/exceptions/data-except.cfa

// Test exceptions that add data but no functionality.

#include <fstream.hfa>

exception paired {
        int first;
        int second;
};

vtable(paired) paired_vt;

const char * virtual_msg(paired * this) {
        return this->virtual_table->msg(this);
}

int main(int argc, char * argv[]) {
        paired except = {&paired_vt, 3, 13};

        try {
                throw except;
        } catch (paired * exc) {
                sout | virtual_msg(exc) | '(' | exc->first | ", " | exc->second | ')';
                ++exc->first;
        }

        sout | virtual_msg(&except) | '(' | except.first | ", " | except.second | ')';

        try {
                throwResume except;
        } catchResume (paired * exc) {
                sout | virtual_msg(exc) | '(' | exc->first | ", " | exc->second | ')';
                ++exc->first;
        }

        sout | virtual_msg(&except) | '(' | except.first | ", " | except.second | ')';
}