/***********************************************************
*                       test module                        *
************************************************************
* Description: a module for testing c module functionality *
*                                                          *
* Created by: kave eshghi                                  *
* At: Mon Aug 24 12:06:07 1992                             *
***********************************************************/

/* INCLUDES */
# include "structures.h"

/* DECLARATIONS */
int register_module(char *module_name);
int register_function(int module_number,
                      char *function_name,
                      function_type function,
                      void *data);

void register_generic(int module_number,
                      generic_function function);

int module_functor;

void echo(int arity,
          module_ptr agen,
          struct term **args,
          void *data)

{
   int i;
   
   printf("got message\n");
   for(i=0;i<arity;i++)
   {
      print_term(args[i], sym_table);
      printf("\n");
   }
   printf("end of message\n");
}

void echo_generic(module_ptr agent,
          struct term *term)

{
   printf("got message\n");
   pt(term);
   printf("end of message\n");
}

void test_init(int request_number)
{
   int i;
   if (request_number==MODULE_INIT)
   {
      module_functor=register_module("test_module");
      i=register_function(module_functor,"echo",echo,NULL);
      register_generic(module_functor,echo_generic);
   }
}