Smart pascal source code


var
  i: Integer;

Begin
  i := 123;

  function Get123: array [1 .. 3] of Integer;
  begin
    Result := [1, 2, 3];
  end;

var r :=
   record
      fi := i;
      fi2 := i*2;
      fis := '<'+IntToStr(i)+'>';
      f123 := Get123;
      property pi : Integer read fi;
      function pis : string;
      begin
         Result:='['+IntToStr(pi)+']';
      end;
   end;

WriteLn(r.fi);
WriteLn(r.fi2);
WriteLn(r.fis);
WriteLn(r.pis);
WriteLn(r.f123[1]);
WriteLn(r.f123[2]);
WriteLn(r.f123[3]);

var r2 := r;
r.fi := 456;

WriteLn(r.pi);
WriteLn(r2.pi);
WriteLn(r2.fis);

WriteLn(r.pis);
WriteLn(r2.pis);

WriteLn(r2.f123[1]);
WriteLn(r2.f123[2]);
WriteLn(r2.f123[3]);

{ <<< CONSOLE OUTPUTS >>>
  123
  246
  <123>
  [123]
  1
  2
  3

  456
  123
  <123>
  [456]
  [123]
  1
  2
  3
}

end;

  var i = 0;
  var r = {fi:0,fi2:0,fis:"",f123:[0,0,0]};
  var r2 = {fi:0,fi2:0,fis:"",f123:[0,0,0]};
  /// anonymous TRecordSymbol
  function Copy$a$1(s,d) {
	 d.fi=s.fi;
	 d.fi2=s.fi2;
	 d.fis=s.fis;
	 d.f123=s.f123.slice(0);
	 return d;
  }
  function Clone$a$1($) {
	 return {
		fi:$.fi,
		fi2:$.fi2,
		fis:$.fis,
		f123:$.f123.slice(0)
	 }
  }
  function Pub$a$1($) {
	 return {
		"fi" : $.fi
		,"fi2" : $.fi2
		,"fis" : $.fis
		,"f123" : $.f123
		,"pi" : $.fi
	 }
  }
  /// function .pis(var Self: anonymous record   f123 : ;   fis : String;   fi2 : Integer;   fi : Integer;end;) : String
  ///  [line: 54, column: 16, file: uMain]
  function a$1$pis(Self$1) {
	 return "["+(Self$1.fi).toString()+"]";
  }
  function Get123() {
	 return [1, 2, 3];
  };
  i = 123;
  Copy$a$1({
	 f123 : Get123()
	 ,fis : "<"+i.toString()+">"
	 ,fi2 : i*2
	 ,fi : i
  },r);
  WriteLn(r.fi);
  WriteLn(r.fi2);
  WriteLn(r.fis);
  WriteLn(a$1$pis(r));
  WriteLn(r.f123[(1)-1]);
  WriteLn(r.f123[(2)-1]);
  WriteLn(r.f123[(3)-1]);
  Copy$a$1(r,r2);
  r.fi = 456;
  WriteLn(r.fi);
  WriteLn(r2.fi);
  WriteLn(r2.fis);
  WriteLn(a$1$pis(r));
  WriteLn(a$1$pis(r2));
  WriteLn(r2.f123[(1)-1]);
  WriteLn(r2.f123[(2)-1]);
  WriteLn(r2.f123[(3)-1]);