Smart pascal source code


type
  E1 = class(Exception)
  end;

type
  E2 = class(Exception)
  end;

{ main.pas }
Begin
  try
    try
      raise E1.Create('');
    except
      on e: E1 do
        WriteLn('Caught E1');
    end;
  except
    on e: E2 do
      WriteLn('Caught E2');
  end;

  try
    try
      raise E2.Create('');
    except
      on e: E1 do
        WriteLn('Caught E1');
    end;
  except
    on e: E2 do
      WriteLn('Caught E2');
  end;

  { <<< CONSOLE OUTPUTS >>>
    Caught E1
    Caught E2
  }

var Exception={
	$ClassName: "Exception",
	$Parent: TObject,
	$Init: function () { FMessage="" },
	Create: function (s,Msg) { s.FMessage=Msg; return s }
}
function $W(e) { return e.ClassType?e:Exception.Create($New(Exception),e.constructor.name+", "+e.message) }
function $New(c) { var i={ClassType:c}; c.$Init(i); return i }
function $Is(o,c) {
	if (o===null) return false;
	return $Inh(o.ClassType,c);
};
function $Inh(s,c) {
	if (s===null) return false;
	while ((s)&&(s!==c)) s=s.$Parent;
	return (s)?true:false;
};

      try {
         try {
            throw Exception.Create($New(E1),"");
         } catch ($e) {
            if ($Is($e,E1)) {
               var e = $W($e);
               WriteLn("Caught E1")            }
            else throw $e
         }
      } catch ($e) {
         if ($Is($e,E2)) {
            var e$1 = $W($e);
            WriteLn("Caught E2")         }
         else throw $e
      }
      try {
         try {
            throw Exception.Create($New(E2),"");
         } catch ($e) {
            if ($Is($e,E1)) {
               var e$2 = $W($e);
               WriteLn("Caught E1")            }
            else throw $e
         }
      } catch ($e) {
         if ($Is($e,E2)) {
            var e$3 = $W($e);
            WriteLn("Caught E2")         }
         else throw $e
      }
	  
/// E2 = class (Exception)
///  [line: 39, column: 3, file: uMain]
var E2 = {
   $ClassName:"E2",$Parent:Exception
   ,$Init:function ($) {
      Exception.$Init($);
   }
   ,Destroy:Exception.Destroy
};
/// E1 = class (Exception)
///  [line: 35, column: 3, file: uMain]
var E1 = {
   $ClassName:"E1",$Parent:Exception
   ,$Init:function ($) {
      Exception.$Init($);
   }
   ,Destroy:Exception.Destroy
};