example.mac

// vi:ft=rsl:ts=4:sw=4:et
const DEBUG = False;

import macro;

private var d: double = 1.1;

xx;

[Output field: #########](1:c);

record yy ("ai");

var x = 0;
print(yy);

if (not (x > 1) or (a > 1))
    aa;
end;

array a1;
var a2 = TArray;

ValType(a1);

record r1 ("dobj_dbt") key 1 write;
file r1 ("msg.txt") txt 2048;

for
end;

Class First()             // Класс-родитель
   Var x = 2, y = 3;

   Macro Sum()
        macro fold()
            if (DEBUG)
                println("hi");
            end;
            var x: Integer = 3;
            for (var i, 0, 100, 1)
                var r: TRecHandler;
                r.func(1);
                if (r.field[1] > 10)
                    return 10;
                end;
            end;
            return x;
        end;
      return x + y;
   end;
end;


Class (First) Second()    // Класс-наследник
   InitFirst();
   Var a = 100;


   Macro Sum()            // Начало переопределения родительского метода Sum()
      return Sum() + a;   //   Использование родительского метода Sum() в методе Sum() наследника 
   end;                   // Конец переопределения родительского метода Sum()


   Macro Sum2()
      return Sum() + a;   // Использование метода Sum() наследника
   end;
end;
var str = "sdadf";
var str2 = "asdf"
    "asdf"
    "zxcv";

var obj = Second();           // Создание объекта класса Second()


println(obj.child.param.Sum());    // Результат: 105
println(obj.Sum2());   // Результат: 205

// single line

/* single line */

/* multi
 line */