1: #line 4386 "./lpsrc/flx_tutorial.pak" 2: //Check exceptions 3: #import <flx.flxh> 4: 5: proc main 6: { 7: // do something 8: 9: // raise err1 10: err 1; goto resume; 11: 12: // do something else 13: 14: // exception handlers 15: proc err(errno:int) 16: { 17: print "error "; print errno; 18: print " -- aborting"; endl; 19: goto resume; 20: } 21: resume:> 22: print "error handled, continuing"; endl; 23: } 24: 25: main;
1: error 1 -- aborting 2: error handled, continuing