Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
Kill old $Id$ command dating from CVS
[simgrid.git] / src / xbt / xbt_main.c
1 /* module handling                                                          */
2
3 /* Copyright (c) 2003, 2004 Martin Quinson. All rights reserved.            */
4
5 /* This program is free software; you can redistribute it and/or modify it
6  * under the terms of the license (GNU LGPL) which comes with this package. */
7
8 #include "time.h"               /* to seed the random generator */
9
10 #include "xbt/sysdep.h"
11 #include "xbt/log.h"
12 #include "xbt/dynar.h"
13 #include "xbt/config.h"
14
15 #include "xbt/module.h"         /* this module */
16
17 #include "xbt_modinter.h"       /* prototype of other module's init/exit in XBT */
18
19 XBT_LOG_NEW_DEFAULT_SUBCATEGORY(module, xbt, "module handling");
20
21 char *xbt_binary_name = NULL;   /* Mandatory to retrieve neat backtraces */
22 int xbt_initialized = 0;
23
24 XBT_LOG_EXTERNAL_CATEGORY(graphxml_parse);
25 XBT_LOG_EXTERNAL_CATEGORY(log);
26 XBT_LOG_EXTERNAL_CATEGORY(module);
27 XBT_LOG_EXTERNAL_CATEGORY(peer);
28 XBT_LOG_EXTERNAL_CATEGORY(strbuff);
29 XBT_LOG_EXTERNAL_CATEGORY(xbt_cfg);
30 XBT_LOG_EXTERNAL_CATEGORY(xbt_dict);
31 XBT_LOG_EXTERNAL_CATEGORY(xbt_dict_add);
32 XBT_LOG_EXTERNAL_CATEGORY(xbt_dict_collapse);
33 XBT_LOG_EXTERNAL_CATEGORY(xbt_dict_cursor);
34 XBT_LOG_EXTERNAL_CATEGORY(xbt_dict_elm);
35 XBT_LOG_EXTERNAL_CATEGORY(xbt_dict_multi);
36 XBT_LOG_EXTERNAL_CATEGORY(xbt_dict_remove);
37 XBT_LOG_EXTERNAL_CATEGORY(xbt_dict_search);
38 XBT_LOG_EXTERNAL_CATEGORY(xbt_dyn);
39 XBT_LOG_EXTERNAL_CATEGORY(xbt_ex);
40 XBT_LOG_EXTERNAL_CATEGORY(xbt_fifo);
41 XBT_LOG_EXTERNAL_CATEGORY(xbt_graph);
42 XBT_LOG_EXTERNAL_CATEGORY(xbt_matrix);
43 XBT_LOG_EXTERNAL_CATEGORY(xbt_queue);
44 XBT_LOG_EXTERNAL_CATEGORY(xbt_set);
45 XBT_LOG_EXTERNAL_CATEGORY(xbt_sync_os);
46
47 /** @brief Initialize the xbt mechanisms. */
48 void xbt_init(int *argc, char **argv)
49 {
50   xbt_initialized++;
51
52   if (xbt_initialized != 1)
53     return;
54
55   /* Connect our log channels: that must be done manually under windows */
56   XBT_LOG_CONNECT(graphxml_parse, xbt);
57   XBT_LOG_CONNECT(log, xbt);
58   XBT_LOG_CONNECT(module, xbt);
59   XBT_LOG_CONNECT(peer, xbt);
60   XBT_LOG_CONNECT(strbuff, xbt);
61   XBT_LOG_CONNECT(xbt_cfg, xbt);
62   XBT_LOG_CONNECT(xbt_dict, xbt);
63   XBT_LOG_CONNECT(xbt_dict_add, xbt_dict);
64   XBT_LOG_CONNECT(xbt_dict_collapse, xbt_dict);
65   XBT_LOG_CONNECT(xbt_dict_cursor, xbt_dict);
66   XBT_LOG_CONNECT(xbt_dict_elm, xbt_dict);
67   XBT_LOG_CONNECT(xbt_dict_multi, xbt_dict);
68   XBT_LOG_CONNECT(xbt_dict_remove, xbt_dict);
69   XBT_LOG_CONNECT(xbt_dict_search, xbt_dict);
70   XBT_LOG_CONNECT(xbt_dyn, xbt);
71   XBT_LOG_CONNECT(xbt_ex, xbt);
72   XBT_LOG_CONNECT(xbt_fifo, xbt);
73   XBT_LOG_CONNECT(xbt_graph, xbt);
74   XBT_LOG_CONNECT(xbt_matrix, xbt);
75   XBT_LOG_CONNECT(xbt_queue, xbt);
76   XBT_LOG_CONNECT(xbt_set, xbt);
77   XBT_LOG_CONNECT(xbt_sync_os, xbt);
78
79   xbt_binary_name = xbt_strdup(argv[0]);
80   srand((unsigned int) time(NULL));
81   VERB0("Initialize XBT");
82
83   xbt_backtrace_init();
84   xbt_log_init(argc, argv);
85   xbt_os_thread_mod_init();
86 }
87
88 /** @brief Finalize the xbt mechanisms. */
89 void xbt_exit()
90 {
91   xbt_initialized--;
92   if (xbt_initialized == 0) {
93     xbt_fifo_exit();
94     xbt_dict_exit();
95     xbt_os_thread_mod_exit();
96     xbt_log_exit();
97     xbt_backtrace_exit();
98     free(xbt_binary_name);
99   }
100 }
101
102
103 /* these two functions belong to xbt/sysdep.h, which have no corresponding .c file */
104 /** @brief like free, but you can be sure that it is a function  */
105 XBT_PUBLIC(void) xbt_free_f(void *p)
106 {
107   free(p);
108 }
109
110 /** @brief should be given a pointer to pointer, and frees the second one */
111 XBT_PUBLIC(void) xbt_free_ref(void *d)
112 {
113   free(*(void **) d);
114 }