record passing I

Smart pascal source code


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

procedure WriteLnPoint(const xy: TPoint);
begin
  WriteLn(xy.x);
  WriteLn(', ');
  WriteLn(xy.y);
end;

procedure PassCopy(ab: TPoint);
begin
  ab.x := 1;
  WriteLnPoint(ab);
end;

procedure PassVar(var ab: TPoint);
begin
  ab.y := 2;
  WriteLnPoint(ab);
end;

var xy: TPoint;

WriteLnPoint(xy);
PassCopy(xy);
PassVar(xy);
WriteLnPoint(xy);

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

function WriteLnPoint(xy$1) {
   WriteLn(xy$1.x);
   WriteLn(", ");
   WriteLn(xy$1.y);
};
function Copy$TPoint(s,d) {
   d.x=s.x;
   d.y=s.y;
   return d;
}
function Clone$TPoint($) {
   return {
      x:$.x,
      y:$.y
   }
}
function PassVar(ab) {
   ab.y = 2;
   WriteLnPoint(ab);
};
function PassCopy(ab$1) {
   ab$1.x = 1;
   WriteLnPoint(ab$1);
};
var xy = {x:0,y:0};

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

   WriteLnPoint(xy);
   PassCopy(Clone$TPoint(xy));
   PassVar(xy);
   WriteLnPoint(xy);