pascal 0.1.4

A modern Pascal compiler with build/intepreter/package manager built with Rust
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66

{ Example 06: Exception Handling }
program Exceptions;
var
  x, y, result: integer;

function SafeDivide(a, b: integer): integer;
begin
  if b = 0 then
    raise Exception.Create('Division by zero');
  SafeDivide := a div b;
end;

procedure DangerousOperation;
begin
  writeln('  Starting dangerous operation...');
  raise Exception.Create('Something went wrong!');
  writeln('  This line should never execute');
end;

begin
  writeln('=== Exception Handling Demo ===');

  { Basic try/except }
  writeln('--- Try/Except ---');
  try
    x := SafeDivide(100, 5);
    writeln('100 / 5 = ', x);
    x := SafeDivide(42, 0);
    writeln('This should not print');
  except
    on E: Exception do
      writeln('Caught: division error');
  end;

  { Try/finally }
  writeln('--- Try/Finally ---');
  x := 0;
  try
    x := 1;
    writeln('  x set to ', x);
    DangerousOperation;
  except
    on E: Exception do
      writeln('  Caught exception');
  end;
  writeln('  After exception, x = ', x);

  { Nested try blocks }
  writeln('--- Nested Try ---');
  try
    writeln('  Outer try');
    try
      writeln('  Inner try');
      raise Exception.Create('inner error');
    except
      on E: Exception do
        writeln('  Inner caught');
    end;
    writeln('  Back in outer try');
  except
    on E: Exception do
      writeln('  Outer caught (should not reach here)');
  end;

  writeln('Done.');
end.