Azinix

nmMain.c

Go to the documentation of this file.
00001 /** \file nmMain.c
00002 
00003   \brief  Main narya routine. 
00004 
00005 ******************************************************************************/
00006 
00007 #include "nm.h"
00008 #include "q.h"
00009 
00010 /*---------------------------------------------------------------------------*/
00011 /* Variable declarations                                                     */
00012 /*---------------------------------------------------------------------------*/
00013 
00014 /**AutomaticStart*************************************************************/
00015 
00016 /*---------------------------------------------------------------------------*/
00017 /* Static function prototypes                                                */
00018 /*---------------------------------------------------------------------------*/
00019 
00020 /**AutomaticEnd***************************************************************/
00021 
00022 
00023 /** \brief Init persistent data structures related to Tcl interpreter */
00024 
00025 
00026 int
00027 Nm_TclAppInit (Tcl_Interp * interp)
00028 {
00029   if (Tcl_Init (interp) == TCL_ERROR)
00030     {
00031       return TCL_ERROR;
00032     }
00033   // tcl_RcFileName = "~/.tclshrc";
00034 
00035   Nm_TclCD_t *cd = Nm_TclCDInit ();
00036   Nm_Tcl (interp, cd);
00037   return TCL_OK;
00038 }
00039 
00040 /*---------------------------------------------------------------------------*/
00041 /* Definition of exported functions                                          */
00042 /*---------------------------------------------------------------------------*/
00043 
00044 /** \brief  Narya main routine */
00045 
00046 int
00047 main (int argc, char **argv)
00048 {
00049 
00050   util_set_processor_frequency ();
00051 
00052   // use if using google profiler code
00053   // ProfilerStart();
00054 
00055   Tcl_Main (argc, argv, Nm_TclAppInit);
00056 
00057   // use if using google profiler code
00058   // ProfilerStop();
00059 
00060   return 0;
00061 }