/* This program is free software; you can redistribute it and/or modify it
under the terms of the license (GNU LGPL) which comes with this package. */
-#include "gras_private.h"
+#include "xbt/sysdep.h"
+#include "xbt/log.h"
+#include "xbt/error.h"
+#include "xbt/dynar.h"
+#include "xbt/config.h"
-GRAS_LOG_NEW_DEFAULT_SUBCATEGORY(module,GRAS);
+#include "gras/process.h" /* FIXME: bad loop */
-extern void gras_log_exit(void);
+#include "xbt/module.h" /* this module */
+
+#include "xbt_modinter.h" /* prototype of other module's init/exit in XBT */
+#include "gras_modinter.h" /* same in GRAS */
+
+GRAS_LOG_NEW_DEFAULT_SUBCATEGORY(module,xbt, "module handling");
+
+static int gras_running_process = 0;
struct gras_module_ {
gras_dynar_t *deps;
found = 1;
opt=strchr(argv[i],'=');
opt++;
- TRYFAIL(gras_log_control_set(opt));
+ gras_log_control_set(opt);
+ DEBUG1("Did apply '%s' as log setting",opt);
/*remove this from argv*/
for (j=i+1; j<*argc; j++) {
argv[j-1] = argv[j];
argv[j-1] = NULL;
(*argc)--;
i--; /* compensate effect of next loop incrementation */
- WARN1("argc %d",*argc);
}
}
if (!found && defaultlog) {
- TRYFAIL(gras_log_control_set(defaultlog));
+ gras_log_control_set(defaultlog);
}
+ gras_process_init(); /* calls procdata_init, which calls dynar_new */
/** init other submodules */
- gras_msg_init();
- gras_trp_init();
- gras_datadesc_init();
+ if (gras_running_process++ == 0) {
+ gras_msg_init();
+ gras_trp_init();
+ gras_datadesc_init();
+ }
}
/**
*/
void
gras_exit(){
- gras_msg_exit();
- gras_trp_exit();
- gras_datadesc_exit();
+ INFO0("Exiting GRAS");
+ gras_process_exit();
+ if (--gras_running_process == 0) {
+ gras_msg_exit();
+ gras_trp_exit();
+ gras_datadesc_exit();
+ }
gras_log_exit();
+ DEBUG0("Exited GRAS");
}