kv

-

kernel handle of type MKernelVector

#include "maplec.h"

ALGEB M_DECL DoABunchOfWork( MKernelVector kv, ALGEB *args )

{

    int i;

    int *data = (int*)malloc( 1000 );

    for ( i = 0; i < 100000; i++ )

    {

        /* has an interrupt occurred? */

        if ( MapleGetInterruptValue( kv ) )

        {

            /* if so, clean up data then handle the interrupt */

            free( data );

            MapleCheckInterrupt( kv );

        }

        DoABitOfWork( kv, args, data );

    }

    free( data );

    return ToMapleNULL( kv );

}