Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
Windows compatibility.
[simgrid.git] / src / simix / smx_context.c
1 /* a fast and simple context switching library                              */
2
3 /* Copyright (c) 2009, 2010. The SimGrid Team.
4  * All rights reserved.                                                     */
5
6 /* This program is free software; you can redistribute it and/or modify it
7  * under the terms of the license (GNU LGPL) which comes with this package. */
8
9 #include "portable.h"
10 #include "xbt/log.h"
11 #include "xbt/swag.h"
12 #include "private.h"
13
14 #ifdef HAVE_LUA
15 #include <lauxlib.h>
16 #endif
17
18 #ifdef HAVE_RUBY
19  void SIMIX_ctx_ruby_factory_init(smx_context_factory_t *factory);
20 #endif 
21
22 XBT_LOG_NEW_DEFAULT_SUBCATEGORY(simix_context, simix, "Context switching mecanism");
23
24 const char *xbt_ctx_factory_to_use = NULL;
25
26 /** 
27  * This function is call by SIMIX_global_init() to initialize the context module.
28  */
29
30 void SIMIX_context_mod_init(void)
31 {
32   if (!simix_global->context_factory) {
33   /* select context factory to use to create the context(depends of the macro definitions) */
34     if (xbt_ctx_factory_to_use) {
35       SIMIX_context_select_factory(xbt_ctx_factory_to_use);
36     } else {
37 #ifdef CONTEXT_THREADS
38     /* context switch based os thread */
39     SIMIX_ctx_thread_factory_init(&simix_global->context_factory);
40 #elif defined(CONTEXT_UCONTEXT)
41     /* context switch based ucontext */
42     SIMIX_ctx_sysv_factory_init(&simix_global->context_factory);
43 #elif defined(_XBT_WIN32)
44     /* context switch based windows */
45 #else
46     /* context switch is not allowed on Windows */
47 #error ERROR [__FILE__, line __LINE__]: no context based implementation specified.
48 #endif
49     }
50   }
51 }
52
53 /**
54  * This function is call by SIMIX_clean() to finalize the context module.
55  */
56 void SIMIX_context_mod_exit(void)
57 {
58   if (simix_global->context_factory) {
59     smx_pfn_context_factory_finalize_t finalize_factory;
60     
61     /* finalize the context factory */
62     finalize_factory = simix_global->context_factory->finalize;
63     (*finalize_factory) (&simix_global->context_factory);
64   }
65 }
66
67 /**
68  * This function is used to change the context factory.
69  * Warning: it destroy all the existing processes (even for maestro), and it
70  * will create a new maestro process using the new context factory.
71  */
72 int SIMIX_context_select_factory(const char *name)
73 {
74   /* if a context factory is already instantiated and it is different from the
75      newly selected one, then kill all the processes, exit the context module
76      and initialize the new factory.
77   */
78   
79
80   if (simix_global->context_factory != NULL) {
81     if (strcmp(simix_global->context_factory->name, name)){
82
83       SIMIX_process_killall();
84       
85       /* kill maestro process */
86       SIMIX_context_free(simix_global->maestro_process->context);
87       free(simix_global->maestro_process);  
88       simix_global->maestro_process = NULL;
89
90       SIMIX_context_mod_exit();
91     }
92     else
93       /* the same context factory is requested return directly */
94       return 0;
95   }
96   
97   /* init the desired factory */
98   SIMIX_context_init_factory_by_name(&simix_global->context_factory, name);
99
100   SIMIX_create_maestro_process ();
101
102
103   
104   return 0;
105 }
106
107 /**
108  * Initializes a context factory given by its name
109  */
110 void SIMIX_context_init_factory_by_name(smx_context_factory_t * factory,
111                                         const char *name)
112 {
113   
114   if (!strcmp(name, "java"))
115 #ifdef HAVE_JAVA     
116     SIMIX_ctx_java_factory_init(factory);
117 #else
118     THROW0(not_found_error, 0, "Factory 'Java' does not exist: Java support was not compiled in the SimGrid library");
119 #endif /* HAVE_JAVA */
120    
121   else if (!strcmp(name, "thread"))
122 #ifdef CONTEXT_THREADS
123     SIMIX_ctx_thread_factory_init(factory);
124 #else
125     THROW0(not_found_error, 0, "Factory 'thread' does not exist: thread support was not compiled in the SimGrid library");
126 #endif /* CONTEXT_THREADS */
127    
128     else if (!strcmp(name, "sysv"))
129   #if !defined(_XBT_WIN32) && !defined(CONTEXT_THREADS)
130       SIMIX_ctx_sysv_factory_init(factory);
131   #else
132       THROW0(not_found_error, 0, "Factory 'sysv' does not exist: no System V thread support under Windows");
133   #endif
134     else if (!strcmp(name, "lua"))
135 #ifdef HAVE_LUA
136       SIMIX_ctx_lua_factory_init(factory);
137 #else
138
139     THROW0(not_found_error, 0, "Factory 'lua' does not exist: Lua support was not compiled in the SimGrid library");
140 #endif /* HAVE_LUA */
141
142     else if (!strcmp(name,"ruby"))
143 #ifdef HAVE_RUBY
144     SIMIX_ctx_ruby_factory_init(factory);
145 #else
146      THROW0(not_found_error, 0, "Factory 'ruby' does not exist: Ruby support was not compiled in the SimGrid library");
147 #endif
148   else
149     THROW1(not_found_error, 0, "Factory '%s' does not exist", name);
150 }