could-be

pascal-like language parser & semantic checker (using flex/bison)

example code

mainprog muc;
int[100] x,z123,efg01230,hi,e1;
float y,a,b,c,d,ff,ml2,bob;

procedure cdb(xx:int; ck:float);
    int[100] x, z123;
    begin
        a=.3
    end

function aps1234iodfj1324(xx:int; ck:float; ckckck:int): int;
    int[100] x, z123;
    begin
        x[0]=3.12;
        if ckckck <= 1:
            begin
                cdb(123123,1);
                ckckck = 1;
                return 2
            end
        elif ckckck == 2:
            begin
                cdb(-1,+1)
            end
    end

function plus(x: int; y: int): int;
    begin
        return x+y
    end

begin
    print(plus(32094,-1384));
    print(e1[e1[3*e1[e1[e1[e1[e1[50]-2]]]+1]]]);

    for ml2 in z123:
    begin
        ff = a + b * c - d / efg01230[1];
        if ff <= 1:
            begin
                cdb(123123,1);
                ff = 1
            end
        elif ff == 2:
            begin
                cdb(-1,+1)
            end
        elif 2>1:
            print(hi[1])
        else:
            begin
                y = aps1234iodfj1324(1, 2, 3);
                while 1!=2:
                    begin
                        aps1234iodfj1324(-1123123.23231241240000, 2, 3);
                        x[90]=1
                    end
            end
    end;

    for x[5] in e1:
        begin
            print(e1[e1[e1[e1[e1[e1[e1[50]]]]]]]);
            d = 3. + 123 - .3 * 3.112 / 94.24230923540909;
            e1[2] = b
        end
    else:
        begin
            print(a+x[1]/b)
        end;

    print(bob == ml2);
    print(1 in x)
end