nmMain.c

Go to the documentation of this file.

/** \file nmMain.c

  \brief  Main narya routine. 

******************************************************************************/

#include "nm.h"
#include "q.h"

/*---------------------------------------------------------------------------*/
/* Variable declarations                                                     */
/*---------------------------------------------------------------------------*/

/**AutomaticStart*************************************************************/

/*---------------------------------------------------------------------------*/
/* Static function prototypes                                                */
/*---------------------------------------------------------------------------*/

/**AutomaticEnd***************************************************************/


/** \brief Init persistent data structures related to Tcl interpreter */


int
Nm_TclAppInit (Tcl_Interp * interp)
{
  if (Tcl_Init (interp) == TCL_ERROR)
    {
      return TCL_ERROR;
    }
  // tcl_RcFileName = "~/.tclshrc";

  Nm_TclCD_t *cd = Nm_TclCDInit ();
  Nm_Tcl (interp, cd);
  return TCL_OK;
}

/*---------------------------------------------------------------------------*/
/* Definition of exported functions                                          */
/*---------------------------------------------------------------------------*/

/** \brief  Narya main routine */

int
main (int argc, char **argv)
{

  util_set_processor_frequency ();

  // use if using google profiler code
  // ProfilerStart();

  Tcl_Main (argc, argv, Nm_TclAppInit);

  // use if using google profiler code
  // ProfilerStop();

  return 0;
}