Smart pascal source code


type
  TRec = record
    F1, F2: Integer;
    procedure WriteLnIt;
    begin
      WriteLn(F1);
      WriteLn(',');
      WriteLn(F2);
    end;
  end;

var r, r1, r2: TRec;

r1.F1 := 1;
r1.F2 := 2;
r2.F1 := 10;
r2.F2 := 20;

procedure CopyRec(const src: TRec; var dest: TRec);
begin
  dest := src;
end;

CopyRec(r1, r);
r.WriteLnIt;
CopyRec(r2, r);
r.WriteLnIt;

var a: array [0 .. 1] of TRec;
CopyRec(r1, a[0]);
CopyRec(r2, a[1]);

a[0].WriteLnIt;
a[1].WriteLnIt;

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
1,2
10,20
1,2
10,20
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

function Copy$TRec(s,d) {
   d.F1=s.F1;
   d.F2=s.F2;
   return d;
}
function Clone$TRec($) {
   return {
      F1:$.F1,
      F2:$.F2
   }
}
function TRec$WriteLnIt(Self$1) {
   WriteLn(Self$1.F1);
   WriteLn(",");
   WriteLn(Self$1.F2);
}
function CopyRec(src, dest) {
   Copy$TRec(src,dest);
};
var r = {F1:0,F2:0};
var r1 = {F1:0,F2:0};
var r2 = {F1:0,F2:0};
var a = [{F1:0,F2:0},{F1:0,F2:0}];

/* <<< main JS >>> */

   r1.F1 = 1;
   r1.F2 = 2;
   r2.F1 = 10;
   r2.F2 = 20;
   CopyRec(r1,r);
   TRec$WriteLnIt(r);
   CopyRec(r2,r);
   TRec$WriteLnIt(r);
   CopyRec(r1,a[0]);
   CopyRec(r2,a[1]);
   TRec$WriteLnIt(a[0]);
   TRec$WriteLnIt(a[1]);