Smart pascal source code


type
  TPoint = record
    x, y: Integer;
  end;

var a, b: array [0 .. 1] of TPoint;

a[0].x := 1;
a[0].y := 2;
a[1].x := 3;
a[1].y := 4;

b := a;

a[0].x := 10;
a[1].y := 40;

WriteLn(b[0].x);
WriteLn(b[0].y);
WriteLn(b[1].x);
WriteLn(b[1].y);

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
1
2
3
4
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

function Copy$TPoint(s,d) {
   d.x=s.x;
   d.y=s.y;
   return d;
}
function Clone$TPoint($) {
   return {
      x:$.x,
      y:$.y
   }
}
var a = [{x:0,y:0},{x:0,y:0}],
   b = [{x:0,y:0},{x:0,y:0}];

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

   a[0].x = 1;
   a[0].y = 2;
   a[1].x = 3;
   a[1].y = 4;
   b = a.map(Clone$TPoint);
   a[0].x = 10;
   a[1].y = 40;
   WriteLn(b[0].x);
   WriteLn(b[0].y);
   WriteLn(b[1].x);
   WriteLn(b[1].y);