kv

-

kernel handle returned by StartMaple

f

-

function pointer

data

-

integer data

err

-

boolean flag set to True if an error occurs executing f

dim global_kv as long

Public Function TestTrapErrorCB1(data As Long) As Long

    MapleRaiseError global_kv, "test"

    TestTrapErrorCB1 = data

End Function

Public Function TestTrapErrorCB2(data As Long) As Long

    TestTrapErrorCB2 = EvalMapleStatement(global_kv, "int(x,x):")

End Function

Public Sub TestTrapError(ByVal kv As Long)

    Dim errorflag As Long

    Dim data As Long

    global_kv = kv

    data = MapleTrapError(kv, GetProc(AddressOf TestTrapErrorCB1), _

              365, errorflag)

    If errorflag = 0 Then

        MsgBox "should have been an error (errorflag = 1)", _

              vbInformation, ""

    End If

    data = MapleTrapError(kv, GetProc(AddressOf TestTrapErrorCB2), _

              0, errorflag)

    If errorflag = 1 Then

        MsgBox "should NOT have been an error (errorflag = 0)", _

              vbInformation, """"

    End If

End Sub