Smart pascal source code


const
  f: Float = 1; // OK

Type
  TObj = Class
    f1: Float := 1;
    f2 := f;
  End;

Type
  TRec = Record
    f1: Float := 2;
    f2 := f + f;
  End;

  {----- main.pas -----}

Begin
  WriteLn(FloatToStr(TObj.Create.f1));
  WriteLn(FloatToStr(TObj.Create.f2));

  var r: TRec;

  WriteLn(FloatToStr(r.f1));
  WriteLn(FloatToStr(r.f2));

  { <<< CONSOLE OUTPUTS >>>
    1
    1
    2
    2
  }

      var r = {f1:2,f2:2};
      WriteLn(FloatToStr$_Float_(TObject.Create($New(TObj)).f1$1));
      WriteLn(FloatToStr$_Float_(TObject.Create($New(TObj)).f2$1));
      WriteLn(FloatToStr$_Float_(r.f1));
      WriteLn(FloatToStr$_Float_(r.f2));
	  
/// TRec = record
///  [line: 43, column: 1, file: uMain]
function Copy$TRec(s,d) {
   d.f1=s.f1;
   d.f2=s.f2;
   return d;
}
function Clone$TRec($) {
   return {
      f1:$.f1,
      f2:$.f2
   }
}
/// TObj = class (TObject)
///  [line: 37, column: 1, file: uMain]
var TObj = {
   $ClassName:"TObj",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
      $.f1$1 = $.f2$1 = 1;
   }
   ,Destroy:TObject.Destroy
};