OpenEuphoria

Re: Overwriting function

• Posted by Robert Craig <rds at EMAIL.MSN.COM> Jun 20, 1998
• 973 views

Daniel Berstein writes:
> Is there a way to overwrite an Euphoria function, but stll be
> able to call the original function?

See euphoria\include\safe.e. It's done several times in there.
e.g.

function original_peek(object x)
    return peek(x) -- Euphoria's normal peek
end function

without warning
-- override "peek" with debug peek
global function peek(object x)
-- safe version of peek
    integer len
    atom a

    if atom(x) then
        len = 1
        a = x
    else
        len = x[2]
        a = x[1]
    end if
    if safe_address(a, len) then
        return original_peek(x)
    else
        die("BAD PEEK" & bad_address(a))
    end if
end function


Regards,
     Rob Craig
     Rapid Deployment Software