Smart pascal source code


type
  TMyInt1 = Integer;

type
  TMyInt2 = TMyInt1;

type
  TOther = record
    i: TMyInt2;
  end;

type
  TSub = TOther;

type
  TPoint = record
    x: TMyInt1;
    y: TSub;
    procedure P;
    begin
      WriteLn(x);
      WriteLn(', ');
      WriteLn(y.i);
    end;
  end;

var P, p2: TPoint;
p2.x := 1;
p2.y.i := 2;

P.P;

P := p2;
P.P;

P.x := P.y.i;
P.P;

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

function Copy$TPoint(s,d) {
   d.x=s.x;
   Copy$TOther(s.y,d.y);
   return d;
}
function Clone$TPoint($) {
   return {
      x:$.x,
      y:Clone$TOther($.y)
   }
}
function TPoint$P(Self$1) {
   WriteLn(Self$1.x);
   WriteLn(", ");
   WriteLn(Self$1.y.i);
}
function Copy$TOther(s,d) {
   d.i=s.i;
   return d;
}
function Clone$TOther($) {
   return {
      i:$.i
   }
}
var P$1 = {x:0,y:{i:0}};
var p2 = {x:0,y:{i:0}};

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

   p2.x = 1;
   p2.y.i = 2;
   TPoint$P(P$1);
   Copy$TPoint(p2,P$1);
   TPoint$P(P$1);
   P$1.x = P$1.y.i;
   TPoint$P(P$1);