bgmsg.pro

来自「Visual Prolog 7.1的一些学习资料,希望对您有用」· PRO 代码 · 共 38 行

/*****************************************************************************

                        Copyright (c) Prolog Development Center A/S

******************************************************************************/

implement bgMsg
    open core

    constants
        className = "background/bgMsg".
        classVersion = "$JustDate: 2004-10-02 $$Revision: 1 $".

    facts
        msg : string.

    clauses
        newWrite(...) :-
            S = outputStream_string::new(),
            S:write(...),
            msg := S:getString(),
            S:close().

    clauses
        newWritef(F, ...) :-
            S = outputStream_string::new(),
            S:writef(F, ...),
            msg := S:getString(),
            S:close().

    clauses
        result() :-
            stdIO::write(msg).

    clauses
        classInfo(className, classVersion).
end implement bgMsg