Smart pascal source code


type
  TRec = record
    a: Integer;
    b: String;
  end;

type
  TSub = record
    a: array [0 .. 1] of TRec;
    procedure P;
    begin
      WriteLn('0: ');
      WriteLn(a[0].a);
      WriteLn(a[0].b);
      WriteLn('1: ');
      WriteLn(a[1].a);
      WriteLn(a[1].b);
    end;
  end;

var r1, r2: TRec;

r1.a := 1;
r1.b := 'one';
r2.a := 2;
r2.b := 'two';

var s1, s2: TSub;

procedure CopySubRec(var s: TSub; i: Integer; const r: TRec);
begin
  s.a[i] := r;
end;

procedure CopySub(const src: TSub; var dest: TSub);
begin
  dest := src;
end;

CopySubRec(s1, 0, r1);
CopySubRec(s1, 1, r2);

s1.P;
r1.a := 10;
r2.b := 'bug';

s1.P;

CopySub(s1, s2);

s1.a[0].a := 123;
s1.a[1].b := 'modded';

s1.P;
s2.P;

s1 := s2;
s2.a[0].a := 456;
s2.a[1].b := 'rebug';

s1.P;

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
0: 1one
1: 2two
0: 1one
1: 2two
0: 123one
1: 2modded
0: 1one
1: 2two
0: 1one
1: 2two
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

function Copy$TSub(s,d) {
   d.a=s.a.map(Clone$TRec);
   return d;
}
function Clone$TSub($) {
   return {
      a:$.a.map(Clone$TRec)
   }
}
function TSub$P(Self$1) {
   WriteLn("0: ");
   WriteLn(Self$1.a[0].a$1);
   WriteLn(Self$1.a[0].b);
   WriteLn("1: ");
   WriteLn(Self$1.a[1].a$1);
   WriteLn(Self$1.a[1].b);
}
function Copy$TRec(s,d) {
   d.a$1=s.a$1;
   d.b=s.b;
   return d;
}
function Clone$TRec($) {
   return {
      a$1:$.a$1,
      b:$.b
   }
}
function CopySubRec(s, i, r) {
   Copy$TRec(r,s.a[$Idx(i,0,1,"")]);
};
function CopySub(src, dest) {
   Copy$TSub(src,dest);
};
var r1 = {a$1:0,b:""};
var r2 = {a$1:0,b:""};
var s1 = {a:[{a$1:0,b:""},{a$1:0,b:""}]};
var s2 = {a:[{a$1:0,b:""},{a$1:0,b:""}]};

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

   r1.a$1 = 1;
   r1.b = "one";
   r2.a$1 = 2;
   r2.b = "two";
   CopySubRec(s1,0,r1);
   CopySubRec(s1,1,r2);
   TSub$P(s1);
   r1.a$1 = 10;
   r2.b = "bug";
   TSub$P(s1);
   CopySub(s1,s2);
   s1.a[0].a$1 = 123;
   s1.a[1].b = "modded";
   TSub$P(s1);
   TSub$P(s2);
   Copy$TSub(s2,s1);
   s2.a[0].a$1 = 456;
   s2.a[1].b = "rebug";
   TSub$P(s1);