Subversion Repositories Kolibri OS

    BSD 2-Clause License

    BSD 2-Clause License

    Copyright (c) 2018, 2019, Anton Krotov

    Copyright (c) 2018-2019, Anton Krotov

    All rights reserved.

    All rights reserved.

*)

*)

    program*: PROG.PROGRAM;

    program*: PROG.PROGRAM;

    parsers: C.COLLECTION;

    lines*: INTEGER;

        checklex(parser, SCAN.lxEND);

        checklex(parser, SCAN.lxEND);

        ExpectSym(parser, SCAN.lxIDENT);

        ExpectSym(parser, SCAN.lxIDENT);

        check1(parser.lex.s = unit.name.s, parser, 25);

        check1(parser.lex.s = unit.name.s, parser, 25);

        ExpectSym(parser, SCAN.lxPOINT)

    END;

    INC(lines, parser.lex.pos.line);

    PROG.closeUnit(unit)

    PROG.closeUnit(unit)

PROCEDURE init* (bit_depth, target: INTEGER; options: PROG.OPTIONS);

PROCEDURE init* (bit_depth, target: INTEGER; options: PROG.OPTIONS);

    program := PROG.create(bit_depth, target, options);

    parsers := C.create();

    parsers := C.create()

    lines   := 0

END init;

END init;