Smart pascal source code


type
  TRec = record
    I: Integer;
  end;

type
  TObj = class
    I: Integer;
  end;

  {----- main.pas -----}
var
  P: TRec;
  F: Float;

Begin
  P.I := 1;
  var
  O := TObj.Create;
  O.I := 2;

  F := P.I;
  WriteLn(F);

  F := O.I;
  WriteLn(F);

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

      var P = {I$1:0};
      var F = 0;
      var O = null;
      P.I$1 = 1;
      O = TObject.Create($New(TObj));
      O.I = 2;
      F = P.I$1;
      WriteLn(F);
      F = O.I;
      WriteLn(F);

/// TObj = class (TObject)
///  [line: 38, column: 6, file: uMain]
var TObj = {
   $ClassName:"TObj",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
      $.I = 0;
   }
   ,Destroy:TObject.Destroy
};
/// TRec = record
///  [line: 34, column: 6, file: uMain]
function Copy$TRec(s,d) {
   d.I$1=s.I$1;
   return d;
}
function Clone$TRec($) {
   return {
      I$1:$.I$1
   }
}