tests/i/extern-cc-runtime/program.cps


1
2
3
4
5
6
7
8
9


INCLUDE_OBJ "runtime.o"
EXTERN "C" EXTERN_FUNCTION string_length() RETURNS C_INT
EXTERN "C" EXTERN_PROCEDURE string_throw()
OUTPUT (INTEGER)string_length()
TRY
    CALL string_throw()
CATCH
    OUTPUT "caught C++"
ENDTRY