Smart pascal source code


type
  EMyExcept = class(Exception)
  end;

  { main.pas }

Begin
//--- TESTE I ---
Try
  Raise Exception.Create('1');
Finally
  If Assigned(ExceptObject) Then
     Raise Exception.Create('2');
End;

//--- TESTE II ---

  if ExceptObject <> nil then
    WriteLn('bug');

  try
    raise Exception.Create('hello');
  except
    WriteLn(ExceptObject.ClassName + ': ' + ExceptObject.Message);
    try
      raise EMyExcept.Create('world');
    except
      on e: EMyExcept do
      begin
        WriteLn(e.ClassName + ': ' + e.Message);
        WriteLn(ExceptObject.ClassName + ': ' + ExceptObject.Message);
        if e <> ExceptObject then
          WriteLn('bug');
      end;
      else
        WriteLn('bug');
    end;
    WriteLn(ExceptObject.ClassName + ': ' + ExceptObject.Message);
  end;

  if ExceptObject <> nil then
    WriteLn('bug');

  try
    try
      raise EMyExcept.Create('hello world');
    finally
      WriteLn(ExceptObject.ClassName + ': ' + ExceptObject.Message);
    end;
  except
    WriteLn(ExceptObject.ClassName + ': ' + ExceptObject.Message);
  end;

  if ExceptObject <> nil then
    WriteLn('bug');

  { <<< EXPECTED CONSOLE OUTPUTS >>>
      Exception: hello
      EMyExcept: world
      EMyExcept: world
      Exception: hello
      EMyExcept: hello world
      EMyExcept: hello world
  }

//---> Uncaught ReferenceError: ExceptObject is not defined 

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 $ToClassType(o) {
	if (o===null) return o;
	return o.ClassType
};

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

// MAIN CODE
      try {
         throw Exception.Create($New(Exception),"1");
      } finally {
         if (ExceptObject()) {
            throw Exception.Create($New(Exception),"2");
         }
      }
      if (ExceptObject()!==null) {
         WriteLn("bug");
      }
      try {
         throw Exception.Create($New(Exception),"hello");
      } catch ($e) {
         WriteLn((ClassName$1($ToClassType(ExceptObject()))+": "+ExceptObject().FMessage));
         try {
            throw Exception.Create($New(EMyExcept),"world");
         } catch ($e) {
            if ($Is($e,EMyExcept)) {
               var e = $W($e);
               WriteLn((ClassName$1($ToClassType(e))+": "+e.FMessage));
               WriteLn((ClassName$1($ToClassType(ExceptObject()))+": "+ExceptObject().FMessage));
               if (e!==ExceptObject()) {
                  WriteLn("bug");
               }
            }
            else {
               WriteLn("bug")            }
         }
         WriteLn((ClassName$1($ToClassType(ExceptObject()))+": "+ExceptObject().FMessage));
      }
      if (ExceptObject()!==null) {
         WriteLn("bug");
      }
      try {
         try {
            throw Exception.Create($New(EMyExcept),"hello world");
         } finally {
            WriteLn((ClassName$1($ToClassType(ExceptObject()))+": "+ExceptObject().FMessage));
         }
      } catch ($e) {
         WriteLn((ClassName$1($ToClassType(ExceptObject()))+": "+ExceptObject().FMessage));
      }
      if (ExceptObject()!==null) {
         WriteLn("bug");
      }
	  
/// EMyExcept = class (Exception)
///  [line: 35, column: 3, file: uMain]
var EMyExcept = {
   $ClassName:"EMyExcept",$Parent:Exception
   ,$Init:function ($) {
      Exception.$Init($);
   }
   ,Destroy:Exception.Destroy
};