Smart pascal source code


type
  TMyClass = class
    constructor Build(i: Integer = -1);
    default;
  end;

type
  TSubClass = class(TMyClass)
  end;

type
  TClassRef = class of TMyClass;

constructor TMyClass.Build(i: Integer = -1);
begin
  WriteLn(ClassName);
  WriteLn(i);
end;

function GetAClass(r: TClassRef): TClassRef;
begin
  Result := r;
end;

var o1 := new TMyClass;
var o2 := new(TMyClass)(1);
var r := TSubClass;

new r;
new r(1);
new(r)(2);

o1 := new(GetAClass(TMyClass));
o1 := new(GetAClass(r))();
o1 := new(GetAClass(TSubClass))(3);

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
TMyClass-1
TMyClass1
TSubClass-1
TSubClass1
TSubClass2
TMyClass-1
TSubClass-1
TSubClass3
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

var TMyClass = {
   $ClassName:"TMyClass",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
   }
   ,Build:function(Self, i) {
      WriteLn(TObject.ClassName($Check(Self,"").ClassType));
      WriteLn(i);
      return Self
   }
   ,Destroy:TObject.Destroy
};
var TSubClass = {
   $ClassName:"TSubClass",$Parent:TMyClass
   ,$Init:function ($) {
      TMyClass.$Init($);
   }
   ,Destroy:TObject.Destroy
};
function GetAClass(r$1) {
   return r$1;
};
var o1 = null,
   o2 = null,
   r = null;

/* <<< main JS >>> */

   o1 = TMyClass.Build($New(TMyClass),-1);
   o2 = TMyClass.Build($New(TMyClass),1);
   r = TSubClass;
   TMyClass.Build($NewDyn(r,""),-1);
   TMyClass.Build($NewDyn(r,""),1);
   TMyClass.Build($NewDyn(r,""),2);
   o1 = TMyClass.Build($NewDyn(GetAClass(TMyClass),""),-1);
   o1 = TMyClass.Build($NewDyn(GetAClass(r),""),-1);
   o1 = TMyClass.Build($NewDyn(GetAClass(TSubClass),""),3);