Smart pascal source code


type
  TSubRec = record
    i: Integer;
    a: array [1 .. 2] of Boolean;
  end;

type
  TRec = record
    i: Integer;
    s: String;
    d: array of Integer;
    r: TSubRec;
  end;

var sr, sr2: TSubRec;

sr.i := 123;
sr.a[1] := False;
sr.a[2] := True;

sr2 := sr;

sr.i := 456;
sr.a[1] := True;
sr.a[2] := False;

WriteLn(sr2.i);
WriteLn(sr2.a[1]);
WriteLn(sr2.a[2]);

var r, r2: TRec;

r.i := 789;
r.s := 'Hello';
r.d := new Integer[1];
r.d[0] := 123456;
r.r := sr2;

r2 := r;

r.i := 111;
r.s := 'World';
r.d[0] := 321;
r.r := sr;
sr2.i := 0;

WriteLn(r2.i);
WriteLn(r2.s);
WriteLn(r2.d[0]);
WriteLn(r2.r.i);
WriteLn(r2.r.a[1]);
WriteLn(r2.r.a[2]);

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
123
False
True
789
Hello
321
123
False
True

-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

function Copy$TSubRec(s,d) {
   d.i=s.i;
   d.a=s.a.slice(0);
   return d;
}
function Clone$TSubRec($) {
   return {
      i:$.i,
      a:$.a.slice(0)
   }
}
function Copy$TRec(s,d) {
   d.i$1=s.i$1;
   d.s=s.s;
   d.d=s.d;
   Copy$TSubRec(s.r,d.r);
   return d;
}
function Clone$TRec($) {
   return {
      i$1:$.i$1,
      s:$.s,
      d:$.d,
      r:Clone$TSubRec($.r)
   }
}
var sr = {i:0,a:[false,false]};
var sr2 = {i:0,a:[false,false]};
var r$1 = {i$1:0,s:"",d:[],r:{i:0,a:[false,false]}};
var r2 = {i$1:0,s:"",d:[],r:{i:0,a:[false,false]}};

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

   sr.i = 123;
   sr.a[(1)-1] = false;
   sr.a[(2)-1] = true;
   Copy$TSubRec(sr,sr2);
   sr.i = 456;
   sr.a[(1)-1] = true;
   sr.a[(2)-1] = false;
   WriteLn(sr2.i);
   WriteLn(sr2.a[(1)-1]);
   WriteLn(sr2.a[(2)-1]);
   r$1.i$1 = 789;
   r$1.s = "Hello";
   r$1.d = [0];
   $DIdxW(r$1.d,0,123456,"");
   Copy$TSubRec(sr2,r$1.r);
   Copy$TRec(r$1,r2);
   r$1.i$1 = 111;
   r$1.s = "World";
   $DIdxW(r$1.d,0,321,"");
   Copy$TSubRec(sr,r$1.r);
   sr2.i = 0;
   WriteLn(r2.i$1);
   WriteLn(r2.s);
   WriteLn($DIdxR(r2.d,0,""));
   WriteLn(r2.r.i);
   WriteLn(r2.r.a[(1)-1]);
   WriteLn(r2.r.a[(2)-1]);