Smart pascal source code


type
  TChild = class;

type
  TBase = class
   function Stuff : TChild; virtual; abstract;
end;

type
  TChild = class (TBase)
   function Stuff : TChild; override;
   procedure WriteLnHello;
   class procedure WriteLnWorld; virtual;
end;

type
  TChild2 = class (TChild)
   function Stuff : TChild; override;
   class procedure WriteLnWorld; override;
end;

implementation

function TChild.Stuff : TChild;
begin
   Result:=Self;
end;

procedure TChild.WriteLnHello;
begin
   WriteLn('Hello ');
end;

class procedure TChild.WriteLnWorld;
begin
   WriteLn('World');
end;

function TChild2.Stuff : TChild;
begin
   Result:=inherited Stuff;
end;

class procedure TChild2.WriteLnWorld;
begin
   WriteLn('My ');
   inherited WriteLnWorld;
end;

{ unit1.pas }

var
  o : TBase;
  c = o.Stuff;

Begin
o:=TChild.Create;
c.WriteLnHello;
o.Stuff.WriteLnWorld;

o:=TChild2.Create;
c:=o.Stuff;
c.WriteLnHello;
o.Stuff.WriteLnWorld;

{ ### CONSOLE OUTPUTS ###
  Hello World
  Hello My World
}

      var o = null;
      var c = null,
         c = TBase.Stuff$(o);
      o = TObject.Create($New(TChild));
      TChild.WriteLnHello(c);
      TChild.WriteLnWorld$(TBase.Stuff$(o).ClassType);
      o = TObject.Create($New(TChild2));
      c = TBase.Stuff$(o);
      TChild.WriteLnHello(c);
      TChild.WriteLnWorld$(TBase.Stuff$(o).ClassType);
/// TBase = class (TObject)
///  [line: 73, column: 6, file: uMain]
var TBase = {
   $ClassName:"TBase",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
   }
   ,Destroy:TObject.Destroy
   ,Stuff$:function($){return $.ClassType.Stuff($)}
};
/// TChild = class (TBase)
///  [line: 77, column: 6, file: uMain]
var TChild = {
   $ClassName:"TChild",$Parent:TBase
   ,$Init:function ($) {
      TBase.$Init($);
   }
   /// function TChild.Stuff() : TChild
   ///  [line: 88, column: 17, file: uMain]
   ,Stuff:function(Self) {
      return Self;
   }
   /// procedure TChild.WriteLnHello()
   ///  [line: 93, column: 18, file: uMain]
   ,WriteLnHello:function(Self) {
      WriteLn("Hello ");
   }
   /// procedure TChild.WriteLnWorld()
   ///  [line: 98, column: 24, file: uMain]
   ,WriteLnWorld:function(Self) {
      WriteLn("World");
   }
   ,Destroy:TObject.Destroy
   ,Stuff$:function($){return $.ClassType.Stuff($)}
   ,WriteLnWorld$:function($){return $.WriteLnWorld($)}
};
/// TChild2 = class (TChild)
///  [line: 83, column: 6, file: uMain]
var TChild2 = {
   $ClassName:"TChild2",$Parent:TChild
   ,$Init:function ($) {
      TChild.$Init($);
   }
   /// function TChild2.Stuff() : TChild
   ///  [line: 103, column: 18, file: uMain]
   ,Stuff:function(Self) {
      return TChild.Stuff(Self);
   }
   /// procedure TChild2.WriteLnWorld()
   ///  [line: 108, column: 25, file: uMain]
   ,WriteLnWorld:function(Self) {
      WriteLn("My ");
      TChild.WriteLnWorld(Self);
   }
   ,Destroy:TObject.Destroy
   ,Stuff$:function($){return $.ClassType.Stuff($)}
   ,WriteLnWorld$:function($){return $.WriteLnWorld($)}
};