kv

-

kernel handle of type MKernelVector

lhs

-

type ALGEB assignable object

rhs

-

type ALGEB value

n

-

length of ind

ind

-

index array

    #include "maplec.h"

    ALGEB M_DECL MyMult( MKernelVector kv, ALGEB *args )

    {

    ALGEB a, b, r, val;

    static M_INT index[1] = { 1 };

    if( MapleNumArgs(kv,(ALGEB)args) != 2 ) {

        MapleRaiseError(kv,"two arguments expected");

        return( NULL );

    }

    a = ToMapleName(kv,"a",TRUE);

    MapleAssign(kv,a,args[1]);

    b = ToMapleName(kv,"b",TRUE);

    MapleAssign(kv,b,args[2]);

    val = EvalMapleStatement(kv,"a*b;");

    r = ToMapleName(kv,"my_results",TRUE);

    MapleAssignIndexed(kv,r,1,index,val);

    index[0]++;

    return( val );

    }