mirror of
https://github.com/Zeal-Operating-System/ZealOS.git
synced 2024-12-28 08:16:31 +00:00
47 lines
729 B
HolyC
Executable file
47 lines
729 B
HolyC
Executable file
//$BK,1$WARNING:$BK,0$ Don't return out of a catch{}. This
|
|
//might get fixed.
|
|
|
|
//You can use $LK,"PutExcept",A="MN: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 handler\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 handler\n"
|
|
"Ch:%c:%P\n",Fs->except_ch,Fs->except_callers[0];
|
|
Fs->catch_except=TRUE;
|
|
}
|
|
}
|
|
|
|
Demo;
|