//WARNING: Don't return out of a catch{}.This
//might get fixed.
//You can use PutExcept() in a catch stmt
//and it will report args.
Bool Prompt(I64 i)
{
"%d ",i;
return YorN;
}
U0 D1()
{
"D1\n";
if (Prompt(1)) throw('Point1');
if (Prompt(2)) throw('Point2');
}
U0 D2()
{
"D2\n";
try {
D1;
if (Prompt(4)) throw('Point4');
} catch {
"D2 hndlr\n"
"Ch:%c:%P\n",Fs->except_ch,Fs->except_callers[0];
if (Fs->except_ch=='Point1') {
"Caught in D2\n";
Fs->catch_except=TRUE;
}
}
}
U0 Demo()
{
try {
D2;
if (Prompt(3)) throw('Point3');
} catch {
"Demo hndlr\n"
"Ch:%c:%P\n",Fs->except_ch,Fs->except_callers[0];
Fs->catch_except=TRUE;
}
}
Demo;