mirror of
https://github.com/Zeal-Operating-System/ZealOS.git
synced 2025-01-14 08:36:31 +00:00
58 lines
760 B
HolyC
Executable file
58 lines
760 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 statement
|
|
//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;
|