data

-

user_data pointer passed to StartMaple (Long)

tag

-

code indicating kind of text (Long)

output

-

output string (byte array pointer)

Sub TextCallBack(ByVal data As Long,

     ByVal tag As Integer,

     ByVal Output As Long)

MAPLE_TEXT_OUTPUT

A line-printed (1-D) Maple expression or statement.

MAPLE_TEXT_DIAG

Diagnostic output (high printlevel or trace output).

MAPLE_TEXT_MISC

Miscellaneous output, for example, from the Maple

printf function.

MAPLE_TEXT_QUIT

Response to a Maple quit, done, or stop command.

MAPLE_TEXT_WARNING

A warning message generated during a computation.

MAPLE_TEXT_ERROR

An error message generated during parsing or

processing. This is generated only if you

do not specify an errorCallBack function.

MAPLE_TEXT_STATUS

Kernel resource usage status (a "bytes used"

message). This is generated only if you

do not specify a statusCallBack function.

MAPLE_TEXT_DEBUG

Output from the Maple debugger.

 Public Sub TextCallBack2(ByVal data As Long, ByVal tag As Integer, _

         ByVal Output As Long)

    Dim OutputString As String

    OutputString = MaplePointerToString(Output)

    If tag = MAPLE_TEXT_HELP Then

        Write #2, OutputString

    Else

        Write #1, OutputString

    End If

 End Sub

 ' assignment to MapleCallback entry

 cb.lpTextCallBack = GetProc(AddressOf TextCallBack)

 ' test statement that will invoke the TextCallBack

 EvalMapleStatement kv, "x^2+3*x+1;"

 EvalMapleStatement kv, "help(int);"