Smart pascal source code


  procedure LogException(sender: TObject; AException: Exception; Value: string);
  begin
    WriteLn(AException.Message);
    WriteLn(Value);
  end;

  var x: Integer;

  try
    x := 2012;
    if x > 2000 then
      raise Exception.Create('something went wrong');
  except
    on E: Exception do
      LogException(NIL, E, 'woops!');
  end;

  { <<< CONSOLE OUTPUTS >>>
    something went wrong
    woops!
  }

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 $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;
};

      var x$1 = 0;
      function LogException(sender, AException, Value) {
         WriteLn(AException.FMessage);
         WriteLn(Value);
      };
      try {
         x$1 = 2012;
         if (x$1>2000) {
            throw Exception.Create($New(Exception),"something went wrong");
         }
      } catch ($e) {
         var E = $W($e);
         LogException(null,E,"woops!")      }