Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
d435369a7e3714d3e63373796087c8c7b63a3e33
[simgrid.git] / src / xbt / module.c
1 /* $Id$ */
2
3 /* module handling                                                          */
4
5 /* Authors: Martin Quinson                                                  */
6 /* Copyright (C) 2003 the OURAGAN project.                                  */
7
8 /* This program is free software; you can redistribute it and/or modify it
9    under the terms of the license (GNU LGPL) which comes with this package. */
10
11 #include "xbt/sysdep.h"
12 #include "xbt/log.h"
13 #include "xbt/error.h"
14 #include "xbt/dynar.h"
15 #include "xbt/config.h"
16
17 #include "gras/process.h" /* FIXME: bad loop */
18
19 #include "xbt/module.h" /* this module */
20
21 #include "xbt_modinter.h"  /* prototype of other module's init/exit in XBT */
22 #include "gras_modinter.h" /* same in GRAS */
23
24 XBT_LOG_NEW_DEFAULT_SUBCATEGORY(module,xbt, "module handling");
25
26 static int xbt_running_process = 0;
27
28 struct xbt_module_ {
29   xbt_dynar_t *deps;
30   xbt_cfg_t *cfg;
31   int ref;
32   xbt_module_new_fct_t new;
33   xbt_module_finalize_fct_t finalize;
34 };
35
36 void 
37 xbt_init(int *argc, char **argv) {
38    xbt_init_defaultlog(argc, argv, NULL);
39 }
40
41 /**
42  * xbt_init_defaultlog:
43  * @argc:
44  * @argv:
45  *
46  * Initialize the gras mecanisms.
47  */
48 void
49 xbt_init_defaultlog(int *argc,char **argv, const char *defaultlog) {
50   int i,j;
51   char *opt;
52   int found=0;
53
54   INFO0("Initialize GRAS");
55   
56   /** Set logs and init log submodule */
57   for (i=1; i<*argc; i++) {
58     if (!strncmp(argv[i],"--gras-log=",strlen("--gras-log="))) {
59       found = 1;
60       opt=strchr(argv[i],'=');
61       opt++;
62       xbt_log_control_set(opt);
63       DEBUG1("Did apply '%s' as log setting",opt);
64       /*remove this from argv*/
65       for (j=i+1; j<*argc; j++) {
66         argv[j-1] = argv[j];
67       } 
68       argv[j-1] = NULL;
69       (*argc)--;
70       i--; /* compensate effect of next loop incrementation */
71     }
72   }
73   if (!found && defaultlog) {
74      xbt_log_control_set(defaultlog);
75   }
76    
77   gras_process_init(); /* calls procdata_init, which calls dynar_new */
78   /** init other submodules */
79   if (xbt_running_process++ == 0) {
80     gras_msg_init();
81     gras_trp_init();
82     gras_datadesc_init();
83   }
84 }
85
86 /**
87  * xbt_exit:
88  *
89  * Finalize the gras mecanisms.
90  */
91 void 
92 xbt_exit(){
93   INFO0("Exiting GRAS");
94   gras_process_exit();
95   if (--xbt_running_process == 0) {
96     gras_msg_exit();
97     gras_trp_exit();
98     gras_datadesc_exit();
99   }
100   xbt_log_exit();
101   DEBUG0("Exited GRAS");
102 }