#include "structures.h"
#include "AOPcomm.h"
#include "network.h"
   

#include "c_module.h"
int module_count=
  sizeof(module_entry_array)/sizeof(module_entry_array[0]);

/* DECLERATIONS */
static void init_all_modules();
static void exit_all_modules();
void exit_interpreter();

/*
============================================================
|                    init_all_modules()                    |
|----------------------------------------------------------|
| Params : 1)                                              |
|          2)                                              |
|          3)                                              |
| Desc   :                                                 |
|                                                          |
| Returns:                                                 |
| Created by: avrami tzur                                  |
| At: Thu Sep  3 13:31:25 1992                             |
|==========================================================|
*/
static void init_all_modules()
{
   int i;
   for(i=0;i<module_count;i++)
      (module_entry_array[i])(MODULE_INIT);
}


/*
============================================================
|                    exit_all_modules()                    |
|----------------------------------------------------------|
| Params : 1)                                              |
|          2)                                              |
|          3)                                              |
| Desc   :                                                 |
|                                                          |
| Returns:                                                 |
| Created by: avrami tzur                                  |
| At: Thu Sep  3 13:31:57 1992                             |
|==========================================================|
*/
static void exit_all_modules()
{
  int i;
   for(i=0;i<module_count;i++)
      (module_entry_array[i])(MODULE_EXIT); 
}



/*
============================================================
|                    exit_interpreter()                    |
|----------------------------------------------------------|
| Params : 1)                                              |
|          2)                                              |
|          3)                                              |
| Desc   :                                                 |
|                                                          |
| Returns:                                                 |
| Created by: avrami tzur                                  |
| At: Thu Sep  3 13:35:57 1992                             |
|==========================================================|
*/
void exit_interpreter()
{
   exit_all_modules();
   sleep(2);
   exit(0);
}
extern module_ptr read_module(char *file_name);

char *user_name;

void InitilizeSymTable();

int justify_trace=FALSE;
int list_clauses=FALSE;
int message_trace=FALSE;
main(int argc, char **argv)
{
   void send_initialize_message(void);
   module_ptr m1;
   
   /* set trace flags */
   if (argc>1 && strchr(argv[1],'-')!=NULL)
   {
     if(strchr(argv[1],'t')!=NULL)
        justify_trace=TRUE;
     if(strchr(argv[1],'c')!=NULL)
        list_clauses=TRUE;
     if(strchr(argv[1],'m')!=NULL)
        message_trace=TRUE;
  }
   
   /* Initialization */
   initialize_tms();
   InitilizeSymTable();
   /* Initialize the interpreter. */
   if(argc ==2 &&strchr(argv[1],'-')==NULL )
      user_name = argv[1];
   else if (argc>2)
      user_name=argv[2];
  else
     user_name = cuserid(NULL);
   
   /* Initialize c modules. */
  initInterpreterCommunication(user_name, 1);
   
   init_all_modules();  
   
   /* Go for it! */
   
   preLoadAgents();
   send_initialize_message();
   dispatch_loop(); 
}