XProfan

Window Title "Klammer-Ausgewogenheitstest"
cls
declare u&,d&, r$
r$="latitude! (* (/ (+ lat! (* (- (+ 1 (* e2cuadrada! (math_pow(cos lat!)2)) ) (* (/ 3.0 2.0) e2cuadrada! (sin lat!) (cos lat!) (- tao! lat!))) (- tao! lat!))) Math_PI) 180.0)"

whileloop len(r$)

    case mid$(r$,&Loop,1)="(":inc u&
    case mid$(r$,&Loop,1)=")":inc d&

endwhile

print "( ... ";u&
print ") ... ";d&

if d&<>u&

    print " not well-balanced!"

else

    print " OK."

endif

waitinput

Proc BracketBalance

    Parameters line$
    Declare c$, u&, d&, st%

    WhileLoop len(line$)

        c$ = mid$(line$,&Loop,1)
        case (c$ = "\q") :  st% = If(st% = 0, 1, 0)

        If (st% = 0)'only unless in a Zeichenkette

            If (c$ = "'") AND (st% = 0)'with comment is Schluss

                break

            EndIf

            case (c$ = "(") : inc u&
            case (c$ = ")") : inc d&

        EndIf

    EndWhile

    '0 = ok, 1 = clinging unausgewogen, 2 = Zeichenkette not gschlossen, 3 = both broken
    return (if(u& <> d&,1,0) + if(st% = 1, 2, 0))

ENDPROC

declare s1$, s2$, s3$, s4$
s1$ = "Das is a (\qguter\q) Test! 'with comment :-)"
s2$ = "Das is a (\qguter) Test! 'with comment :-)"
s3$ = "Das is a (\qguter\q Test! 'with comment :-)"
s4$ = "Das is a (guter) \qTest! 'with comment :-)"
print BracketBalance(s1$) + " " + s1$'0 = ok
print BracketBalance(s2$) + " " + s2$'3 = both broken (Klammer only because second ausversehen in Zeichenkette)
print BracketBalance(s3$) + " " + s3$'1 = clinging unausgewogen
print BracketBalance(s4$) + " " + s4$'2 = Zeichenkette not gschlossen
waitinput
end