Smart pascal source code


{ unit1.pas }
type
TBase = class
   private const cPrivate = 1;
   protected const cProtected = 2;
   public class const cPublic = 3;
   procedure WriteLnAll;
   class procedure ClassWriteLnAll;
end;

type
TChild = class (TBase)
   procedure WriteLnFromChild;
end;

type
TBase2 = class
   const c1 = 1;
   const c2 = c1+1;
end;

const cTOTO = 'toto';

type maclasse1 = class
  private
   const cTOTO = 'titi';
  public
   class procedure Test;
   begin
     WriteLn(cTOTO);
   end;
end;

type maclasse2 = class
 private
  const cTOTO = 'tata';
 public
  class procedure Test;
  begin
    WriteLn(cTOTO);
  end;
end;

type
TObj = class
  const Value = 5;
  FField := Value; // TObj.Value - OK
end;

type
TObj2 = class
  private
   const Value = 6;
  public
    FField := TObj2.Value;
end;

implementation

{ TBase }
procedure TBase.WriteLnAll;
begin
   WriteLn('From base');
   WriteLn(cPrivate);
   WriteLn(cProtected);
   WriteLn(cPublic);
end;

class procedure TBase.ClassWriteLnAll;
begin
   WriteLn('From class proc');
   WriteLn(cPrivate);
   WriteLn(cProtected);
   WriteLn(cPublic);
end;
{ TChild }
procedure TChild.WriteLnFromChild;
begin
   WriteLn('From child');
   WriteLn(cProtected);
   WriteLn(cPublic);
end;

{ main.pas }
var
  o := TBase.Create;

Begin
  WriteLn('From Outside');
  WriteLn(TBase.cPublic);
  WriteLn(o.cPublic);

  TBase.ClassWriteLnAll;
  o.WriteLnAll;

  TChild.Create.WriteLnFromChild;
{ ### CONSOLE OUTPUTS ###

  From Outside
  3
  3
  From class proc
  1
  2
  3
  From base
  1
  2
  3
  From child
  2
  3
}
{ TEST II }
WriteLn(TBase2.c1);  // 1
WriteLn(TBase2.c2);  // 2

{ TEST III }
WriteLn(cToto);
maclasse1.Test;
maclasse2.Test;
{ ### CONSOLE OUTPUTS ###
  toto
  titi
  tata
}
{ TEST IV }
  Writeln(New TObj.FField);   // 5
  Writeln(New TObj2.FField);  // 6

      var o = null,
         o = TObject.Create($New(TBase));
      WriteLn("From Outside");
      WriteLn(3);
      WriteLn(3);
      TBase.ClassWriteLnAll(TBase);
      TBase.WriteLnAll(o);
      TChild.WriteLnFromChild(TObject.Create($New(TChild)));
      WriteLn(1);
      WriteLn(2);
      WriteLn("toto");
      maclasse1.Test$1(maclasse1);
      maclasse2.Test(maclasse2);
      WriteLn(TObject.Create($New(TObj)).FField$1);
      WriteLn(TObject.Create($New(TObj2)).FField);

/// TObj2 = class (TObject)
///  [line: 120, column: 1, file: uMain]
var TObj2 = {
   $ClassName:"TObj2",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
      $.FField = 6;
   }
   ,Destroy:TObject.Destroy
};
/// TObj = class (TObject)
///  [line: 114, column: 1, file: uMain]
var TObj = {
   $ClassName:"TObj",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
      $.FField$1 = 5;
   }
   ,Destroy:TObject.Destroy
};
/// TBase = class (TObject)
///  [line: 72, column: 1, file: uMain]
var TBase = {
   $ClassName:"TBase",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
   }
   /// procedure TBase.WriteLnAll()
   ///  [line: 127, column: 17, file: uMain]
   ,WriteLnAll:function(Self) {
      WriteLn("From base");
      WriteLn(1);
      WriteLn(2);
      WriteLn(3);
   }
   /// procedure TBase.ClassWriteLnAll()
   ///  [line: 135, column: 23, file: uMain]
   ,ClassWriteLnAll:function(Self) {
      WriteLn("From class proc");
      WriteLn(1);
      WriteLn(2);
      WriteLn(3);
   }
   ,Destroy:TObject.Destroy
};
/// TChild = class (TBase)
///  [line: 81, column: 1, file: uMain]
var TChild = {
   $ClassName:"TChild",$Parent:TBase
   ,$Init:function ($) {
      TBase.$Init($);
   }
   /// procedure TChild.WriteLnFromChild()
   ///  [line: 143, column: 18, file: uMain]
   ,WriteLnFromChild:function(Self) {
      WriteLn("From child");
      WriteLn(2);
      WriteLn(3);
   }
   ,Destroy:TObject.Destroy
};
/// TBase2 = class (TObject)
///  [line: 86, column: 1, file: uMain]
var TBase2 = {
   $ClassName:"TBase2",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
   }
   ,Destroy:TObject.Destroy
};
/// maclasse2 = class (TObject)
///  [line: 103, column: 6, file: uMain]
var maclasse2 = {
   $ClassName:"maclasse2",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
   }
   /// procedure maclasse2.Test()
   ///  [line: 107, column: 19, file: uMain]
   ,Test:function(Self) {
      WriteLn("tata");
   }
   ,Destroy:TObject.Destroy
};
/// maclasse1 = class (TObject)
///  [line: 93, column: 6, file: uMain]
var maclasse1 = {
   $ClassName:"maclasse1",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
   }
   /// procedure maclasse1.Test()
   ///  [line: 97, column: 20, file: uMain]
   ,Test$1:function(Self) {
      WriteLn("titi");
   }
   ,Destroy:TObject.Destroy
};