kv

-

kernel handle of type MKernelVector

topic

-

topic name

section

-

section name or NULL

writechar

-

character output function

writeattrib

-

attribute output function

width

-

integer screen width

data

-

arbitrary data passed to the write callbacks

"usage"

Shows just the function name (one-line description) and

calling sequence information

"description"

Shows the detailed description of the function

"examples"

Shows examples of the function's usage

"seealso"

Shows a list of alternate topics related to this

function

M_BOOL M_DECL writechar( void *data, int c );

M_BOOL M_DECL writeattrib( void *data, int attrib );

FN_NORM

normal text mode

FN_ITAL

italic text mode

FN_BOLD

boldfaced text mode

FN_UNDER

underlined text mode

    #include "maplec.h"

    typedef struct {

    int size, len;

    char *string;

    } myString;

    static M_BOOL M_DECL myWriteChar( void *data, int c )

    {

    myString *output = (myString*)data;

    if( output->size-1 == output->len ) {

        output->size *= 2;

        output->string = realloc(output->string,sizeof(char)*output->size);

        if( !output->string )

        return( TRUE );

    }

    output->string[output->len++] = (char)c;

    output->string[output->len] = '0';

    return( FALSE );

    }

    ALGEB M_DECL MyHelpToString( MKernelVector kv, ALGEB *args )

    {

    char *topic, *err;

    myString output;

    ALGEB r;

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

        MapleRaiseError(kv,"one argument expected");

        return( NULL );

    }

    topic = MapleToString(kv,args[1]);

    output.size = 256;

    output.len = 0;

    output.string = (char*)malloc(256*sizeof(char));

    output.string[0] = '0';

    if( (err=MapleHelp(kv,topic,NULL,myWriteChar,NULL,70,&output)) ) {

        if( output.string )

        free(output.string);

        MapleRaiseError(kv,err);

    }

    if( !output.string ) {

        r = NULL;

        MapleRaiseError(kv,"out of memory");

    }

    else {

        r = ToMapleString(kv,output.string);

        free(output.string);

    }

    return( r );

    }