Smart pascal source code


unit partial_class_unit;

interface

type
  TTest = partial class Field: Integer;
  procedure WriteLnMe;
end;

TTest = partial class procedure Inc;
end;

implementation

type
  TTest = class
    partial procedure Dec;
    begin
      Field -= 1;
    end;
  end;

TTest = partial class procedure WriteLnDoubled;
begin
  WriteLn(Field * 2);
end;
end;

procedure TTest.WriteLnMe;
begin
  WriteLn(Field);
end;

procedure TTest.Inc;
begin
  Field += 1;
end;

initialization

var o := new TTest;
    o.WriteLnMe;
    o.Inc;
    o.WriteLnMe;
    o.WriteLnDoubled;
    o.Dec;
    o.WriteLnMe;

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
0
1
2
0
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

var TTest = {
   $ClassName:"TTest",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
      $.Field = 0;
   }
   /// procedure TTest.WriteLnMe()
   ///  [line: 46, column: 17, file: uMain]
   ,WriteLnMe:function(Self) {
      WriteLn(Self.Field);
   }
   /// procedure TTest.Inc()
   ///  [line: 51, column: 17, file: uMain]
   ,Inc:function(Self) {
      Self.Field+=1;
   }
   /// procedure TTest.Dec()
   ///  [line: 34, column: 23, file: uMain]
   ,Dec:function(Self) {
      Self.Field-=1;
   }
   /// procedure TTest.WriteLnDoubled()
   ///  [line: 40, column: 33, file: uMain]
   ,WriteLnDoubled:function(Self) {
      WriteLn((Self.Field*2));
   }
   ,Destroy:TObject.Destroy
};

  var o = null;
  o = TObject.Create($New(TTest));
  TTest.WriteLnMe(o);
  TTest.Inc(o);
  TTest.WriteLnMe(o);
  TTest.WriteLnDoubled(o);
  TTest.Dec(o);
  TTest.WriteLnMe(o);