Smart pascal source code


type
  TRec = record
    Left, Right: Integer;
    procedure WriteLnMe;
    begin
      WriteLn(Left);
      WriteLn(Right);
    end;
  end;

procedure DoIt(r1, r2: TRec);
begin
  r1.WriteLnMe;
  r2.WriteLnMe;
end;

procedure StartIt(r1, r2: TRec);
var ra: TRec;
  rb: TRec;
begin
  ra := r1;
  rb := r2;
  DoIt(ra, rb);
  DoIt(rb, ra);
end;

var r1, r2: TRec;

r1.Left := 1;
r1.Right := 2;
r2.Left := 3;
r2.Right := 4;

StartIt(r1, r2);
StartIt(r2, r1);

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
12
34
34
12
34
12
12
34
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

function Copy$TRec(s,d) {
   d.Left=s.Left;
   d.Right=s.Right;
   return d;
}
function Clone$TRec($) {
   return {
      Left:$.Left,
      Right:$.Right
   }
}
function TRec$WriteLnMe(Self$1) {
   WriteLn(Self$1.Left);
   WriteLn(Self$1.Right);
}
function StartIt(r1$1, r2$1) {
   var ra = {Left:0,Right:0};
   var rb = {Left:0,Right:0};
   Copy$TRec(r1$1,ra);
   Copy$TRec(r2$1,rb);
   DoIt(Clone$TRec(ra),Clone$TRec(rb));
   DoIt(Clone$TRec(rb),Clone$TRec(ra));
};
function DoIt(r1$2, r2$2) {
   TRec$WriteLnMe(r1$2);
   TRec$WriteLnMe(r2$2);
};
var r1 = {Left:0,Right:0};
var r2 = {Left:0,Right:0};

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

   r1.Left = 1;
   r1.Right = 2;
   r2.Left = 3;
   r2.Right = 4;
   StartIt(Clone$TRec(r1),Clone$TRec(r2));
   StartIt(Clone$TRec(r2),Clone$TRec(r1));