src/gras/Virtu/rl_process.c

   1 /* $Id$ */
   2
   3 /* process_rl - GRAS process handling on real life                          */
   4
   5 /* Copyright (c) 2003, 2004 Martin Quinson. All rights reserved.            */
   6
   7 /* This program is free software; you can redistribute it and/or modify it
   8  * under the terms of the license (GNU LGPL) which comes with this package. */
   9
  10 #include "gras_modinter.h" /* module initialization interface */
  11 #include "gras/Virtu/virtu_rl.h"
  12
  13 XBT_LOG_EXTERNAL_CATEGORY(process);
  14 XBT_LOG_DEFAULT_CATEGORY(process);
  15
  16 /* globals */
  17 static gras_procdata_t *_gras_procdata = NULL;
  18 char const *_gras_procname = NULL;
  19
  20 xbt_error_t gras_process_init() {
  21   _gras_procdata=xbt_new(gras_procdata_t,1);
  22   gras_procdata_init();
  23   return no_error;
  24 }
  25 xbt_error_t gras_process_exit() {
  26   gras_procdata_exit();
  27   free(_gras_procdata);
  28   return no_error;
  29 }
  30
  31 const char *xbt_procname(void) {
  32   if(_gras_procname) return _gras_procname;
  33   else return "(null)";
  34 }
  35
  36 /* **************************************************************************
  37  * Process data
  38  * **************************************************************************/
  39
  40 gras_procdata_t *gras_procdata_get(void) {
  41   xbt_assert0(_gras_procdata,"Run gras_process_init (ie, gras_init)!");
  42
  43   return _gras_procdata;
  44 }