jaredj/glotawk - Change DLKX5ORVHGLKOQD2ZDBDQKZBSN5XQ7WXMZPCZNMTMJV2JRKS664AC

add numerical relational operators

Created by jaredj on August 25, 2025

DLKX5ORVHGLKOQD2ZDBDQKZBSN5XQ7WXMZPCZNMTMJV2JRKS664AC

Dependencies

[2] JDZASPALXSFZOL3MXCKBPX74CUD3W743ZJ6W2422FIJ7NJOD67ZAC

In channels

main

Change contents

Replacement in math.awk at line 6 [2.10161]

B:BD[2.10234] → [2.10234:10267]

    if(car == _symbol("only2+"))

[2.10234]

[2.10267]

    if(car == _symbol(">"))
        return _gt(_eval3(_cadr(form), env, env, d+1),
                   _eval3(_caddr(form), env, env, d+1))
    else if(car == _symbol("<"))
        return _lt(_eval3(_cadr(form), env, env, d+1),
                   _eval3(_caddr(form), env, env, d+1))
    else if(car == _symbol("="))
        return _number_eq(_eval3(_cadr(form), env, env, d+1),
                          _eval3(_caddr(form), env, env, d+1))
    else if(car == _symbol("!="))
        return _number_ne(_eval3(_cadr(form), env, env, d+1),
                          _eval3(_caddr(form), env, env, d+1))
    else if(car == _symbol(">="))
        return _ge(_eval3(_cadr(form), env, env, d+1),
                   _eval3(_caddr(form), env, env, d+1))
    else if(car == _symbol("<="))
        return _le(_eval3(_cadr(form), env, env, d+1),
                   _eval3(_caddr(form), env, env, d+1))
    else if(car == _symbol("only2+"))

Insertion in math.awk at line 66 [2.10161]

[2.12336]

}
function _gt(a, b,       tv) {
    split(a, tv)
    if(tv[1] == "#") {
        a = tv[2]
        split(b, tv)
        if(tv[1] == "#") {
            b = tv[2]
            return a > b ? _true() : _false();
        }
    }
    # if either a or b was not a number, we're here
    logg_err(">", "non-numeric operand", d)
    return _nil()
}
function _lt(a, b,       tv) {
    split(a, tv)
    if(tv[1] == "#") {
        a = tv[2]
        split(b, tv)
        if(tv[1] == "#") {
            b = tv[2]
            return a < b ? _true() : _false();
        }
    }
    # if either a or b was not a number, we're here
    logg_err("<", "non-numeric operand", d)
    return _nil()
}
function _number_eq(a, b,       tv) {
    split(a, tv)
    if(tv[1] == "#") {
        a = tv[2]
        split(b, tv)
        if(tv[1] == "#") {
            b = tv[2]
            return a == b ? _true() : _false();
        }
    }
    # if either a or b was not a number, we're here
    logg_err("=", "non-numeric operand", d)
    return _nil()
}
function _number_ne(a, b,       tv) {
    split(a, tv)
    if(tv[1] == "#") {
        a = tv[2]
        split(b, tv)
        if(tv[1] == "#") {
            b = tv[2]
            return a != b ? _true() : _false();
        }
    }
    # if either a or b was not a number, we're here
    logg_err("!=", "non-numeric operand", d)
    return _nil()
}
function _ge(a, b,       tv) {
    split(a, tv)
    if(tv[1] == "#") {
        a = tv[2]
        split(b, tv)
        if(tv[1] == "#") {
            b = tv[2]
            return a >= b ? _true() : _false();
        }
    }
    # if either a or b was not a number, we're here
    logg_err(">=", "non-numeric operand", d)
    return _nil()

Insertion in math.awk at line 142 [2.10161]

[2.12339]

function _le(a, b,       tv) {
    split(a, tv)
    if(tv[1] == "#") {
        a = tv[2]
        split(b, tv)
        if(tv[1] == "#") {
            b = tv[2]
            return a <= b ? _true() : _false();
        }
    }
    # if either a or b was not a number, we're here
    logg_err("<=", "non-numeric operand", d)
    return _nil()
}

Insertion in first-symbols.awk at line 51 [2.17737]

[2.18727]

    _symbol("<")
    _symbol(">")
    _symbol("=")
    _symbol("!=")
    _symbol("<=")
    _symbol(">=")