-/* $Id$ */
-
-/* Copyright (c) 2007 Arnaud Legrand, Bruno Donnassolo.
- All rights reserved. */
-
-/* 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. */
-
-#ifndef SIMIX_PRIVATE_H
-#define SIMIX_PRIVATE_H
-
-#include <stdio.h>
-#include "simix/simix.h"
-#include "surf/surf.h"
-#include "xbt/fifo.h"
-#include "xbt/swag.h"
-#include "xbt/dict.h"
-#include "xbt/function_types.h"
-
-/******************************** Datatypes ***********************************/
-
-
-/*********************************** Host *************************************/
-
-/** @brief Host datatype
- @ingroup m_datatypes_management_details */
-typedef struct s_smx_host {
- char *name; /**< @brief host name if any */
- void *host; /* SURF modeling */
- xbt_swag_t process_list;
- void *data; /**< @brief user data */
-} s_smx_host_t;
-
-/********************************** Simix Global ******************************/
-
-typedef struct s_smx_context_factory *smx_context_factory_t;
-
-typedef struct SIMIX_Global {
- smx_context_factory_t context_factory;
- xbt_dict_t host;
- xbt_swag_t process_to_run;
- xbt_swag_t process_list;
- xbt_swag_t process_to_destroy;
- smx_process_t current_process;
- smx_process_t maestro_process;
- xbt_dict_t registered_functions;
- smx_creation_func_t create_process_function;
- void_f_pvoid_t kill_process_function;
- void_f_pvoid_t cleanup_process_function;
-} s_SIMIX_Global_t, *SIMIX_Global_t;
-
-extern SIMIX_Global_t simix_global;
-
-/******************************** Process *************************************/
-
-typedef struct s_smx_context *smx_context_t;
-
-/** @brief Process datatype
- @ingroup m_datatypes_management_details @{ */
- typedef struct s_smx_process {
- s_xbt_swag_hookup_t process_hookup;
- s_xbt_swag_hookup_t synchro_hookup;
- s_xbt_swag_hookup_t host_proc_hookup;
- s_xbt_swag_hookup_t destroy_hookup;
-
- char *name; /**< @brief process name if any */
- smx_host_t smx_host; /* the host on which the process is running */
- smx_context_t context; /* the context that executes the scheduler function */
- int argc; /* arguments number if any */
- char **argv; /* arguments table if any */
- int blocked : 1;
- int suspended : 1;
- int iwannadie : 1;
- smx_mutex_t mutex; /* mutex on which the process is blocked */
- smx_cond_t cond; /* cond on which the process is blocked */
- xbt_dict_t properties;
- void *data; /* kept for compatibility, it should be replaced with moddata */
- void_f_pvoid_t cleanup_func;
- void *cleanup_arg;
-
- } s_smx_process_t;
-/** @} */
-
-typedef struct s_smx_process_arg {
- const char *name;
- xbt_main_func_t code;
- void *data;
- char *hostname;
- int argc;
- char **argv;
- double kill_time;
- xbt_dict_t properties;
-} s_smx_process_arg_t, *smx_process_arg_t;
-
-/*************************** Mutex and Conditional ****************************/
-
-typedef struct s_smx_mutex {
-
- /* KEEP IT IN SYNC WITH src/xbt_sg_thread.c::struct s_xbt_mutex */
- xbt_swag_t sleeping; /* list of sleeping process */
- int refcount;
- /* KEEP IT IN SYNC WITH src/xbt_sg_thread.c::struct s_xbt_mutex */
-
-} s_smx_mutex_t;
-
-typedef struct s_smx_cond {
-
- /* KEEP IT IN SYNC WITH src/xbt_sg_thread.c::struct s_xbt_cond */
- xbt_swag_t sleeping; /* list of sleeping process */
- smx_mutex_t mutex;
- xbt_fifo_t actions; /* list of actions */
- /* KEEP IT IN SYNC WITH src/xbt_sg_thread.c::struct s_xbt_cond */
-
-} s_smx_cond_t;
-
-/********************************* Action *************************************/
-
-/** @brief Action datatype
- @ingroup m_datatypes_management_details */
-typedef struct s_smx_action {
- char *name; /**< @brief action name if any */
- xbt_fifo_t cond_list; /*< conditional variables that must be signaled when the action finish. */
- void *data; /**< @brief user data */
- int refcount; /**< @brief reference counter */
- surf_action_t surf_action; /* SURF modeling of computation */
- smx_host_t source;
-} s_smx_action_t;
-
-/************************** Configuration support *****************************/
-
-extern int _simix_init_status; /* 0: beginning of time; FIXME: KILLME ?
- 1: pre-inited (cfg_set created);
- 2: inited (running) */
-
-#define SIMIX_CHECK_HOST() xbt_assert0(surf_workstation_model->extension.workstation. \
- get_state(SIMIX_host_self()->host)==SURF_RESOURCE_ON,\
- "Host failed, you cannot call this function.")
-
-smx_host_t __SIMIX_host_create(const char *name, void *workstation, void *data);
-void __SIMIX_host_destroy(void *host);
-void __SIMIX_cond_wait(smx_cond_t cond);
-void __SIMIX_cond_display_actions(smx_cond_t cond);
-void __SIMIX_action_display_conditions(smx_action_t action);
-void __SIMIX_create_maestro_process(void);
-
-/******************************** Context *************************************/
-
-int SIMIX_context_create_maestro(smx_process_t *process);
-
-int SIMIX_context_new(smx_process_t *process, xbt_main_func_t code);
-
-void SIMIX_context_kill(smx_process_t process);
-
-void SIMIX_context_start(smx_process_t process);
-
-void SIMIX_context_yield(void);
-
-void SIMIX_context_schedule(smx_process_t process);
-
-void SIMIX_context_empty_trash(void);
-
-void SIMIX_context_stop(int exit_code);
-
-void SIMIX_context_free(smx_process_t process);
-
-void SIMIX_context_mod_init(void);
-
-void SIMIX_context_mod_exit(void);
-#endif
+/* $Id$ */\r
+\r
+/* Copyright (c) 2007 Arnaud Legrand, Bruno Donnassolo.\r
+ All rights reserved. */\r
+\r
+/* This program is free software; you can redistribute it and/or modify it\r
+ * under the terms of the license (GNU LGPL) which comes with this package. */\r
+\r
+#ifndef SIMIX_PRIVATE_H\r
+#define SIMIX_PRIVATE_H\r
+\r
+#include <stdio.h>\r
+#include "simix/simix.h"\r
+#include "surf/surf.h"\r
+#include "xbt/fifo.h"\r
+#include "xbt/swag.h"\r
+#include "xbt/dict.h"\r
+#include "xbt/function_types.h"\r
+\r
+/******************************** Datatypes ***********************************/\r
+\r
+\r
+/*********************************** Host *************************************/\r
+\r
+/** @brief Host datatype\r
+ @ingroup m_datatypes_management_details */\r
+typedef struct s_smx_host {\r
+ char *name; /**< @brief host name if any */\r
+ void *host; /* SURF modeling */\r
+ xbt_swag_t process_list;\r
+ void *data; /**< @brief user data */\r
+} s_smx_host_t;\r
+\r
+/********************************** Simix Global ******************************/\r
+\r
+typedef struct s_smx_context_factory *smx_context_factory_t;\r
+\r
+typedef struct SIMIX_Global {\r
+ smx_context_factory_t context_factory;\r
+ xbt_dict_t host;\r
+ xbt_swag_t process_to_run;\r
+ xbt_swag_t process_list;\r
+ xbt_swag_t process_to_destroy;\r
+ smx_process_t current_process;\r
+ smx_process_t maestro_process;\r
+ xbt_dict_t registered_functions;\r
+ smx_creation_func_t create_process_function;\r
+ void_f_pvoid_t kill_process_function;\r
+ void_f_pvoid_t cleanup_process_function;\r
+} s_SIMIX_Global_t, *SIMIX_Global_t;\r
+\r
+extern SIMIX_Global_t simix_global;\r
+\r
+/******************************** Process *************************************/\r
+\r
+typedef struct s_smx_context *smx_context_t;\r
+\r
+/** @brief Process datatype\r
+ @ingroup m_datatypes_management_details @{ */\r
+ typedef struct s_smx_process {\r
+ s_xbt_swag_hookup_t process_hookup;\r
+ s_xbt_swag_hookup_t synchro_hookup;\r
+ s_xbt_swag_hookup_t host_proc_hookup;\r
+ s_xbt_swag_hookup_t destroy_hookup;\r
+\r
+ char *name; /**< @brief process name if any */\r
+ smx_host_t smx_host; /* the host on which the process is running */\r
+ smx_context_t context; /* the context that executes the scheduler function */\r
+ int argc; /* arguments number if any */\r
+ char **argv; /* arguments table if any */\r
+ int blocked : 1;\r
+ int suspended : 1;\r
+ int iwannadie : 1;\r
+ smx_mutex_t mutex; /* mutex on which the process is blocked */\r
+ smx_cond_t cond; /* cond on which the process is blocked */\r
+ xbt_dict_t properties;\r
+ void *data; /* kept for compatibility, it should be replaced with moddata */\r
+ void_f_pvoid_t cleanup_func;\r
+ void *cleanup_arg;\r
+\r
+ } s_smx_process_t;\r
+/** @} */\r
+\r
+typedef struct s_smx_process_arg {\r
+ const char *name;\r
+ xbt_main_func_t code;\r
+ void *data;\r
+ char *hostname;\r
+ int argc;\r
+ char **argv;\r
+ double kill_time;\r
+ xbt_dict_t properties;\r
+} s_smx_process_arg_t, *smx_process_arg_t;\r
+\r
+void SIMIX_process_empty_trash(void);\r
+\r
+/*************************** Mutex and Conditional ****************************/\r
+\r
+typedef struct s_smx_mutex {\r
+\r
+ /* KEEP IT IN SYNC WITH src/xbt_sg_thread.c::struct s_xbt_mutex */\r
+ xbt_swag_t sleeping; /* list of sleeping process */\r
+ int refcount;\r
+ /* KEEP IT IN SYNC WITH src/xbt_sg_thread.c::struct s_xbt_mutex */\r
+\r
+} s_smx_mutex_t;\r
+\r
+typedef struct s_smx_cond {\r
+\r
+ /* KEEP IT IN SYNC WITH src/xbt_sg_thread.c::struct s_xbt_cond */\r
+ xbt_swag_t sleeping; /* list of sleeping process */\r
+ smx_mutex_t mutex;\r
+ xbt_fifo_t actions; /* list of actions */\r
+ /* KEEP IT IN SYNC WITH src/xbt_sg_thread.c::struct s_xbt_cond */\r
+\r
+} s_smx_cond_t;\r
+\r
+/********************************* Action *************************************/\r
+\r
+/** @brief Action datatype\r
+ @ingroup m_datatypes_management_details */\r
+typedef struct s_smx_action {\r
+ char *name; /**< @brief action name if any */\r
+ xbt_fifo_t cond_list; /*< conditional variables that must be signaled when the action finish. */\r
+ void *data; /**< @brief user data */\r
+ int refcount; /**< @brief reference counter */\r
+ surf_action_t surf_action; /* SURF modeling of computation */\r
+ smx_host_t source;\r
+} s_smx_action_t;\r
+\r
+/************************** Configuration support *****************************/\r
+\r
+extern int _simix_init_status; /* 0: beginning of time; FIXME: KILLME ?\r
+ 1: pre-inited (cfg_set created);\r
+ 2: inited (running) */\r
+\r
+#define SIMIX_CHECK_HOST() xbt_assert0(surf_workstation_model->extension.workstation. \\r
+ get_state(SIMIX_host_self()->host)==SURF_RESOURCE_ON,\\r
+ "Host failed, you cannot call this function.")\r
+\r
+smx_host_t __SIMIX_host_create(const char *name, void *workstation, void *data);\r
+void __SIMIX_host_destroy(void *host);\r
+void __SIMIX_cond_wait(smx_cond_t cond);\r
+void __SIMIX_cond_display_actions(smx_cond_t cond);\r
+void __SIMIX_action_display_conditions(smx_action_t action);\r
+void __SIMIX_create_maestro_process(void);\r
+\r
+/******************************** Context *************************************/\r
+\r
+void SIMIX_context_mod_init(void);\r
+\r
+void SIMIX_context_mod_exit(void);\r
+\r
+/* *********************** */\r
+/* Context type definition */\r
+/* *********************** */\r
+/* the following function pointers types describe the interface that all context\r
+ concepts must implement */\r
+\r
+/* each context type must contain this macro at its begining -- OOP in C :/ */\r
+#define SMX_CTX_BASE_T \\r
+ s_xbt_swag_hookup_t hookup; \\r
+ ex_ctx_t *exception; \\r
+ xbt_main_func_t code; \\r
+\r
+/* all other context types derive from this structure */\r
+typedef struct s_smx_context {\r
+ SMX_CTX_BASE_T;\r
+} s_smx_context_t;\r
+\r
+/* *********************** */\r
+/* factory type definition */\r
+/* *********************** */\r
+\r
+/* Each context implementation define its own context factory\r
+ * A context factory is responsable of the creation and manipulation of the \r
+ * execution context of all the simulated processes (and maestro) using the\r
+ * selected implementation.\r
+ *\r
+ * For example, the context switch based on java thread use the\r
+ * java implementation of the context and the java factory to build and control\r
+ * the contexts depending on this implementation.\r
+\r
+ * The following function pointer types describe the interface that any context \r
+ * factory should implement.\r
+ */\r
+\r
+/* function used to create a new context */\r
+typedef int (*smx_pfn_context_factory_create_context_t) (smx_process_t *, xbt_main_func_t);\r
+\r
+/* function used to create the context for the maestro process */\r
+typedef int (*smx_pfn_context_factory_create_maestro_context_t) (smx_process_t*);\r
+\r
+/* this function finalize the specified context factory */\r
+typedef int (*smx_pfn_context_factory_finalize_t) (smx_context_factory_t*);\r
+\r
+/* function used to destroy the specified context */\r
+typedef void (*smx_pfn_context_free_t) (smx_process_t);\r
+\r
+/* function used to kill the specified context */\r
+typedef void (*smx_pfn_context_kill_t) (smx_process_t);\r
+\r
+/* function used to resume the specified context */\r
+typedef void (*smx_pfn_context_schedule_t) (smx_process_t);\r
+\r
+/* function used to yield the specified context */\r
+typedef void (*smx_pfn_context_yield_t) (void);\r
+\r
+/* function used to start the specified context */\r
+typedef void (*smx_pfn_context_start_t) (smx_process_t);\r
+\r
+/* function used to stop the current context */\r
+typedef void (*smx_pfn_context_stop_t) (int);\r
+\r
+/* interface of the context factories */\r
+typedef struct s_smx_context_factory {\r
+ smx_pfn_context_factory_create_maestro_context_t create_maestro_context;\r
+ smx_pfn_context_factory_create_context_t create_context;\r
+ smx_pfn_context_factory_finalize_t finalize;\r
+ smx_pfn_context_free_t free;\r
+ smx_pfn_context_kill_t kill;\r
+ smx_pfn_context_schedule_t schedule;\r
+ smx_pfn_context_yield_t yield;\r
+ smx_pfn_context_start_t start;\r
+ smx_pfn_context_stop_t stop;\r
+ const char *name;\r
+} s_smx_context_factory_t;\r
+\r
+/* Selects a context factory associated with the name specified by the parameter name.\r
+ * If successful the function returns 0. Otherwise the function returns the error code.\r
+ */\r
+int SIMIX_context_select_factory(const char *name);\r
+\r
+/* Initializes a context factory from the name specified by the parameter name.\r
+ * If the factory cannot be found, an exception is raised.\r
+ */\r
+void SIMIX_context_init_factory_by_name(smx_context_factory_t * factory, const char *name);\r
+\r
+/* All factories init */\r
+void SIMIX_ctx_thread_factory_init(smx_context_factory_t * factory);\r
+\r
+void SIMIX_ctx_sysv_factory_init(smx_context_factory_t * factory);\r
+\r
+void SIMIX_ctx_java_factory_init(smx_context_factory_t * factory);\r
+\r
+/* ******************************* */\r
+/* contexts manipulation functions */\r
+/* ******************************* */\r
+\r
+/**\r
+ * \param smx_process the simix maestro process that contains this context\r
+ */\r
+static inline int SIMIX_context_create_maestro(smx_process_t *process)\r
+{\r
+ return (*(simix_global->context_factory->create_maestro_context)) (process);\r
+}\r
+\r
+/**\r
+ * \param smx_process the simix process that contains this context\r
+ * \param code a main function\r
+ */\r
+static inline int SIMIX_context_new(smx_process_t *process, xbt_main_func_t code)\r
+{\r
+ return (*(simix_global->context_factory->create_context)) (process, code);\r
+}\r
+\r
+/* Scenario for the end of a context:\r
+ *\r
+ * CASE 1: death after end of function\r
+ * __context_wrapper, called by os thread, calls smx_context_stop after user code stops\r
+ * smx_context_stop calls user cleanup_func if any (in context settings),\r
+ * add current to trashbin\r
+ * yields back to maestro (destroy os thread on need)\r
+ * From time to time, maestro calls smx_context_empty_trash,\r
+ * which maps smx_context_free on the content\r
+ * smx_context_free frees some more memory,\r
+ * joins os thread\r
+ *\r
+ * CASE 2: brutal death\r
+ * smx_context_kill (from any context)\r
+ * set context->wannadie to 1\r
+ * yields to the context\r
+ * the context is awaken in the middle of __yield.\r
+ * At the end of it, it checks that wannadie == 1, and call smx_context_stop\r
+ * (same than first case afterward)\r
+ */\r
+static inline void SIMIX_context_kill(smx_process_t process)\r
+{\r
+ (*(simix_global->context_factory->kill)) (process);\r
+}\r
+\r
+/* Argument must be stopped first -- runs in maestro context */\r
+static inline void SIMIX_context_free(smx_process_t process)\r
+{\r
+ (*(simix_global->context_factory->free)) (process);\r
+}\r
+\r
+/**\r
+ * \param context the context to start\r
+ *\r
+ * Calling this function prepares \a process to be run. It will\r
+ however run effectively only when calling #SIMIX_context_schedule\r
+ */\r
+static inline void SIMIX_context_start(smx_process_t process)\r
+{\r
+ (*(simix_global->context_factory->start)) (process);\r
+}\r
+\r
+/**\r
+ * Calling this function makes the current process yield. The process\r
+ * that scheduled it returns from SIMIX_context_schedule as if nothing\r
+ * had happened.\r
+ *\r
+ * Only the processes can call this function, giving back the control\r
+ * to the maestro\r
+ */\r
+static inline void SIMIX_context_yield(void)\r
+{\r
+ (*(simix_global->context_factory->yield)) ();\r
+}\r
+\r
+/**\r
+ * \param process to be scheduled\r
+ *\r
+ * Calling this function blocks the current process and schedule \a process.\r
+ * When \a process would call SIMIX_context_yield, it will return\r
+ * to this function as if nothing had happened.\r
+ *\r
+ * Only the maestro can call this function to run a given process.\r
+ */\r
+static inline void SIMIX_context_schedule(smx_process_t process)\r
+{\r
+ (*(simix_global->context_factory->schedule)) (process);\r
+}\r
+\r
+static inline void SIMIX_context_stop(int exit_code)\r
+{\r
+ (*(simix_global->context_factory->stop)) (exit_code);\r
+}\r
+\r
+#endif\r
#include "portable.h"
#include "xbt/log.h"
#include "xbt/swag.h"
-#include "smx_context_private.h"
+#include "private.h"
XBT_LOG_NEW_DEFAULT_SUBCATEGORY(smx_context, simix, "Context switching mecanism");
-/* the context factory used to create the appropriate context
- * each context implementation define its own context factory
- * a context factory is responsable of the creation of the context
- * associated with the maestro and of all the context based on
- * the selected implementation.
- *
- * for example, the context switch based on java thread use the
- * java implementation of the context and the java factory build
- * the context depending of this implementation.
- */
/**
* This function is call by SIMIX_global_init() to initialize the context module.
}
}
-/*******************************/
-/* Object creation/destruction */
-/*******************************/
/**
- * \param smx_process the simix process that contains this context
- * \param code a main function
+ * This function is used to change the context factory.
+ * Warning: it destroy all the existing contexts
*/
-int SIMIX_context_new(smx_process_t *process, xbt_main_func_t code)
-{
- /* use the appropriate context factory to create the appropriate context */
- return (*(simix_global->context_factory->create_context)) (process, code);
-}
-
-
-int SIMIX_context_create_maestro(smx_process_t *process)
-{
- return (*(simix_global->context_factory->create_maestro_context)) (process);
-}
-
-/* Scenario for the end of a context:
- *
- * CASE 1: death after end of function
- * __context_wrapper, called by os thread, calls smx_context_stop after user code stops
- * smx_context_stop calls user cleanup_func if any (in context settings),
- * add current to trashbin
- * yields back to maestro (destroy os thread on need)
- * From time to time, maestro calls smx_context_empty_trash,
- * which maps smx_context_free on the content
- * smx_context_free frees some more memory,
- * joins os thread
- *
- * CASE 2: brutal death
- * smx_context_kill (from any context)
- * set context->wannadie to 1
- * yields to the context
- * the context is awaken in the middle of __yield.
- * At the end of it, it checks that wannadie == 1, and call smx_context_stop
- * (same than first case afterward)
- */
-
-
-/* Argument must be stopped first -- runs in maestro context */
-void SIMIX_context_free(smx_process_t process)
-{
- (*(simix_global->context_factory->free)) (process);
-}
-
-void SIMIX_context_kill(smx_process_t process)
-{
- (*(simix_global->context_factory->kill)) (process);
-}
-
-/**
- * \param context the context to start
- *
- * Calling this function prepares \a process to be run. It will
- however run effectively only when calling #SIMIX_context_schedule
- */
-void SIMIX_context_start(smx_process_t process)
-{
- (*(simix_global->context_factory->start)) (process);
-}
-
-/**
- * Calling this function makes the current process yield. The process
- * that scheduled it returns from SIMIX_context_schedule as if nothing
- * had happened.
- *
- * Only the processes can call this function, giving back the control
- * to the maestro
- */
-void SIMIX_context_yield(void)
-{
- (*(simix_global->context_factory->yield)) ();
-}
-
-/**
- * \param process to be scheduled
- *
- * Calling this function blocks the current process and schedule \a process.
- * When \a process would call SIMIX_context_yield, it will return
- * to this function as if nothing had happened.
- *
- * Only the maestro can call this function to run a given process.
- */
-void SIMIX_context_schedule(smx_process_t process)
-{
- (*(simix_global->context_factory->schedule)) (process);
-}
-
-void SIMIX_context_stop(int exit_code)
-{
- (*(simix_global->context_factory->stop)) (exit_code);
-}
-
int SIMIX_context_select_factory(const char *name)
{
/* if a factory is already instantiated (SIMIX_context_mod_init() was called) */
return 0;
}
-void
-SIMIX_context_init_factory_by_name(smx_context_factory_t * factory,
- const char *name)
+/**
+ * Initializes a context factory given by its name
+ */
+void SIMIX_context_init_factory_by_name(smx_context_factory_t * factory,
+ const char *name)
{
if (!strcmp(name, "java"))
#ifdef HAVE_JAVA
else
THROW1(not_found_error, 0, "Factory '%s' does not exist", name);
}
-
-/** Garbage collection
- *
- * Should be called some time to time to free the memory allocated for processes
- * that have finished (or killed).
- */
-void SIMIX_context_empty_trash(void)
-{
- smx_process_t process = NULL;
- int i;
-
- while ((process = xbt_swag_extract(simix_global->process_to_destroy))){
- free(process->name);
- process->name = NULL;
-
- if (process->argv) {
- for (i = 0; i < process->argc; i++)
- if (process->argv[i])
- free(process->argv[i]);
-
- free(process->argv);
- }
-
- free(process);
- }
-}
