kv

-

kernel handle returned by StartMaple

val

-

expression sequence object containing strings

Sub MyLoadPackage(ByVal kv As Long)

    Dim mylib As String

    Dim n, i, libname As Long

    ' find the maple directory

    mylib = MapleToString(kv, MapleKernelOptions(kv, "mapledir", 0))

    mylib = mylib + "tool_lib"

    ' get the current value of libname

    libname = MapleLibName(kv, 0)

    ' copy the current value into a new expression sequence with

    ' room for one more entry.

    n = MapleNumArgs(kv, libname)

    newlibname = NewMapleExpressionSequence(kv, n + 1)

    For i = 1 To n

        MapleExpseqAssign kv, newlibname, i, MapleExpseqSelect(kv, libname, i)

    Next i

    ' append the tool_lib directory to libname

    MapleExpseqAssign kv, newlibname, i, ToMapleString(kv, mylib)

    MapleLibName kv, newlibname

    EvalMapleStatement kv, "libname;"

End Sub