Smart pascal source code


type
  TMyClass = class
  public
    constructor Create(x: String);
    begin
      WriteLn(ClassName);
      WriteLn(x);
    end;
  end;

type
  TAlias = TMyClass;

var myObj := new TAlias(' hello');
    myObj := TAlias.Create(' world');
    myObj := new(TAlias)(' !');

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
TMyClass hello
TMyClass world
TMyClass !
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

var TMyClass = {
   $ClassName:"TMyClass",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
   }
   ,Create$3:function(Self, x$1) {
      WriteLn(TObject.ClassName($Check(Self,"").ClassType));
      WriteLn(x$1);
      return Self
   }
   ,Destroy:TObject.Destroy
};
var myObj = null;

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

   myObj = TMyClass.Create$3($New(TMyClass)," hello");
   myObj = TMyClass.Create$3($New(TMyClass)," world");
   myObj = TMyClass.Create$3($New(TMyClass)," !");