Smart pascal source code


type
  TBase = class
    procedure Test(a: Integer); virtual;

    begin
      WriteLn('base ' + IntToStr(a));
    end;
    property Prop: Integer write Test;
  end;

type
  TSub = class abstract(TBase);

  type
    TSub2 = class(TSub);

  type
    TSub3 = class(TSub2);

  type
    TSub4 = class(TSub3);

  type
    TSub5 = class(TSub4)
      procedure Test(a: Integer); override;

      begin
        WriteLn('here ' + IntToStr(a));
      end;
    end;

  TSub3.Create.Prop := 1;
  TSub4.Create.Prop := 2;
  TSub5.Create.Prop := 3;

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
base 1
base 2
here 3

-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

var TBase = {
   $ClassName:"TBase",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
   }
   ,Test:function(Self, a) {
      WriteLn(("base "+a.toString()));
   }
   ,Destroy:TObject.Destroy
   ,Test$:function($){return $.ClassType.Test.apply($.ClassType, arguments)}
};
var TSub = {
   $ClassName:"TSub",$Parent:TBase
   ,$Init:function ($) {
      TBase.$Init($);
   }
   ,Destroy:TObject.Destroy
   ,Test:TBase.Test
};
var TSub2 = {
   $ClassName:"TSub2",$Parent:TSub
   ,$Init:function ($) {
      TSub.$Init($);
   }
   ,Destroy:TObject.Destroy
   ,Test:TBase.Test
};
var TSub3 = {
   $ClassName:"TSub3",$Parent:TSub2
   ,$Init:function ($) {
      TSub2.$Init($);
   }
   ,Destroy:TObject.Destroy
   ,Test:TBase.Test
};
var TSub4 = {
   $ClassName:"TSub4",$Parent:TSub3
   ,$Init:function ($) {
      TSub3.$Init($);
   }
   ,Destroy:TObject.Destroy
   ,Test:TBase.Test
};
var TSub5 = {
   $ClassName:"TSub5",$Parent:TSub4
   ,$Init:function ($) {
      TSub4.$Init($);
   }
   ,Test:function(Self, a$1) {
      WriteLn(("here "+a$1.toString()));
   }
   ,Destroy:TObject.Destroy
   ,Test$:function($){return $.ClassType.Test.apply($.ClassType, arguments)}
};

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

   TBase.Test$($Check(TObject.Create($New(TSub3)),""),1);
   TBase.Test$($Check(TObject.Create($New(TSub4)),""),2);
   TBase.Test$($Check(TObject.Create($New(TSub5)),""),3);