(* Type extension with virtual dispatch *)

module exe Shapes;

import Console;

type
  TShape = record
    X: INTEGER;
    Y: INTEGER;
  end;
  
  TCircle = record(TShape)  (* extends TShape *)
    Radius: INTEGER;
  end;

(* Base method *)
method Describe(var Self: TShape);
begin
  Console.PrintLn('Shape at ({}, {})', Self.X, Self.Y);
end;

(* Override with inherited call *)
method Describe(var Self: TCircle);
begin
  inherited Describe();
  Console.PrintLn('  Radius: {}', Self.Radius);
end;

var
  Circle: TCircle;

begin
  Circle.X := 100;
  Circle.Y := 200;
  Circle.Radius := 50;
  Circle.Describe();  (* Calls TCircle's method *)
end.

(* Seamless C++ integration *)

module exe CppDemo;

(* Raw C++ block for includes and declarations *)
#startcpp
#include <vector>
#include <algorithm>

std::vector<int> numbers;
#endcpp

import Console;

var
  I: INTEGER;

begin
  (* Call C++ directly in Myra code *)
  numbers.push_back(42);
  numbers.push_back(17);
  numbers.push_back(99);
  
  std::sort(numbers.begin(), numbers.end());
  
  for I := 0 to numbers.size() - 1 do
    Console.PrintLn('Value: {}', numbers[I]);
  end;
end.

(* Exception handling with try/except/finally *)

module exe ErrorHandling;

import 
  System,
  Console;

routine ProcessFile(const APath: STRING);
var
  Handle: INTEGER;
begin
  try
    Handle := OpenFile(APath);
    ReadData(Handle);
  except
    Console.PrintLn('Error: {}', System.GetExceptionMessage());
  finally
    CloseFile(Handle);
    Console.PrintLn('Cleanup complete');
  end;
end;

begin
  ProcessFile('data.txt');
end.