kv

-

kernel handle of type MKernelVector

val

-

expression sequence object containing strings

    #include <string.h>

    #include "maplec.h"

    ALGEB M_DECL MyLoadPackage( MKernelVector kv, ALGEB *args )

    {

    M_INT n, i;

    ALGEB libname, newlibname;

    char *mylib, buf[1024];

    mylib = getenv("HOME");

    if( mylib ) {

        mylib = strncpy(buf,mylib,1010);

        mylib[1010] = '0';

    }

    else {

        mylib = strcpy(buf,"/usr/local");

    }

    strcat(mylib,"/tool_lib");

    libname = MapleLibName(kv,NULL);

    n = MapleNumArgs(kv,libname);

    newlibname = NewMapleExpressionSequence(kv,n+1);

    for( i=1; i<=n; ++i ) {

        newlibname[i] = libname[i];

    }

    ((ALGEB*)newlibname)[i] = ToMapleString(kv,mylib);

    MapleLibName(kv,newlibname);

    return( ToMapleBoolean(kv,TRUE) );

    }