mirror of
https://github.com/Zeal-Operating-System/ZealOS.git
synced 2024-12-28 08:16:31 +00:00
db32fdb367
Reformatted DolDoc files, adjusted sprites in documentation to reflect naming changes, corrected keybinding labels in AutoComplete window, fixed formatting error in Tips.DD. Added DVD Boot AHCI prototyping into Kernel, displays detected AHCI configuration and halts mid-boot. Small modifications to standard font, slight increase to mouse X and Y speed.
58 lines
755 B
HolyC
Executable file
58 lines
755 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;
|