/*************************************************/
/*                                               */
/* help.c                                        */
/*                                               */
/*************************************************/


#include "x/scolplugin.h"
#include "x/version.h"


/****************************************************************************/ 
/*                                                                          */ 
/*  int GROpenHelp ( mmachine m ) ;                                         */ 
/*                                                                          */ 
/*  Correspond a la fonction SCOL _OPENhelp ( ObjWin W, P file ) -> ObjHelp */ 
/*                                                                          */ 
/*  Pour ouvrir un fichier d'aide                                           */ 
/*                                                                          */ 
/****************************************************************************/ 

int GROpenHelp ( mmachine m )
{
    int s,s2,s3 ;
    char * fname ;
    PtrObjVoid O ;
    PtrObjWindow W ;


    /******************** TRACE 2D ******************************************/ 
    #ifdef TRACE2D
        MMechostr(MSKDEBUG,"(DBG) _OPENhelp\n");
        FDebug2D(m);
    #endif
    /************************************************************************/ 


    s = MMpull(m);
    s2 = MMpull(m) ;
    s3 = NIL ;

    if (s!=NIL ||s2 != NIL)
    {
        fname = ( char * ) MMstart(m,(s>>1)+1);
        O = ( PtrObjVoid ) MMstart(m,(s2>>1));
        W = ( PtrObjWindow ) MMstart(m,(O->Buffer>>1)) ;
        MMechostr(MSKDEBUG,"Fichier d'aide %s",fname);
        WinHelp ( W->WHandler,fname,HELP_CONTENTS,0);
    }
    s3 = MMpush(m,s3);

    /**************** TRACE 2D **********************************************/ 
    #ifdef TRACE2D
        FDebug2D(m);
        MMechostr(MSKDEBUG,"(DBG) _OPENhelp Done\n");
    #endif
    /*************************************************************************/ 

    return s3 ;
}