Smart pascal source code


type
  TRec1 = record
    a: Integer;
  end;

var r1: TRec1 = (a: 1);

var r2: TRec1 = (a: 2);

WriteLn(r1.a);
WriteLn(r2.a);
Swap(r1, r2);
WriteLn(r1.a);
WriteLn(r2.a);

type
  TRec2 = record
    a, b: Integer;
  end;

var z1: TRec2 = (a: 10; b: 2);

var z2: TRec2 = (a: 30; b: 4);

WriteLn(z1.a + z1.b);
WriteLn(z2.a + z2.b);
Swap(z1, z2);
WriteLn(z1.a + z1.b);
WriteLn(z2.a + z2.b);

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
12
21
1234
3412
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

function Copy$TRec2(s,d) {
   d.a=s.a;
   d.b=s.b;
   return d;
}
function Clone$TRec2($) {
   return {
      a:$.a,
      b:$.b
   }
}
function Copy$TRec1(s,d) {
   d.a$1=s.a$1;
   return d;
}
function Clone$TRec1($) {
   return {
      a$1:$.a$1
   }
}
var r1 = {a$1:0},
   r2 = {a$1:0},
   z1 = {a:0,b:0},
   z2 = {a:0,b:0};

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

   r1 = {a$1:1};
   r2 = {a$1:2};
   WriteLn(r1.a$1);
   WriteLn(r2.a$1);
   var $temp1 = {}; Copy$TRec1(r1,$temp1); Copy$TRec1(r2,r1); Copy$TRec1($temp1,r2);
   WriteLn(r1.a$1);
   WriteLn(r2.a$1);
   Copy$TRec2({a:10,b:2},z1);
   Copy$TRec2({a:30,b:4},z2);
   WriteLn((z1.a+z1.b));
   WriteLn((z2.a+z2.b));
   var $temp2 = {}; Copy$TRec2(z1,$temp2); Copy$TRec2(z2,z1); Copy$TRec2($temp2,z2);
   WriteLn((z1.a+z1.b));
   WriteLn((z2.a+z2.b));