Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
Integrate Bruno's work on SIMIX onto main stream. Tests are broken, but it looks...
authormquinson <mquinson@48e7efb5-ca39-0410-a469-dd3cf9ba447f>
Mon, 2 Jul 2007 07:20:54 +0000 (07:20 +0000)
committermquinson <mquinson@48e7efb5-ca39-0410-a469-dd3cf9ba447f>
Mon, 2 Jul 2007 07:20:54 +0000 (07:20 +0000)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/simgrid/simgrid/trunk@3627 48e7efb5-ca39-0410-a469-dd3cf9ba447f

76 files changed:
Makefile.in
configure
configure.ac
doc/Makefile.in
examples/Makefile.in
examples/amok/Makefile.in
examples/amok/bandwidth/Makefile.in
examples/amok/saturate/Makefile.in
examples/gras/Makefile.in
examples/gras/all2all/Makefile.in
examples/gras/chrono/Makefile.in
examples/gras/mmrpc/Makefile.in
examples/gras/mutual_exclusion/simple_token/Makefile.in
examples/gras/ping/Makefile.in
examples/gras/pmm/Makefile.in
examples/gras/rpc/Makefile.in
examples/gras/timer/Makefile.in
examples/msg/Makefile.in
examples/simdag/Makefile.in
include/Makefile.in
src/gras_simix/DataDesc/gras_simix_cbps.c [deleted file]
src/gras_simix/DataDesc/gras_simix_datadesc.c [deleted file]
src/gras_simix/DataDesc/gras_simix_datadesc_interface.h [deleted file]
src/gras_simix/DataDesc/gras_simix_datadesc_private.h [deleted file]
src/gras_simix/DataDesc/gras_simix_ddt_convert.c [deleted file]
src/gras_simix/DataDesc/gras_simix_ddt_create.c [deleted file]
src/gras_simix/DataDesc/gras_simix_ddt_exchange.c [deleted file]
src/gras_simix/DataDesc/gras_simix_ddt_parse.c [deleted file]
src/gras_simix/DataDesc/gras_simix_ddt_parse.yy.c [deleted file]
src/gras_simix/DataDesc/gras_simix_ddt_parse.yy.h [deleted file]
src/gras_simix/DataDesc/gras_simix_ddt_parse.yy.l [deleted file]
src/gras_simix/Msg/gras_simix_msg.c [deleted file]
src/gras_simix/Msg/gras_simix_msg_interface.h [deleted file]
src/gras_simix/Msg/gras_simix_msg_private.h [deleted file]
src/gras_simix/Msg/gras_simix_rl_msg.c [deleted file]
src/gras_simix/Msg/gras_simix_rpc.c [deleted file]
src/gras_simix/Msg/gras_simix_sg_msg.c [deleted file]
src/gras_simix/Msg/gras_simix_timer.c [deleted file]
src/gras_simix/Transport/gras_simix_rl_transport.c [deleted file]
src/gras_simix/Transport/gras_simix_sg_transport.c [deleted file]
src/gras_simix/Transport/gras_simix_transport.c [deleted file]
src/gras_simix/Transport/gras_simix_transport_interface.h [deleted file]
src/gras_simix/Transport/gras_simix_transport_plugin_file.c [deleted file]
src/gras_simix/Transport/gras_simix_transport_plugin_sg.c [deleted file]
src/gras_simix/Transport/gras_simix_transport_plugin_tcp.c [deleted file]
src/gras_simix/Transport/gras_simix_transport_private.h [deleted file]
src/gras_simix/Virtu/gras_simix_gras_module.c [deleted file]
src/gras_simix/Virtu/gras_simix_process.c [deleted file]
src/gras_simix/Virtu/gras_simix_rl_dns.c [deleted file]
src/gras_simix/Virtu/gras_simix_rl_emul.c [deleted file]
src/gras_simix/Virtu/gras_simix_rl_process.c [deleted file]
src/gras_simix/Virtu/gras_simix_rl_time.c [deleted file]
src/gras_simix/Virtu/gras_simix_sg_dns.c [deleted file]
src/gras_simix/Virtu/gras_simix_sg_emul.c [deleted file]
src/gras_simix/Virtu/gras_simix_sg_process.c [deleted file]
src/gras_simix/Virtu/gras_simix_sg_time.c [deleted file]
src/gras_simix/Virtu/gras_simix_virtu_interface.h [deleted file]
src/gras_simix/Virtu/gras_simix_virtu_private.h [deleted file]
src/gras_simix/Virtu/gras_simix_virtu_rl.h [deleted file]
src/gras_simix/Virtu/gras_simix_virtu_sg.h [deleted file]
src/gras_simix/gras_simix_gras.c [deleted file]
src/gras_simix/gras_simix_rl_stubs.c [deleted file]
src/gras_simix/gras_simix_sg_stubs.c [deleted file]
src/msg_simix/msg_simix_config.c [deleted file]
src/msg_simix/msg_simix_deployment.c [deleted file]
src/msg_simix/msg_simix_environment.c [deleted file]
src/msg_simix/msg_simix_global.c [deleted file]
src/msg_simix/msg_simix_gos.c [deleted file]
src/msg_simix/msg_simix_host.c [deleted file]
src/msg_simix/msg_simix_private.h [deleted file]
src/msg_simix/msg_simix_process.c [deleted file]
src/msg_simix/msg_simix_task.c [deleted file]
testsuite/Makefile.in
tools/Makefile.in
tools/gras/Makefile.in
tools/tesh/Makefile.in

index 82a156e..081d50c 100644 (file)
@@ -170,8 +170,6 @@ SIMGRID_DEP = @SIMGRID_DEP@
 STRIP = @STRIP@
 USE_GTNETS_FALSE = @USE_GTNETS_FALSE@
 USE_GTNETS_TRUE = @USE_GTNETS_TRUE@
-USE_SIMIX_FALSE = @USE_SIMIX_FALSE@
-USE_SIMIX_TRUE = @USE_SIMIX_TRUE@
 VERSION = @VERSION@
 WARNING = @WARNING@
 abs_builddir = @abs_builddir@
index 3115006..305bd02 100755 (executable)
--- a/configure
+++ b/configure
@@ -1,5 +1,5 @@
 #! /bin/sh
-# From configure.ac Revision: 1.158 .
+# From configure.ac Revision: 1.159 .
 # Guess values for system-dependent variables and create Makefiles.
 # Generated by GNU Autoconf 2.61 for simgrid 3.3-cvs.
 #
@@ -880,8 +880,6 @@ GRAS_ARCH_32_BITS_FALSE
 PTH_STACK_GROWTH
 pth_skaddr_makecontext
 pth_sksize_makecontext
-USE_SIMIX_TRUE
-USE_SIMIX_FALSE
 GTNETS_CFLAGS
 GTNETS_LDFLAGS
 USE_GTNETS_TRUE
@@ -1516,7 +1514,6 @@ Optional Features:
   --disable-dependency-tracking  speeds up one-time build
   --enable-dependency-tracking   do not reject slow dependency extractors
   --disable-libtool-lock  avoid locking (might break parallel builds)
-  --enable-simix          Use the new SimIX module (default=no)
   --enable-maintainer-mode  enable make rules and dependencies not useful
                          (and sometimes confusing) to the casual installer
   --enable-compile-warnings
@@ -4399,7 +4396,7 @@ ia64-*-hpux*)
   ;;
 *-*-irix6*)
   # Find out which ABI we are using.
-  echo '#line 4402 "configure"' > conftest.$ac_ext
+  echo '#line 4399 "configure"' > conftest.$ac_ext
   if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5
   (eval $ac_compile) 2>&5
   ac_status=$?
@@ -7162,11 +7159,11 @@ else
    -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
    -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
    -e 's:$: $lt_compiler_flag:'`
-   (eval echo "\"\$as_me:7165: $lt_compile\"" >&5)
+   (eval echo "\"\$as_me:7162: $lt_compile\"" >&5)
    (eval "$lt_compile" 2>conftest.err)
    ac_status=$?
    cat conftest.err >&5
-   echo "$as_me:7169: \$? = $ac_status" >&5
+   echo "$as_me:7166: \$? = $ac_status" >&5
    if (exit $ac_status) && test -s "$ac_outfile"; then
      # The compiler can only warn and ignore the option if not recognized
      # So say no if there are warnings other than the usual output.
@@ -7430,11 +7427,11 @@ else
    -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
    -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
    -e 's:$: $lt_compiler_flag:'`
-   (eval echo "\"\$as_me:7433: $lt_compile\"" >&5)
+   (eval echo "\"\$as_me:7430: $lt_compile\"" >&5)
    (eval "$lt_compile" 2>conftest.err)
    ac_status=$?
    cat conftest.err >&5
-   echo "$as_me:7437: \$? = $ac_status" >&5
+   echo "$as_me:7434: \$? = $ac_status" >&5
    if (exit $ac_status) && test -s "$ac_outfile"; then
      # The compiler can only warn and ignore the option if not recognized
      # So say no if there are warnings other than the usual output.
@@ -7534,11 +7531,11 @@ else
    -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
    -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
    -e 's:$: $lt_compiler_flag:'`
-   (eval echo "\"\$as_me:7537: $lt_compile\"" >&5)
+   (eval echo "\"\$as_me:7534: $lt_compile\"" >&5)
    (eval "$lt_compile" 2>out/conftest.err)
    ac_status=$?
    cat out/conftest.err >&5
-   echo "$as_me:7541: \$? = $ac_status" >&5
+   echo "$as_me:7538: \$? = $ac_status" >&5
    if (exit $ac_status) && test -s out/conftest2.$ac_objext
    then
      # The compiler can only warn and ignore the option if not recognized
@@ -9831,7 +9828,7 @@ else
   lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2
   lt_status=$lt_dlunknown
   cat > conftest.$ac_ext <<EOF
-#line 9834 "configure"
+#line 9831 "configure"
 #include "confdefs.h"
 
 #if HAVE_DLFCN_H
@@ -9931,7 +9928,7 @@ else
   lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2
   lt_status=$lt_dlunknown
   cat > conftest.$ac_ext <<EOF
-#line 9934 "configure"
+#line 9931 "configure"
 #include "confdefs.h"
 
 #if HAVE_DLFCN_H
@@ -12267,11 +12264,11 @@ else
    -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
    -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
    -e 's:$: $lt_compiler_flag:'`
-   (eval echo "\"\$as_me:12270: $lt_compile\"" >&5)
+   (eval echo "\"\$as_me:12267: $lt_compile\"" >&5)
    (eval "$lt_compile" 2>conftest.err)
    ac_status=$?
    cat conftest.err >&5
-   echo "$as_me:12274: \$? = $ac_status" >&5
+   echo "$as_me:12271: \$? = $ac_status" >&5
    if (exit $ac_status) && test -s "$ac_outfile"; then
      # The compiler can only warn and ignore the option if not recognized
      # So say no if there are warnings other than the usual output.
@@ -12371,11 +12368,11 @@ else
    -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
    -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
    -e 's:$: $lt_compiler_flag:'`
-   (eval echo "\"\$as_me:12374: $lt_compile\"" >&5)
+   (eval echo "\"\$as_me:12371: $lt_compile\"" >&5)
    (eval "$lt_compile" 2>out/conftest.err)
    ac_status=$?
    cat out/conftest.err >&5
-   echo "$as_me:12378: \$? = $ac_status" >&5
+   echo "$as_me:12375: \$? = $ac_status" >&5
    if (exit $ac_status) && test -s out/conftest2.$ac_objext
    then
      # The compiler can only warn and ignore the option if not recognized
@@ -13932,11 +13929,11 @@ else
    -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
    -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
    -e 's:$: $lt_compiler_flag:'`
-   (eval echo "\"\$as_me:13935: $lt_compile\"" >&5)
+   (eval echo "\"\$as_me:13932: $lt_compile\"" >&5)
    (eval "$lt_compile" 2>conftest.err)
    ac_status=$?
    cat conftest.err >&5
-   echo "$as_me:13939: \$? = $ac_status" >&5
+   echo "$as_me:13936: \$? = $ac_status" >&5
    if (exit $ac_status) && test -s "$ac_outfile"; then
      # The compiler can only warn and ignore the option if not recognized
      # So say no if there are warnings other than the usual output.
@@ -14036,11 +14033,11 @@ else
    -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
    -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
    -e 's:$: $lt_compiler_flag:'`
-   (eval echo "\"\$as_me:14039: $lt_compile\"" >&5)
+   (eval echo "\"\$as_me:14036: $lt_compile\"" >&5)
    (eval "$lt_compile" 2>out/conftest.err)
    ac_status=$?
    cat out/conftest.err >&5
-   echo "$as_me:14043: \$? = $ac_status" >&5
+   echo "$as_me:14040: \$? = $ac_status" >&5
    if (exit $ac_status) && test -s out/conftest2.$ac_objext
    then
      # The compiler can only warn and ignore the option if not recognized
@@ -16223,11 +16220,11 @@ else
    -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
    -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
    -e 's:$: $lt_compiler_flag:'`
-   (eval echo "\"\$as_me:16226: $lt_compile\"" >&5)
+   (eval echo "\"\$as_me:16223: $lt_compile\"" >&5)
    (eval "$lt_compile" 2>conftest.err)
    ac_status=$?
    cat conftest.err >&5
-   echo "$as_me:16230: \$? = $ac_status" >&5
+   echo "$as_me:16227: \$? = $ac_status" >&5
    if (exit $ac_status) && test -s "$ac_outfile"; then
      # The compiler can only warn and ignore the option if not recognized
      # So say no if there are warnings other than the usual output.
@@ -16491,11 +16488,11 @@ else
    -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
    -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
    -e 's:$: $lt_compiler_flag:'`
-   (eval echo "\"\$as_me:16494: $lt_compile\"" >&5)
+   (eval echo "\"\$as_me:16491: $lt_compile\"" >&5)
    (eval "$lt_compile" 2>conftest.err)
    ac_status=$?
    cat conftest.err >&5
-   echo "$as_me:16498: \$? = $ac_status" >&5
+   echo "$as_me:16495: \$? = $ac_status" >&5
    if (exit $ac_status) && test -s "$ac_outfile"; then
      # The compiler can only warn and ignore the option if not recognized
      # So say no if there are warnings other than the usual output.
@@ -16595,11 +16592,11 @@ else
    -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
    -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
    -e 's:$: $lt_compiler_flag:'`
-   (eval echo "\"\$as_me:16598: $lt_compile\"" >&5)
+   (eval echo "\"\$as_me:16595: $lt_compile\"" >&5)
    (eval "$lt_compile" 2>out/conftest.err)
    ac_status=$?
    cat out/conftest.err >&5
-   echo "$as_me:16602: \$? = $ac_status" >&5
+   echo "$as_me:16599: \$? = $ac_status" >&5
    if (exit $ac_status) && test -s out/conftest2.$ac_objext
    then
      # The compiler can only warn and ignore the option if not recognized
 
 fi
 
-
-#########################################
-## Build optional modules (simix)
-##
-
-  { echo "$as_me:$LINENO: result: " >&5
-echo "${ECHO_T}" >&6; }
-  { echo "$as_me:$LINENO: result: ${T_MD}Optional modules${T_ME}" >&5
-echo "${ECHO_T}${T_MD}Optional modules${T_ME}" >&6; }
-
-# Check whether --enable-simix was given.
-if test "${enable_simix+set}" = set; then
-  enableval=$enable_simix; enable_simix=$enableval
-else
-  enable_simix=no
-fi
-
-if test "x$enable_simix" = "xyes" ; then
-  { echo "$as_me:$LINENO: result: ***** You have decided to use the experimental SimIX. We hope you know what you're doing.. ****" >&5
-echo "${ECHO_T}***** You have decided to use the experimental SimIX. We hope you know what you're doing.. ****" >&6; }
-
-cat >>confdefs.h <<\_ACEOF
-#define USE_SIMIX 1
-_ACEOF
-
-else
-  { echo "$as_me:$LINENO: result: Eventually you will come to SimIX." >&5
-echo "${ECHO_T}Eventually you will come to SimIX." >&6; }
-fi
-
-
-if test x$enable_simix != xno; then
-  USE_SIMIX_TRUE=
-  USE_SIMIX_FALSE='#'
-else
-  USE_SIMIX_TRUE='#'
-  USE_SIMIX_FALSE=
-fi
-
-
 #########################################
 ## Check for libraries extra-dependencies
 ##
@@ -26254,13 +26211,6 @@ echo "$as_me: error: conditional \"GRAS_ARCH_32_BITS\" was never defined.
 Usually this means the macro was only invoked conditionally." >&2;}
    { (exit 1); exit 1; }; }
 fi
-if test -z "${USE_SIMIX_TRUE}" && test -z "${USE_SIMIX_FALSE}"; then
-  { { echo "$as_me:$LINENO: error: conditional \"USE_SIMIX\" was never defined.
-Usually this means the macro was only invoked conditionally." >&5
-echo "$as_me: error: conditional \"USE_SIMIX\" was never defined.
-Usually this means the macro was only invoked conditionally." >&2;}
-   { (exit 1); exit 1; }; }
-fi
 if test -z "${USE_GTNETS_TRUE}" && test -z "${USE_GTNETS_FALSE}"; then
   { { echo "$as_me:$LINENO: error: conditional \"USE_GTNETS\" was never defined.
 Usually this means the macro was only invoked conditionally." >&5
@@ -27015,8 +26965,6 @@ GRAS_ARCH_32_BITS_FALSE!$GRAS_ARCH_32_BITS_FALSE$ac_delim
 PTH_STACK_GROWTH!$PTH_STACK_GROWTH$ac_delim
 pth_skaddr_makecontext!$pth_skaddr_makecontext$ac_delim
 pth_sksize_makecontext!$pth_sksize_makecontext$ac_delim
-USE_SIMIX_TRUE!$USE_SIMIX_TRUE$ac_delim
-USE_SIMIX_FALSE!$USE_SIMIX_FALSE$ac_delim
 GTNETS_CFLAGS!$GTNETS_CFLAGS$ac_delim
 GTNETS_LDFLAGS!$GTNETS_LDFLAGS$ac_delim
 USE_GTNETS_TRUE!$USE_GTNETS_TRUE$ac_delim
@@ -27052,7 +27000,7 @@ build_id!$build_id$ac_delim
 LTLIBOBJS!$LTLIBOBJS$ac_delim
 _ACEOF
 
-  if test `sed -n "s/.*$ac_delim\$/X/p" conf$$subs.sed | grep -c X` = 48; then
+  if test `sed -n "s/.*$ac_delim\$/X/p" conf$$subs.sed | grep -c X` = 46; then
     break
   elif $ac_last_try; then
     { { echo "$as_me:$LINENO: error: could not make $CONFIG_STATUS" >&5
index af3d1ee..7c28d55 100644 (file)
@@ -179,22 +179,6 @@ dnl #  direction of stack grow
   AC_CHECK_STACKSETUP(makecontext, pth_skaddr_makecontext, pth_sksize_makecontext)
 fi
 
-
-#########################################
-## Build optional modules (simix)
-##
-SG_CONFIGURE_PART(Optional modules)
-AC_ARG_ENABLE(simix,
-  AS_HELP_STRING([--enable-simix], [Use the new SimIX module (default=no)]),
-  enable_simix=$enableval,enable_simix=no)
-if test "x$enable_simix" = "xyes" ; then
-  AC_MSG_RESULT(***** You have decided to use the experimental SimIX. We hope you know what you're doing.. ****)
-  AC_DEFINE(USE_SIMIX, 1, [Indicates whether we should use SimIX or not])
-else 
-  AC_MSG_RESULT(Eventually you will come to SimIX.)
-fi
-AM_CONDITIONAL(USE_SIMIX,test x$enable_simix != xno)
-
 #########################################
 ## Check for libraries extra-dependencies
 ##
index 1e55b21..e8af2ab 100644 (file)
@@ -143,8 +143,6 @@ SIMGRID_DEP = @SIMGRID_DEP@
 STRIP = @STRIP@
 USE_GTNETS_FALSE = @USE_GTNETS_FALSE@
 USE_GTNETS_TRUE = @USE_GTNETS_TRUE@
-USE_SIMIX_FALSE = @USE_SIMIX_FALSE@
-USE_SIMIX_TRUE = @USE_SIMIX_TRUE@
 VERSION = @VERSION@
 WARNING = @WARNING@
 abs_builddir = @abs_builddir@
index 489d160..852f36c 100644 (file)
@@ -152,8 +152,6 @@ SIMGRID_DEP = @SIMGRID_DEP@
 STRIP = @STRIP@
 USE_GTNETS_FALSE = @USE_GTNETS_FALSE@
 USE_GTNETS_TRUE = @USE_GTNETS_TRUE@
-USE_SIMIX_FALSE = @USE_SIMIX_FALSE@
-USE_SIMIX_TRUE = @USE_SIMIX_TRUE@
 VERSION = @VERSION@
 WARNING = @WARNING@
 abs_builddir = @abs_builddir@
index bf5c4b8..8f55617 100644 (file)
@@ -152,8 +152,6 @@ SIMGRID_DEP = @SIMGRID_DEP@
 STRIP = @STRIP@
 USE_GTNETS_FALSE = @USE_GTNETS_FALSE@
 USE_GTNETS_TRUE = @USE_GTNETS_TRUE@
-USE_SIMIX_FALSE = @USE_SIMIX_FALSE@
-USE_SIMIX_TRUE = @USE_SIMIX_TRUE@
 VERSION = @VERSION@
 WARNING = @WARNING@
 abs_builddir = @abs_builddir@
index 3db3786..d890d0d 100644 (file)
@@ -176,8 +176,6 @@ SIMGRID_DEP = @SIMGRID_DEP@
 STRIP = @STRIP@
 USE_GTNETS_FALSE = @USE_GTNETS_FALSE@
 USE_GTNETS_TRUE = @USE_GTNETS_TRUE@
-USE_SIMIX_FALSE = @USE_SIMIX_FALSE@
-USE_SIMIX_TRUE = @USE_SIMIX_TRUE@
 VERSION = @VERSION@
 WARNING = @WARNING@
 abs_builddir = @abs_builddir@
index c72d60e..24c3fe1 100644 (file)
@@ -176,8 +176,6 @@ SIMGRID_DEP = @SIMGRID_DEP@
 STRIP = @STRIP@
 USE_GTNETS_FALSE = @USE_GTNETS_FALSE@
 USE_GTNETS_TRUE = @USE_GTNETS_TRUE@
-USE_SIMIX_FALSE = @USE_SIMIX_FALSE@
-USE_SIMIX_TRUE = @USE_SIMIX_TRUE@
 VERSION = @VERSION@
 WARNING = @WARNING@
 abs_builddir = @abs_builddir@
index 31a1f95..191ded5 100644 (file)
@@ -152,8 +152,6 @@ SIMGRID_DEP = @SIMGRID_DEP@
 STRIP = @STRIP@
 USE_GTNETS_FALSE = @USE_GTNETS_FALSE@
 USE_GTNETS_TRUE = @USE_GTNETS_TRUE@
-USE_SIMIX_FALSE = @USE_SIMIX_FALSE@
-USE_SIMIX_TRUE = @USE_SIMIX_TRUE@
 VERSION = @VERSION@
 WARNING = @WARNING@
 abs_builddir = @abs_builddir@
index e5e749a..adf46a4 100644 (file)
@@ -189,8 +189,6 @@ SIMGRID_DEP = @SIMGRID_DEP@
 STRIP = @STRIP@
 USE_GTNETS_FALSE = @USE_GTNETS_FALSE@
 USE_GTNETS_TRUE = @USE_GTNETS_TRUE@
-USE_SIMIX_FALSE = @USE_SIMIX_FALSE@
-USE_SIMIX_TRUE = @USE_SIMIX_TRUE@
 VERSION = @VERSION@
 WARNING = @WARNING@
 abs_builddir = @abs_builddir@
index 914991b..3d21b78 100644 (file)
@@ -183,8 +183,6 @@ SIMGRID_DEP = @SIMGRID_DEP@
 STRIP = @STRIP@
 USE_GTNETS_FALSE = @USE_GTNETS_FALSE@
 USE_GTNETS_TRUE = @USE_GTNETS_TRUE@
-USE_SIMIX_FALSE = @USE_SIMIX_FALSE@
-USE_SIMIX_TRUE = @USE_SIMIX_TRUE@
 VERSION = @VERSION@
 WARNING = @WARNING@
 abs_builddir = @abs_builddir@
index c6227eb..a5c1c9d 100644 (file)
@@ -190,8 +190,6 @@ SIMGRID_DEP = @SIMGRID_DEP@
 STRIP = @STRIP@
 USE_GTNETS_FALSE = @USE_GTNETS_FALSE@
 USE_GTNETS_TRUE = @USE_GTNETS_TRUE@
-USE_SIMIX_FALSE = @USE_SIMIX_FALSE@
-USE_SIMIX_TRUE = @USE_SIMIX_TRUE@
 VERSION = @VERSION@
 WARNING = @WARNING@
 abs_builddir = @abs_builddir@
index aea6fc0..cf9f24f 100644 (file)
@@ -186,8 +186,6 @@ SIMGRID_DEP = @SIMGRID_DEP@
 STRIP = @STRIP@
 USE_GTNETS_FALSE = @USE_GTNETS_FALSE@
 USE_GTNETS_TRUE = @USE_GTNETS_TRUE@
-USE_SIMIX_FALSE = @USE_SIMIX_FALSE@
-USE_SIMIX_TRUE = @USE_SIMIX_TRUE@
 VERSION = @VERSION@
 WARNING = @WARNING@
 abs_builddir = @abs_builddir@
index 0dd1491..72be8e6 100644 (file)
@@ -190,8 +190,6 @@ SIMGRID_DEP = @SIMGRID_DEP@
 STRIP = @STRIP@
 USE_GTNETS_FALSE = @USE_GTNETS_FALSE@
 USE_GTNETS_TRUE = @USE_GTNETS_TRUE@
-USE_SIMIX_FALSE = @USE_SIMIX_FALSE@
-USE_SIMIX_TRUE = @USE_SIMIX_TRUE@
 VERSION = @VERSION@
 WARNING = @WARNING@
 abs_builddir = @abs_builddir@
index 6611e2a..91a96cf 100644 (file)
@@ -186,8 +186,6 @@ SIMGRID_DEP = @SIMGRID_DEP@
 STRIP = @STRIP@
 USE_GTNETS_FALSE = @USE_GTNETS_FALSE@
 USE_GTNETS_TRUE = @USE_GTNETS_TRUE@
-USE_SIMIX_FALSE = @USE_SIMIX_FALSE@
-USE_SIMIX_TRUE = @USE_SIMIX_TRUE@
 VERSION = @VERSION@
 WARNING = @WARNING@
 abs_builddir = @abs_builddir@
index df8bb3c..15eb6d0 100644 (file)
@@ -189,8 +189,6 @@ SIMGRID_DEP = @SIMGRID_DEP@
 STRIP = @STRIP@
 USE_GTNETS_FALSE = @USE_GTNETS_FALSE@
 USE_GTNETS_TRUE = @USE_GTNETS_TRUE@
-USE_SIMIX_FALSE = @USE_SIMIX_FALSE@
-USE_SIMIX_TRUE = @USE_SIMIX_TRUE@
 VERSION = @VERSION@
 WARNING = @WARNING@
 abs_builddir = @abs_builddir@
index 147a67c..c5f102b 100644 (file)
@@ -181,8 +181,6 @@ SIMGRID_DEP = @SIMGRID_DEP@
 STRIP = @STRIP@
 USE_GTNETS_FALSE = @USE_GTNETS_FALSE@
 USE_GTNETS_TRUE = @USE_GTNETS_TRUE@
-USE_SIMIX_FALSE = @USE_SIMIX_FALSE@
-USE_SIMIX_TRUE = @USE_SIMIX_TRUE@
 VERSION = @VERSION@
 WARNING = @WARNING@
 abs_builddir = @abs_builddir@
index 9a4033b..fa3b8f4 100644 (file)
@@ -172,8 +172,6 @@ SIMGRID_DEP = @SIMGRID_DEP@
 STRIP = @STRIP@
 USE_GTNETS_FALSE = @USE_GTNETS_FALSE@
 USE_GTNETS_TRUE = @USE_GTNETS_TRUE@
-USE_SIMIX_FALSE = @USE_SIMIX_FALSE@
-USE_SIMIX_TRUE = @USE_SIMIX_TRUE@
 VERSION = @VERSION@
 WARNING = @WARNING@
 abs_builddir = @abs_builddir@
index 5435051..35e7438 100644 (file)
@@ -160,8 +160,6 @@ SIMGRID_DEP = @SIMGRID_DEP@
 STRIP = @STRIP@
 USE_GTNETS_FALSE = @USE_GTNETS_FALSE@
 USE_GTNETS_TRUE = @USE_GTNETS_TRUE@
-USE_SIMIX_FALSE = @USE_SIMIX_FALSE@
-USE_SIMIX_TRUE = @USE_SIMIX_TRUE@
 VERSION = @VERSION@
 WARNING = @WARNING@
 abs_builddir = @abs_builddir@
index e384679..d301b2b 100644 (file)
@@ -157,8 +157,6 @@ SIMGRID_DEP = @SIMGRID_DEP@
 STRIP = @STRIP@
 USE_GTNETS_FALSE = @USE_GTNETS_FALSE@
 USE_GTNETS_TRUE = @USE_GTNETS_TRUE@
-USE_SIMIX_FALSE = @USE_SIMIX_FALSE@
-USE_SIMIX_TRUE = @USE_SIMIX_TRUE@
 VERSION = @VERSION@
 WARNING = @WARNING@
 abs_builddir = @abs_builddir@
diff --git a/src/gras_simix/DataDesc/gras_simix_cbps.c b/src/gras_simix/DataDesc/gras_simix_cbps.c
deleted file mode 100644 (file)
index 649bb1a..0000000
+++ /dev/null
@@ -1,391 +0,0 @@
-/* $Id$ */
-
-/* cbps - persistant states for callbacks                                   */
-
-/* Copyright (c) 2003 Olivier Aumage.                                       */
-/* Copyright (c) 2003, 2004 Martin Quinson.                                 */
-/* 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. */
-
-#include "xbt/ex.h"
-#include "gras/DataDesc/datadesc_private.h"
-XBT_LOG_NEW_DEFAULT_SUBCATEGORY(gras_ddt_cbps,gras_ddt,"callback persistant state");
-
-typedef struct {
-  gras_datadesc_type_t  type;
-  void                 *data;
-} s_gras_cbps_elm_t, *gras_cbps_elm_t;
-
-typedef struct s_gras_cbps {
-  xbt_dynar_t lints; /* simple stack of long integers (easy interface) */
-
-  xbt_dict_t  space; /* varname x dynar of gras_cbps_elm_t */
-  xbt_dynar_t frames; /* of dynar of names defined within this frame
-                          (and to pop when we leave it) */
-  xbt_dynar_t globals;
-} s_gras_cbps_t;
-
-static void free_string(void *d){
-  free(*(void**)d);
-}
-
-gras_cbps_t gras_cbps_new(void) {
-  gras_cbps_t  res;
-
-  res=xbt_new(s_gras_cbps_t,1);
-
-  res->lints = xbt_dynar_new(sizeof(int), NULL);
-  res->space = xbt_dict_new();
-  /* no leak, the content is freed manually on block_end */
-  res->frames = xbt_dynar_new(sizeof(xbt_dynar_t), NULL);
-  res->globals = xbt_dynar_new(sizeof(char*), NULL);
-
-  gras_cbps_block_begin(res);
-
-  return res;
-}
-
-void gras_cbps_free(gras_cbps_t *state) {
-
-  xbt_dynar_free( &( (*state)->lints   ) );
-
-  gras_cbps_block_end(*state);
-  xbt_dict_free ( &( (*state)->space   ) );
-  xbt_dynar_free( &( (*state)->frames  ) );
-  xbt_dynar_free( &( (*state)->globals ) );
-
-  free(*state);
-  *state = NULL;
-}
-
-void gras_cbps_reset(gras_cbps_t state) {
-
-  xbt_dynar_reset(state->lints);
-
-  xbt_dict_reset (state->space);
-
-  xbt_dynar_reset(state->frames);
-  xbt_dynar_reset(state->globals);
-}
-
-/** \brief Declare a new element in the PS, and give it a value.
- *
- * If an element of that
- * name already exists, it is masked by the one given here, and will be 
- * seeable again only after a pop to remove the value this push adds.
- */
-void
-gras_cbps_v_push(gras_cbps_t          ps,
-                const char          *name,
-                void                *data,
-                gras_datadesc_type_t ddt) {
-
-  xbt_dynar_t     varstack=NULL,frame;
-  gras_cbps_elm_t var;
-  char           *varname = (char*)xbt_strdup(name);
-  xbt_ex_t        e;
-
-  DEBUG2("push(%s,%p)",name,(void*)data);
-
-  TRY {
-    varstack = xbt_dict_get(ps->space, name);
-  } CATCH(e) {
-    if (e.category != mismatch_error) 
-      RETHROW;
-
-    DEBUG1("Create a new variable stack for '%s' into the space",name);
-    varstack = xbt_dynar_new(sizeof (gras_cbps_elm_t *), NULL);
-    xbt_dict_set(ps->space, varname, (void **)varstack, NULL);
-    xbt_ex_free(e);
-    /* leaking, you think? only if you do not close all the openned blocks ;)*/
-  }
-  var       = xbt_new0(s_gras_cbps_elm_t,1);
-  var->type = ddt;
-  var->data = data;
-  
-  xbt_dynar_push(varstack, &var);
-  
-  xbt_dynar_pop(ps->frames, &frame);
-  DEBUG4("Push %s (%p @%p) into frame %p",varname,(void*)varname,(void*)&varname,(void*)frame);
-  xbt_dynar_push(frame, &varname);
-  xbt_dynar_push(ps->frames, &frame); 
-}
-
-/** \brief Retrieve an element from the PS, and remove it from the PS.
- *
- * If it's not present in the current block, it will fail (throwing not_found)
- * and not search in upper blocks since this denotes a programmation error.
- */
-void
-gras_cbps_v_pop (gras_cbps_t            ps, 
-                const char            *name,
-                gras_datadesc_type_t  *ddt,
-                void                 **res) {
-  xbt_dynar_t          varstack,frame;
-  gras_cbps_elm_t       var            = NULL;
-  void                 *data           = NULL;
-  xbt_ex_t e;
-
-  DEBUG1("pop(%s)",name);
-  TRY {
-    varstack = xbt_dict_get(ps->space, name);
-  } CATCH(e) {
-    if (e.category != mismatch_error)
-      RETHROW;
-
-    xbt_ex_free(e);
-    THROW1(not_found_error,1,"Asked to pop the non-existant %s", name);
-  }
-  xbt_dynar_pop(varstack, &var);
-  
-  if (!xbt_dynar_length(varstack)) {
-    DEBUG1("Last incarnation of %s poped. Kill it",name);
-    xbt_dict_remove(ps->space, name);
-    xbt_dynar_free(&varstack);
-  }
-  
-  if (ddt)
-    *ddt = var->type;  
-  data = var->data;
-  
-  free(var);
-  
-  xbt_dynar_pop(ps->frames, &frame);
-  {
-    int l = xbt_dynar_length(frame);
-    
-    while (l--) {
-      char *_name = NULL;
-                                                                                
-      _name = xbt_dynar_get_as(frame, l, char*);
-      if (!strcmp(name, _name)) {
-       xbt_dynar_remove_at(frame, l, &_name);
-       free(_name);
-       break;
-      }
-    }
-  }
-  xbt_dynar_push(ps->frames, &frame);
-  
-  *res = data;
-}
-
-/** \brief Change the value of an element in the PS.
- * 
- * If it's not present in the current block, look in the upper ones.
- * If it's not present in any of them, modify in the globals
- * If not present there neither, the code may segfault (Oli?).
- *
- * Once a reference to an element of that name is found somewhere in the PS,
- *   its value is changed.
- */
-void
-gras_cbps_v_set (gras_cbps_t          ps,
-                const char          *name,
-                void                *data,
-                gras_datadesc_type_t ddt) {
-
-  xbt_dynar_t dynar = NULL;
-  gras_cbps_elm_t elm = NULL;
-  
-  DEBUG1("set(%s)",name);
-  dynar = xbt_dict_get_or_null(ps->space, name);
-
-  if (dynar == NULL) {
-    dynar = xbt_dynar_new(sizeof (gras_cbps_elm_t), NULL);
-    xbt_dict_set(ps->space, name, (void **)dynar, NULL);
-    
-    elm   = xbt_new0(s_gras_cbps_elm_t,1);
-    xbt_dynar_push(ps->globals, &name);
-  } else {
-    xbt_dynar_pop(dynar, &elm);
-  }
-  
-  elm->type   = ddt;
-  elm->data   = data;
-  xbt_dynar_push(dynar, &elm);
-
-}
-
-/** \brief Get the value of an element in the PS without modifying it.
- * 
- * (note that you get the content of the data struct and not a copy to it)
- * If it's not present in the current block, look in the upper ones.
- * If it's not present in any of them, look in the globals
- * If not present there neither, the code may segfault (Oli?).
- */
-void *
-gras_cbps_v_get (gras_cbps_t           ps, 
-                const char           *name,
-                /* OUT */gras_datadesc_type_t *ddt) {
-  
-  xbt_dynar_t    dynar = NULL;
-  gras_cbps_elm_t elm   = NULL;
-  
-  DEBUG1("get(%s)",name);
-  dynar = xbt_dict_get(ps->space, name);
-  xbt_dynar_pop(dynar, &elm);
-  xbt_dynar_push(dynar, &elm);
-  
-  if (ddt) {
-    *ddt = elm->type;
-  }
-  
-  return elm->data;
-
-}
-
-/** \brief Begins a new block. 
- *
- * Blocks are usefull to remove a whole set of declarations you don't even know
- *
- * E.g., they constitute an elegent solution to recursive data structures. 
- *
- * push/pop may be used in some cases for that, but if your recursive data 
- * struct contains other structs needing themselves callbacks, you have to
- * use block_{begin,end} to do the trick.
- */
-
-void
-gras_cbps_block_begin(gras_cbps_t ps) {
-
-  xbt_dynar_t dynar = NULL;
-
-  DEBUG0(">>> Block begin");
-  dynar = xbt_dynar_new(sizeof (char *), NULL);
-  xbt_dynar_push(ps->frames, &dynar);
-}
-
-/** \brief End the current block, and go back to the upper one. */
-void
-gras_cbps_block_end(gras_cbps_t ps) {
-
-  xbt_dynar_t  frame        = NULL;
-  int           cursor       =    0;
-  char         *name         = NULL;
-
-  xbt_assert0(xbt_dynar_length(ps->frames),
-              "More block_end than block_begin");
-  xbt_dynar_pop(ps->frames, &frame);
-  
-  xbt_dynar_foreach(frame, cursor, name) {
-
-    xbt_dynar_t    varstack    = NULL;
-    gras_cbps_elm_t var         = NULL;
-    DEBUG2("Get ride of %s (%p)",name,(void*)name);
-    varstack = xbt_dict_get(ps->space, name);
-    xbt_dynar_pop(varstack, &var);
-    if (!xbt_dynar_length(varstack)) {
-      xbt_dict_remove(ps->space, name);
-      xbt_dynar_free_container(&varstack); /*already empty, save a test ;) */
-    }
-    
-    if (var->data) free(var->data);
-    free(var);
-    free(name);
-  }
-  xbt_dynar_free_container(&frame);/* we just emptied it */
-  DEBUG0("<<< Block end");
-}
-
-
-/** \brief Push a new integer value into the cbps. */
-void
-gras_cbps_i_push(gras_cbps_t ps,
-                int val) {
-  DEBUG1("push %d as a size",val);
-  xbt_dynar_push_as(ps->lints,int,val);
-}
-/** \brief Pop the lastly pushed integer value from the cbps. */
-int
-gras_cbps_i_pop(gras_cbps_t ps) {
-  int ret;
-
-  xbt_assert0(xbt_dynar_length(ps->lints) > 0,
-              "gras_cbps_i_pop: no value to pop");
-  ret = xbt_dynar_pop_as(ps->lints,int);
-  DEBUG1("pop %d as a size",ret);
-  return ret;
-}
-
-/** \brief Generic cb returning the lastly pushed value
- * 
- * Used by \ref gras_datadesc_ref_pop_arr
- */
-int gras_datadesc_cb_pop(gras_datadesc_type_t ignored, gras_cbps_t vars, void *data) {
-  int res =  gras_cbps_i_pop(vars);
-  DEBUG1("Pop %d as a size",res);
-  return res;
-}
-
-/* ************************* */
-/* **** PUSHy callbacks **** */
-/* ************************* */
-
-/** \brief Cb to push an integer. Must be attached to the field you want to push */
-void gras_datadesc_cb_push_int(gras_datadesc_type_t ignored, gras_cbps_t vars, void *data) {
-  int *i = (int*)data;
-  gras_cbps_i_push(vars, (int) *i);
-}
-
-/** \brief Cb to push an unsigned integer. Must be attached to the field you want to push */
-void gras_datadesc_cb_push_uint(gras_datadesc_type_t ignored, gras_cbps_t vars, void *data) {
-  unsigned int *i = (unsigned int*)data;
-  gras_cbps_i_push(vars, (int) *i);
-}
-
-/** \brief Cb to push an long integer. Must be attached to the field you want to push
- */
-void gras_datadesc_cb_push_lint(gras_datadesc_type_t ignored, gras_cbps_t vars, void *data) {
-  long int *i = (long int*)data;
-  gras_cbps_i_push(vars, (int) *i);
-}
-/** \brief Cb to push an unsigned long integer. Must be attached to the field you want to push
- */
-void gras_datadesc_cb_push_ulint(gras_datadesc_type_t ignored, gras_cbps_t vars, void *data) {
-  unsigned long int *i = (unsigned long int*)data;
-  gras_cbps_i_push(vars, (int) *i);
-}
-
-/* ************************************ */
-/* **** PUSHy multiplier callbacks **** */
-/* ************************************ */
-/** \brief Cb to push an integer as multiplier. Must be attached to the field you want to push */
-void gras_datadesc_cb_push_int_mult(gras_datadesc_type_t ignored, gras_cbps_t vars, void *data) {
-  int old = *(int*)data;
-  int new = gras_cbps_i_pop(vars);
-  DEBUG2("push %d x %d as a size",old,new);
-  gras_cbps_i_push(vars, old*new);
-}
-
-/** \brief Cb to push an unsigned integer as multiplier. Must be attached to the field you want to push */
-void gras_datadesc_cb_push_uint_mult(gras_datadesc_type_t ignored, gras_cbps_t vars, void *data) {
-  unsigned int old = *(unsigned int*)data;
-  unsigned int new = gras_cbps_i_pop(vars);
-
-  DEBUG2("push %d x %d as a size",old,new);
-  gras_cbps_i_push(vars, (int) (old*new));
-}
-
-/** \brief Cb to push an long integer as multiplier. Must be attached to the field you want to push
- */
-void gras_datadesc_cb_push_lint_mult(gras_datadesc_type_t ignored, gras_cbps_t vars, void *data) {
-  long int i = *(long int*)data;
-  i *= gras_cbps_i_pop(vars);
-  gras_cbps_i_push(vars, (int) i);
-}
-/** \brief Cb to push an unsigned long integer as multiplier. Must be attached to the field you want to push
- */
-void gras_datadesc_cb_push_ulint_mult(gras_datadesc_type_t ignored, gras_cbps_t vars, void *data) {
-  unsigned long int old = *(unsigned long int*)data;
-  unsigned long int new = gras_cbps_i_pop(vars);
-
-  DEBUG2("push %ld x %ld as a size",old,new);
-  gras_cbps_i_push(vars, (int) (old * new) );
-}
diff --git a/src/gras_simix/DataDesc/gras_simix_datadesc.c b/src/gras_simix/DataDesc/gras_simix_datadesc.c
deleted file mode 100644 (file)
index 11ec857..0000000
+++ /dev/null
@@ -1,250 +0,0 @@
-/* $Id$ */
-
-/* datadesc - data description in order to send/recv it in GRAS             */
-
-/* Copyright (c) 2003 Olivier Aumage.                                       */
-/* Copyright (c) 2003, 2004 Martin Quinson.                                 */
-/* 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. */
-
-#include "gras/DataDesc/datadesc_private.h"
-
-XBT_LOG_NEW_DEFAULT_SUBCATEGORY(gras_ddt,gras,"Data description");
-/* FIXME: make this host-dependent using a trick such as UserData*/
-/*@null@*/xbt_set_t gras_datadesc_set_local=NULL;
-
-
-/* callback for array size when sending strings */
-static int
-_strlen_cb(/*@unused@*/gras_datadesc_type_t type,/*@unused@*/gras_cbps_t vars, void *data) {
-
-  return 1+(int)strlen(data);
-}
-
-
-/**
- * gras_datadesc_init:
- *
- * Initialize the datadesc module.
- * FIXME: We assume that when neither signed nor unsigned is given, 
- *    that means signed. To be checked by configure.
- **/
-void
-gras_datadesc_init(void) {
-  gras_datadesc_type_t ddt; /* What to add */
-
-  /* only initialize once */
-  if (gras_datadesc_set_local != NULL)
-    return;
-  
-  VERB0("Initializing DataDesc");
-  
-  gras_datadesc_set_local = xbt_set_new();
-  
-
-  /* all known datatypes */
-
-  ddt = gras_datadesc_scalar("signed char", 
-                            gras_ddt_scalar_char, 
-                            e_gras_dd_scalar_encoding_sint);
-  ddt = gras_datadesc_scalar("char", 
-                            gras_ddt_scalar_char, 
-                            e_gras_dd_scalar_encoding_sint);
-  ddt = gras_datadesc_scalar("unsigned char", 
-                            gras_ddt_scalar_char, 
-                            e_gras_dd_scalar_encoding_uint);
-  
-  ddt = gras_datadesc_scalar("signed short int", 
-                            gras_ddt_scalar_short, 
-                            e_gras_dd_scalar_encoding_sint);
-  ddt = gras_datadesc_scalar("short int", 
-                            gras_ddt_scalar_short, 
-                            e_gras_dd_scalar_encoding_sint);
-  ddt = gras_datadesc_scalar("short",
-                            gras_ddt_scalar_short, 
-                            e_gras_dd_scalar_encoding_sint);
-  ddt = gras_datadesc_scalar("unsigned short int", 
-                            gras_ddt_scalar_short, 
-                            e_gras_dd_scalar_encoding_uint);
-  
-  ddt = gras_datadesc_scalar("signed int", 
-                            gras_ddt_scalar_int, 
-                            e_gras_dd_scalar_encoding_sint);
-  ddt = gras_datadesc_scalar("int", 
-                            gras_ddt_scalar_int, 
-                            e_gras_dd_scalar_encoding_sint);
-  ddt = gras_datadesc_scalar("unsigned int", 
-                            gras_ddt_scalar_int, 
-                            e_gras_dd_scalar_encoding_uint);
-  
-  ddt = gras_datadesc_scalar("signed long int", 
-                            gras_ddt_scalar_long, 
-                            e_gras_dd_scalar_encoding_sint);
-  ddt = gras_datadesc_scalar("long int", 
-                            gras_ddt_scalar_long, 
-                            e_gras_dd_scalar_encoding_sint);
-  ddt = gras_datadesc_scalar("long",
-                            gras_ddt_scalar_long, 
-                            e_gras_dd_scalar_encoding_sint);
-  ddt = gras_datadesc_scalar("unsigned long int", 
-                            gras_ddt_scalar_long, 
-                            e_gras_dd_scalar_encoding_uint);
-  
-  ddt = gras_datadesc_scalar("signed long long int",
-                            gras_ddt_scalar_long_long, 
-                            e_gras_dd_scalar_encoding_sint);
-  ddt = gras_datadesc_scalar("long long int", 
-                            gras_ddt_scalar_long_long, 
-                            e_gras_dd_scalar_encoding_sint);
-  ddt = gras_datadesc_scalar("unsigned long long int", 
-                            gras_ddt_scalar_long_long, 
-                            e_gras_dd_scalar_encoding_uint);
-  
-  ddt = gras_datadesc_scalar("data pointer", 
-                            gras_ddt_scalar_pdata, 
-                            e_gras_dd_scalar_encoding_uint);
-  ddt = gras_datadesc_scalar("function pointer", 
-                            gras_ddt_scalar_pfunc, 
-                            e_gras_dd_scalar_encoding_uint);
-  
-  ddt = gras_datadesc_scalar("float", 
-                            gras_ddt_scalar_float, 
-                            e_gras_dd_scalar_encoding_float);
-  ddt = gras_datadesc_scalar("double", 
-                            gras_ddt_scalar_double, 
-                            e_gras_dd_scalar_encoding_float);
-
-  ddt = gras_datadesc_array_dyn("char[]", 
-                               gras_datadesc_by_name("char"),
-                               _strlen_cb);
-  ddt = gras_datadesc_ref("string",ddt);
-
-  /* specific datatype: the exception type (for RPC) */
-  ddt = gras_datadesc_struct("ex_t");
-  gras_datadesc_struct_append(ddt,"msg",gras_datadesc_by_name("string"));
-  gras_datadesc_struct_append(ddt,"category",gras_datadesc_by_name("int"));
-  gras_datadesc_struct_append(ddt,"value",gras_datadesc_by_name("int"));
-
-  gras_datadesc_struct_append(ddt,"remote",gras_datadesc_by_name("short int"));
-
-  gras_datadesc_struct_append(ddt,"host",gras_datadesc_by_name("string"));
-  gras_datadesc_struct_append(ddt,"procname",gras_datadesc_by_name("string"));
-  gras_datadesc_struct_append(ddt,"pid",gras_datadesc_by_name("long int"));
-  gras_datadesc_struct_append(ddt,"file",gras_datadesc_by_name("string"));
-  gras_datadesc_struct_append(ddt,"line",gras_datadesc_by_name("int"));
-  gras_datadesc_struct_append(ddt,"func",gras_datadesc_by_name("string"));
-  gras_datadesc_struct_append(ddt,"used",gras_datadesc_by_name("int"));
-  gras_datadesc_cb_field_push(ddt,"used");
-  gras_datadesc_struct_append(ddt,"bt_strings", 
-                             gras_datadesc_ref_pop_arr(gras_datadesc_by_name("string")));
-
-  gras_datadesc_struct_close(ddt);
-
-  /* specific datatype: xbt_peer_t */
-  ddt = gras_datadesc_struct("s_xbt_peer_t");
-  gras_datadesc_struct_append(ddt,"name",gras_datadesc_by_name("string"));
-  gras_datadesc_struct_append(ddt,"port",gras_datadesc_by_name("int"));
-  gras_datadesc_struct_close(ddt);
-
-  ddt = gras_datadesc_ref("xbt_peer_t",ddt);
-
-  /* Dict containing the constant value (for the parsing macro) */
-  gras_dd_constants = xbt_dict_new();
-  
-}
-
-/**
- * gras_datadesc_exit:
- *
- * Finalize the datadesc module
- **/
-void
-gras_datadesc_exit(void) {
-  VERB0("Exiting DataDesc");
-  xbt_set_free(&gras_datadesc_set_local);
-  xbt_dict_free(&gras_dd_constants);
-  DEBUG0("Exited DataDesc");
-}
-
-/** This is mainly to debug */
-const char *
-gras_datadesc_get_name(gras_datadesc_type_t ddt) {
-  return ddt?(const char*)ddt->name:"(null)";
-}
-/** This is mainly to debug */
-int
-gras_datadesc_get_id(gras_datadesc_type_t ddt) {
-  return ddt->code;
-}
-
-/**
- * gras_datadesc_size: 
- *
- * Returns the size occuped by data of this type (on the current arch).
- *
- */
-int gras_datadesc_size(gras_datadesc_type_t type) {
-  return type?type->size[GRAS_THISARCH]:0;
-}
-
-/**
- * gras_datadesc_type_dump:
- *
- * For debugging purpose
- */
-void gras_datadesc_type_dump(const gras_datadesc_type_t ddt){
-  int cpt;
-
-  printf("DataDesc dump:");
-  if(!ddt) {
-    printf("(null)\n");
-    return;
-  }
-  printf ("%s (ID:%d)\n",ddt->name,ddt->code);
-  printf ("  category: %s\n",gras_datadesc_cat_names[ddt->category_code]);
-
-  printf ("  size[");
-  for (cpt=0; cpt<gras_arch_count; cpt++) {
-    printf("%s%s%ld%s",
-          cpt>0?", ":"",
-          cpt == GRAS_THISARCH ? ">":"",
-          ddt->size[cpt],
-          cpt == GRAS_THISARCH ? "<":"");
-  }
-  printf ("]\n");
-
-  printf ("  alignment[");
-  for (cpt=0; cpt<gras_arch_count; cpt++) {
-    printf("%s%s%ld%s",
-          cpt>0?", ":"",
-          cpt == GRAS_THISARCH ? ">":"",
-          ddt->alignment[cpt],
-          cpt == GRAS_THISARCH ? "<":"");
-  }
-  printf ("]\n");
-
-  printf ("  aligned_size[");
-  for (cpt=0; cpt<gras_arch_count; cpt++) {
-    printf("%s%s%ld%s",
-          cpt>0?", ":"",
-          cpt == GRAS_THISARCH ? ">":"",
-          ddt->aligned_size[cpt],
-          cpt == GRAS_THISARCH ? "<":"");
-  }
-  printf ("]\n");
-  if (ddt->category_code == e_gras_datadesc_type_cat_struct) {
-    gras_dd_cat_struct_t struct_data;
-    gras_dd_cat_field_t  field;
-
-    struct_data = ddt->category.struct_data;
-    xbt_dynar_foreach(struct_data.fields, cpt, field) {
-    printf(">>> Dump field #%d (%s) (offset=%ld)\n",
-          cpt,field->name,field->offset[GRAS_THISARCH]);
-    gras_datadesc_type_dump(field->type);
-    printf("<<< end dump field #%d (%s)\n",cpt,field->name);
-    }
- }
-  fflush(stdout);
-}
diff --git a/src/gras_simix/DataDesc/gras_simix_datadesc_interface.h b/src/gras_simix/DataDesc/gras_simix_datadesc_interface.h
deleted file mode 100644 (file)
index 3611ee6..0000000
+++ /dev/null
@@ -1,43 +0,0 @@
-/* $Id$ */
-
-/* datadesc - describing the data to exchange                               */
-
-/* module's public interface exported within GRAS, but not to end user.     */
-
-/* Copyright (c) 2003 Olivier Aumage.                                       */
-/* Copyright (c) 2003, 2004 Martin Quinson.                                 */
-/* 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 GRAS_DATADESC_INTERFACE_H
-#define GRAS_DATADESC_INTERFACE_H
-
-XBT_PUBLIC(gras_datadesc_type_t) gras_datadesc_by_id  (long int code);
-
-/* to debug */
-XBT_PUBLIC(void) gras_datadesc_type_dump(const gras_datadesc_type_t ddt);
-XBT_PUBLIC(const char *) gras_datadesc_arch_name(int code);
-
-/* compare two data type description */
-XBT_PUBLIC(int)
-gras_datadesc_type_cmp(const gras_datadesc_type_t d1,
-                      const gras_datadesc_type_t d2);
-
-/* Access function */
-XBT_PUBLIC(int)  gras_datadesc_size(gras_datadesc_type_t type);
-/* Described data exchanges: direct use */
-XBT_PUBLIC(int) gras_datadesc_copy(gras_datadesc_type_t type, void *src, void *dst);
-XBT_PUBLIC(void) gras_datadesc_send(gras_socket_t sock, gras_datadesc_type_t type, void *src);
-XBT_PUBLIC(void) gras_datadesc_recv(gras_socket_t sock, gras_datadesc_type_t type,
-                               int r_arch, void *dst);
-
-/* Described data exchanges: IDL compilation FIXME: not implemented*/
-void gras_datadesc_gen_cpy(gras_datadesc_type_t type, void *src, void **dst);
-void gras_datadesc_gen_send(gras_socket_t sock, gras_datadesc_type_t type, void *src);
-void gras_datadesc_gen_recv(gras_socket_t sock, gras_datadesc_type_t type,
-                                  int r_arch, void *dst);
-
-   
-#endif /* GRAS_DATADESC_INTERFACE_H */
diff --git a/src/gras_simix/DataDesc/gras_simix_datadesc_private.h b/src/gras_simix/DataDesc/gras_simix_datadesc_private.h
deleted file mode 100644 (file)
index 0e79380..0000000
+++ /dev/null
@@ -1,265 +0,0 @@
-/* $Id$ */
-
-/* datadesc - describing the data to exchange                               */
-
-/* module's private interface masked even to other parts of GRAS.           */
-
-/* Copyright (c) 2003 Olivier Aumage.                                       */
-/* Copyright (c) 2003, 2004 Martin Quinson.                                 */
-/* 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 GRAS_DATADESC_PRIVATE_H
-#define GRAS_DATADESC_PRIVATE_H
-
-#include "xbt/sysdep.h"
-#include "xbt/log.h"
-#include "xbt/dynar.h"
-#include "xbt/dict.h"
-#include "xbt/set.h"
-
-#include "portable.h" /* GRAS_THISARCH */
-
-#include "gras/transport.h"  /* socket handling */
-
-#include "gras_modinter.h"   /* module init/exit */
-#include "gras/datadesc.h"   /* rest of module public interface */
-
-#include "gras/DataDesc/datadesc_interface.h" /* semi-public API */
-
-/**
- * ddt_aligned:
- * 
- * Align the data v on the boundary a.
- */
-#define ddt_aligned(v, a) (((v) + (a - 1)) & ~(a - 1))
-
-/*@null@*/extern xbt_set_t gras_datadesc_set_local;
-void gras_ddt_freev(void *ddt);
-/*******************************************
- * Descriptions of all known architectures *
- *******************************************/
-
-#define gras_arch_count 11
-typedef enum {
-  gras_ddt_scalar_char      = 0,
-  gras_ddt_scalar_short     = 1,
-  gras_ddt_scalar_int       = 2,
-  gras_ddt_scalar_long      = 3,
-  gras_ddt_scalar_long_long = 4,
-
-  gras_ddt_scalar_pdata     = 5,
-  gras_ddt_scalar_pfunc     = 6,
-
-  gras_ddt_scalar_float     = 7,
-  gras_ddt_scalar_double    = 8
-} gras_ddt_scalar_type_t;
-
-typedef struct {
-  const char *name;
-
-  int endian;
-
-  int sizeofs[9]; /* char,short,int,long,long_long,pdata,pfunc,float,double */
-  int boundaries[9]; /* idem */
-} gras_arch_desc_t;
-
-extern const gras_arch_desc_t gras_arches[gras_arch_count];
-extern const char *gras_datadesc_cat_names[9];
-
-/**********************************************************/
-/* Actual definitions of the stuff in the type descriptor */
-/**********************************************************/
-
-/**
- * e_gras_datadesc_type_category:
- *
- * Defines all possible type categories. 
- */
-typedef enum e_gras_datadesc_type_category {
-  
-  /* if you edit this, also fix gras_datadesc_cat_names in ddt_exchange.c */
-
-  e_gras_datadesc_type_cat_undefined = 0,
-  
-  e_gras_datadesc_type_cat_scalar = 1,
-  e_gras_datadesc_type_cat_struct = 2,
-  e_gras_datadesc_type_cat_union = 3,
-  e_gras_datadesc_type_cat_ref = 4,       /* ref to an uniq element */
-  e_gras_datadesc_type_cat_array = 5,
-  
-  e_gras_datadesc_type_cat_invalid = 6
-} gras_datadesc_type_category_t;
-
-/*------------------------------------------------*/
-/* definitions of specific data for each category */
-/*------------------------------------------------*/
-/**
- * s_gras_dd_cat_field:
- *
- * Fields of struct and union
- */
-typedef struct s_gras_dd_cat_field {
-
-  char            *name;
-  long int  offset[gras_arch_count];
-  gras_datadesc_type_t type;
-  
-  gras_datadesc_type_cb_void_t send;
-  gras_datadesc_type_cb_void_t recv;
-
-} s_gras_dd_cat_field_t,*gras_dd_cat_field_t;
-
-void gras_dd_cat_field_free(void *f);
-
-/**
- * gras_dd_cat_scalar_t:
- *
- * Specific fields of a scalar
- */
-enum e_gras_dd_scalar_encoding {
-  e_gras_dd_scalar_encoding_undefined = 0,
-  
-  e_gras_dd_scalar_encoding_uint,
-  e_gras_dd_scalar_encoding_sint,
-  e_gras_dd_scalar_encoding_float,
-  
-  e_gras_dd_scalar_encoding_invalid 
-};
-typedef struct s_gras_dd_cat_scalar {
-  enum e_gras_dd_scalar_encoding encoding;
-  gras_ddt_scalar_type_t type; /* to check easily that redefinition matches */
-} gras_dd_cat_scalar_t;
-
-/**
- * gras_dd_cat_struct_t:
- *
- * Specific fields of a struct
- */
-typedef struct s_gras_dd_cat_struct {
-  xbt_dynar_t fields; /* elm type = gras_dd_cat_field_t */
-  int closed; /* gras_datadesc_declare_struct_close() was called */
-} gras_dd_cat_struct_t;
-
-/**
- * gras_dd_cat_union_t:
- *
- * Specific fields of a union
- */
-typedef struct s_gras_dd_cat_union {
-  gras_datadesc_type_cb_int_t selector;
-  xbt_dynar_t fields; /* elm type = gras_dd_cat_field_t */
-  int closed; /* gras_datadesc_declare_union_close() was called */
-} gras_dd_cat_union_t;
-
-/**
- * gras_dd_cat_ref_t:
- *
- * Specific fields of a reference
- */
-typedef struct s_gras_dd_cat_ref {
-  gras_datadesc_type_t      type;
-
-  /* callback used to return the referenced type number  */
-  gras_datadesc_selector_t  selector;
-} gras_dd_cat_ref_t;
-
-
-/**
- * gras_dd_cat_array_t:
- *
- * Specific fields of an array
- */
-typedef struct s_gras_dd_cat_array {
-  gras_datadesc_type_t  type;
-
-  /* element_count == 0 means dynamically defined */
-  unsigned long int           fixed_size;
-
-  /* callback used to return the dynamic length */
-  gras_datadesc_type_cb_int_t dynamic_size;
-
-} gras_dd_cat_array_t;
-
-/**
- * u_gras_datadesc_category:
- *
- * Specific data to each possible category
- */
-union u_gras_datadesc_category {
-        void                  *undefined_data;
-        gras_dd_cat_scalar_t   scalar_data;
-        gras_dd_cat_struct_t   struct_data;
-        gras_dd_cat_union_t    union_data;
-        gras_dd_cat_ref_t      ref_data;
-        gras_dd_cat_array_t    array_data;
-};
-
-/****************************************/
-/* The holy grail: type descriptor type */
-/****************************************/
-/**
- * s_gras_datadesc_type:
- *
- * Type descriptor.
- */
-typedef struct s_gras_datadesc_type {
-  /* headers for the data set */
-  unsigned int                         code;
-  char                                *name;
-  unsigned int                         name_len;
-        
-  /* payload */
-  unsigned long int                    size[gras_arch_count];
-  
-  unsigned long int                    alignment[gras_arch_count];  
-  unsigned long int                    aligned_size[gras_arch_count];
-  
-  enum  e_gras_datadesc_type_category  category_code;
-  union u_gras_datadesc_category       category;
-  
-  gras_datadesc_type_cb_void_t         send;
-  gras_datadesc_type_cb_void_t         recv;
-   
-  /* flags */
-  int                                  cycle :1;
-   
-  /* random value for users (like default value or whatever) */
-  char                                 extra[SIZEOF_MAX]; 
-
-} s_gras_datadesc_type_t;
-
-/***************************
- * constructor/desctructor *
- ***************************/
-void gras_datadesc_free(gras_datadesc_type_t *type);
-
-  gras_datadesc_type_t
-  gras_datadesc_scalar(const char                       *name,
-                      gras_ddt_scalar_type_t           type,
-                      enum e_gras_dd_scalar_encoding   encoding);
-
-/****************************************************
- * Callback persistant state constructor/destructor *
- ****************************************************/
-gras_cbps_t gras_cbps_new(void);
-void gras_cbps_free(gras_cbps_t *state);
-void gras_cbps_reset(gras_cbps_t state);
-
-/***************
- * Convertions *
- ***************/
-void
-gras_dd_convert_elm(gras_datadesc_type_t type, int count,
-                   int r_arch, 
-                   void *src, void *dst);
-
-/********************************************************************
- * Dictionnary containing the constant values for the parsing macro *
- ********************************************************************/
-extern xbt_dict_t gras_dd_constants; /* lives in ddt_parse.c of course */
-
-#endif /* GRAS_DATADESC_PRIVATE_H */
-
diff --git a/src/gras_simix/DataDesc/gras_simix_ddt_convert.c b/src/gras_simix/DataDesc/gras_simix_ddt_convert.c
deleted file mode 100644 (file)
index fd20823..0000000
+++ /dev/null
@@ -1,269 +0,0 @@
-/* $Id$ */
-
-/* ddt_remote - Stuff needed to get datadescs about remote hosts            */
-
-/* Copyright (c) 2003 Olivier Aumage.                                       */
-/* Copyright (c) 2003, 2004 Martin Quinson.                                 */
-/* 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. */
-
-/************************************************************************/
-/* C combines the power of assembler with the portability of assembler. */
-/************************************************************************/
-
-#include "gras/DataDesc/datadesc_private.h"
-
-XBT_LOG_NEW_DEFAULT_SUBCATEGORY(gras_ddt_convert,gras_ddt,
-                                "Inter-architecture convertions");
-
-/***
- *** Table of all known architectures:
- ***
-  l_C:1/1:_I:2/2:4/4:4/4:8/8:_P:4/4:4/4:_D:4/4:8/8:) gras_arch=0; gras_arch_name=little32;;
-  l_C:1/1:_I:2/2:4/4:4/4:8/4:_P:4/4:4/4:_D:4/4:8/4:) gras_arch=1; gras_arch_name=little32_4;;
-  
-  l_C:1/1:_I:2/2:4/4:8/8:8/8:_P:8/8:8/8:_D:4/4:8/8:) gras_arch=2; gras_arch_name=little64;;
-  
-  B_C:1/1:_I:2/2:4/4:4/4:8/8:_P:4/4:4/4:_D:4/4:8/8:) gras_arch=3; gras_arch_name=big32;;
-  B_C:1/1:_I:2/2:4/4:4/4:8/8:_P:4/4:4/4:_D:4/4:8/4:) gras_arch=4; gras_arch_name=big32_8_4;;
-  B_C:1/1:_I:2/2:4/4:4/4:8/4:_P:4/4:4/4:_D:4/4:8/4:) gras_arch=5; gras_arch_name=big32_4;;
-  B_C:1/1:_I:2/2:4/2:4/2:8/2:_P:4/2:4/2:_D:4/2:8/2:) gras_arch=6; gras_arch_name=big32_2;;
-  
-  B_C:1/1:_I:2/2:4/4:8/8:8/8:_P:8/8:8/8:_D:4/4:8/8:) gras_arch=7; gras_arch_name=big64;;
-
- ***/
-
-const gras_arch_desc_t gras_arches[gras_arch_count] = {
-                               
-  {"little32_1",       0, {1,2,4,4,8,   4,4,   4,8},   /* little endian, 1 byte alignement (win32) */
-                       {1,1,1,1,1,   1,1,   1,1}},                                            
-  
-  {"little32_2",       0, {1,2,4,4,8,   4,4,   4,8},   /* little endian, 2 bytes alignements (win32) */
-                       {1,2,2,2,2,   2,2,   2,2}},           
-   
-  {"little32_4",    0, {1,2,4,4,8,   4,4,   4,8},   /* little endian, 4 bytes alignements (win32 and linux x86) */
-                       {1,2,4,4,4,   4,4,   4,4}},
-  
-  {"little32_8",    0, {1,2,4,4,8,   4,4,   4,8},      /* little endian, 8 bytes alignement (win32) */
-                       {1,2,4,4,8,   4,4,   4,8}},
-
-  {"little64",      0, {1,2,4,8,8,   8,8,   4,8}, /* alpha, ia64 */
-                       {1,2,4,8,8,   8,8,   4,8}},
-
-  {"big32_8",       1, {1,2,4,4,8,   4,4,   4,8}, 
-                       {1,2,4,4,8,   4,4,   4,8}},
-
-  {"big32_8_4",     1, {1,2,4,4,8,   4,4,   4,8}, /* AIX */
-                       {1,2,4,4,8,   4,4,   4,4}},
-
-  {"big32_4",       1, {1,2,4,4,8,   4,4,   4,8}, /* G5 */
-                       {1,2,4,4,4,   4,4,   4,4}},
-   
-  {"big32_2",       1, {1,2,4,4,8,   4,4,   4,8}, /* ARM */
-                       {1,2,2,2,2,   2,2,   2,2}},
-
-  {"big64",         1, {1,2,4,8,8,   8,8,   4,8}, /* sparc */
-                       {1,2,4,8,8,   8,8,   4,8}},
-   
-  {"big64_8_4",     1, {1,2,4,8,8,   8,8,   4,8}, /* aix with -maix64 */
-                       {1,2,4,8,8,   8,8,   4,4}}
-};
-
-const char *gras_datadesc_arch_name(int code) {
-   if (code < 0 || code >= gras_arch_count)
-     return "[unknown arch]";
-   return gras_arches[code].name;
-}
-
-
-/**
- * Local function doing the grunt work
- */
-static void
-gras_dd_reverse_bytes(void *to,
-                     const void *from,
-                     size_t length);
-
-/**
- * gras_dd_convert_elm:
- *
- * Convert the element described by @type comming from architecture @r_arch.
- * The data to be converted is stored in @src, and is to be stored in @dst.
- * Both pointers may be the same location if no resizing is needed.
- */
-void
-gras_dd_convert_elm(gras_datadesc_type_t type, int count,
-                   int r_arch, 
-                   void *src, void *dst) {
-  gras_dd_cat_scalar_t scal = type->category.scalar_data;
-  int cpt;
-  const void *r_data;
-  void *l_data;
-  unsigned long r_size, l_size;
-  /* Hexadecimal displayer
-  union {
-    char c[sizeof(int)];
-    int i;
-  } tester;
-  */
-
-  xbt_assert(type->category_code == e_gras_datadesc_type_cat_scalar);
-  xbt_assert(r_arch != GRAS_THISARCH);
-  
-  r_size = type->size[r_arch];
-  l_size = type->size[GRAS_THISARCH];
-  DEBUG4("r_size=%lu l_size=%lu,    src=%p dst=%p",
-        r_size,l_size,src,dst);
-
-  DEBUG2("remote=%c local=%c", gras_arches[r_arch].endian?'B':'l',
-        gras_arches[GRAS_THISARCH].endian?'B':'l');
-
-  if(r_size != l_size) {
-    for(cpt = 0, r_data = src, l_data = dst; 
-       cpt < count; 
-       cpt++, 
-         r_data = (char *)r_data + r_size,
-         l_data = (char *)l_data + l_size) {
-
-      /*
-      fprintf(stderr,"r_data=");
-      for (cpt=0; cpt<r_size; cpt++) {
-       tester.i=0;
-       tester.c[0]= ((char*)r_data)[cpt];
-       fprintf(stderr,"\\%02x", tester.i);
-      }
-      fprintf(stderr,"\n");
-      */
-
-      /* Resize that damn integer, pal */
-
-      unsigned char *l_sign, *r_sign;
-      int padding;
-      int sizeChange = l_size - r_size;
-      int lowOrderFirst = !gras_arches[r_arch].endian ||
-       gras_arches[r_arch].endian == gras_arches[GRAS_THISARCH].endian; 
-
-      DEBUG5("Resize integer %d from %lu @%p to %lu @%p",
-            cpt, r_size,r_data, l_size,l_data);
-      xbt_assert0(r_data != l_data, "Impossible to resize in place");
-
-      if(sizeChange < 0) {
-       DEBUG3("Truncate %d bytes (%s,%s)", -sizeChange,
-              lowOrderFirst?"lowOrderFirst":"bigOrderFirst",
-              scal.encoding == e_gras_dd_scalar_encoding_sint?"signed":"unsigned");
-       /* Truncate high-order bytes. */
-       memcpy(l_data, 
-              gras_arches[r_arch].endian ? ((char*)r_data-sizeChange)
-                                         :         r_data,
-              l_size);
-
-       if(scal.encoding == e_gras_dd_scalar_encoding_sint) {
-         DEBUG0("This is signed");
-         /* Make sure the high order bit of r_data and l_data are the same */
-         l_sign = gras_arches[GRAS_THISARCH].endian
-                ? ((unsigned char*)l_data + l_size - 1)
-                :  (unsigned char*)l_data;
-         r_sign = gras_arches[r_arch].endian
-                ? ((unsigned char*)r_data + r_size - 1)
-                :  (unsigned char*)r_data;
-         DEBUG2("This is signed (r_sign=%c l_sign=%c", *r_sign,*l_sign);
-
-         if ((*r_sign > 127) != (*l_sign > 127)) {
-           if(*r_sign > 127)
-             *l_sign += 128;
-           else
-             *l_sign -= 128;
-         }
-       }
-      } else {
-       DEBUG1("Extend %d bytes", sizeChange);
-       if (scal.encoding != e_gras_dd_scalar_encoding_sint) {
-         DEBUG0("This is signed");
-         padding = 0; /* pad unsigned with 0 */
-       } else {
-         /* extend sign */
-         r_sign = gras_arches[r_arch].endian ? ((unsigned char*)r_data + r_size - 1)
-                                             :  (unsigned char*)r_data;
-         padding = (*r_sign > 127) ? 0xff : 0;
-       }
-
-       memset(l_data, padding, l_size);
-       memcpy(!gras_arches[r_arch].endian ? l_data : ((char *)l_data + sizeChange), 
-              r_data, r_size);
-
-       /*
-       fprintf(stderr,"r_data=");
-       for (cpt=0; cpt<r_size; cpt++) {
-         tester.i=0;
-         tester.c[0] = ((char*)r_data)[cpt];
-         fprintf(stderr,"\\%02x", tester.i);
-       }
-       fprintf(stderr,"\n");
-
-       fprintf(stderr,"l_data=");
-       for (cpt=0; cpt<l_size; cpt++) {
-         tester.i=0;
-         tester.c[0]= ((char*)l_data)[cpt];
-         fprintf(stderr,"\\%02x", tester.i);
-       } fprintf(stderr,"\n");
-       */
-      }
-    }
-  }
-
-  /* flip bytes if needed */
-  if(gras_arches[r_arch].endian != gras_arches[GRAS_THISARCH].endian && 
-     (l_size * count)  > 1) {
-
-    for(cpt = 0, r_data=dst, l_data=dst;
-       cpt < count;
-       cpt++, 
-         r_data = (char *)r_data + l_size, /* resizing already done */
-         l_data = (char *)l_data + l_size) {                
-
-      DEBUG1("Flip elm %d",cpt);
-      gras_dd_reverse_bytes(l_data, r_data, l_size);
-    }
-  }
-
-}
-
-static void
-gras_dd_reverse_bytes(void *to,
-                     const void *from,
-                     size_t length) {
-
-  char charBegin;
-  const char *fromBegin;
-  const char *fromEnd;
-  char *toBegin;
-  char *toEnd;
-
-  for(fromBegin = (const char *)from, 
-       fromEnd = fromBegin + length - 1,
-       toBegin = (char *)to,
-       toEnd = toBegin + length - 1;
-
-      fromBegin <= fromEnd; 
-
-      fromBegin++, fromEnd--, 
-       toBegin++, toEnd--) {
-
-    charBegin = *fromBegin;
-    *toBegin = *fromEnd;
-    *toEnd = charBegin;
-  }
-}
-
-
-/**
- * gras_arch_selfid:
- *
- * returns the ID of the architecture the process is running on
- */
-int
-gras_arch_selfid(void) {
-  return GRAS_THISARCH;
-}
diff --git a/src/gras_simix/DataDesc/gras_simix_ddt_create.c b/src/gras_simix/DataDesc/gras_simix_ddt_create.c
deleted file mode 100644 (file)
index c720f9c..0000000
+++ /dev/null
@@ -1,1042 +0,0 @@
-/* $Id$ */
-
-/* ddt_new - creation/deletion of datatypes structs (private to this module)*/
-
-/* Copyright (c) 2003 Olivier Aumage.                                       */
-/* Copyright (c) 2003, 2004 Martin Quinson.                                 */
-/* 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. */
-
-#include "xbt/misc.h" /* min()/max() */
-#include "xbt/ex.h"
-#include "gras/DataDesc/datadesc_private.h"
-
-XBT_LOG_NEW_DEFAULT_SUBCATEGORY(gras_ddt_create,gras_ddt,"Creating new datadescriptions");
-
-/*** prototypes ***/
-static gras_dd_cat_field_t
-  gras_dd_find_field(gras_datadesc_type_t  type,
-                    const char           *field_name);
-/**
- * gras_ddt_freev:
- *
- * gime that memory back, dude. I mean it.
- */
-void gras_ddt_freev(void *ddt) {
-  gras_datadesc_type_t type= (gras_datadesc_type_t)ddt;
-  
-  if (type) {
-    gras_datadesc_free(&type);
-  }
-}
-
-static gras_datadesc_type_t gras_ddt_new(const char *name) {
-  gras_datadesc_type_t res;
-
-  XBT_IN1("(%s)",name);
-  res=xbt_new0(s_gras_datadesc_type_t,1);
-
-  res->name = (char*)strdup(name);
-  res->name_len = strlen(name);
-  res->cycle = 0;
-      
-  xbt_set_add(gras_datadesc_set_local,
-              (xbt_set_elm_t)res,&gras_ddt_freev);
-  XBT_OUT;
-  return res;
-}
-
-/** @brief retrieve an existing message type from its name (or NULL if it does not exist). */
-gras_datadesc_type_t gras_datadesc_by_name_or_null (const char *name) {
-  xbt_ex_t e;
-  gras_datadesc_type_t res = NULL;
-   
-  TRY {
-     res = gras_datadesc_by_name(name);
-  } CATCH(e) {
-     res = NULL;
-     xbt_ex_free(e);
-  }
-  return res;
-}
-/**
- * Search the given datadesc (or raises an exception if it can't be found)
- */
-gras_datadesc_type_t gras_datadesc_by_name(const char *name) {
-  xbt_ex_t e;
-  gras_datadesc_type_t res = NULL;
-  volatile int found = 0;
-  TRY {
-    res = (gras_datadesc_type_t)xbt_set_get_by_name(gras_datadesc_set_local,name);
-    found = 1;
-  } CATCH(e) {
-    if (e.category != not_found_error)
-      RETHROW;
-    xbt_ex_free(e);
-  }
-  if (!found)
-    THROW1(not_found_error,0,"No registred datatype of that name: %s",name);     
-   
-  return res;
-}
-
-/**
- * Retrieve a type from its code (or NULL if not found)
- */
-gras_datadesc_type_t gras_datadesc_by_id(long int code) {
-  xbt_ex_t e;
-  gras_datadesc_type_t res=NULL;
-  TRY {
-    res = (gras_datadesc_type_t)xbt_set_get_by_id(gras_datadesc_set_local,code);
-  } CATCH(e) {
-    if (e.category != not_found_error)
-      RETHROW;
-    xbt_ex_free(e);
-    res = NULL;
-  }
-  return res;
-}
-
-/**
- * Create a new scalar and give a pointer to it 
- */
-gras_datadesc_type_t 
-  gras_datadesc_scalar(const char                      *name,
-                      gras_ddt_scalar_type_t           type,
-                      enum e_gras_dd_scalar_encoding   encoding) {
-
-  gras_datadesc_type_t res;
-  long int arch;
-
-  XBT_IN;
-  res = gras_datadesc_by_name_or_null(name);
-  if (res) {
-    xbt_assert1(res->category_code == e_gras_datadesc_type_cat_scalar,
-                "Redefinition of type %s does not match", name);
-    xbt_assert1(res->category.scalar_data.encoding == encoding,
-                "Redefinition of type %s does not match", name);
-    xbt_assert1(res->category.scalar_data.type == type,
-                "Redefinition of type %s does not match", name);
-    VERB1("Discarding redefinition of %s",name);
-    return res;
-  } 
-  res = gras_ddt_new(name);
-
-  for (arch = 0; arch < gras_arch_count; arch ++) {
-    res->size[arch]         = gras_arches[arch].sizeofs[type];
-    res->alignment[arch]    = gras_arches[arch].boundaries[type];
-    res->aligned_size[arch] = ddt_aligned(res->size[arch], res->alignment[arch]);
-  }
-
-  res->category_code                 = e_gras_datadesc_type_cat_scalar;
-  res->category.scalar_data.encoding = encoding;
-  res->category.scalar_data.type     = type;
-  XBT_OUT;
-  
-  return res;
-}
-
-
-/** Frees one struct or union field */
-void gras_dd_cat_field_free(void *f) {
-  gras_dd_cat_field_t field = *(gras_dd_cat_field_t *)f;
-  XBT_IN;
-  if (field) {
-    if (field->name) 
-      free(field->name);
-    free(field);
-  }
-  XBT_OUT;
-}
-
-/** \brief Declare a new structure description */
-gras_datadesc_type_t 
-  gras_datadesc_struct(const char            *name) {
-
-  gras_datadesc_type_t res;
-  long int arch;
-  
-  XBT_IN1("(%s)",name);
-  res = gras_datadesc_by_name_or_null(name);
-  if (res) {
-    /* FIXME: Check that field redefinition matches */
-    xbt_assert1(res->category_code == e_gras_datadesc_type_cat_struct,
-                "Redefinition of type %s does not match", name);
-    VERB1("Discarding redefinition of %s",name);
-    return res;
-  }
-  res = gras_ddt_new(name);
-
-  for (arch=0; arch<gras_arch_count; arch ++) {
-    res->size[arch] = 0;
-    res->alignment[arch] = 0;
-    res->aligned_size[arch] = 0;
-  }
-  res->category_code = e_gras_datadesc_type_cat_struct;
-  res->category.struct_data.fields = 
-       xbt_dynar_new(sizeof(gras_dd_cat_field_t),
-                     &gras_dd_cat_field_free);
-
-  XBT_OUT;
-  return res;
-}
-
-/** \brief Append a new field to a structure description */
-void
-gras_datadesc_struct_append(gras_datadesc_type_t struct_type,
-                           const char          *name,
-                           gras_datadesc_type_t field_type) {
-
-  gras_dd_cat_field_t field;
-  int arch;
-
-  xbt_assert2(field_type,
-              "Cannot add the field '%s' into struct '%s': its type is NULL",
-              name,struct_type->name);
-  XBT_IN3("(%s %s.%s;)",field_type->name,struct_type->name,name);
-  if (struct_type->category.struct_data.closed) {
-    VERB1("Ignoring request to add field to struct %s (closed. Redefinition?)",
-         struct_type->name);
-    return;
-  }
-
-  xbt_assert1(field_type->size != 0,
-              "Cannot add a dynamically sized field in structure %s",
-              struct_type->name);
-    
-  field=xbt_new(s_gras_dd_cat_field_t,1);
-  field->name   = (char*)strdup(name);
-
-  DEBUG0("----------------");
-  DEBUG3("PRE s={size=%ld,align=%ld,asize=%ld}",
-        struct_type->size[GRAS_THISARCH], 
-        struct_type->alignment[GRAS_THISARCH], 
-        struct_type->aligned_size[GRAS_THISARCH]);
-     
-     
-  for (arch=0; arch<gras_arch_count; arch ++) {
-    field->offset[arch] = ddt_aligned(struct_type->size[arch],
-                                     field_type->alignment[arch]);
-
-    struct_type->size[arch] = field->offset[arch] + field_type->size[arch];
-    struct_type->alignment[arch] = max(struct_type->alignment[arch],
-                                      field_type->alignment[arch]);
-    struct_type->aligned_size[arch] = ddt_aligned(struct_type->size[arch],
-                                                 struct_type->alignment[arch]);
-  }
-  field->type   = field_type;
-  field->send   = NULL;
-  field->recv   = NULL;
-  
-  xbt_dynar_push(struct_type->category.struct_data.fields, &field);
-
-  DEBUG3("Push a %s into %s at offset %ld.",
-        field_type->name, struct_type->name,field->offset[GRAS_THISARCH]);
-  DEBUG3("  f={size=%ld,align=%ld,asize=%ld}",
-        field_type->size[GRAS_THISARCH], 
-        field_type->alignment[GRAS_THISARCH], 
-        field_type->aligned_size[GRAS_THISARCH]);
-  DEBUG3("  s={size=%ld,align=%ld,asize=%ld}",
-        struct_type->size[GRAS_THISARCH], 
-        struct_type->alignment[GRAS_THISARCH], 
-        struct_type->aligned_size[GRAS_THISARCH]);
-  XBT_OUT;
-}
-
-/** \brief Close a structure description
- * 
- * No new field can be added afterward, and it is mandatory to close the structure before using it.
- */
-void
-gras_datadesc_struct_close(gras_datadesc_type_t struct_type) {
-  XBT_IN;
-  struct_type->category.struct_data.closed = 1;
-  DEBUG4("structure %s closed. size=%ld,align=%ld,asize=%ld",
-        struct_type->name,
-        struct_type->size[GRAS_THISARCH], 
-        struct_type->alignment[GRAS_THISARCH], 
-        struct_type->aligned_size[GRAS_THISARCH]);
-}
-
-/**
- * gras_datadesc_cycle_set:
- * 
- * Tell GRAS that the pointers of the type described by ddt may present
- * some loop, and that the cycle detection mechanism is needed.
- *
- * Note that setting this option when not needed have a rather bad effect 
- * on the performance (several times slower on big data).
- */
-void
-gras_datadesc_cycle_set(gras_datadesc_type_t ddt) {
-  ddt->cycle = 1;
-}
-
-/**
- * gras_datadesc_cycle_unset:
- * 
- * Tell GRAS that the pointers of the type described by ddt do not present
- * any loop and that cycle detection mechanism are not needed.
- * (default)
- */
-void
-gras_datadesc_cycle_unset(gras_datadesc_type_t ddt) {
-  ddt->cycle = 0;
-}
-
-/** \brief Declare a new union description */
-gras_datadesc_type_t 
-  gras_datadesc_union(const char                   *name,
-                     gras_datadesc_type_cb_int_t   selector) {
-
-  gras_datadesc_type_t res;
-  int arch;
-
-  XBT_IN1("(%s)",name);
-  xbt_assert0(selector,
-              "Attempt to creat an union without field_count function");
-
-  res = gras_datadesc_by_name_or_null(name);
-  if (res) {
-    /* FIXME: Check that field redefinition matches */
-    xbt_assert1(res->category_code == e_gras_datadesc_type_cat_union,
-                "Redefinition of type %s does not match", name);
-    xbt_assert1(res->category.union_data.selector == selector,
-                "Redefinition of type %s does not match", name);
-    VERB1("Discarding redefinition of %s",name);
-    return res;
-  }
-
-  res = gras_ddt_new(name);
-
-  for (arch=0; arch<gras_arch_count; arch ++) {
-     res->size[arch] = 0;
-     res->alignment[arch] = 0;
-     res->aligned_size[arch] = 0;
-  }
-
-  res->category_code           = e_gras_datadesc_type_cat_union;
-  res->category.union_data.fields =
-     xbt_dynar_new(sizeof(gras_dd_cat_field_t*),
-                   &gras_dd_cat_field_free);
-  res->category.union_data.selector = selector;
-
-  return res;
-}
-
-/** \brief Append a new field to an union description */
-void gras_datadesc_union_append(gras_datadesc_type_t  union_type,
-                               const char           *name,
-                               gras_datadesc_type_t  field_type) {
-
-  gras_dd_cat_field_t field;
-  int arch;
-
-  XBT_IN3("(%s %s.%s;)",field_type->name,union_type->name,name);
-  xbt_assert1(field_type->size != 0,
-              "Cannot add a dynamically sized field in union %s",
-              union_type->name);
-
-  if (union_type->category.union_data.closed) {
-    VERB1("Ignoring request to add field to union %s (closed)",
-          union_type->name);
-    return;
-  }
-    
-  field=xbt_new0(s_gras_dd_cat_field_t,1);
-
-  field->name   = (char*)strdup(name);
-  field->type   = field_type;
-  /* All offset are left to 0 in an union */
-  
-  xbt_dynar_push(union_type->category.union_data.fields, &field);
-
-  for (arch=0; arch<gras_arch_count; arch ++) {
-    union_type->size[arch] = max(union_type->size[arch],
-                                field_type->size[arch]);
-    union_type->alignment[arch] = max(union_type->alignment[arch],
-                                     field_type->alignment[arch]);
-    union_type->aligned_size[arch] = ddt_aligned(union_type->size[arch],
-                                                union_type->alignment[arch]);
-  }
-}
-
-
-/** \brief Close an union description 
- *
- * No new field can be added afterward, and it is mandatory to close the union before using it.
- */
-void
-gras_datadesc_union_close(gras_datadesc_type_t union_type) {
-   union_type->category.union_data.closed = 1;
-}
-
-/** \brief Declare a new type being a reference to the one passed in arg */
-gras_datadesc_type_t 
-  gras_datadesc_ref(const char           *name,
-                   gras_datadesc_type_t  referenced_type) {
-
-  gras_datadesc_type_t res;
-  gras_datadesc_type_t pointer_type = gras_datadesc_by_name("data pointer");
-  int arch;
-
-  XBT_IN1("(%s)",name);
-  res = gras_datadesc_by_name_or_null(name);
-  if (res) {
-    xbt_assert1(res->category_code == e_gras_datadesc_type_cat_ref,
-                "Redefinition of %s does not match",name);
-    xbt_assert1(res->category.ref_data.type == referenced_type,
-                "Redefinition of %s does not match",name);
-    xbt_assert1(res->category.ref_data.selector == NULL,
-                "Redefinition of %s does not match",name);
-    VERB1("Discarding redefinition of %s",name);
-    return res;
-  }
-
-  res = gras_ddt_new(name);
-
-  xbt_assert0(pointer_type, "Cannot get the description of data pointer");
-      
-  for (arch=0; arch<gras_arch_count; arch ++){
-    res->size[arch] = pointer_type->size[arch];
-    res->alignment[arch] = pointer_type->alignment[arch];
-    res->aligned_size[arch] = pointer_type->aligned_size[arch];
-  }
-  
-  res->category_code             = e_gras_datadesc_type_cat_ref;
-  res->category.ref_data.type     = referenced_type;
-  res->category.ref_data.selector = NULL;
-
-  return res;
-}
-/** \brief Declare a new type being a generic reference.
- * 
- * The callback passed in argument is to be used to select which type is currently used.
- * So, when GRAS wants to send a generic reference, it passes the current data to the selector 
- * callback and expects it to return the type description to use. 
- */
-gras_datadesc_type_t 
-  gras_datadesc_ref_generic(const char                *name,
-                           gras_datadesc_selector_t   selector) {
-
-  gras_datadesc_type_t res;
-  gras_datadesc_type_t pointer_type = gras_datadesc_by_name("data pointer");
-  int arch;
-
-  XBT_IN1("(%s)",name);
-  res = gras_datadesc_by_name_or_null(name);
-
-  if (res) {
-    xbt_assert1(res->category_code == e_gras_datadesc_type_cat_ref,
-                "Redefinition of type %s does not match", name);
-    xbt_assert1(res->category.ref_data.type == NULL,
-                "Redefinition of type %s does not match", name);
-    xbt_assert1(res->category.ref_data.selector == selector,
-                "Redefinition of type %s does not match", name);
-    VERB1("Discarding redefinition of %s",name);
-    return res;
-  }
-  res = gras_ddt_new(name);
-
-  xbt_assert0(pointer_type, "Cannot get the description of data pointer");
-      
-  for (arch=0; arch<gras_arch_count; arch ++) {
-    res->size[arch] = pointer_type->size[arch];
-    res->alignment[arch] = pointer_type->alignment[arch];
-    res->aligned_size[arch] = pointer_type->aligned_size[arch];
-  }
-
-  res->category_code           = e_gras_datadesc_type_cat_ref;
-
-  res->category.ref_data.type     = NULL;
-  res->category.ref_data.selector = selector;
-
-  return res;
-}
-
-/** \brief Declare a new type being an array of fixed size and content */
-gras_datadesc_type_t 
-  gras_datadesc_array_fixed(const char           *name,
-                           gras_datadesc_type_t  element_type,
-                           long int              fixed_size) {
-
-  gras_datadesc_type_t res;
-  int arch;
-
-  XBT_IN1("(%s)",name);
-  res = gras_datadesc_by_name_or_null(name);
-  if (res) {
-    xbt_assert1(res->category_code == e_gras_datadesc_type_cat_array,
-                "Redefinition of type %s does not match", name);
-     
-    if (res->category.array_data.type != element_type) {
-       ERROR1("Redefinition of type %s does not match: array elements differ", name);
-       gras_datadesc_type_dump(res->category.array_data.type);
-       gras_datadesc_type_dump(element_type);
-    }
-     
-    xbt_assert1(res->category.array_data.fixed_size == fixed_size,
-                "Redefinition of type %s does not match", name);
-    xbt_assert1(res->category.array_data.dynamic_size == NULL,
-                "Redefinition of type %s does not match", name);
-    VERB1("Discarding redefinition of %s",name);
-
-    return res;
-  }
-  res = gras_ddt_new(name);
-
-  xbt_assert1(fixed_size > 0, "'%s' is a array of null fixed size",name);
-  for (arch=0; arch<gras_arch_count; arch ++) {
-    res->size[arch] = fixed_size * element_type->aligned_size[arch];
-    res->alignment[arch] = element_type->alignment[arch];
-    res->aligned_size[arch] = res->size[arch];
-  }  
-
-  res->category_code           = e_gras_datadesc_type_cat_array;
-
-  res->category.array_data.type         = element_type;
-  res->category.array_data.fixed_size   = fixed_size;
-  res->category.array_data.dynamic_size = NULL;
-
-  return res;
-}
-
-/** \brief Declare a new type being an array of fixed size, but accepting several content types. */
-gras_datadesc_type_t gras_datadesc_array_dyn(const char                 *name,
-                                            gras_datadesc_type_t        element_type,
-                                            gras_datadesc_type_cb_int_t dynamic_size) {
-
-  gras_datadesc_type_t res;
-  int arch;
-
-  XBT_IN1("(%s)",name);
-  xbt_assert1(dynamic_size,
-              "'%s' is a dynamic array without size discriminant",
-              name);
-
-  res = gras_datadesc_by_name_or_null(name);
-  if (res) {
-    xbt_assert1(res->category_code == e_gras_datadesc_type_cat_array,
-                "Redefinition of type %s does not match", name);
-    xbt_assert1(res->category.array_data.type == element_type,
-                "Redefinition of type %s does not match", name);
-    xbt_assert1(res->category.array_data.fixed_size == 0,
-                "Redefinition of type %s does not match", name);
-    xbt_assert1(res->category.array_data.dynamic_size == dynamic_size,
-                "Redefinition of type %s does not match", name);
-    VERB1("Discarding redefinition of %s",name);
-
-    return res;
-  }
-
-  res = gras_ddt_new(name);
-
-  for (arch=0; arch<gras_arch_count; arch ++) {
-    res->size[arch] = 0; /* make sure it indicates "dynamic" */
-    res->alignment[arch] = element_type->alignment[arch];
-    res->aligned_size[arch] = 0; /*FIXME: That was so in GS, but looks stupid*/
-  }
-
-  res->category_code           = e_gras_datadesc_type_cat_array;
-
-  res->category.array_data.type         = element_type;
-  res->category.array_data.fixed_size   = 0;
-  res->category.array_data.dynamic_size = dynamic_size;
-
-  return res;
-}
-
-/** \brief Declare a new type being an array which size can be found with \ref gras_cbps_i_pop 
- * 
- * Most of the time, you want to include a reference in your structure which
- * is a pointer to a dynamic array whose size is fixed by another field of 
- * your structure.
- *
- * This case pops up so often that this function was created to take care of
- * this case. It creates a dynamic array type whose size is poped from the 
- * current cbps, and then create a reference to it.
- *
- * The name of the created datatype will be the name of the element type, with
- * '[]*' appended to it.
- *
- * Then to use it, you just have to make sure that your structure pre-callback
- * does push the size of the array in the cbps (using #gras_cbps_i_push), and 
- * you are set. 
- *
- * But be remember that this is a stack. If you have two different pop_arr, you
- * should push the second one first, so that the first one is on the top of the 
- * list when the first field gets transfered.
- *
- */
-gras_datadesc_type_t 
-  gras_datadesc_ref_pop_arr(gras_datadesc_type_t element_type) {
-
-  gras_datadesc_type_t res;
-  char *name=(char*)xbt_malloc(strlen(element_type->name) + 4);
-
-  sprintf(name,"%s[]",element_type->name);
-
-  res = gras_datadesc_array_dyn(name,element_type,
-                               gras_datadesc_cb_pop);
-
-  sprintf(name,"%s[]*",element_type->name);
-  res = gras_datadesc_ref(name,res);
-
-  free(name);
-
-  return res;
-}
-
-/*
- *##
- *## Constructor of container datatypes
- *##
- */
-
-#include "xbt/dynar_private.h"
-static void gras_datadesc_dynar_cb(gras_datadesc_type_t typedesc, gras_cbps_t vars, void *data) {
-  gras_datadesc_type_t subtype;
-  xbt_dynar_t dynar=(xbt_dynar_t)data;
-   
-  memcpy(&dynar->free_f, &typedesc->extra, sizeof(dynar->free_f));
-
-  /* search for the elemsize in what we have. If elements are "int", typedesc got is "int[]*" */
-  subtype = gras_dd_find_field(typedesc,"data")->type;
-  
-  /* this is now a ref to array of what we're looking for */
-  subtype = subtype->category.ref_data.type;
-  subtype = subtype->category.array_data.type;
-   
-  DEBUG1("subtype is %s",subtype->name);
-
-  dynar->elmsize = subtype->size[GRAS_THISARCH];
-  dynar->size = dynar->used;
-}
-
-/** \brief Declare a new type being a dynar in which each elements are of the given type
- * 
- *  The type gets registered under the name "dynar(%s)_s", where %s is the name of the subtype.
- *  For example, a dynar of doubles will be called "dynar(double)_s" and a dynar of dynar of 
- *  strings will be called "dynar(dynar(string)_s)_s".
- * 
- *  \param elm_t: the datadesc of the elements
- *  \param free_func: the function to use to free the elements when the dynar gets freed
- */
-gras_datadesc_type_t
-gras_datadesc_dynar(gras_datadesc_type_t elm_t,
-                   void_f_pvoid_t *free_func) {
-   
-  char *buffname;
-  gras_datadesc_type_t res;
-  
-  asprintf(&buffname,"dynar(%s)_s",elm_t->name);
-   
-  res = gras_datadesc_struct(buffname);
-  
-  gras_datadesc_struct_append(res, "size",    
-                             gras_datadesc_by_name("unsigned long int"));
-   
-  gras_datadesc_struct_append(res, "used",    
-                             gras_datadesc_by_name("unsigned long int"));
-   
-  gras_datadesc_struct_append(res, "elmsize", 
-                             gras_datadesc_by_name("unsigned long int"));
-   
-  gras_datadesc_struct_append(res, "data",    
-                             gras_datadesc_ref_pop_arr (elm_t));
-
-  gras_datadesc_struct_append(res, "free_f",  
-                             gras_datadesc_by_name("function pointer"));
-  memcpy(res->extra,&free_func,sizeof(free_func));
-      
-  gras_datadesc_struct_close(res);
-   
-  gras_datadesc_cb_field_push(res, "used");
-  gras_datadesc_cb_recv(res,  &gras_datadesc_dynar_cb);
-
-  /* build a ref to it */
-  free(buffname);
-  asprintf(&buffname,"dynar(%s)",elm_t->name);
-  res=gras_datadesc_ref(buffname,res);
-  free(buffname);
-  return res;
-}
-
-#include "xbt/matrix.h"
-static void gras_datadesc_matrix_cb(gras_datadesc_type_t typedesc, gras_cbps_t vars, void *data) {
-  gras_datadesc_type_t subtype;
-  xbt_matrix_t matrix=(xbt_matrix_t)data;
-   
-  memcpy(&matrix->free_f, &typedesc->extra, sizeof(matrix->free_f));
-
-  /* search for the elemsize in what we have. If elements are "int", typedesc got is "int[]*" */
-  subtype = gras_dd_find_field(typedesc,"data")->type;
-  
-  /* this is now a ref to array of what we're looking for */
-  subtype = subtype->category.ref_data.type;
-  subtype = subtype->category.array_data.type;
-   
-  DEBUG1("subtype is %s",subtype->name);
-
-  matrix->elmsize = subtype->size[GRAS_THISARCH];
-}
-gras_datadesc_type_t
-gras_datadesc_matrix(gras_datadesc_type_t elm_t,
-                    void_f_pvoid_t * const free_f) {
-  char *buffname;
-  gras_datadesc_type_t res;
-
-  asprintf(&buffname,"s_xbt_matrix_t(%s)",elm_t->name);   
-  res = gras_datadesc_struct(buffname);
-  
-  gras_datadesc_struct_append(res, "lines",    
-                             gras_datadesc_by_name("unsigned int"));
-  gras_datadesc_struct_append(res, "rows",    
-                             gras_datadesc_by_name("unsigned int"));
-   
-  gras_datadesc_struct_append(res, "elmsize", 
-                             gras_datadesc_by_name("unsigned long int"));
-   
-  gras_datadesc_struct_append(res, "data",    
-                             gras_datadesc_ref_pop_arr (elm_t));
-  gras_datadesc_struct_append(res, "free_f",  
-                             gras_datadesc_by_name("function pointer"));      
-  gras_datadesc_struct_close(res);
-    
-  gras_datadesc_cb_field_push(res, "lines");
-  gras_datadesc_cb_field_push_multiplier(res, "rows");
-
-  gras_datadesc_cb_recv(res,  &gras_datadesc_matrix_cb);
-  memcpy(res->extra,&free_f,sizeof(free_f));
-
-  /* build a ref to it */
-  free(buffname);
-  asprintf(&buffname,"xbt_matrix_t(%s)",elm_t->name);
-  res=gras_datadesc_ref(buffname,res);
-  free(buffname);
-  return res;
-}
-
-gras_datadesc_type_t
-gras_datadesc_import_nws(const char           *name,
-                        const DataDescriptor *desc,
-                        unsigned long         howmany) {
-  THROW_UNIMPLEMENTED;
-}
-
-/**
- * (useful to push the sizes of the upcoming arrays, for example)
- */
-void gras_datadesc_cb_send (gras_datadesc_type_t          type,
-                           gras_datadesc_type_cb_void_t  send) {
-  type->send = send;
-}
-/**
- * (useful to put the function pointers to the rigth value, for example)
- */
-void gras_datadesc_cb_recv(gras_datadesc_type_t          type,
-                          gras_datadesc_type_cb_void_t  recv) {
-  type->recv = recv;
-}
-/*
- * gras_dd_find_field:
- * 
- * Returns the type descriptor of the given field. Abort on error.
- */
-static gras_dd_cat_field_t
-  gras_dd_find_field(gras_datadesc_type_t  type,
-                    const char           *field_name) {
-   xbt_dynar_t         field_array;
-   
-   gras_dd_cat_field_t  field=NULL;
-   int                  field_num;
-   
-   if (type->category_code == e_gras_datadesc_type_cat_union) {
-      field_array = type->category.union_data.fields;
-   } else if (type->category_code == e_gras_datadesc_type_cat_struct) {
-      field_array = type->category.struct_data.fields;
-   } else {
-      ERROR2("%s (%p) is not a struct nor an union. There is no field.", type->name,(void*)type);
-      xbt_abort();
-   }
-   xbt_dynar_foreach(field_array,field_num,field) {
-      if (!strcmp(field_name,field->name)) {
-        return field;
-      }
-   }
-   ERROR2("No field named '%s' in '%s'",field_name,type->name);
-   xbt_abort();
-
-}
-                                 
-/**
- * The given datadesc must be a struct or union (abort if not).
- * (useful to push the sizes of the upcoming arrays, for example)
- */
-void gras_datadesc_cb_field_send (gras_datadesc_type_t          type,
-                                 const char                   *field_name,
-                                 gras_datadesc_type_cb_void_t  send) {
-   
-   gras_dd_cat_field_t field=gras_dd_find_field(type,field_name);   
-   field->send = send;
-}
-
-
-/**
- * The value, which must be an int, unsigned int, long int or unsigned long int
- * is pushed to the stacks of sizes and can then be retrieved with 
- * \ref gras_datadesc_ref_pop_arr or directly with \ref gras_cbps_i_pop.
- */
-void gras_datadesc_cb_field_push (gras_datadesc_type_t  type,
-                                 const char           *field_name) {
-   
-   gras_dd_cat_field_t  field=gras_dd_find_field(type,field_name);
-   gras_datadesc_type_t sub_type=field->type;
-   
-   DEBUG3("add a PUSHy cb to '%s' field (type '%s') of '%s'",
-         field_name,sub_type->name,type->name);
-   if (!strcmp("int",sub_type->name)) {
-      field->send = gras_datadesc_cb_push_int;
-   } else if (!strcmp("unsigned int",sub_type->name)) {
-      field->send = gras_datadesc_cb_push_uint;
-   } else if (!strcmp("long int",sub_type->name)) {
-      field->send = gras_datadesc_cb_push_lint;
-   } else if (!strcmp("unsigned long int",sub_type->name)) {
-      field->send = gras_datadesc_cb_push_ulint;
-   } else {
-      ERROR1("Field %s is not an int, unsigned int, long int neither unsigned long int",
-            sub_type->name);
-      xbt_abort();
-   }
-}
-
-/**
- * Any previously pushed value is poped and the field value is multiplied to
- * it. The result is then pushed back into the stack of sizes. It can then be
- * retrieved with \ref gras_datadesc_ref_pop_arr or directly with \ref
- * gras_cbps_i_pop.
- *
- * The field must be an int, unsigned int, long int or unsigned long int.
- */
-void gras_datadesc_cb_field_push_multiplier (gras_datadesc_type_t  type,
-                                            const char         *field_name) {
-   
-   gras_dd_cat_field_t  field=gras_dd_find_field(type,field_name);
-   gras_datadesc_type_t sub_type=field->type;
-   
-   DEBUG3("add a MPUSHy cb to '%s' field (type '%s') of '%s'",
-         field_name,sub_type->name,type->name);
-   if (!strcmp("int",sub_type->name)) {
-      field->send = gras_datadesc_cb_push_int_mult;
-   } else if (!strcmp("unsigned int",sub_type->name)) {
-      field->send = gras_datadesc_cb_push_uint_mult;
-   } else if (!strcmp("long int",sub_type->name)) {
-      field->send = gras_datadesc_cb_push_lint_mult;
-   } else if (!strcmp("unsigned long int",sub_type->name)) {
-      field->send = gras_datadesc_cb_push_ulint_mult;
-   } else {
-      ERROR1("Field %s is not an int, unsigned int, long int neither unsigned long int",
-            sub_type->name);
-      xbt_abort();
-   }
-}
-
-/**
- * The given datadesc must be a struct or union (abort if not).
- * (useful to put the function pointers to the right value, for example)
- */
-void gras_datadesc_cb_field_recv(gras_datadesc_type_t          type,
-                                const char                   *field_name,
-                                gras_datadesc_type_cb_void_t  recv) {
-   
-   gras_dd_cat_field_t field=gras_dd_find_field(type,field_name);   
-   field->recv = recv;
-}
-
-/*
- * Free a datadesc. Should only be called at xbt_exit. 
- */
-void gras_datadesc_free(gras_datadesc_type_t *type) {
-
-  DEBUG1("Let's free ddt %s",(*type)->name);
-  
-  switch ((*type)->category_code) {
-  case e_gras_datadesc_type_cat_scalar:
-  case e_gras_datadesc_type_cat_ref:
-  case e_gras_datadesc_type_cat_array:
-    /* nothing to free in there */
-    break;
-    
-  case e_gras_datadesc_type_cat_struct:
-    xbt_dynar_free(&( (*type)->category.struct_data.fields ));
-    break;
-    
-  case e_gras_datadesc_type_cat_union:
-    xbt_dynar_free(&( (*type)->category.union_data.fields ));
-    break;
-    
-  default:
-    /* datadesc was invalid. Killing it is like euthanasy, I guess */
-    break;
-  }
-  free((*type)->name);
-  free(*type);
-  type=NULL;
-}
-
-/**
- * gras_datadesc_type_cmp:
- *
- * Compares two datadesc types with the same semantic than strcmp.
- *
- * This comparison does not take the set headers into account (name and ID), 
- * but only the payload (actual type description).
- */
-int gras_datadesc_type_cmp(const gras_datadesc_type_t d1,
-                          const gras_datadesc_type_t d2) {
-  int ret,cpt;
-  gras_dd_cat_field_t field1,field2;
-  gras_datadesc_type_t field_desc_1,field_desc_2;
-
-  if (d1 == d2) return 0; /* easy optimization */
-
-  if (!d1 && d2) {
-    DEBUG0("ddt_cmp: !d1 && d2 => 1");
-    return 1;
-  }
-  if (!d1 && !d2) {
-    DEBUG0("ddt_cmp: !d1 && !d2 => 0");
-    return 0;
-  }
-  if ( d1 && !d2) {
-    DEBUG0("ddt_cmp: d1 && !d2 => -1");
-    return -1;
-  }
-
-  for (cpt=0; cpt<gras_arch_count; cpt++) {
-    if (d1->size[cpt] != d2->size[cpt]) {
-      DEBUG5("ddt_cmp: %s->size=%ld  !=  %s->size=%ld (on %s)",
-            d1->name,d1->size[cpt],d2->name,d2->size[cpt],
-            gras_arches[cpt].name);
-      return d1->size[cpt] >  d2->size[cpt] ? 1 : -1;
-    }
-
-    if (d1->alignment[cpt] != d2->alignment[cpt]) {
-      DEBUG5("ddt_cmp: %s->alignment=%ld  !=  %s->alignment=%ld (on %s)",
-            d1->name,d1->alignment[cpt],d2->name,d2->alignment[cpt],
-            gras_arches[cpt].name);
-      return d1->alignment[cpt] > d2->alignment[cpt] ? 1 : -1;
-    }
-
-    if (d1->aligned_size[cpt] != d2->aligned_size[cpt]) {
-      DEBUG5("ddt_cmp: %s->aligned_size=%ld  !=  %s->aligned_size=%ld (on %s)",
-            d1->name,d1->aligned_size[cpt],d2->name,d2->aligned_size[cpt],
-            gras_arches[cpt].name);
-      return d1->aligned_size[cpt] > d2->aligned_size[cpt] ? 1 : -1;
-    }
-  }
-
-  if (d1->category_code != d2->category_code) {
-    DEBUG4("ddt_cmp: %s->cat=%s  !=  %s->cat=%s",
-          d1->name,gras_datadesc_cat_names[d1->category_code],
-          d2->name,gras_datadesc_cat_names[d2->category_code]);
-    return d1->category_code > d2->category_code ? 1 : -1;
-  }
-
-  if (d1->send != d2->send) {
-    DEBUG4("ddt_cmp: %s->send=%p  !=  %s->send=%p",
-          d1->name,(void*)d1->send, d2->name,(void*)d2->send);
-    return 1; /* ISO C forbids ordered comparisons of pointers to functions */
-  }
-
-  if (d1->recv != d2->recv) {
-    DEBUG4("ddt_cmp: %s->recv=%p  !=  %s->recv=%p",
-          d1->name,(void*)d1->recv, d2->name,(void*)d2->recv);
-    return 1; /* ISO C forbids ordered comparisons of pointers to functions */
-  }
-
-  switch (d1->category_code) {
-  case e_gras_datadesc_type_cat_scalar:
-    if (d1->category.scalar_data.encoding != d2->category.scalar_data.encoding)
-      return d1->category.scalar_data.encoding > d2->category.scalar_data.encoding ? 1 : -1 ;
-    break;
-    
-  case e_gras_datadesc_type_cat_struct:    
-    if (xbt_dynar_length(d1->category.struct_data.fields) != 
-       xbt_dynar_length(d2->category.struct_data.fields)) {
-      DEBUG4("ddt_cmp: %s (having %lu fields) !=  %s (having %lu fields)",
-            d1->name, xbt_dynar_length(d1->category.struct_data.fields),
-            d2->name, xbt_dynar_length(d2->category.struct_data.fields));
-      
-      return xbt_dynar_length(d1->category.struct_data.fields) >
-       xbt_dynar_length(d2->category.struct_data.fields) ?
-       1 : -1;
-    }
-    xbt_dynar_foreach(d1->category.struct_data.fields, cpt, field1) {
-      
-      field2 = xbt_dynar_get_as(d2->category.struct_data.fields, cpt, gras_dd_cat_field_t);
-      field_desc_1 = field1->type;
-      field_desc_2 = field2->type;
-      ret = gras_datadesc_type_cmp(field_desc_1,field_desc_2);
-      if (ret) {
-       DEBUG6("%s->field[%d]=%s != %s->field[%d]=%s",
-              d1->name,cpt,field1->name,              
-              d2->name,cpt,field2->name);
-       return ret;
-      }
-      
-    }
-    break;
-    
-  case e_gras_datadesc_type_cat_union:
-    if (d1->category.union_data.selector != d2->category.union_data.selector) 
-      return 1;  /* ISO C forbids ordered comparisons of pointers to functions */
-    
-    if (xbt_dynar_length(d1->category.union_data.fields) != 
-       xbt_dynar_length(d2->category.union_data.fields))
-      return xbt_dynar_length(d1->category.union_data.fields) >
-            xbt_dynar_length(d2->category.union_data.fields) ?
-       1 : -1;
-    
-    xbt_dynar_foreach(d1->category.union_data.fields, cpt, field1) {
-      
-      field2 = xbt_dynar_get_as(d2->category.union_data.fields, cpt, gras_dd_cat_field_t);
-      field_desc_1 = field1->type;
-      field_desc_2 = field2->type;
-      ret = gras_datadesc_type_cmp(field_desc_1,field_desc_2);
-      if (ret)
-       return ret;
-      
-    }
-    break;
-    
-    
-  case e_gras_datadesc_type_cat_ref:
-    if (d1->category.ref_data.selector != d2->category.ref_data.selector) 
-      return 1; /* ISO C forbids ordered comparisons of pointers to functions */
-    
-    if (d1->category.ref_data.type != d2->category.ref_data.type) 
-      return d1->category.ref_data.type > d2->category.ref_data.type ? 1 : -1;
-    break;
-    
-  case e_gras_datadesc_type_cat_array:
-    if (d1->category.array_data.type != d2->category.array_data.type) 
-      return d1->category.array_data.type > d2->category.array_data.type ? 1 : -1;
-    
-    if (d1->category.array_data.fixed_size != d2->category.array_data.fixed_size) 
-      return d1->category.array_data.fixed_size > d2->category.array_data.fixed_size ? 1 : -1;
-    
-    if (d1->category.array_data.dynamic_size != d2->category.array_data.dynamic_size) 
-      return 1; /* ISO C forbids ordered comparisons of pointers to functions */
-    
-    break;
-    
-  default:
-    /* two stupidly created ddt are equally stupid ;) */
-    break;
-  }
-  return 0;
-  
-}
diff --git a/src/gras_simix/DataDesc/gras_simix_ddt_exchange.c b/src/gras_simix/DataDesc/gras_simix_ddt_exchange.c
deleted file mode 100644 (file)
index 8c15e20..0000000
+++ /dev/null
@@ -1,972 +0,0 @@
-/* $Id$ */
-
-/* ddt_exchange - send/recv data described                                  */
-
-/* Copyright (c) 2003 Olivier Aumage.                                       */
-/* Copyright (c) 2003, 2004, 2005 Martin Quinson.                           */
-/* 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. */
-
-#include "xbt/ex.h"
-#include "gras/DataDesc/datadesc_private.h"
-#include "gras/Transport/transport_interface.h" /* gras_trp_send/recv */
-
-XBT_LOG_NEW_DEFAULT_SUBCATEGORY(gras_ddt_exchange,gras_ddt,
-                                "Sending data over the network");
-const char *gras_datadesc_cat_names[9] = { 
-  "undefined", 
-  "scalar", "struct", "union", "ref", "array", "ignored",
-  "invalid"};
-
-static gras_datadesc_type_t int_type = NULL;
-static gras_datadesc_type_t pointer_type = NULL;    
-
-static XBT_INLINE void
-gras_dd_send_int(gras_socket_t sock,int *i, int stable) {
-
-  if (!int_type) {
-    int_type = gras_datadesc_by_name("int");
-     xbt_assert(int_type);  
-  }
-   
-  DEBUG1("send_int(%d)",*i);
-  gras_trp_send(sock, (char*)i, int_type->size[GRAS_THISARCH], stable);
-}
-
-static XBT_INLINE void
-gras_dd_recv_int(gras_socket_t sock, int r_arch, int *i) {
-
-  if (!int_type) {
-     int_type = gras_datadesc_by_name("int");
-     xbt_assert(int_type);
-  }
-
-  if (int_type->size[GRAS_THISARCH] >= int_type->size[r_arch]) {
-    gras_trp_recv(sock, (char*)i, int_type->size[r_arch]);
-    if (r_arch != GRAS_THISARCH)
-      gras_dd_convert_elm(int_type,1,r_arch, i,i);
-  } else {
-    void *ptr = xbt_malloc(int_type->size[r_arch]);
-
-    gras_trp_recv(sock, (char*)ptr, int_type->size[r_arch]);
-    if (r_arch != GRAS_THISARCH)
-      gras_dd_convert_elm(int_type,1,r_arch, ptr,i);
-    free(ptr);
-  }
-  DEBUG1("recv_int(%d)",*i);
-}
-
-/*
- * Note: here we suppose that the remote NULL is a sequence 
- *       of 'length' bytes set to 0.
- * FIXME: Check in configure?
- */
-static XBT_INLINE int 
-gras_dd_is_r_null(char **r_ptr, long int length) {
-  int i;
-
-  for (i=0; i<length; i++) {
-    if ( ((unsigned char*)r_ptr) [i]) {
-      return 0;
-    }
-  }
-
-  return 1;
-}
-
-static XBT_INLINE void
-gras_dd_alloc_ref(xbt_dict_t  refs,
-                 long int     size,
-                 char       **r_ref,
-                 long int     r_len, /* pointer_type->size[r_arch] */
-                 char       **l_ref,
-                 int          detect_cycle) {
-  char *l_data = NULL;
-
-  xbt_assert1(size>0,"Cannot allocate %ld bytes!", size);
-  l_data = xbt_malloc((size_t)size);
-
-  *l_ref = l_data;
-  DEBUG5("alloc_ref: l_data=%p, &l_data=%p; r_ref=%p; *r_ref=%p, r_len=%ld",
-        (void*)l_data,(void*)&l_data,
-        (void*)r_ref, (void*)(r_ref?*r_ref:NULL), r_len);
-  if (detect_cycle && r_ref && !gras_dd_is_r_null( r_ref, r_len)) {
-    void *ptr = xbt_malloc(sizeof(void *));
-
-    memcpy(ptr,l_ref, sizeof(void *));
-
-    DEBUG2("Insert l_ref=%p under r_ref=%p",*(void**)ptr, *(void**)r_ref);
-     
-    if (detect_cycle)
-       xbt_dict_set_ext(refs,(const char *) r_ref, r_len, ptr, xbt_free_f);
-  }
-}
-
-static int
-gras_datadesc_copy_rec(gras_cbps_t           state,
-                      xbt_dict_t            refs,
-                      gras_datadesc_type_t  type, 
-                      char                 *src,
-                      char                 *dst,
-                      int                   subsize,
-                      int                   detect_cycle) {
-
-
-  xbt_ex_t             e;
-  int                  cpt;
-  gras_datadesc_type_t sub_type; /* type on which we recurse */
-  int count = 0;
-
-  VERB4("Copy a %s (%s) from %p to %p", 
-       type->name, gras_datadesc_cat_names[type->category_code],
-       src,dst);       
-   
-  if (type->send) {
-    type->send(type,state,src);
-  }
-
-  switch (type->category_code) {
-  case e_gras_datadesc_type_cat_scalar:
-    memcpy(dst,src,type->size[GRAS_THISARCH]);
-    count += type->size[GRAS_THISARCH];
-    break;
-
-  case e_gras_datadesc_type_cat_struct: {
-    gras_dd_cat_struct_t struct_data;
-    gras_dd_cat_field_t  field;
-    char                *field_src;
-    char                *field_dst;
-    
-    struct_data = type->category.struct_data;
-    xbt_assert1(struct_data.closed,
-      "Please call gras_datadesc_declare_struct_close on %s before copying it",
-               type->name);
-    VERB1(">> Copy all fields of the structure %s",type->name);
-    xbt_dynar_foreach(struct_data.fields, cpt, field) {
-      field_src = src + field->offset[GRAS_THISARCH];
-      field_dst = dst + field->offset[GRAS_THISARCH];
-      
-      sub_type = field->type;
-      
-      if (field->send)
-       field->send(type,state,field_src);
-      
-      DEBUG1("Copy field %s",field->name);
-      count += gras_datadesc_copy_rec(state,refs,sub_type, field_src, field_dst, 0,
-                                     detect_cycle || sub_type->cycle);
-       
-       if (XBT_LOG_ISENABLED(gras_ddt_exchange,xbt_log_priority_verbose)) {
-         if (sub_type == gras_datadesc_by_name("unsigned int")) {
-            VERB2("Copied value for field '%s': %d (type: unsigned int)",field->name, *(unsigned int*)field_dst);
-         } else if (sub_type == gras_datadesc_by_name("int")) {
-            VERB2("Copied value for field '%s': %d (type: int)",field->name, *(int*)field_dst);
-            
-         } else if (sub_type == gras_datadesc_by_name("unsigned long int")) {
-            VERB2("Copied value for field '%s': %ld (type: unsigned long int)",field->name, *(unsigned long int*)field_dst);
-         } else if (sub_type == gras_datadesc_by_name("long int")) {
-            VERB2("Copied value for field '%s': %ld (type: long int)",field->name, *(long int*)field_dst);
-
-         } else if (sub_type == gras_datadesc_by_name("string")) {
-            VERB2("Copied value for field '%s': '%s' (type: string)", field->name, *(char**)field_dst);         
-         } else {
-            VERB1("Copied a value for field '%s' (type not scalar?)", field->name);
-         }
-       }
-      
-    }
-    VERB1("<< Copied all fields of the structure %s", type->name);
-    
-    break;
-  }
-
-  case e_gras_datadesc_type_cat_union: {
-    gras_dd_cat_union_t union_data;
-    gras_dd_cat_field_t field=NULL;
-    int                 field_num;
-    
-    union_data = type->category.union_data;
-    
-    xbt_assert1(union_data.closed,
-               "Please call gras_datadesc_declare_union_close on %s before copying it",
-               type->name);
-    /* retrieve the field number */
-    field_num = union_data.selector(type, state, src);
-    
-    xbt_assert1(field_num > 0,
-               "union field selector of %s gave a negative value", 
-               type->name);
-    
-    xbt_assert3(field_num < xbt_dynar_length(union_data.fields),
-        "union field selector of %s returned %d but there is only %lu fields",
-                type->name, field_num, xbt_dynar_length(union_data.fields));
-    
-    /* Copy the content */
-    field = xbt_dynar_get_as(union_data.fields, field_num, gras_dd_cat_field_t);
-    sub_type = field->type;
-    
-    if (field->send)
-      field->send(type,state,src);
-    
-    count += gras_datadesc_copy_rec(state,refs, sub_type, src, dst,0,
-                                   detect_cycle || sub_type->cycle);
-          
-    break;
-  }
-    
-  case e_gras_datadesc_type_cat_ref: {
-    gras_dd_cat_ref_t      ref_data;
-    char                 **o_ref=NULL;
-    char                 **n_ref=NULL;
-    int                    reference_is_to_cpy;
-    
-    ref_data = type->category.ref_data;
-    
-    /* Detect the referenced type */
-    sub_type = ref_data.type;
-    if (sub_type == NULL) {
-      sub_type = (*ref_data.selector)(type,state,src);
-    }
-    
-    /* Send the pointed data only if not already sent */
-    if (*(void**)src == NULL) {
-      VERB0("Not copying NULL referenced data");
-      *(void**)dst = NULL;
-      break;
-    }
-    o_ref=(char**)src;
-
-    reference_is_to_cpy = 0;
-    TRY {
-      if (detect_cycle) {
-       /* return ignored. Just checking whether it's known or not */
-       n_ref=xbt_dict_get_ext(refs,(char*)o_ref, sizeof(char*));
-      } else {
-       reference_is_to_cpy = 1;
-      }
-    } CATCH(e) {
-      if (e.category != not_found_error)
-       RETHROW;
-      reference_is_to_cpy = 1;
-      xbt_ex_free(e);
-    }
-
-    if (reference_is_to_cpy) {
-      int subsubcount = 0;
-      void *l_referenced=NULL;
-       VERB2("Copy a ref to '%s' referenced at %p",sub_type->name, (void*)*o_ref);
-       
-       if (!pointer_type) { 
-        pointer_type = gras_datadesc_by_name("data pointer");
-        xbt_assert(pointer_type);
-       }
-
-       if (sub_type->category_code == e_gras_datadesc_type_cat_array) {
-        /* Damn. Reference to a dynamic array. Allocating the space for it 
-           is more complicated */
-        gras_dd_cat_array_t array_data = sub_type->category.array_data;
-        gras_datadesc_type_t subsub_type;
-        
-        subsub_type = array_data.type;
-        subsubcount = array_data.fixed_size;
-        if (subsubcount == 0)
-          subsubcount = array_data.dynamic_size(subsub_type,state,*o_ref);
-        
-        gras_dd_alloc_ref(refs,
-                          subsub_type->size[GRAS_THISARCH] * subsubcount, 
-                          o_ref,pointer_type->size[GRAS_THISARCH], 
-                          (char**)&l_referenced,
-                          detect_cycle);
-       } else {
-        gras_dd_alloc_ref(refs,sub_type->size[GRAS_THISARCH], 
-                          o_ref,pointer_type->size[GRAS_THISARCH], 
-                          (char**)&l_referenced,
-                          detect_cycle);
-       }
-       
-       count += gras_datadesc_copy_rec(state,refs, sub_type,
-                                      *o_ref,(char*)l_referenced, subsubcount,
-                                      detect_cycle || sub_type->cycle);
-                              
-       *(void**)dst=l_referenced;
-       VERB3("'%s' previously referenced at %p now at %p",
-            sub_type->name, *(void**)o_ref, l_referenced);
-       
-    } else {
-      VERB2("NOT copying data previously referenced @%p (already done, @%p now)",
-           *(void**)o_ref, *(void**)n_ref);
-      
-      *(void**)dst=*n_ref;
-      
-    } 
-    break;
-  }
-
-  case e_gras_datadesc_type_cat_array: {
-    gras_dd_cat_array_t    array_data;
-    long int               array_count;
-    char                  *src_ptr=src;
-    char                  *dst_ptr=dst;
-    long int               elm_size;
-    
-    array_data = type->category.array_data;
-    
-    /* determine and send the element count */
-    array_count = array_data.fixed_size;
-    if (array_count == 0)
-      array_count = subsize;
-    if (array_count == 0) {
-      array_count = array_data.dynamic_size(type,state,src);
-      xbt_assert1(array_count >=0,
-                  "Invalid (negative) array size for type %s",type->name);
-    }
-    
-    /* send the content */
-    sub_type = array_data.type;
-    elm_size = sub_type->aligned_size[GRAS_THISARCH];
-    if (sub_type->category_code == e_gras_datadesc_type_cat_scalar) {
-      VERB1("Array of %ld scalars, copy it in one shot",array_count);
-      memcpy(dst, src, sub_type->aligned_size[GRAS_THISARCH] * array_count);
-      count += sub_type->aligned_size[GRAS_THISARCH] * array_count;
-    } else if (sub_type->category_code == e_gras_datadesc_type_cat_array &&
-              sub_type->category.array_data.fixed_size > 0 &&
-              sub_type->category.array_data.type->category_code == e_gras_datadesc_type_cat_scalar) {
-       
-      VERB1("Array of %ld fixed array of scalars, copy it in one shot",
-           array_count);
-      memcpy(dst,src,sub_type->category.array_data.type->aligned_size[GRAS_THISARCH] 
-                    * array_count * sub_type->category.array_data.fixed_size);
-      count += sub_type->category.array_data.type->aligned_size[GRAS_THISARCH] 
-              * array_count * sub_type->category.array_data.fixed_size;
-       
-    } else {
-      VERB1("Array of %ld stuff, copy it in one after the other",array_count);
-      for (cpt=0; cpt<array_count; cpt++) {
-       VERB2("Copy the %dth stuff out of %ld",cpt,array_count);
-       count += gras_datadesc_copy_rec(state,refs, sub_type, src_ptr, dst_ptr, 0,
-                                       detect_cycle || sub_type->cycle);
-       src_ptr += elm_size;
-       dst_ptr += elm_size;
-      }
-    }
-    break;
-  }
-
-  default:
-    xbt_assert0(0, "Invalid type");
-  }
-   
-  return count;
-}
-/**
- * gras_datadesc_copy:
- *
- * Copy the data pointed by src and described by type 
- * to a new location, and store a pointer to it in dst.
- *
- */
-int gras_datadesc_copy(gras_datadesc_type_t type, 
-                      void *src, void *dst) {
-  xbt_ex_t e;
-  static gras_cbps_t state=NULL;
-  static xbt_dict_t  refs=NULL; /* all references already sent */
-  int size=0;
-  xbt_assert0(type,"called with NULL type descriptor");
-
-  if (!state) {
-    state = gras_cbps_new();
-    refs = xbt_dict_new();
-  }
-  
-  TRY {
-    size = gras_datadesc_copy_rec(state,refs,type,(char*)src,(char*)dst,0, 
-                                 type->cycle);
-  } CLEANUP {
-    xbt_dict_reset(refs);
-    gras_cbps_reset(state);
-  } CATCH(e) {
-    RETHROW;
-  }
-  return size;
-}
-
-/***
- *** Direct use functions
- ***/
-
-static void
-gras_datadesc_send_rec(gras_socket_t         sock,
-                      gras_cbps_t           state,
-                      xbt_dict_t            refs,
-                      gras_datadesc_type_t  type, 
-                      char                 *data,
-                      int                   detect_cycle) {
-
-  xbt_ex_t             e;
-  int                  cpt;
-  gras_datadesc_type_t sub_type; /* type on which we recurse */
-  
-  VERB2("Send a %s (%s)", 
-       type->name, gras_datadesc_cat_names[type->category_code]);
-
-  if (!strcmp(type->name,"string"))
-    VERB1("value: '%s'",*(char**)data);
-
-  if (type->send) {
-    type->send(type,state,data);
-    DEBUG0("Run the emission callback");
-  }
-
-  switch (type->category_code) {
-  case e_gras_datadesc_type_cat_scalar:
-    gras_trp_send(sock, data, type->size[GRAS_THISARCH], 1);
-    break;
-
-  case e_gras_datadesc_type_cat_struct: {
-    gras_dd_cat_struct_t struct_data;
-    gras_dd_cat_field_t  field;
-    char                *field_data;
-    
-    struct_data = type->category.struct_data;
-    xbt_assert1(struct_data.closed,
-      "Please call gras_datadesc_declare_struct_close on %s before sending it",
-               type->name);
-    VERB1(">> Send all fields of the structure %s",type->name);
-    xbt_dynar_foreach(struct_data.fields, cpt, field) {
-      field_data = data;
-      field_data += field->offset[GRAS_THISARCH];
-      
-      sub_type = field->type;
-      
-      if (field->send) {
-       DEBUG1("Run the emission callback of field %s", field->name);
-       field->send(type,state,field_data);
-      }
-      
-      VERB1("Send field %s",field->name);
-      gras_datadesc_send_rec(sock,state,refs,sub_type, field_data, 
-                            detect_cycle || sub_type->cycle);
-      
-    }
-    VERB1("<< Sent all fields of the structure %s", type->name);
-    
-    break;
-  }
-
-  case e_gras_datadesc_type_cat_union: {
-    gras_dd_cat_union_t union_data;
-    gras_dd_cat_field_t field=NULL;
-    int                 field_num;
-    
-    union_data = type->category.union_data;
-    
-    xbt_assert1(union_data.closed,
-               "Please call gras_datadesc_declare_union_close on %s before sending it",
-               type->name);
-    /* retrieve the field number */
-    field_num = union_data.selector(type, state, data);
-    
-    xbt_assert1(field_num > 0,
-                "union field selector of %s gave a negative value", 
-                type->name);
-    
-    xbt_assert3(field_num < xbt_dynar_length(union_data.fields),
-        "union field selector of %s returned %d but there is only %lu fields",
-                type->name, field_num, xbt_dynar_length(union_data.fields));
-
-    /* Send the field number */
-    gras_dd_send_int(sock, &field_num, 0 /* not stable */);
-    
-    /* Send the content */
-    field = xbt_dynar_get_as(union_data.fields, field_num, gras_dd_cat_field_t);
-    sub_type = field->type;
-    
-    if (field->send)
-      field->send(type,state,data);
-    
-    gras_datadesc_send_rec(sock,state,refs, sub_type, data, 
-                          detect_cycle || sub_type->cycle);
-          
-    break;
-  }
-    
-  case e_gras_datadesc_type_cat_ref: {
-    gras_dd_cat_ref_t      ref_data;
-    void                 **ref=(void**)data;
-    int                    reference_is_to_send;
-    
-    ref_data = type->category.ref_data;
-    
-    /* Detect the referenced type and send it to peer if needed */
-    sub_type = ref_data.type;
-    if (sub_type == NULL) {
-      sub_type = (*ref_data.selector)(type,state,data);
-      gras_dd_send_int(sock, (int*) &(sub_type->code),1 /*stable*/);
-    }
-    
-    /* Send the actual value of the pointer for cycle handling */
-    if (!pointer_type) {
-      pointer_type = gras_datadesc_by_name("data pointer");
-      xbt_assert(pointer_type);
-    }
-     
-    gras_trp_send(sock, (char*)data,
-                 pointer_type->size[GRAS_THISARCH], 1 /*stable*/);
-    
-    /* Send the pointed data only if not already sent */
-    if (*(void**)data == NULL) {
-      VERB0("Not sending NULL referenced data");
-      break;
-    }
-
-    reference_is_to_send = 0;
-    TRY {
-      if (detect_cycle)
-       /* return ignored. Just checking whether it's known or not */
-       xbt_dict_get_ext(refs,(char*)ref, sizeof(char*));
-      else 
-       reference_is_to_send = 1;
-    } CATCH(e) {
-      if (e.category != not_found_error)
-       RETHROW;
-      reference_is_to_send = 1;
-      xbt_ex_free(e);
-    }
-
-    if (reference_is_to_send) {
-       VERB1("Sending data referenced at %p", (void*)*ref);
-       if (detect_cycle)
-        xbt_dict_set_ext(refs, (char*)ref, sizeof(void*), ref, NULL);
-       gras_datadesc_send_rec(sock,state,refs, sub_type, *ref, 
-                             detect_cycle || sub_type->cycle);
-         
-    } else {
-       VERB1("Not sending data referenced at %p (already done)", (void*)*ref);
-    } 
-    
-    break;
-  }
-
-  case e_gras_datadesc_type_cat_array: {
-    gras_dd_cat_array_t    array_data;
-    int                    count;
-    char                  *ptr=data;
-    long int               elm_size;
-    
-    array_data = type->category.array_data;
-    
-    /* determine and send the element count */
-    count = array_data.fixed_size;
-    if (count == 0) {
-      count = array_data.dynamic_size(type,state,data);
-      xbt_assert1(count >=0,
-                  "Invalid (negative) array size for type %s",type->name);
-      gras_dd_send_int(sock, &count, 0/*non-stable*/);
-    }
-    
-    /* send the content */
-    sub_type = array_data.type;
-    elm_size = sub_type->aligned_size[GRAS_THISARCH];
-    if (sub_type->category_code == e_gras_datadesc_type_cat_scalar) {
-      VERB1("Array of %d scalars, send it in one shot",count);
-      gras_trp_send(sock, data, 
-                   sub_type->aligned_size[GRAS_THISARCH] * count,
-                   0 /* not stable */);
-    } else if (sub_type->category_code == e_gras_datadesc_type_cat_array &&
-              sub_type->category.array_data.fixed_size > 0 &&
-              sub_type->category.array_data.type->category_code == e_gras_datadesc_type_cat_scalar) {
-       
-      VERB1("Array of %d fixed array of scalars, send it in one shot",count);
-      gras_trp_send(sock, data, 
-                   sub_type->category.array_data.type->aligned_size[GRAS_THISARCH] 
-                   * count * sub_type->category.array_data.fixed_size,
-                   0 /* not stable */);
-       
-    } else {
-      for (cpt=0; cpt<count; cpt++) {
-       gras_datadesc_send_rec(sock,state,refs, sub_type, ptr, 
-                              detect_cycle || sub_type->cycle);
-       ptr += elm_size;
-      }
-    }
-    break;
-  }
-
-  default:
-    xbt_assert0(0, "Invalid type");
-  }
-}
-
-/**
- * gras_datadesc_send:
- *
- * Copy the data pointed by src and described by type to the socket
- *
- */
-void gras_datadesc_send(gras_socket_t        sock, 
-                       gras_datadesc_type_t type, 
-                       void *src) {
-
-  xbt_ex_t e;
-  static gras_cbps_t state=NULL;
-  static xbt_dict_t  refs=NULL; /* all references already sent */
-  xbt_assert0(type,"called with NULL type descriptor");
-
-  if (!state) {
-    state = gras_cbps_new();
-    refs = xbt_dict_new();
-  }
-   
-  TRY {
-    gras_datadesc_send_rec(sock,state,refs,type,(char*)src, type->cycle);
-  } CLEANUP {
-    xbt_dict_reset(refs);
-    gras_cbps_reset(state);
-  } CATCH(e) {
-    RETHROW;
-  }
-}
-
-/**
- * gras_datadesc_recv_rec:
- *
- * Do the data reception job recursively.
- *
- * subsize used only to deal with vicious case of reference to dynamic array.
- *  This size is needed at the reference reception level (to allocate enough 
- * space) and at the array reception level (to fill enough room). 
- * 
- * Having this size passed as an argument of the recursive function is a crude
- * hack, but I was told that working code is sometimes better than neat one ;)
- */
-static void
-gras_datadesc_recv_rec(gras_socket_t         sock, 
-                      gras_cbps_t           state,
-                      xbt_dict_t           refs,
-                      gras_datadesc_type_t  type,
-                      int                   r_arch,
-                      char                **r_data,
-                      long int              r_lgr,
-                      char                 *l_data,
-                      int                   subsize,
-                      int                   detect_cycle) {
-
-  int                  cpt;
-  gras_datadesc_type_t sub_type;
-  xbt_ex_t e;
-
-  VERB2("Recv a %s @%p", type->name, (void*)l_data);
-  xbt_assert(l_data);
-
-  switch (type->category_code) {
-  case e_gras_datadesc_type_cat_scalar:
-    if (type->size[GRAS_THISARCH] == type->size[r_arch]) {
-      gras_trp_recv(sock, (char*)l_data, type->size[r_arch]);
-      if (r_arch != GRAS_THISARCH)
-       gras_dd_convert_elm(type,1,r_arch, l_data,l_data);
-    } else {
-      void *ptr = xbt_malloc(type->size[r_arch]);
-
-      gras_trp_recv(sock, (char*)ptr, type->size[r_arch]);
-      if (r_arch != GRAS_THISARCH)
-       gras_dd_convert_elm(type,1,r_arch, ptr,l_data);
-      free(ptr);
-    }
-    break;
-
-  case e_gras_datadesc_type_cat_struct: {
-    gras_dd_cat_struct_t struct_data;
-    gras_dd_cat_field_t  field;
-
-    struct_data = type->category.struct_data;
-
-    xbt_assert1(struct_data.closed,
-               "Please call gras_datadesc_declare_struct_close on %s before receiving it",
-               type->name);
-    VERB1(">> Receive all fields of the structure %s",type->name);
-    xbt_dynar_foreach(struct_data.fields, cpt, field) {
-      char                 *field_data = l_data + field->offset[GRAS_THISARCH];
-
-      sub_type = field->type;
-
-      gras_datadesc_recv_rec(sock,state,refs, sub_type,
-                            r_arch,NULL,0,
-                            field_data,-1, 
-                            detect_cycle || sub_type->cycle);
-       
-      if (field->recv) {
-       DEBUG1("Run the reception callback of field %s", field->name);
-        field->recv(type,state,(void*)l_data);
-      }
-    
-    }
-    VERB1("<< Received all fields of the structure %s", type->name);
-    
-    break;
-  }
-
-  case e_gras_datadesc_type_cat_union: {
-    gras_dd_cat_union_t union_data;
-    gras_dd_cat_field_t field=NULL;
-    int                 field_num;
-
-    union_data = type->category.union_data;
-
-    xbt_assert1(union_data.closed,
-               "Please call gras_datadesc_declare_union_close on %s before receiving it",
-               type->name);
-    /* retrieve the field number */
-    gras_dd_recv_int(sock, r_arch, &field_num);
-    if (field_num < 0)
-      THROW1(mismatch_error,0,
-            "Received union field for %s is negative", type->name);
-    if (field_num > xbt_dynar_length(union_data.fields)) 
-      THROW3(mismatch_error,0,
-            "Received union field for %s is said to be #%d but there is only %lu fields",
-            type->name, field_num, xbt_dynar_length(union_data.fields));
-    
-    /* Recv the content */
-    field = xbt_dynar_get_as(union_data.fields, field_num, gras_dd_cat_field_t);
-    sub_type = field->type;
-    
-    gras_datadesc_recv_rec(sock,state,refs, sub_type,
-                          r_arch,NULL,0,
-                          l_data,-1,
-                          detect_cycle || sub_type->cycle);
-    if (field->recv)
-       field->recv(type,state,l_data);
-
-    break;
-  }
-
-  case e_gras_datadesc_type_cat_ref: {
-    char             **r_ref = NULL;
-    char             **l_ref = NULL;
-    gras_dd_cat_ref_t  ref_data;
-    int reference_is_to_recv = 0;
-    
-    ref_data = type->category.ref_data;
-
-    /* Get the referenced type locally or from peer */
-    sub_type = ref_data.type;
-    if (sub_type == NULL) {
-      int ref_code;
-      gras_dd_recv_int(sock, r_arch, &ref_code);
-      sub_type = gras_datadesc_by_id(ref_code);
-    }
-
-    /* Get the actual value of the pointer for cycle handling */
-    if (!pointer_type) {
-      pointer_type = gras_datadesc_by_name("data pointer");
-      xbt_assert(pointer_type);
-    }
-
-    r_ref = xbt_malloc(pointer_type->size[r_arch]);
-
-    gras_trp_recv(sock, (char*)r_ref,
-                 pointer_type->size[r_arch]);
-
-    /* Receive the pointed data only if not already sent */
-    if (gras_dd_is_r_null(r_ref, pointer_type->size[r_arch])) {
-      VERB1("Not receiving data remotely referenced @%p since it's NULL",
-           *(void **)r_ref);
-      *(void**)l_data = NULL;
-      free(r_ref);
-      break;
-    }
-         
-    reference_is_to_recv = 0;
-    TRY {
-      if (detect_cycle) {
-       l_ref = xbt_dict_get_ext(refs, (char*)r_ref, pointer_type->size[r_arch]);
-      } else {
-       reference_is_to_recv = 1;
-      }
-    } CATCH(e) {
-      if (e.category != not_found_error)
-        RETHROW;
-      reference_is_to_recv = 1;
-      xbt_ex_free(e);
-    }
-
-    if (reference_is_to_recv) {
-      int subsubcount = 0;
-      void *l_referenced=NULL;
-
-      VERB2("Receiving a ref to '%s', remotely @%p",
-           sub_type->name, *(void**)r_ref);
-      if (sub_type->category_code == e_gras_datadesc_type_cat_array) {
-       /* Damn. Reference to a dynamic array. Allocating the space for it 
-          is more complicated */
-       gras_dd_cat_array_t array_data = sub_type->category.array_data;
-       gras_datadesc_type_t subsub_type;
-
-       subsubcount = array_data.fixed_size;
-       if (subsubcount == 0)
-         gras_dd_recv_int(sock, r_arch, &subsubcount);
-
-       subsub_type = array_data.type;
-
-
-       gras_dd_alloc_ref(refs,
-                         subsub_type->size[GRAS_THISARCH] * subsubcount, 
-                         r_ref,pointer_type->size[r_arch], 
-                         (char**)&l_referenced,
-                         detect_cycle);
-      } else {
-       gras_dd_alloc_ref(refs,sub_type->size[GRAS_THISARCH], 
-                         r_ref,pointer_type->size[r_arch], 
-                         (char**)&l_referenced,
-                         detect_cycle);
-      }
-
-      gras_datadesc_recv_rec(sock,state,refs, sub_type,
-                            r_arch,r_ref,pointer_type->size[r_arch],
-                            (char*)l_referenced, subsubcount,
-                            detect_cycle || sub_type->cycle);
-                              
-      *(void**)l_data=l_referenced;
-      VERB3("'%s' remotely referenced at %p locally at %p",
-           sub_type->name, *(void**)r_ref, l_referenced);
-      
-    } else {
-      VERB2("NOT receiving data remotely referenced @%p (already done, @%p here)",
-           *(void**)r_ref, *(void**)l_ref);
-
-      *(void**)l_data=*l_ref;
-
-    } 
-    free(r_ref);
-    break;
-  }
-
-  case e_gras_datadesc_type_cat_array: {
-    gras_dd_cat_array_t    array_data;
-    int       count;
-    char     *ptr;
-    long int  elm_size;
-
-    array_data = type->category.array_data;
-    /* determine element count locally, or from caller, or from peer */
-    count = array_data.fixed_size;
-    if (count == 0)
-      count = subsize;
-    if (count == 0)
-      gras_dd_recv_int(sock, r_arch, &count);
-    if (count == 0)
-      THROW1(mismatch_error,0,
-            "Invalid (=0) array size for type %s",type->name);
-
-    /* receive the content */
-    sub_type = array_data.type;
-    if (sub_type->category_code == e_gras_datadesc_type_cat_scalar) {
-      VERB1("Array of %d scalars, get it in one shoot", count);
-      if (sub_type->aligned_size[GRAS_THISARCH] >= 
-         sub_type->aligned_size[r_arch]) {
-       gras_trp_recv(sock, (char*)l_data, 
-                     sub_type->aligned_size[r_arch] * count);
-       if (r_arch != GRAS_THISARCH)
-         gras_dd_convert_elm(sub_type,count,r_arch, l_data,l_data);
-      } else {
-       ptr = xbt_malloc(sub_type->aligned_size[r_arch] * count);
-
-       gras_trp_recv(sock, (char*)ptr, 
-                     sub_type->size[r_arch] * count);
-       if (r_arch != GRAS_THISARCH)
-         gras_dd_convert_elm(sub_type,count,r_arch, ptr,l_data);
-       free(ptr);
-      }
-    } else if (sub_type->category_code == e_gras_datadesc_type_cat_array &&
-              sub_type->category.array_data.fixed_size > 0 &&
-              sub_type->category.array_data.type->category_code == e_gras_datadesc_type_cat_scalar) {
-      gras_datadesc_type_t subsub_type;
-      array_data = sub_type->category.array_data;
-      subsub_type = array_data.type;
-       
-      VERB1("Array of %d fixed array of scalars, get it in one shot",count);
-      if (subsub_type->aligned_size[GRAS_THISARCH] >= 
-         subsub_type->aligned_size[r_arch]) {
-       gras_trp_recv(sock, (char*)l_data, 
-                     subsub_type->aligned_size[r_arch] * count * 
-                     array_data.fixed_size);
-       if (r_arch != GRAS_THISARCH)
-         gras_dd_convert_elm(subsub_type,count*array_data.fixed_size,r_arch, l_data,l_data);
-      } else {
-       ptr = xbt_malloc(subsub_type->aligned_size[r_arch] * count*array_data.fixed_size);
-
-       gras_trp_recv(sock, (char*)ptr, 
-                     subsub_type->size[r_arch] * count*array_data.fixed_size);
-       if (r_arch != GRAS_THISARCH)
-         gras_dd_convert_elm(subsub_type,count*array_data.fixed_size,r_arch, ptr,l_data);
-       free(ptr);
-      }
-      
-       
-    } else {
-      /* not scalar content, get it recursively (may contain pointers) */
-      elm_size = sub_type->aligned_size[GRAS_THISARCH];
-      VERB2("Receive a %d-long array of %s",count, sub_type->name);
-
-      ptr = l_data;
-      for (cpt=0; cpt<count; cpt++) {
-       gras_datadesc_recv_rec(sock,state,refs, sub_type,
-                              r_arch, NULL, 0, ptr,-1,
-                              detect_cycle || sub_type->cycle);
-                                  
-       ptr += elm_size;
-      }
-    }
-    break;
-  }
-        
-  default:
-    xbt_assert0(0, "Invalid type");
-  }
-  
-  if (type->recv)
-    type->recv(type,state,l_data);
-
-  if (!strcmp(type->name,"string"))
-    VERB1("value: '%s'",*(char**)l_data);
-
-}
-
-/**
- * gras_datadesc_recv:
- *
- * Get an instance of the datatype described by @type from the @socket, 
- * and store a pointer to it in @dst
- *
- */
-void
-gras_datadesc_recv(gras_socket_t         sock, 
-                  gras_datadesc_type_t  type,
-                  int                   r_arch,
-                  void                 *dst) {
-
-  xbt_ex_t e;
-  static gras_cbps_t state=NULL; /* callback persistent state */
-  static xbt_dict_t  refs=NULL;  /* all references already sent */
-
-  if (!state) {
-    state = gras_cbps_new();
-    refs = xbt_dict_new();
-  }
-   
-  xbt_assert0(type,"called with NULL type descriptor");
-  TRY {
-    gras_datadesc_recv_rec(sock, state, refs, type, 
-                          r_arch, NULL, 0,
-                          (char *) dst,-1, 
-                          type->cycle);
-  } CLEANUP {
-    xbt_dict_reset(refs);
-    gras_cbps_reset(state);
-  } CATCH(e) {
-    RETHROW;
-  }
-}
-
diff --git a/src/gras_simix/DataDesc/gras_simix_ddt_parse.c b/src/gras_simix/DataDesc/gras_simix_ddt_parse.c
deleted file mode 100644 (file)
index effc5f5..0000000
+++ /dev/null
@@ -1,752 +0,0 @@
-/* $Id$ */
-
-/* DataDesc/ddt_parse.c -- automatic parsing of data structures             */
-
-/* Copyright (c) 2003 Arnaud Legrand.                                       */
-/* Copyright (c) 2003, 2004 Martin Quinson.                                 */
-/* 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. */
-
-#include <ctype.h> /* isdigit */
-
-#include "xbt/ex.h"
-#include "gras/DataDesc/datadesc_private.h"
-#include "gras/DataDesc/ddt_parse.yy.h"
-
-XBT_LOG_NEW_DEFAULT_SUBCATEGORY(gras_ddt_parse,gras_ddt,
-  "Parsing C data structures to build GRAS data description");
-
-typedef struct s_type_modifier{
-  short is_long;
-  int is_unsigned:1;
-  int is_short:1;
-
-  int is_struct:1;
-  int is_union:1;
-  int is_enum:1;
-
-  int is_ref:1;
-   
-  int is_dynar:2;
-  int is_matrix:2;
-} s_type_modifier_t,*type_modifier_t;
-
-typedef struct s_field {
-  gras_datadesc_type_t type;
-  char *type_name;
-  char *name;
-  s_type_modifier_t tm;
-} s_identifier_t;
-extern char *gras_ddt_parse_text; /* text being considered in the parser */
-
-/* local functions */
-static void parse_type_modifier(type_modifier_t type_modifier)  {
-  XBT_IN;
-  do {
-    if (gras_ddt_parse_tok_num == GRAS_DDT_PARSE_TOKEN_STAR) {
-      /* This only used when parsing 'short *' since this function returns when int, float, double,... is encountered */
-      DEBUG0("This is a reference"); 
-      type_modifier->is_ref++;
-      
-    } else if (!strcmp(gras_ddt_parse_text,"unsigned")) {
-      DEBUG0("This is an unsigned");
-      type_modifier->is_unsigned = 1;
-      
-    } else if (!strcmp(gras_ddt_parse_text,"short")) {
-      DEBUG0("This is short");
-      type_modifier->is_short = 1;
-      
-    } else if (!strcmp(gras_ddt_parse_text,"long")) {
-      DEBUG0("This is long");
-      type_modifier->is_long++; /* handle "long long" */
-      
-    } else if (!strcmp(gras_ddt_parse_text,"struct")) {
-      DEBUG0("This is a struct");
-      type_modifier->is_struct = 1;
-      
-    } else if (!strcmp(gras_ddt_parse_text,"union")) {
-      DEBUG0("This is an union");
-      type_modifier->is_union = 1;
-      
-    } else if (!strcmp(gras_ddt_parse_text,"enum")) {
-      DEBUG0("This is an enum");
-      type_modifier->is_enum = 1;
-      
-    } else if (gras_ddt_parse_tok_num == GRAS_DDT_PARSE_TOKEN_EMPTY) {
-      DEBUG0("Pass space");
-
-    } else {
-      DEBUG1("Done with modifiers (got %s)",gras_ddt_parse_text);
-      break;
-    }
-
-    gras_ddt_parse_tok_num = gras_ddt_parse_lex_n_dump();
-    if((gras_ddt_parse_tok_num != GRAS_DDT_PARSE_TOKEN_WORD) && 
-       (gras_ddt_parse_tok_num != GRAS_DDT_PARSE_TOKEN_STAR)) {
-      DEBUG2("Done with modifiers (got %s,%d)",gras_ddt_parse_text,gras_ddt_parse_tok_num);      
-      break;
-    }
-  } while(1);
-  XBT_OUT;
-}
-
-static void print_type_modifier(s_type_modifier_t tm) {
-  int i;
-
-  XBT_IN;
-  if (tm.is_unsigned)             printf("(unsigned) ");
-  if (tm.is_short)                printf("(short) ");
-  for (i=0 ; i<tm.is_long ; i++)  printf("(long) ");
-
-  if(tm.is_struct)                printf("(struct) ");
-  if(tm.is_enum)                  printf("(enum) ");
-  if(tm.is_union)                 printf("(union) ");
-
-  for (i=0 ; i<tm.is_ref ; i++)   printf("(ref) ");
-  XBT_OUT;
-}
-
-static void change_to_fixed_array(xbt_dynar_t dynar, long int size) {
-  s_identifier_t former,array;
-  memset(&array,0,sizeof(array));
-
-  XBT_IN;
-  xbt_dynar_pop(dynar,&former);
-  array.type_name=(char*)xbt_malloc(strlen(former.type->name)+48);
-  DEBUG2("Array specification (size=%ld, elm='%s'), change pushed type",
-        size,former.type_name);
-  sprintf(array.type_name,"%s%s%s%s[%ld]",
-         (former.tm.is_unsigned?"u ":""),
-         (former.tm.is_short?"s ":""),
-         (former.tm.is_long?"l ":""),
-         former.type_name,
-         size);
-  free(former.type_name);
-
-  array.type = gras_datadesc_array_fixed(array.type_name, former.type, size); /* redeclaration are ignored */
-  array.name = former.name;
-
-  xbt_dynar_push(dynar,&array);
-  XBT_OUT;
-}
-static void change_to_ref(xbt_dynar_t dynar) {
-  s_identifier_t former,ref;
-  memset(&ref,0,sizeof(ref));
-
-  XBT_IN;
-  xbt_dynar_pop(dynar,&former);
-  ref.type_name=(char*)xbt_malloc(strlen(former.type->name)+2);
-  DEBUG1("Ref specification (elm='%s'), change pushed type", former.type_name);
-  sprintf(ref.type_name,"%s*",former.type_name);
-  free(former.type_name);
-
-  ref.type = gras_datadesc_ref(ref.type_name, former.type); /* redeclaration are ignored */
-  ref.name = former.name;
-
-  xbt_dynar_push(dynar,&ref);
-  XBT_OUT;
-}
-
-static void change_to_ref_pop_array(xbt_dynar_t dynar) {
-  s_identifier_t former,ref;
-  memset(&ref,0,sizeof(ref));
-
-  XBT_IN;
-  xbt_dynar_pop(dynar,&former);
-  ref.type = gras_datadesc_ref_pop_arr(former.type); /* redeclaration are ignored */
-  ref.type_name = (char*)strdup(ref.type->name);
-  ref.name = former.name;
-
-  free(former.type_name);
-
-  xbt_dynar_push(dynar,&ref);
-  XBT_OUT;
-}
-
-static void change_to_dynar_of(xbt_dynar_t dynar,gras_datadesc_type_t subtype) {
-  s_identifier_t former,ref;
-  memset(&ref,0,sizeof(ref));
-
-  XBT_IN;
-  xbt_dynar_pop(dynar,&former);
-  ref.type = gras_datadesc_dynar(subtype,NULL); /* redeclaration are ignored */
-  ref.type_name = (char*)strdup(ref.type->name);
-  ref.name = former.name;
-
-  free(former.type_name);
-
-  xbt_dynar_push(dynar,&ref);
-  XBT_OUT;
-}
-
-static void change_to_matrix_of(xbt_dynar_t dynar,gras_datadesc_type_t subtype) {
-  s_identifier_t former,ref;
-  memset(&ref,0,sizeof(ref));
-
-  XBT_IN;
-  xbt_dynar_pop(dynar,&former);
-  ref.type = gras_datadesc_matrix(subtype,NULL); /* redeclaration are ignored */
-  ref.type_name = (char*)strdup(ref.type->name);
-  ref.name = former.name;
-
-  free(former.type_name);
-
-  xbt_dynar_push(dynar,&ref);
-  XBT_OUT;
-}
-
-static void add_free_f(xbt_dynar_t dynar,void_f_pvoid_t free_f) {
-  s_identifier_t former,ref;
-  memset(&ref,0,sizeof(ref));
-
-  XBT_IN;
-  xbt_dynar_pop(dynar,&former);
-  memcpy(former.type->extra,&free_f, sizeof(free_f));
-  xbt_dynar_push(dynar,&former);
-  XBT_OUT;
-}
-
-static void parse_statement(char        *definition,
-                           xbt_dynar_t  identifiers,
-                           xbt_dynar_t  fields_to_push) {
-  char buffname[512];
-
-  s_identifier_t identifier;
-
-  int expect_id_separator = 0;
-
-  XBT_IN;
-  memset(&identifier,0,sizeof(identifier));
-
-  gras_ddt_parse_tok_num = gras_ddt_parse_lex_n_dump();
-  if(gras_ddt_parse_tok_num == GRAS_DDT_PARSE_TOKEN_RA) {
-    XBT_OUT;
-    THROW0(mismatch_error,0,"End of the englobing structure or union");
-  }
-  
-  if (XBT_LOG_ISENABLED(gras_ddt_parse,xbt_log_priority_debug)) {
-    int colon_pos;
-    for (colon_pos = gras_ddt_parse_col_pos;
-        definition[colon_pos] != ';';
-        colon_pos++);
-    definition[colon_pos] = '\0';
-    DEBUG3("Parse the statement \"%s%s;\" (col_pos=%d)",
-          gras_ddt_parse_text,
-          definition+gras_ddt_parse_col_pos,
-          gras_ddt_parse_col_pos);
-    definition[colon_pos] = ';';
-  }
-
-  if(gras_ddt_parse_tok_num != GRAS_DDT_PARSE_TOKEN_WORD)
-    PARSE_ERROR1("Unparsable symbol: found a typeless statement (got '%s' instead)",
-                gras_ddt_parse_text);
-
-  /**** get the type modifier of this statement ****/
-  parse_type_modifier(&identifier.tm);
-
-  /*  FIXME: This does not detect recursive definitions at all? */
-  if (identifier.tm.is_union || identifier.tm.is_enum || identifier.tm.is_struct)
-    PARSE_ERROR0("Unimplemented feature: GRAS_DEFINE_TYPE cannot handle recursive type definition yet");
-
-  /**** get the base type, giving "short a" the needed love ****/
-  if (!identifier.tm.is_union &&
-      !identifier.tm.is_enum  && 
-      !identifier.tm.is_struct &&
-
-      (identifier.tm.is_short || identifier.tm.is_long || identifier.tm.is_unsigned) &&
-
-      strcmp(gras_ddt_parse_text,"char") && 
-      strcmp(gras_ddt_parse_text,"float") && 
-      strcmp(gras_ddt_parse_text,"double") && 
-      strcmp(gras_ddt_parse_text,"int") ) {
-
-    /* bastard user, they omited "int" ! */
-    identifier.type_name=(char*)strdup("int");
-    DEBUG0("the base type is 'int', which were omited (you vicious user)");
-  } else {
-    identifier.type_name=(char*)strdup(gras_ddt_parse_text);
-    DEBUG1("the base type is '%s'",identifier.type_name);
-    gras_ddt_parse_tok_num = gras_ddt_parse_lex_n_dump(); 
-  }
-
-  /**** build the base type for latter use ****/
-  if (identifier.tm.is_union) {
-    PARSE_ERROR0("Unimplemented feature: GRAS_DEFINE_TYPE cannot handle union yet (get callback from annotation?)");
-
-  } else if (identifier.tm.is_enum) {
-    PARSE_ERROR0("Unimplemented feature: GRAS_DEFINE_TYPE cannot handle enum yet");
-
-  } else if (identifier.tm.is_struct) {
-    sprintf(buffname,"struct %s",identifier.type_name);
-    identifier.type = gras_datadesc_struct(buffname); /* Get created when does not exist */
-
-  } else if (identifier.tm.is_unsigned) {
-    if (!strcmp(identifier.type_name,"int")) {
-      if (identifier.tm.is_long == 2) {
-       identifier.type = gras_datadesc_by_name("unsigned long long int");
-      } else if (identifier.tm.is_long) {
-       identifier.type = gras_datadesc_by_name("unsigned long int");
-      } else if (identifier.tm.is_short) {
-       identifier.type = gras_datadesc_by_name("unsigned short int");
-      } else {
-       identifier.type = gras_datadesc_by_name("unsigned int");
-      }
-
-    } else if (!strcmp(identifier.type_name, "char")) {
-      identifier.type = gras_datadesc_by_name("unsigned char");
-
-    } else { /* impossible, gcc parses this shit before us */
-      THROW_IMPOSSIBLE;
-    }
-    
-  } else if (!strcmp(identifier.type_name, "float")) {
-    /* no modificator allowed by gcc */
-    identifier.type = gras_datadesc_by_name("float");
-
-  } else if (!strcmp(identifier.type_name, "double")) {
-    if (identifier.tm.is_long)
-      PARSE_ERROR0("long double not portable and thus not handled");
-
-    identifier.type = gras_datadesc_by_name("double");
-
-  } else { /* signed integer elemental */
-    if (!strcmp(identifier.type_name,"int")) {
-      if (identifier.tm.is_long == 2) {
-       identifier.type = gras_datadesc_by_name("signed long long int");
-      } else if (identifier.tm.is_long) {
-       identifier.type = gras_datadesc_by_name("signed long int");
-      } else if (identifier.tm.is_short) {
-       identifier.type = gras_datadesc_by_name("signed short int");
-      } else {
-       identifier.type = gras_datadesc_by_name("int");
-      }
-
-    } else if (!strcmp(identifier.type_name, "char")) {
-      identifier.type = gras_datadesc_by_name("char");
-
-    } else { 
-      DEBUG1("Base type is a constructed one (%s)",identifier.type_name);
-      if (!strcmp(identifier.type_name,"xbt_matrix_t")) {
-        identifier.tm.is_matrix = 1;
-      } else if (!strcmp(identifier.type_name,"xbt_dynar_t")) {
-        identifier.tm.is_dynar = 1;
-      } else {       
-        identifier.type = gras_datadesc_by_name(identifier.type_name);
-        if (!identifier.type)
-          PARSE_ERROR1("Unknown base type '%s'",identifier.type_name);
-      }
-    }
-  } 
-  /* Now identifier.type and identifier.name speak about the base type.
-     Stars are not eaten unless 'int' was omitted.
-     We will have to enhance it if we are in fact asked for array or reference.
-   
-     Dynars and matrices also need some extra love (prodiged as annotations)
-   */
-
-  /**** look for the symbols of this type ****/
-  for(expect_id_separator = 0;
-
-      (/*(gras_ddt_parse_tok_num != GRAS_DDT_PARSE_TOKEN_EMPTY) && FIXME*/
-       (gras_ddt_parse_tok_num != GRAS_DDT_PARSE_TOKEN_SEMI_COLON)) ; 
-
-      gras_ddt_parse_tok_num = gras_ddt_parse_lex_n_dump()          ) {   
-
-    if(expect_id_separator) {
-      if(gras_ddt_parse_tok_num == GRAS_DDT_PARSE_TOKEN_COLON) {
-        expect_id_separator = 0;
-        continue;
-
-      } else if (gras_ddt_parse_tok_num == GRAS_DDT_PARSE_TOKEN_LB) {
-       /* Handle fixed size arrays */
-       gras_ddt_parse_tok_num = gras_ddt_parse_lex_n_dump();
-       if (gras_ddt_parse_tok_num == GRAS_DDT_PARSE_TOKEN_RB) {
-         PARSE_ERROR0("Unimplemented feature: GRAS_DEFINE_TYPE cannot deal with [] constructs (yet)");
-
-       } else if (gras_ddt_parse_tok_num == GRAS_DDT_PARSE_TOKEN_WORD) {
-         char *end;
-         long int size=strtol(gras_ddt_parse_text, &end, 10);
-
-         if (end == gras_ddt_parse_text || *end != '\0') {
-           /* Not a number. Get the constant value, if any */
-           int *storage=xbt_dict_get_or_null(gras_dd_constants,gras_ddt_parse_text);
-           if (storage) {
-             size = *storage;
-           } else {
-             PARSE_ERROR1("Unparsable size of array. Found '%s', expected number or known constant. Need to use gras_datadesc_set_const(), huh?",
-                          gras_ddt_parse_text);
-           }
-         }
-
-         /* replace the previously pushed type to an array of it */
-         change_to_fixed_array(identifiers,size);
-
-         /* eat the closing bracket */
-         gras_ddt_parse_tok_num = gras_ddt_parse_lex_n_dump();
-         if (gras_ddt_parse_tok_num != GRAS_DDT_PARSE_TOKEN_RB)
-           PARSE_ERROR0("Unparsable size of array");
-       DEBUG1("Fixed size array, size=%ld",size);
-       continue;
-       } else {
-         PARSE_ERROR0("Unparsable size of array");
-       }
-       /* End of fixed size arrays handling */
-
-      } else if (gras_ddt_parse_tok_num == GRAS_DDT_PARSE_TOKEN_WORD) {
-       /* Handle annotation */
-       s_identifier_t array;
-       char *keyname = NULL;
-       char *keyval  = NULL;
-       memset(&array,0,sizeof(array));
-       if (strcmp(gras_ddt_parse_text,"GRAS_ANNOTE"))
-         PARSE_ERROR1("Unparsable symbol: Expected 'GRAS_ANNOTE', got '%s'",gras_ddt_parse_text);
-       
-       gras_ddt_parse_tok_num = gras_ddt_parse_lex_n_dump();
-       if (gras_ddt_parse_tok_num != GRAS_DDT_PARSE_TOKEN_LP) 
-         PARSE_ERROR1("Unparsable annotation: Expected parenthesis, got '%s'",gras_ddt_parse_text);
-
-       while ( (gras_ddt_parse_tok_num = gras_ddt_parse_lex_n_dump()) == GRAS_DDT_PARSE_TOKEN_EMPTY );
-
-       if (gras_ddt_parse_tok_num != GRAS_DDT_PARSE_TOKEN_WORD) 
-         PARSE_ERROR1("Unparsable annotation: Expected key name, got '%s'",gras_ddt_parse_text);
-       keyname = (char*)strdup(gras_ddt_parse_text);
-
-       while ( (gras_ddt_parse_tok_num = gras_ddt_parse_lex_n_dump()) == GRAS_DDT_PARSE_TOKEN_EMPTY );
-
-       if (gras_ddt_parse_tok_num != GRAS_DDT_PARSE_TOKEN_COLON) 
-         PARSE_ERROR1("Unparsable annotation: expected ',' after the key name, got '%s'",gras_ddt_parse_text);
-
-       while ( (gras_ddt_parse_tok_num = gras_ddt_parse_lex_n_dump()) == GRAS_DDT_PARSE_TOKEN_EMPTY );
-
-       /* get the value */
-
-       if (gras_ddt_parse_tok_num != GRAS_DDT_PARSE_TOKEN_WORD) 
-         PARSE_ERROR1("Unparsable annotation: Expected key value, got '%s'",gras_ddt_parse_text);
-       keyval = (char*)strdup(gras_ddt_parse_text);
-
-       while ( (gras_ddt_parse_tok_num = gras_ddt_parse_lex_n_dump()) == GRAS_DDT_PARSE_TOKEN_EMPTY );
-
-       /* Done with parsing the annotation. Now deal with it by replacing previously pushed type with the right one */
-
-       DEBUG2("Anotation: %s=%s",keyname,keyval);
-       if (!strcmp(keyname,"size")) {
-         free(keyname);
-         if (!identifier.tm.is_ref)
-           PARSE_ERROR0("Size annotation for a field not being a reference");
-         identifier.tm.is_ref--;
-
-         if (!strcmp(keyval,"1")) {
-           change_to_ref(identifiers);
-           free(keyval);
-         } else {
-           char *p;
-           int fixed = 1;
-           for (p = keyval; *p != '\0'; p++) 
-             if (! isdigit(*p) )
-               fixed = 0;
-           if (fixed) {
-             change_to_fixed_array(identifiers,atoi(keyval));
-             change_to_ref(identifiers);
-             free(keyval);
-
-           } else {
-             change_to_ref_pop_array(identifiers);
-             xbt_dynar_push(fields_to_push,&keyval);
-           }
-         }
-       } else if (!strcmp(keyname,"subtype")) {
-          gras_datadesc_type_t subtype = gras_datadesc_by_name(keyval);
-          if (identifier.tm.is_matrix) {
-             change_to_matrix_of(identifiers,subtype);
-             identifier.tm.is_matrix = -1;
-          } else if (identifier.tm.is_dynar) {
-             change_to_dynar_of(identifiers,subtype);
-             identifier.tm.is_dynar = -1;
-          } else {       
-            PARSE_ERROR1("subtype annotation only accepted for dynars and matrices, but passed to '%s'",identifier.type_name);
-          }
-          free(keyval);
-       } else if (!strcmp(keyname,"free_f")) {
-          int *storage=xbt_dict_get_or_null(gras_dd_constants,keyval);
-          if (!storage)
-            PARSE_ERROR1("value for free_f annotation of field %s is not a known constant",identifier.name);
-          if (identifier.tm.is_matrix == -1) {
-             add_free_f(identifiers,*(void_f_pvoid_t**)storage);
-             identifier.tm.is_matrix = 0;
-          } else if (identifier.tm.is_dynar == -1) {
-             add_free_f(identifiers,*(void_f_pvoid_t**)storage);
-             identifier.tm.is_dynar = 0;
-          } else {       
-             PARSE_ERROR1("free_f annotation only accepted for dynars and matrices which subtype is already declared (field %s)",
-                         identifier.name);
-          }
-          free(keyval);
-       } else {
-         free(keyval);
-         PARSE_ERROR1("Unknown annotation type: '%s'",keyname);
-       }
-
-       /* Get all the multipliers */
-       while (gras_ddt_parse_tok_num == GRAS_DDT_PARSE_TOKEN_STAR) {
-
-         gras_ddt_parse_tok_num = gras_ddt_parse_lex_n_dump();
-
-         if (gras_ddt_parse_tok_num != GRAS_DDT_PARSE_TOKEN_WORD) 
-           PARSE_ERROR1("Unparsable annotation: Expected field name after '*', got '%s'",gras_ddt_parse_text);
-         
-         keyval = xbt_malloc(strlen(gras_ddt_parse_text)+2);
-         sprintf(keyval,"*%s",gras_ddt_parse_text);
-
-         /* ask caller to push field as a multiplier */
-         xbt_dynar_push(fields_to_push,&keyval);
-
-         /* skip blanks after this block*/
-         while ( (gras_ddt_parse_tok_num = gras_ddt_parse_lex_n_dump()) 
-                 == GRAS_DDT_PARSE_TOKEN_EMPTY );
-       }
-
-       if (gras_ddt_parse_tok_num != GRAS_DDT_PARSE_TOKEN_RP) 
-         PARSE_ERROR1("Unparsable annotation: Expected parenthesis, got '%s'",
-                      gras_ddt_parse_text);
-
-       continue;
-
-       /* End of annotation handling */
-      } else {
-       PARSE_ERROR1("Unparsable symbol: Got '%s' instead of expected comma (',')",gras_ddt_parse_text);
-      }
-    } else if(gras_ddt_parse_tok_num == GRAS_DDT_PARSE_TOKEN_COLON) {
-      PARSE_ERROR0("Unparsable symbol: Unexpected comma (',')");
-    }
-
-    if (gras_ddt_parse_tok_num == GRAS_DDT_PARSE_TOKEN_STAR) {
-      identifier.tm.is_ref++; /* We indeed deal with multiple references with multiple annotations */
-      continue;
-    }
-
-    /* found a symbol name. Build the type and push it to dynar */
-    if(gras_ddt_parse_tok_num == GRAS_DDT_PARSE_TOKEN_WORD) {
-
-      identifier.name=(char*)strdup(gras_ddt_parse_text);
-      DEBUG1("Found the identifier \"%s\"",identifier.name);
-      
-      xbt_dynar_push(identifiers, &identifier);
-      DEBUG1("Dynar_len=%lu",xbt_dynar_length(identifiers));
-      expect_id_separator = 1;
-      continue;
-    }
-
-    PARSE_ERROR0("Unparasable symbol (maybe a def struct in a def struct or a parser bug ;)");
-  }
-
-  if (identifier.tm.is_matrix>0) 
-     PARSE_ERROR0("xbt_matrix_t field without 'subtype' annotation");
-  if (identifier.tm.is_dynar>0)
-     PARSE_ERROR0("xbt_dynar_t field without 'subtype' annotation");
-   
-  XBT_OUT;
-}
-
-static gras_datadesc_type_t parse_struct(char *definition) {
-
-  xbt_ex_t e;
-
-  char buffname[32];
-  static int anonymous_struct=0;
-
-  xbt_dynar_t identifiers;
-  s_identifier_t field;
-  int i;
-  int done;
-
-  xbt_dynar_t fields_to_push;
-  char *name;
-
-  gras_datadesc_type_t struct_type;
-
-  XBT_IN;
-  identifiers = xbt_dynar_new(sizeof(s_identifier_t),NULL);
-  fields_to_push = xbt_dynar_new(sizeof(char*),NULL);
-
-  /* Create the struct descriptor */
-  if (gras_ddt_parse_tok_num == GRAS_DDT_PARSE_TOKEN_WORD) {
-    struct_type = gras_datadesc_struct(gras_ddt_parse_text);
-    VERB1("Parse the struct '%s'", gras_ddt_parse_text);
-    gras_ddt_parse_tok_num = gras_ddt_parse_lex_n_dump();
-  } else {
-    sprintf(buffname,"anonymous struct %d",anonymous_struct++); 
-    VERB1("Parse the anonymous struct nb %d", anonymous_struct);
-    struct_type = gras_datadesc_struct(buffname);
-  }
-
-  if (gras_ddt_parse_tok_num != GRAS_DDT_PARSE_TOKEN_LA)
-    PARSE_ERROR1("Unparasable symbol: Expecting struct definition, but got %s instead of '{'",
-                gras_ddt_parse_text);
-
-  /* Parse the identifiers */
-  done = 0;
-  do {
-    TRY {
-      parse_statement(definition,identifiers,fields_to_push);
-    } CATCH(e) {
-      if (e.category != mismatch_error)
-       RETHROW;
-      xbt_ex_free(e);
-      done = 1;
-    }
-    
-    DEBUG1("This statement contained %lu identifiers",xbt_dynar_length(identifiers));
-    /* append the identifiers we've found */
-    xbt_dynar_foreach(identifiers,i, field) {
-      if (field.tm.is_ref)
-       PARSE_ERROR2("Not enough GRAS_ANNOTATE to deal with all dereferencing levels of %s (%d '*' left)",
-                    field.name,field.tm.is_ref);
-
-      VERB2("Append field '%s' to %p",field.name, (void*)struct_type);      
-      gras_datadesc_struct_append(struct_type, field.name, field.type);
-      free(field.name);
-      free(field.type_name);
-
-    }
-    xbt_dynar_reset(identifiers);
-    DEBUG1("struct_type=%p",(void*)struct_type);
-    
-    /* Make sure that all fields declaring a size push it into the cbps */
-    xbt_dynar_foreach(fields_to_push,i, name) {
-      DEBUG1("struct_type=%p",(void*)struct_type);
-      if (name[0] == '*') {
-       VERB2("Push field '%s' as a multiplier into size stack of %p",
-             name+1, (void*)struct_type);
-       gras_datadesc_cb_field_push_multiplier(struct_type, name+1);
-      } else {
-       VERB2("Push field '%s' into size stack of %p",
-             name, (void*)struct_type);
-       gras_datadesc_cb_field_push(struct_type, name);
-      }
-      free(name);
-    }
-    xbt_dynar_reset(fields_to_push);
-  } while (!done);
-  gras_datadesc_struct_close(struct_type);
-
-  /* terminates */
-  if (gras_ddt_parse_tok_num != GRAS_DDT_PARSE_TOKEN_RA)
-    PARSE_ERROR1("Unparasable symbol: Expected '}' at the end of struct definition, got '%s'",
-                gras_ddt_parse_text);
-
-  gras_ddt_parse_tok_num = gras_ddt_parse_lex_n_dump();
-
-  xbt_dynar_free(&identifiers);
-  xbt_dynar_free(&fields_to_push);
-  XBT_OUT;
-  return struct_type;
-}
-
-static gras_datadesc_type_t parse_typedef(char *definition) {
-
-  s_type_modifier_t tm;
-
-  gras_datadesc_type_t struct_desc=NULL;
-  gras_datadesc_type_t typedef_desc=NULL;
-
-  XBT_IN;
-  memset(&tm,0,sizeof(tm));
-
-  /* get the aliased type */
-  parse_type_modifier(&tm);
-
-  if (tm.is_struct) {
-    struct_desc = parse_struct(definition);
-  }
-
-  parse_type_modifier(&tm);
-
-  if (tm.is_ref) 
-    PARSE_ERROR0("GRAS_DEFINE_TYPE cannot handle reference without annotation");
-
-  /* get the aliasing name */
-  if (gras_ddt_parse_tok_num != GRAS_DDT_PARSE_TOKEN_WORD)
-    PARSE_ERROR1("Unparsable typedef: Expected the alias name, and got '%s'",
-                gras_ddt_parse_text);
-  
-  /* (FIXME: should) build the alias */
-  PARSE_ERROR0("Unimplemented feature: GRAS_DEFINE_TYPE cannot handle typedef yet");
-
-  XBT_OUT;
-  return typedef_desc;
-}
-
-
-/**
- * gras_datadesc_parse:
- *
- * Create a datadescription from the result of parsing the C type description
- */
-gras_datadesc_type_t 
-gras_datadesc_parse(const char            *name,
-                   const char            *C_statement) {
-
-  gras_datadesc_type_t res=NULL;
-  char *definition;
-  int semicolon_count=0;
-  int def_count,C_count;
-
-  XBT_IN;
-  /* reput the \n in place for debug */
-  for (C_count=0; C_statement[C_count] != '\0'; C_count++)
-    if (C_statement[C_count] == ';' || C_statement[C_count] == '{')
-      semicolon_count++;
-  definition = (char*)xbt_malloc(C_count + semicolon_count + 1);
-  for (C_count=0,def_count=0; C_statement[C_count] != '\0'; C_count++) {
-    definition[def_count++] = C_statement[C_count];
-    if (C_statement[C_count] == ';' || C_statement[C_count] == '{') {
-      definition[def_count++] = '\n';
-    }
-  }
-  definition[def_count] = '\0';
-
-  /* init */ 
-  VERB2("_gras_ddt_type_parse(%s) -> %d chars",definition, def_count);
-  gras_ddt_parse_pointer_string_init(definition);
-
-  /* Do I have a typedef, or a raw struct ?*/
-  gras_ddt_parse_tok_num = gras_ddt_parse_lex_n_dump();
-  
-  if ((gras_ddt_parse_tok_num == GRAS_DDT_PARSE_TOKEN_WORD) && (!strcmp(gras_ddt_parse_text,"struct"))) {
-    gras_ddt_parse_tok_num = gras_ddt_parse_lex_n_dump();
-    res = parse_struct(definition);
-      
-  } else if ((gras_ddt_parse_tok_num == GRAS_DDT_PARSE_TOKEN_WORD) && (!strcmp(gras_ddt_parse_text,"typedef"))) {
-    gras_ddt_parse_tok_num = gras_ddt_parse_lex_n_dump();
-    res = parse_typedef(definition);
-
-  } else {
-    ERROR1("Failed to parse the following symbol (not a struct neither a typedef) :\n%s",definition);    
-    xbt_abort();
-  }
-
-  gras_ddt_parse_pointer_string_close();
-  VERB0("end of _gras_ddt_type_parse()");
-  free(definition);
-  /* register it under the name provided as symbol */
-  if (strcmp(res->name,name)) {
-    ERROR2("In GRAS_DEFINE_TYPE, the provided symbol (here %s) must be the C type name (here %s)",
-          name,res->name);
-    xbt_abort();
-  }    
-  gras_ddt_parse_lex_destroy();
-  XBT_OUT;
-  return res;
-}
-
-xbt_dict_t gras_dd_constants;
-/** \brief Declare a constant to the parsing mecanism. See the "\#define and fixed size array" section */
-void gras_datadesc_set_const(const char*name, int value) {
-  int *stored = xbt_new(int, 1);
-  *stored=value;
-
-  xbt_dict_set(gras_dd_constants,name, stored, xbt_free_f); 
-}
diff --git a/src/gras_simix/DataDesc/gras_simix_ddt_parse.yy.c b/src/gras_simix/DataDesc/gras_simix_ddt_parse.yy.c
deleted file mode 100644 (file)
index 3c9ea34..0000000
+++ /dev/null
@@ -1,1985 +0,0 @@
-
-#line 3 "gras/DataDesc/ddt_parse.yy.c"
-
-#define  YY_INT_ALIGNED short int
-
-/* A lexical scanner generated by flex */
-
-#define FLEX_SCANNER
-#define YY_FLEX_MAJOR_VERSION 2
-#define YY_FLEX_MINOR_VERSION 5
-#define YY_FLEX_SUBMINOR_VERSION 31
-#if YY_FLEX_SUBMINOR_VERSION > 0
-#define FLEX_BETA
-#endif
-
-/* First, we deal with  platform-specific or compiler-specific issues. */
-
-/* begin standard C headers. */
-#include <stdio.h>
-#include <string.h>
-#include <errno.h>
-#include <stdlib.h>
-
-/* end standard C headers. */
-
-/* flex integer type definitions */
-
-#ifndef FLEXINT_H
-#define FLEXINT_H
-
-/* C99 systems have <inttypes.h>. Non-C99 systems may or may not. */
-
-#if defined __STDC_VERSION__ && __STDC_VERSION__ >= 199901L
-#include <inttypes.h>
-typedef int8_t flex_int8_t;
-typedef uint8_t flex_uint8_t;
-typedef int16_t flex_int16_t;
-typedef uint16_t flex_uint16_t;
-typedef int32_t flex_int32_t;
-typedef uint32_t flex_uint32_t;
-#else
-typedef signed char flex_int8_t;
-typedef short int flex_int16_t;
-typedef int flex_int32_t;
-typedef unsigned char flex_uint8_t; 
-typedef unsigned short int flex_uint16_t;
-typedef unsigned int flex_uint32_t;
-#endif /* ! C99 */
-
-/* Limits of integral types. */
-#ifndef INT8_MIN
-#define INT8_MIN               (-128)
-#endif
-#ifndef INT16_MIN
-#define INT16_MIN              (-32767-1)
-#endif
-#ifndef INT32_MIN
-#define INT32_MIN              (-2147483647-1)
-#endif
-#ifndef INT8_MAX
-#define INT8_MAX               (127)
-#endif
-#ifndef INT16_MAX
-#define INT16_MAX              (32767)
-#endif
-#ifndef INT32_MAX
-#define INT32_MAX              (2147483647)
-#endif
-#ifndef UINT8_MAX
-#define UINT8_MAX              (255U)
-#endif
-#ifndef UINT16_MAX
-#define UINT16_MAX             (65535U)
-#endif
-#ifndef UINT32_MAX
-#define UINT32_MAX             (4294967295U)
-#endif
-
-#endif /* ! FLEXINT_H */
-
-#ifdef __cplusplus
-
-/* The "const" storage-class-modifier is valid. */
-#define YY_USE_CONST
-
-#else  /* ! __cplusplus */
-
-#if __STDC__
-
-#define YY_USE_CONST
-
-#endif /* __STDC__ */
-#endif /* ! __cplusplus */
-
-#ifdef YY_USE_CONST
-#define yyconst const
-#else
-#define yyconst
-#endif
-
-/* Returned upon end-of-file. */
-#define YY_NULL 0
-
-/* Promotes a possibly negative, possibly signed char to an unsigned
- * integer for use as an array index.  If the signed char is negative,
- * we want to instead treat it as an 8-bit unsigned char, hence the
- * double cast.
- */
-#define YY_SC_TO_UI(c) ((unsigned int) (unsigned char) c)
-
-/* Enter a start condition.  This macro really ought to take a parameter,
- * but we do it the disgusting crufty way forced on us by the ()-less
- * definition of BEGIN.
- */
-#define BEGIN (yy_start) = 1 + 2 *
-
-/* Translate the current start state into a value that can be later handed
- * to BEGIN to return to the state.  The YYSTATE alias is for lex
- * compatibility.
- */
-#define YY_START (((yy_start) - 1) / 2)
-#define YYSTATE YY_START
-
-/* Action number for EOF rule of a given start state. */
-#define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1)
-
-/* Special action meaning "start processing a new file". */
-#define YY_NEW_FILE gras_ddt_parse_restart(gras_ddt_parse_in  )
-
-#define YY_END_OF_BUFFER_CHAR 0
-
-/* Size of default input buffer. */
-#ifndef YY_BUF_SIZE
-#define YY_BUF_SIZE 16384
-#endif
-
-#ifndef YY_TYPEDEF_YY_BUFFER_STATE
-#define YY_TYPEDEF_YY_BUFFER_STATE
-typedef struct yy_buffer_state *YY_BUFFER_STATE;
-#endif
-
-extern int gras_ddt_parse_leng;
-
-extern FILE *gras_ddt_parse_in, *gras_ddt_parse_out;
-
-#define EOB_ACT_CONTINUE_SCAN 0
-#define EOB_ACT_END_OF_FILE 1
-#define EOB_ACT_LAST_MATCH 2
-
-    #define YY_LESS_LINENO(n)
-    
-/* Return all but the first "n" matched characters back to the input stream. */
-#define yyless(n) \
-       do \
-               { \
-               /* Undo effects of setting up gras_ddt_parse_text. */ \
-        int yyless_macro_arg = (n); \
-        YY_LESS_LINENO(yyless_macro_arg);\
-               *yy_cp = (yy_hold_char); \
-               YY_RESTORE_YY_MORE_OFFSET \
-               (yy_c_buf_p) = yy_cp = yy_bp + yyless_macro_arg - YY_MORE_ADJ; \
-               YY_DO_BEFORE_ACTION; /* set up gras_ddt_parse_text again */ \
-               } \
-       while ( 0 )
-
-#define unput(c) yyunput( c, (yytext_ptr)  )
-
-/* The following is because we cannot portably get our hands on size_t
- * (without autoconf's help, which isn't available because we want
- * flex-generated scanners to compile on their own).
- */
-
-#ifndef YY_TYPEDEF_YY_SIZE_T
-#define YY_TYPEDEF_YY_SIZE_T
-typedef unsigned int yy_size_t;
-#endif
-
-#ifndef YY_STRUCT_YY_BUFFER_STATE
-#define YY_STRUCT_YY_BUFFER_STATE
-struct yy_buffer_state
-       {
-       FILE *yy_input_file;
-
-       char *yy_ch_buf;                /* input buffer */
-       char *yy_buf_pos;               /* current position in input buffer */
-
-       /* Size of input buffer in bytes, not including room for EOB
-        * characters.
-        */
-       yy_size_t yy_buf_size;
-
-       /* Number of characters read into yy_ch_buf, not including EOB
-        * characters.
-        */
-       int yy_n_chars;
-
-       /* Whether we "own" the buffer - i.e., we know we created it,
-        * and can realloc() it to grow it, and should free() it to
-        * delete it.
-        */
-       int yy_is_our_buffer;
-
-       /* Whether this is an "interactive" input source; if so, and
-        * if we're using stdio for input, then we want to use getc()
-        * instead of fread(), to make sure we stop fetching input after
-        * each newline.
-        */
-       int yy_is_interactive;
-
-       /* Whether we're considered to be at the beginning of a line.
-        * If so, '^' rules will be active on the next match, otherwise
-        * not.
-        */
-       int yy_at_bol;
-
-    int yy_bs_lineno; /**< The line count. */
-    int yy_bs_column; /**< The column count. */
-    
-       /* Whether to try to fill the input buffer when we reach the
-        * end of it.
-        */
-       int yy_fill_buffer;
-
-       int yy_buffer_status;
-
-#define YY_BUFFER_NEW 0
-#define YY_BUFFER_NORMAL 1
-       /* When an EOF's been seen but there's still some text to process
-        * then we mark the buffer as YY_EOF_PENDING, to indicate that we
-        * shouldn't try reading from the input source any more.  We might
-        * still have a bunch of tokens to match, though, because of
-        * possible backing-up.
-        *
-        * When we actually see the EOF, we change the status to "new"
-        * (via gras_ddt_parse_restart()), so that the user can continue scanning by
-        * just pointing gras_ddt_parse_in at a new input file.
-        */
-#define YY_BUFFER_EOF_PENDING 2
-
-       };
-#endif /* !YY_STRUCT_YY_BUFFER_STATE */
-
-/* Stack of input buffers. */
-static size_t yy_buffer_stack_top = 0; /**< index of top of stack. */
-static size_t yy_buffer_stack_max = 0; /**< capacity of stack. */
-static YY_BUFFER_STATE * yy_buffer_stack = 0; /**< Stack as an array. */
-
-/* We provide macros for accessing buffer states in case in the
- * future we want to put the buffer states in a more general
- * "scanner state".
- *
- * Returns the top of the stack, or NULL.
- */
-#define YY_CURRENT_BUFFER ( (yy_buffer_stack) \
-                          ? (yy_buffer_stack)[(yy_buffer_stack_top)] \
-                          : NULL)
-
-/* Same as previous macro, but useful when we know that the buffer stack is not
- * NULL or when we need an lvalue. For internal use only.
- */
-#define YY_CURRENT_BUFFER_LVALUE (yy_buffer_stack)[(yy_buffer_stack_top)]
-
-/* yy_hold_char holds the character lost when gras_ddt_parse_text is formed. */
-static char yy_hold_char;
-static int yy_n_chars;         /* number of characters read into yy_ch_buf */
-int gras_ddt_parse_leng;
-
-/* Points to current character in buffer. */
-static char *yy_c_buf_p = (char *) 0;
-static int yy_init = 1;                /* whether we need to initialize */
-static int yy_start = 0;       /* start state number */
-
-/* Flag which is used to allow gras_ddt_parse_wrap()'s to do buffer switches
- * instead of setting up a fresh gras_ddt_parse_in.  A bit of a hack ...
- */
-static int yy_did_buffer_switch_on_eof;
-
-void gras_ddt_parse_restart (FILE *input_file  );
-void gras_ddt_parse__switch_to_buffer (YY_BUFFER_STATE new_buffer  );
-YY_BUFFER_STATE gras_ddt_parse__create_buffer (FILE *file,int size  );
-void gras_ddt_parse__delete_buffer (YY_BUFFER_STATE b  );
-void gras_ddt_parse__flush_buffer (YY_BUFFER_STATE b  );
-void gras_ddt_parse_push_buffer_state (YY_BUFFER_STATE new_buffer  );
-void gras_ddt_parse_pop_buffer_state (void );
-
-static void gras_ddt_parse_ensure_buffer_stack (void );
-static void gras_ddt_parse__load_buffer_state (void );
-static void gras_ddt_parse__init_buffer (YY_BUFFER_STATE b,FILE *file  );
-
-#define YY_FLUSH_BUFFER gras_ddt_parse__flush_buffer(YY_CURRENT_BUFFER )
-
-YY_BUFFER_STATE gras_ddt_parse__scan_buffer (char *base,yy_size_t size  );
-YY_BUFFER_STATE gras_ddt_parse__scan_string (yyconst char *yy_str  );
-YY_BUFFER_STATE gras_ddt_parse__scan_bytes (yyconst char *bytes,int len  );
-
-void *gras_ddt_parse_alloc (yy_size_t  );
-void *gras_ddt_parse_realloc (void *,yy_size_t  );
-void gras_ddt_parse_free (void *  );
-
-#define yy_new_buffer gras_ddt_parse__create_buffer
-
-#define yy_set_interactive(is_interactive) \
-       { \
-       if ( ! YY_CURRENT_BUFFER ){ \
-        gras_ddt_parse_ensure_buffer_stack (); \
-               YY_CURRENT_BUFFER_LVALUE =    \
-            gras_ddt_parse__create_buffer(gras_ddt_parse_in,YY_BUF_SIZE ); \
-       } \
-       YY_CURRENT_BUFFER_LVALUE->yy_is_interactive = is_interactive; \
-       }
-
-#define yy_set_bol(at_bol) \
-       { \
-       if ( ! YY_CURRENT_BUFFER ){\
-        gras_ddt_parse_ensure_buffer_stack (); \
-               YY_CURRENT_BUFFER_LVALUE =    \
-            gras_ddt_parse__create_buffer(gras_ddt_parse_in,YY_BUF_SIZE ); \
-       } \
-       YY_CURRENT_BUFFER_LVALUE->yy_at_bol = at_bol; \
-       }
-
-#define YY_AT_BOL() (YY_CURRENT_BUFFER_LVALUE->yy_at_bol)
-
-/* Begin user sect3 */
-
-#define gras_ddt_parse_wrap() 1
-#define YY_SKIP_YYWRAP
-
-typedef unsigned char YY_CHAR;
-
-FILE *gras_ddt_parse_in = (FILE *) 0, *gras_ddt_parse_out = (FILE *) 0;
-
-typedef int yy_state_type;
-
-extern int gras_ddt_parse_lineno;
-
-int gras_ddt_parse_lineno = 1;
-
-extern char *gras_ddt_parse_text;
-#define yytext_ptr gras_ddt_parse_text
-
-static yy_state_type yy_get_previous_state (void );
-static yy_state_type yy_try_NUL_trans (yy_state_type current_state  );
-static int yy_get_next_buffer (void );
-static void yy_fatal_error (yyconst char msg[]  );
-
-/* Done after the current pattern has been matched and before the
- * corresponding action - sets up gras_ddt_parse_text.
- */
-#define YY_DO_BEFORE_ACTION \
-       (yytext_ptr) = yy_bp; \
-       gras_ddt_parse_leng = (size_t) (yy_cp - yy_bp); \
-       (yy_hold_char) = *yy_cp; \
-       *yy_cp = '\0'; \
-       (yy_c_buf_p) = yy_cp;
-
-#define YY_NUM_RULES 26
-#define YY_END_OF_BUFFER 27
-/* This struct is not used in this scanner,
-   but its presence is necessary. */
-struct yy_trans_info
-       {
-       flex_int32_t yy_verify;
-       flex_int32_t yy_nxt;
-       };
-static yyconst flex_int16_t yy_accept[61] =
-    {   0,
-       14,   14,    7,    7,   10,   10,    0,    0,   27,   25,
-       24,   19,   20,   21,   23,   14,   25,   22,   17,   18,
-       15,   16,    7,    7,    6,    7,    7,   10,   12,   11,
-       26,   26,   14,    0,    1,    7,    7,    7,    5,    7,
-       10,   11,   11,   13,    0,    0,    2,    1,    4,    0,
-        3,    0,    2,    0,    3,    0,    0,    8,    9,    0
-    } ;
-
-static yyconst flex_int32_t yy_ec[256] =
-    {   0,
-        1,    1,    1,    1,    1,    1,    1,    1,    2,    3,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    2,    1,    1,    1,    1,    1,    1,    1,    4,
-        5,    6,    1,    7,    8,    8,    9,   10,   10,   10,
-       10,   10,   10,   10,   10,   10,   10,    1,   11,    1,
-        1,    1,    1,    1,    8,    8,    8,    8,    8,    8,
-        8,    8,    8,    8,    8,    8,    8,    8,    8,    8,
-        8,    8,    8,    8,    8,    8,    8,    8,    8,    8,
-       12,    1,   13,   14,    8,    1,    8,    8,    8,    8,
-
-        8,    8,   15,    8,    8,    8,    8,    8,    8,    8,
-        8,    8,    8,    8,    8,    8,    8,    8,    8,    8,
-        8,    8,   16,    1,   17,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1
-    } ;
-
-static yyconst flex_int32_t yy_meta[18] =
-    {   0,
-        1,    1,    2,    1,    1,    3,    1,    4,    1,    4,
-        1,    1,    1,    1,    4,    1,    1
-    } ;
-
-static yyconst flex_int16_t yy_base[69] =
-    {   0,
-        0,    0,   16,   30,   17,   18,   78,   77,   85,   88,
-       88,   88,   88,   88,   88,    0,   19,   88,   88,   88,
-       88,   88,    0,   24,   88,   75,   77,    0,   88,   21,
-       88,   76,    0,   22,    0,    0,   27,   75,    0,   71,
-        0,   29,   34,   88,   29,   65,   76,    0,    0,   63,
-       74,   60,   72,   56,   65,   51,   50,   88,   88,   88,
-       45,   49,   53,   55,   57,   61,   65,   69
-    } ;
-
-static yyconst flex_int16_t yy_def[69] =
-    {   0,
-       60,    1,   61,   61,   62,   62,   63,   63,   60,   60,
-       60,   60,   60,   60,   60,   64,   60,   60,   60,   60,
-       60,   60,   65,   65,   60,   65,   65,   66,   60,   67,
-       60,   60,   64,   60,   68,   65,   65,   65,   65,   65,
-       66,   67,   67,   60,   60,   60,   60,   68,   65,   60,
-       60,   60,   60,   60,   60,   60,   60,   60,   60,    0,
-       60,   60,   60,   60,   60,   60,   60,   60
-    } ;
-
-static yyconst flex_int16_t yy_nxt[106] =
-    {   0,
-       10,   10,   11,   12,   13,   14,   15,   16,   17,   16,
-       18,   19,   20,   10,   16,   21,   22,   24,   25,   29,
-       29,   26,   30,   30,   34,   37,   43,   35,   37,   44,
-       27,   24,   25,   46,   60,   26,   47,   60,   38,   43,
-       50,   38,   44,   51,   27,   23,   23,   23,   23,   28,
-       28,   28,   28,   31,   31,   31,   31,   36,   33,   36,
-       36,   41,   59,   58,   41,   42,   55,   42,   42,   48,
-       57,   48,   48,   53,   56,   55,   54,   53,   52,   49,
-       40,   45,   40,   39,   60,   32,   32,    9,   60,   60,
-       60,   60,   60,   60,   60,   60,   60,   60,   60,   60,
-
-       60,   60,   60,   60,   60
-    } ;
-
-static yyconst flex_int16_t yy_chk[106] =
-    {   0,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    3,    3,    5,
-        6,    3,    5,    6,   17,   24,   30,   17,   37,   30,
-        3,    4,    4,   34,   42,    4,   34,   42,   24,   43,
-       45,   37,   43,   45,    4,   61,   61,   61,   61,   62,
-       62,   62,   62,   63,   63,   63,   63,   65,   64,   65,
-       65,   66,   57,   56,   66,   67,   55,   67,   67,   68,
-       54,   68,   68,   53,   52,   51,   50,   47,   46,   40,
-       38,   32,   27,   26,    9,    8,    7,   60,   60,   60,
-       60,   60,   60,   60,   60,   60,   60,   60,   60,   60,
-
-       60,   60,   60,   60,   60
-    } ;
-
-static yy_state_type yy_last_accepting_state;
-static char *yy_last_accepting_cpos;
-
-extern int gras_ddt_parse__flex_debug;
-int gras_ddt_parse__flex_debug = 0;
-
-/* The intent behind this definition is that it'll catch
- * any uses of REJECT which flex missed.
- */
-#define REJECT reject_used_but_not_detected
-#define yymore() yymore_used_but_not_detected
-#define YY_MORE_ADJ 0
-#define YY_RESTORE_YY_MORE_OFFSET
-char *gras_ddt_parse_text;
-/* $Id$ */
-/* DataDesc/ddt_parse -- automatic parsing of data structures */
-/* Copyright (c) 2004 Arnaud Legrand, Martin Quinson. 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. */
-#include "gras/DataDesc/datadesc_private.h"
-#include "gras/DataDesc/ddt_parse.yy.h"
-#include <string.h>
-  YY_BUFFER_STATE gras_ddt_input_buffer;
-  FILE *gras_ddt_file_to_parse;
-
-  int gras_ddt_parse_line_pos = 1;
-  int gras_ddt_parse_col_pos = 0;
-  int gras_ddt_parse_char_pos = 0;
-  int gras_ddt_parse_tok_num = 0;
-  const char *definition;
-  XBT_LOG_NEW_DEFAULT_SUBCATEGORY(gras_ddt_lexer,gras_ddt_parse,"The crude internals of the lexer used for type parsing");
-#define SHOW_WHERE DEBUG4("%d:%d (char #%d): seen '%s'", gras_ddt_parse_line_pos,gras_ddt_parse_col_pos,gras_ddt_parse_char_pos,gras_ddt_parse_text)
-
-#define INITIAL 0
-#define annotate 1
-#define comment 2
-#define foo 3
-
-#ifndef YY_NO_UNISTD_H
-/* Special case for "unistd.h", since it is non-ANSI. We include it way
- * down here because we want the user's section 1 to have been scanned first.
- * The user has a chance to override it with an option.
- */
-#include <unistd.h>
-#endif
-
-#ifndef YY_EXTRA_TYPE
-#define YY_EXTRA_TYPE void *
-#endif
-
-/* Macros after this point can all be overridden by user definitions in
- * section 1.
- */
-
-#ifndef YY_SKIP_YYWRAP
-#ifdef __cplusplus
-extern "C" int gras_ddt_parse_wrap (void );
-#else
-extern int gras_ddt_parse_wrap (void );
-#endif
-#endif
-
-    static void yyunput (int c,char *buf_ptr  );
-    
-#ifndef yytext_ptr
-static void yy_flex_strncpy (char *,yyconst char *,int );
-#endif
-
-#ifdef YY_NEED_STRLEN
-static int yy_flex_strlen (yyconst char * );
-#endif
-
-#ifndef YY_NO_INPUT
-
-#ifdef __cplusplus
-static int yyinput (void );
-#else
-static int input (void );
-#endif
-
-#endif
-
-/* Amount of stuff to slurp up with each read. */
-#ifndef YY_READ_BUF_SIZE
-#define YY_READ_BUF_SIZE 8192
-#endif
-
-/* Copy whatever the last rule matched to the standard output. */
-#ifndef ECHO
-/* This used to be an fputs(), but since the string might contain NUL's,
- * we now use fwrite().
- */
-#define ECHO (void) fwrite( gras_ddt_parse_text, gras_ddt_parse_leng, 1, gras_ddt_parse_out )
-#endif
-
-/* Gets input and stuffs it into "buf".  number of characters read, or YY_NULL,
- * is returned in "result".
- */
-#ifndef YY_INPUT
-#define YY_INPUT(buf,result,max_size) \
-       if ( YY_CURRENT_BUFFER_LVALUE->yy_is_interactive ) \
-               { \
-               int c = '*'; \
-               size_t n; \
-               for ( n = 0; n < max_size && \
-                            (c = getc( gras_ddt_parse_in )) != EOF && c != '\n'; ++n ) \
-                       buf[n] = (char) c; \
-               if ( c == '\n' ) \
-                       buf[n++] = (char) c; \
-               if ( c == EOF && ferror( gras_ddt_parse_in ) ) \
-                       YY_FATAL_ERROR( "input in flex scanner failed" ); \
-               result = n; \
-               } \
-       else \
-               { \
-               errno=0; \
-               while ( (result = fread(buf, 1, max_size, gras_ddt_parse_in))==0 && ferror(gras_ddt_parse_in)) \
-                       { \
-                       if( errno != EINTR) \
-                               { \
-                               YY_FATAL_ERROR( "input in flex scanner failed" ); \
-                               break; \
-                               } \
-                       errno=0; \
-                       clearerr(gras_ddt_parse_in); \
-                       } \
-               }\
-\
-
-#endif
-
-/* No semi-colon after return; correct usage is to write "yyterminate();" -
- * we don't want an extra ';' after the "return" because that will cause
- * some compilers to complain about unreachable statements.
- */
-#ifndef yyterminate
-#define yyterminate() return YY_NULL
-#endif
-
-/* Number of entries by which start-condition stack grows. */
-#ifndef YY_START_STACK_INCR
-#define YY_START_STACK_INCR 25
-#endif
-
-/* Report a fatal error. */
-#ifndef YY_FATAL_ERROR
-#define YY_FATAL_ERROR(msg) yy_fatal_error( msg )
-#endif
-
-/* end tables serialization structures and prototypes */
-
-/* Default declaration of generated scanner - a define so the user can
- * easily add parameters.
- */
-#ifndef YY_DECL
-#define YY_DECL_IS_OURS 1
-
-extern int gras_ddt_parse_lex (void);
-
-#define YY_DECL int gras_ddt_parse_lex (void)
-#endif /* !YY_DECL */
-
-/* Code executed at the beginning of each rule, after gras_ddt_parse_text and gras_ddt_parse_leng
- * have been set up.
- */
-#ifndef YY_USER_ACTION
-#define YY_USER_ACTION
-#endif
-
-/* Code executed at the end of each rule. */
-#ifndef YY_BREAK
-#define YY_BREAK break;
-#endif
-
-#define YY_RULE_SETUP \
-       YY_USER_ACTION
-
-/** The main scanner function which does all the work.
- */
-YY_DECL
-{
-       register yy_state_type yy_current_state;
-       register char *yy_cp, *yy_bp;
-       register int yy_act;
-    
-   int comment_caller=0;
-   int annotate_caller=0;
-
-       if ( (yy_init) )
-               {
-               (yy_init) = 0;
-
-#ifdef YY_USER_INIT
-               YY_USER_INIT;
-#endif
-
-               if ( ! (yy_start) )
-                       (yy_start) = 1; /* first start state */
-
-               if ( ! gras_ddt_parse_in )
-                       gras_ddt_parse_in = stdin;
-
-               if ( ! gras_ddt_parse_out )
-                       gras_ddt_parse_out = stdout;
-
-               if ( ! YY_CURRENT_BUFFER ) {
-                       gras_ddt_parse_ensure_buffer_stack ();
-                       YY_CURRENT_BUFFER_LVALUE =
-                               gras_ddt_parse__create_buffer(gras_ddt_parse_in,YY_BUF_SIZE );
-               }
-
-               gras_ddt_parse__load_buffer_state( );
-               }
-
-       while ( 1 )             /* loops until end-of-file is reached */
-               {
-               yy_cp = (yy_c_buf_p);
-
-               /* Support of gras_ddt_parse_text. */
-               *yy_cp = (yy_hold_char);
-
-               /* yy_bp points to the position in yy_ch_buf of the start of
-                * the current run.
-                */
-               yy_bp = yy_cp;
-
-               yy_current_state = (yy_start);
-yy_match:
-               do
-                       {
-                       register YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)];
-                       if ( yy_accept[yy_current_state] )
-                               {
-                               (yy_last_accepting_state) = yy_current_state;
-                               (yy_last_accepting_cpos) = yy_cp;
-                               }
-                       while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
-                               {
-                               yy_current_state = (int) yy_def[yy_current_state];
-                               if ( yy_current_state >= 61 )
-                                       yy_c = yy_meta[(unsigned int) yy_c];
-                               }
-                       yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
-                       ++yy_cp;
-                       }
-               while ( yy_base[yy_current_state] != 88 );
-
-yy_find_action:
-               yy_act = yy_accept[yy_current_state];
-               if ( yy_act == 0 )
-                       { /* have to back up */
-                       yy_cp = (yy_last_accepting_cpos);
-                       yy_current_state = (yy_last_accepting_state);
-                       yy_act = yy_accept[yy_current_state];
-                       }
-
-               YY_DO_BEFORE_ACTION;
-
-do_action:     /* This label is used only to access EOF actions. */
-
-               switch ( yy_act )
-       { /* beginning of action switch */
-                       case 0: /* must back up */
-                       /* undo the effects of YY_DO_BEFORE_ACTION */
-                       *yy_cp = (yy_hold_char);
-                       yy_cp = (yy_last_accepting_cpos);
-                       yy_current_state = (yy_last_accepting_state);
-                       goto yy_find_action;
-
-case 1:
-YY_RULE_SETUP
-
-       YY_BREAK
-case 2:
-YY_RULE_SETUP
-{ /****************** ANNOTATION ************************/
-  DEBUG0("Begin annotation");
-  annotate_caller = INITIAL;
-  gras_ddt_parse_char_pos+= strlen(gras_ddt_parse_text);
-  gras_ddt_parse_col_pos+= strlen(gras_ddt_parse_text);
-  BEGIN(annotate);
-}
-       YY_BREAK
-case 3:
-YY_RULE_SETUP
-{ /* trim annotation */
-  DEBUG0("Begin annotation");
-  annotate_caller = foo;
-  gras_ddt_parse_char_pos+= strlen(gras_ddt_parse_text);
-  gras_ddt_parse_col_pos+= strlen(gras_ddt_parse_text);
-  BEGIN(annotate);
-}
-       YY_BREAK
-case 4:
-YY_RULE_SETUP
-{
-  DEBUG0("End annotation");
-  gras_ddt_parse_char_pos+= strlen(gras_ddt_parse_text);
-  gras_ddt_parse_col_pos+= strlen(gras_ddt_parse_text);
-  BEGIN(annotate_caller);
-}
-       YY_BREAK
-case 5:
-YY_RULE_SETUP
-{
-  PARSE_ERROR0("``/*g'' construct closed by a regular ``*/''");
-}
-       YY_BREAK
-case 6:
-/* rule 6 can match eol */
-YY_RULE_SETUP
-{
-  PARSE_ERROR0("Type annotation cannot spread over several lines");
-}
-       YY_BREAK
-case 7:
-YY_RULE_SETUP
-{ /* eat the rest */
-  gras_ddt_parse_char_pos+= strlen(gras_ddt_parse_text);
-  gras_ddt_parse_col_pos+= strlen(gras_ddt_parse_text);
-  return GRAS_DDT_PARSE_TOKEN_ANNOTATE;
-}
-       YY_BREAK
-case 8:
-YY_RULE_SETUP
-{ /****************** COMMENTS ************************/
-  /* constructs like : */
-    /*g [string] g*/ 
-  /* are not comments but size annotations */
-  comment_caller = INITIAL;
-  BEGIN(comment);
-}
-       YY_BREAK
-case 9:
-YY_RULE_SETUP
-{
-  comment_caller = foo;
-  BEGIN(comment);
-}
-       YY_BREAK
-case 10:
-YY_RULE_SETUP
-{ /* eat anything that's not a '*' */
-}
-       YY_BREAK
-case 11:
-YY_RULE_SETUP
-{ /* eat up '*'s not followed by '/'s */
-}
-       YY_BREAK
-case 12:
-/* rule 12 can match eol */
-YY_RULE_SETUP
-{
-  ++gras_ddt_parse_line_pos;
-  gras_ddt_parse_col_pos=0;
-  gras_ddt_parse_char_pos++;
-}
-       YY_BREAK
-case 13:
-YY_RULE_SETUP
-{
-  gras_ddt_parse_char_pos+= strlen(gras_ddt_parse_text);
-  gras_ddt_parse_col_pos+= strlen(gras_ddt_parse_text);
-  BEGIN(comment_caller);
-}
-       YY_BREAK
-case 14:
-YY_RULE_SETUP
-{  /****************** STATEMENTS ************************/
-  gras_ddt_parse_char_pos += strlen(gras_ddt_parse_text);
-  gras_ddt_parse_col_pos += strlen(gras_ddt_parse_text);
-  SHOW_WHERE;
-  return(GRAS_DDT_PARSE_TOKEN_WORD);
-}
-       YY_BREAK
-case 15:
-YY_RULE_SETUP
-{ 
-  gras_ddt_parse_char_pos++; 
-  gras_ddt_parse_col_pos++; 
-  SHOW_WHERE;
-  return(GRAS_DDT_PARSE_TOKEN_LA);
-}
-       YY_BREAK
-case 16:
-YY_RULE_SETUP
-{
-  gras_ddt_parse_char_pos++;
-  gras_ddt_parse_col_pos++;
-  SHOW_WHERE;
-  return(GRAS_DDT_PARSE_TOKEN_RA);
-}
-       YY_BREAK
-case 17:
-YY_RULE_SETUP
-{ 
-  gras_ddt_parse_char_pos++; 
-  gras_ddt_parse_col_pos++; 
-  SHOW_WHERE;
-  return(GRAS_DDT_PARSE_TOKEN_LB);
-}
-       YY_BREAK
-case 18:
-YY_RULE_SETUP
-{
-  gras_ddt_parse_char_pos++;
-  gras_ddt_parse_col_pos++;
-  SHOW_WHERE;
-  return(GRAS_DDT_PARSE_TOKEN_RB);
-}
-       YY_BREAK
-case 19:
-YY_RULE_SETUP
-{ 
-  gras_ddt_parse_char_pos++; 
-  gras_ddt_parse_col_pos++; 
-  SHOW_WHERE;
-  return(GRAS_DDT_PARSE_TOKEN_LP);
-}
-       YY_BREAK
-case 20:
-YY_RULE_SETUP
-{
-  gras_ddt_parse_char_pos++;
-  gras_ddt_parse_col_pos++;
-  SHOW_WHERE;
-  return(GRAS_DDT_PARSE_TOKEN_RP);
-}
-       YY_BREAK
-case 21:
-YY_RULE_SETUP
-{
-  gras_ddt_parse_char_pos++;
-  gras_ddt_parse_col_pos++;
-  SHOW_WHERE;
-  return(GRAS_DDT_PARSE_TOKEN_STAR);
-}
-       YY_BREAK
-case 22:
-YY_RULE_SETUP
-{
-  gras_ddt_parse_char_pos++;
-  gras_ddt_parse_col_pos++;
-  SHOW_WHERE;
-  return(GRAS_DDT_PARSE_TOKEN_SEMI_COLON);
-}
-       YY_BREAK
-case 23:
-YY_RULE_SETUP
-{ 
-  gras_ddt_parse_char_pos++;
-  gras_ddt_parse_col_pos++;
-  SHOW_WHERE;
-  return(GRAS_DDT_PARSE_TOKEN_COLON);
-}
-       YY_BREAK
-case 24:
-/* rule 24 can match eol */
-YY_RULE_SETUP
-{
- gras_ddt_parse_line_pos++; 
- gras_ddt_parse_char_pos++;
- gras_ddt_parse_col_pos=0;
-  SHOW_WHERE;
-}
-       YY_BREAK
-case 25:
-YY_RULE_SETUP
-{ 
-  gras_ddt_parse_char_pos++;
-  gras_ddt_parse_col_pos++;
-  SHOW_WHERE;
-}
-       YY_BREAK
-case 26:
-YY_RULE_SETUP
-ECHO;
-       YY_BREAK
-case YY_STATE_EOF(INITIAL):
-case YY_STATE_EOF(annotate):
-case YY_STATE_EOF(comment):
-case YY_STATE_EOF(foo):
-       yyterminate();
-
-       case YY_END_OF_BUFFER:
-               {
-               /* Amount of text matched not including the EOB char. */
-               int yy_amount_of_matched_text = (int) (yy_cp - (yytext_ptr)) - 1;
-
-               /* Undo the effects of YY_DO_BEFORE_ACTION. */
-               *yy_cp = (yy_hold_char);
-               YY_RESTORE_YY_MORE_OFFSET
-
-               if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_NEW )
-                       {
-                       /* We're scanning a new file or input source.  It's
-                        * possible that this happened because the user
-                        * just pointed gras_ddt_parse_in at a new source and called
-                        * gras_ddt_parse_lex().  If so, then we have to assure
-                        * consistency between YY_CURRENT_BUFFER and our
-                        * globals.  Here is the right place to do so, because
-                        * this is the first action (other than possibly a
-                        * back-up) that will match for the new input source.
-                        */
-                       (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
-                       YY_CURRENT_BUFFER_LVALUE->yy_input_file = gras_ddt_parse_in;
-                       YY_CURRENT_BUFFER_LVALUE->yy_buffer_status = YY_BUFFER_NORMAL;
-                       }
-
-               /* Note that here we test for yy_c_buf_p "<=" to the position
-                * of the first EOB in the buffer, since yy_c_buf_p will
-                * already have been incremented past the NUL character
-                * (since all states make transitions on EOB to the
-                * end-of-buffer state).  Contrast this with the test
-                * in input().
-                */
-               if ( (yy_c_buf_p) <= &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] )
-                       { /* This was really a NUL. */
-                       yy_state_type yy_next_state;
-
-                       (yy_c_buf_p) = (yytext_ptr) + yy_amount_of_matched_text;
-
-                       yy_current_state = yy_get_previous_state(  );
-
-                       /* Okay, we're now positioned to make the NUL
-                        * transition.  We couldn't have
-                        * yy_get_previous_state() go ahead and do it
-                        * for us because it doesn't know how to deal
-                        * with the possibility of jamming (and we don't
-                        * want to build jamming into it because then it
-                        * will run more slowly).
-                        */
-
-                       yy_next_state = yy_try_NUL_trans( yy_current_state );
-
-                       yy_bp = (yytext_ptr) + YY_MORE_ADJ;
-
-                       if ( yy_next_state )
-                               {
-                               /* Consume the NUL. */
-                               yy_cp = ++(yy_c_buf_p);
-                               yy_current_state = yy_next_state;
-                               goto yy_match;
-                               }
-
-                       else
-                               {
-                               yy_cp = (yy_c_buf_p);
-                               goto yy_find_action;
-                               }
-                       }
-
-               else switch ( yy_get_next_buffer(  ) )
-                       {
-                       case EOB_ACT_END_OF_FILE:
-                               {
-                               (yy_did_buffer_switch_on_eof) = 0;
-
-                               if ( gras_ddt_parse_wrap( ) )
-                                       {
-                                       /* Note: because we've taken care in
-                                        * yy_get_next_buffer() to have set up
-                                        * gras_ddt_parse_text, we can now set up
-                                        * yy_c_buf_p so that if some total
-                                        * hoser (like flex itself) wants to
-                                        * call the scanner after we return the
-                                        * YY_NULL, it'll still work - another
-                                        * YY_NULL will get returned.
-                                        */
-                                       (yy_c_buf_p) = (yytext_ptr) + YY_MORE_ADJ;
-
-                                       yy_act = YY_STATE_EOF(YY_START);
-                                       goto do_action;
-                                       }
-
-                               else
-                                       {
-                                       if ( ! (yy_did_buffer_switch_on_eof) )
-                                               YY_NEW_FILE;
-                                       }
-                               break;
-                               }
-
-                       case EOB_ACT_CONTINUE_SCAN:
-                               (yy_c_buf_p) =
-                                       (yytext_ptr) + yy_amount_of_matched_text;
-
-                               yy_current_state = yy_get_previous_state(  );
-
-                               yy_cp = (yy_c_buf_p);
-                               yy_bp = (yytext_ptr) + YY_MORE_ADJ;
-                               goto yy_match;
-
-                       case EOB_ACT_LAST_MATCH:
-                               (yy_c_buf_p) =
-                               &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)];
-
-                               yy_current_state = yy_get_previous_state(  );
-
-                               yy_cp = (yy_c_buf_p);
-                               yy_bp = (yytext_ptr) + YY_MORE_ADJ;
-                               goto yy_find_action;
-                       }
-               break;
-               }
-
-       default:
-               YY_FATAL_ERROR(
-                       "fatal flex scanner internal error--no action found" );
-       } /* end of action switch */
-               } /* end of scanning one token */
-} /* end of gras_ddt_parse_lex */
-
-/* yy_get_next_buffer - try to read in a new buffer
- *
- * Returns a code representing an action:
- *     EOB_ACT_LAST_MATCH -
- *     EOB_ACT_CONTINUE_SCAN - continue scanning from current position
- *     EOB_ACT_END_OF_FILE - end of file
- */
-static int yy_get_next_buffer (void)
-{
-       register char *dest = YY_CURRENT_BUFFER_LVALUE->yy_ch_buf;
-       register char *source = (yytext_ptr);
-       register int number_to_move, i;
-       int ret_val;
-
-       if ( (yy_c_buf_p) > &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] )
-               YY_FATAL_ERROR(
-               "fatal flex scanner internal error--end of buffer missed" );
-
-       if ( YY_CURRENT_BUFFER_LVALUE->yy_fill_buffer == 0 )
-               { /* Don't try to fill the buffer, so this is an EOF. */
-               if ( (yy_c_buf_p) - (yytext_ptr) - YY_MORE_ADJ == 1 )
-                       {
-                       /* We matched a single character, the EOB, so
-                        * treat this as a final EOF.
-                        */
-                       return EOB_ACT_END_OF_FILE;
-                       }
-
-               else
-                       {
-                       /* We matched some text prior to the EOB, first
-                        * process it.
-                        */
-                       return EOB_ACT_LAST_MATCH;
-                       }
-               }
-
-       /* Try to read more data. */
-
-       /* First move last chars to start of buffer. */
-       number_to_move = (int) ((yy_c_buf_p) - (yytext_ptr)) - 1;
-
-       for ( i = 0; i < number_to_move; ++i )
-               *(dest++) = *(source++);
-
-       if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_EOF_PENDING )
-               /* don't do the read, it's not guaranteed to return an EOF,
-                * just force an EOF
-                */
-               YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars) = 0;
-
-       else
-               {
-                       int num_to_read =
-                       YY_CURRENT_BUFFER_LVALUE->yy_buf_size - number_to_move - 1;
-
-               while ( num_to_read <= 0 )
-                       { /* Not enough room in the buffer - grow it. */
-
-                       /* just a shorter name for the current buffer */
-                       YY_BUFFER_STATE b = YY_CURRENT_BUFFER;
-
-                       int yy_c_buf_p_offset =
-                               (int) ((yy_c_buf_p) - b->yy_ch_buf);
-
-                       if ( b->yy_is_our_buffer )
-                               {
-                               int new_size = b->yy_buf_size * 2;
-
-                               if ( new_size <= 0 )
-                                       b->yy_buf_size += b->yy_buf_size / 8;
-                               else
-                                       b->yy_buf_size *= 2;
-
-                               b->yy_ch_buf = (char *)
-                                       /* Include room in for 2 EOB chars. */
-                                       gras_ddt_parse_realloc((void *) b->yy_ch_buf,b->yy_buf_size + 2  );
-                               }
-                       else
-                               /* Can't grow it, we don't own it. */
-                               b->yy_ch_buf = 0;
-
-                       if ( ! b->yy_ch_buf )
-                               YY_FATAL_ERROR(
-                               "fatal error - scanner input buffer overflow" );
-
-                       (yy_c_buf_p) = &b->yy_ch_buf[yy_c_buf_p_offset];
-
-                       num_to_read = YY_CURRENT_BUFFER_LVALUE->yy_buf_size -
-                                               number_to_move - 1;
-
-                       }
-
-               if ( num_to_read > YY_READ_BUF_SIZE )
-                       num_to_read = YY_READ_BUF_SIZE;
-
-               /* Read in more data. */
-               YY_INPUT( (&YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move]),
-                       (yy_n_chars), num_to_read );
-
-               YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
-               }
-
-       if ( (yy_n_chars) == 0 )
-               {
-               if ( number_to_move == YY_MORE_ADJ )
-                       {
-                       ret_val = EOB_ACT_END_OF_FILE;
-                       gras_ddt_parse_restart(gras_ddt_parse_in  );
-                       }
-
-               else
-                       {
-                       ret_val = EOB_ACT_LAST_MATCH;
-                       YY_CURRENT_BUFFER_LVALUE->yy_buffer_status =
-                               YY_BUFFER_EOF_PENDING;
-                       }
-               }
-
-       else
-               ret_val = EOB_ACT_CONTINUE_SCAN;
-
-       (yy_n_chars) += number_to_move;
-       YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] = YY_END_OF_BUFFER_CHAR;
-       YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] = YY_END_OF_BUFFER_CHAR;
-
-       (yytext_ptr) = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[0];
-
-       return ret_val;
-}
-
-/* yy_get_previous_state - get the state just before the EOB char was reached */
-
-    static yy_state_type yy_get_previous_state (void)
-{
-       register yy_state_type yy_current_state;
-       register char *yy_cp;
-    
-       yy_current_state = (yy_start);
-
-       for ( yy_cp = (yytext_ptr) + YY_MORE_ADJ; yy_cp < (yy_c_buf_p); ++yy_cp )
-               {
-               register YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1);
-               if ( yy_accept[yy_current_state] )
-                       {
-                       (yy_last_accepting_state) = yy_current_state;
-                       (yy_last_accepting_cpos) = yy_cp;
-                       }
-               while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
-                       {
-                       yy_current_state = (int) yy_def[yy_current_state];
-                       if ( yy_current_state >= 61 )
-                               yy_c = yy_meta[(unsigned int) yy_c];
-                       }
-               yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
-               }
-
-       return yy_current_state;
-}
-
-/* yy_try_NUL_trans - try to make a transition on the NUL character
- *
- * synopsis
- *     next_state = yy_try_NUL_trans( current_state );
- */
-    static yy_state_type yy_try_NUL_trans  (yy_state_type yy_current_state )
-{
-       register int yy_is_jam;
-       register char *yy_cp = (yy_c_buf_p);
-
-       register YY_CHAR yy_c = 1;
-       if ( yy_accept[yy_current_state] )
-               {
-               (yy_last_accepting_state) = yy_current_state;
-               (yy_last_accepting_cpos) = yy_cp;
-               }
-       while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
-               {
-               yy_current_state = (int) yy_def[yy_current_state];
-               if ( yy_current_state >= 61 )
-                       yy_c = yy_meta[(unsigned int) yy_c];
-               }
-       yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
-       yy_is_jam = (yy_current_state == 60);
-
-       return yy_is_jam ? 0 : yy_current_state;
-}
-
-    static void yyunput (int c, register char * yy_bp )
-{
-       register char *yy_cp;
-    
-    yy_cp = (yy_c_buf_p);
-
-       /* undo effects of setting up gras_ddt_parse_text */
-       *yy_cp = (yy_hold_char);
-
-       if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
-               { /* need to shift things up to make room */
-               /* +2 for EOB chars. */
-               register int number_to_move = (yy_n_chars) + 2;
-               register char *dest = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[
-                                       YY_CURRENT_BUFFER_LVALUE->yy_buf_size + 2];
-               register char *source =
-                               &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move];
-
-               while ( source > YY_CURRENT_BUFFER_LVALUE->yy_ch_buf )
-                       *--dest = *--source;
-
-               yy_cp += (int) (dest - source);
-               yy_bp += (int) (dest - source);
-               YY_CURRENT_BUFFER_LVALUE->yy_n_chars =
-                       (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_buf_size;
-
-               if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
-                       YY_FATAL_ERROR( "flex scanner push-back overflow" );
-               }
-
-       *--yy_cp = (char) c;
-
-       (yytext_ptr) = yy_bp;
-       (yy_hold_char) = *yy_cp;
-       (yy_c_buf_p) = yy_cp;
-}
-
-#ifndef YY_NO_INPUT
-#ifdef __cplusplus
-    static int yyinput (void)
-#else
-    static int input  (void)
-#endif
-
-{
-       int c;
-    
-       *(yy_c_buf_p) = (yy_hold_char);
-
-       if ( *(yy_c_buf_p) == YY_END_OF_BUFFER_CHAR )
-               {
-               /* yy_c_buf_p now points to the character we want to return.
-                * If this occurs *before* the EOB characters, then it's a
-                * valid NUL; if not, then we've hit the end of the buffer.
-                */
-               if ( (yy_c_buf_p) < &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] )
-                       /* This was really a NUL. */
-                       *(yy_c_buf_p) = '\0';
-
-               else
-                       { /* need more input */
-                       int offset = (yy_c_buf_p) - (yytext_ptr);
-                       ++(yy_c_buf_p);
-
-                       switch ( yy_get_next_buffer(  ) )
-                               {
-                               case EOB_ACT_LAST_MATCH:
-                                       /* This happens because yy_g_n_b()
-                                        * sees that we've accumulated a
-                                        * token and flags that we need to
-                                        * try matching the token before
-                                        * proceeding.  But for input(),
-                                        * there's no matching to consider.
-                                        * So convert the EOB_ACT_LAST_MATCH
-                                        * to EOB_ACT_END_OF_FILE.
-                                        */
-
-                                       /* Reset buffer status. */
-                                       gras_ddt_parse_restart(gras_ddt_parse_in );
-
-                                       /*FALLTHROUGH*/
-
-                               case EOB_ACT_END_OF_FILE:
-                                       {
-                                       if ( gras_ddt_parse_wrap( ) )
-                                               return EOF;
-
-                                       if ( ! (yy_did_buffer_switch_on_eof) )
-                                               YY_NEW_FILE;
-#ifdef __cplusplus
-                                       return yyinput();
-#else
-                                       return input();
-#endif
-                                       }
-
-                               case EOB_ACT_CONTINUE_SCAN:
-                                       (yy_c_buf_p) = (yytext_ptr) + offset;
-                                       break;
-                               }
-                       }
-               }
-
-       c = *(unsigned char *) (yy_c_buf_p);    /* cast for 8-bit char's */
-       *(yy_c_buf_p) = '\0';   /* preserve gras_ddt_parse_text */
-       (yy_hold_char) = *++(yy_c_buf_p);
-
-       return c;
-}
-#endif /* ifndef YY_NO_INPUT */
-
-/** Immediately switch to a different input stream.
- * @param input_file A readable stream.
- * 
- * @note This function does not reset the start condition to @c INITIAL .
- */
-    void gras_ddt_parse_restart  (FILE * input_file )
-{
-    
-       if ( ! YY_CURRENT_BUFFER ){
-        gras_ddt_parse_ensure_buffer_stack ();
-               YY_CURRENT_BUFFER_LVALUE =
-            gras_ddt_parse__create_buffer(gras_ddt_parse_in,YY_BUF_SIZE );
-       }
-
-       gras_ddt_parse__init_buffer(YY_CURRENT_BUFFER,input_file );
-       gras_ddt_parse__load_buffer_state( );
-}
-
-/** Switch to a different input buffer.
- * @param new_buffer The new input buffer.
- * 
- */
-    void gras_ddt_parse__switch_to_buffer  (YY_BUFFER_STATE  new_buffer )
-{
-    
-       /* TODO. We should be able to replace this entire function body
-        * with
-        *              gras_ddt_parse_pop_buffer_state();
-        *              gras_ddt_parse_push_buffer_state(new_buffer);
-     */
-       gras_ddt_parse_ensure_buffer_stack ();
-       if ( YY_CURRENT_BUFFER == new_buffer )
-               return;
-
-       if ( YY_CURRENT_BUFFER )
-               {
-               /* Flush out information for old buffer. */
-               *(yy_c_buf_p) = (yy_hold_char);
-               YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
-               YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
-               }
-
-       YY_CURRENT_BUFFER_LVALUE = new_buffer;
-       gras_ddt_parse__load_buffer_state( );
-
-       /* We don't actually know whether we did this switch during
-        * EOF (gras_ddt_parse_wrap()) processing, but the only time this flag
-        * is looked at is after gras_ddt_parse_wrap() is called, so it's safe
-        * to go ahead and always set it.
-        */
-       (yy_did_buffer_switch_on_eof) = 1;
-}
-
-static void gras_ddt_parse__load_buffer_state  (void)
-{
-       (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
-       (yytext_ptr) = (yy_c_buf_p) = YY_CURRENT_BUFFER_LVALUE->yy_buf_pos;
-       gras_ddt_parse_in = YY_CURRENT_BUFFER_LVALUE->yy_input_file;
-       (yy_hold_char) = *(yy_c_buf_p);
-}
-
-/** Allocate and initialize an input buffer state.
- * @param file A readable stream.
- * @param size The character buffer size in bytes. When in doubt, use @c YY_BUF_SIZE.
- * 
- * @return the allocated buffer state.
- */
-    YY_BUFFER_STATE gras_ddt_parse__create_buffer  (FILE * file, int  size )
-{
-       YY_BUFFER_STATE b;
-    
-       b = (YY_BUFFER_STATE) gras_ddt_parse_alloc(sizeof( struct yy_buffer_state )  );
-       if ( ! b )
-               YY_FATAL_ERROR( "out of dynamic memory in gras_ddt_parse__create_buffer()" );
-
-       b->yy_buf_size = size;
-
-       /* yy_ch_buf has to be 2 characters longer than the size given because
-        * we need to put in 2 end-of-buffer characters.
-        */
-       b->yy_ch_buf = (char *) gras_ddt_parse_alloc(b->yy_buf_size + 2  );
-       if ( ! b->yy_ch_buf )
-               YY_FATAL_ERROR( "out of dynamic memory in gras_ddt_parse__create_buffer()" );
-
-       b->yy_is_our_buffer = 1;
-
-       gras_ddt_parse__init_buffer(b,file );
-
-       return b;
-}
-
-/** Destroy the buffer.
- * @param b a buffer created with gras_ddt_parse__create_buffer()
- * 
- */
-    void gras_ddt_parse__delete_buffer (YY_BUFFER_STATE  b )
-{
-    
-       if ( ! b )
-               return;
-
-       if ( b == YY_CURRENT_BUFFER ) /* Not sure if we should pop here. */
-               YY_CURRENT_BUFFER_LVALUE = (YY_BUFFER_STATE) 0;
-
-       if ( b->yy_is_our_buffer )
-               gras_ddt_parse_free((void *) b->yy_ch_buf  );
-
-       gras_ddt_parse_free((void *) b  );
-}
-
-#ifndef __cplusplus
-#ifndef _WIN32
-extern int isatty (int );
-#endif
-#endif /* __cplusplus */
-    
-/* Initializes or reinitializes a buffer.
- * This function is sometimes called more than once on the same buffer,
- * such as during a gras_ddt_parse_restart() or at EOF.
- */
-    static void gras_ddt_parse__init_buffer  (YY_BUFFER_STATE  b, FILE * file )
-
-{
-       int oerrno = errno;
-    
-       gras_ddt_parse__flush_buffer(b );
-
-       b->yy_input_file = file;
-       b->yy_fill_buffer = 1;
-
-    /* If b is the current buffer, then gras_ddt_parse__init_buffer was _probably_
-     * called from gras_ddt_parse_restart() or through yy_get_next_buffer.
-     * In that case, we don't want to reset the lineno or column.
-     */
-    if (b != YY_CURRENT_BUFFER){
-        b->yy_bs_lineno = 1;
-        b->yy_bs_column = 0;
-    }
-
-        b->yy_is_interactive = file ? (isatty( fileno(file) ) > 0) : 0;
-    
-       errno = oerrno;
-}
-
-/** Discard all buffered characters. On the next scan, YY_INPUT will be called.
- * @param b the buffer state to be flushed, usually @c YY_CURRENT_BUFFER.
- * 
- */
-    void gras_ddt_parse__flush_buffer (YY_BUFFER_STATE  b )
-{
-       if ( ! b )
-               return;
-
-       b->yy_n_chars = 0;
-
-       /* We always need two end-of-buffer characters.  The first causes
-        * a transition to the end-of-buffer state.  The second causes
-        * a jam in that state.
-        */
-       b->yy_ch_buf[0] = YY_END_OF_BUFFER_CHAR;
-       b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR;
-
-       b->yy_buf_pos = &b->yy_ch_buf[0];
-
-       b->yy_at_bol = 1;
-       b->yy_buffer_status = YY_BUFFER_NEW;
-
-       if ( b == YY_CURRENT_BUFFER )
-               gras_ddt_parse__load_buffer_state( );
-}
-
-/** Pushes the new state onto the stack. The new state becomes
- *  the current state. This function will allocate the stack
- *  if necessary.
- *  @param new_buffer The new state.
- *  
- */
-void gras_ddt_parse_push_buffer_state (YY_BUFFER_STATE new_buffer )
-{
-       if (new_buffer == NULL)
-               return;
-
-       gras_ddt_parse_ensure_buffer_stack();
-
-       /* This block is copied from gras_ddt_parse__switch_to_buffer. */
-       if ( YY_CURRENT_BUFFER )
-               {
-               /* Flush out information for old buffer. */
-               *(yy_c_buf_p) = (yy_hold_char);
-               YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
-               YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
-               }
-
-       /* Only push if top exists. Otherwise, replace top. */
-       if (YY_CURRENT_BUFFER)
-               (yy_buffer_stack_top)++;
-       YY_CURRENT_BUFFER_LVALUE = new_buffer;
-
-       /* copied from gras_ddt_parse__switch_to_buffer. */
-       gras_ddt_parse__load_buffer_state( );
-       (yy_did_buffer_switch_on_eof) = 1;
-}
-
-/** Removes and deletes the top of the stack, if present.
- *  The next element becomes the new top.
- *  
- */
-void gras_ddt_parse_pop_buffer_state (void)
-{
-       if (!YY_CURRENT_BUFFER)
-               return;
-
-       gras_ddt_parse__delete_buffer(YY_CURRENT_BUFFER );
-       YY_CURRENT_BUFFER_LVALUE = NULL;
-       if ((yy_buffer_stack_top) > 0)
-               --(yy_buffer_stack_top);
-
-       if (YY_CURRENT_BUFFER) {
-               gras_ddt_parse__load_buffer_state( );
-               (yy_did_buffer_switch_on_eof) = 1;
-       }
-}
-
-/* Allocates the stack if it does not exist.
- *  Guarantees space for at least one push.
- */
-static void gras_ddt_parse_ensure_buffer_stack (void)
-{
-       int num_to_alloc;
-    
-       if (!(yy_buffer_stack)) {
-
-               /* First allocation is just for 2 elements, since we don't know if this
-                * scanner will even need a stack. We use 2 instead of 1 to avoid an
-                * immediate realloc on the next call.
-         */
-               num_to_alloc = 1;
-               (yy_buffer_stack) = (struct yy_buffer_state**)gras_ddt_parse_alloc
-                                                               (num_to_alloc * sizeof(struct yy_buffer_state*)
-                                                               );
-               
-               memset((yy_buffer_stack), 0, num_to_alloc * sizeof(struct yy_buffer_state*));
-                               
-               (yy_buffer_stack_max) = num_to_alloc;
-               (yy_buffer_stack_top) = 0;
-               return;
-       }
-
-       if ((yy_buffer_stack_top) >= ((yy_buffer_stack_max)) - 1){
-
-               /* Increase the buffer to prepare for a possible push. */
-               int grow_size = 8 /* arbitrary grow size */;
-
-               num_to_alloc = (yy_buffer_stack_max) + grow_size;
-               (yy_buffer_stack) = (struct yy_buffer_state**)gras_ddt_parse_realloc
-                                                               ((yy_buffer_stack),
-                                                               num_to_alloc * sizeof(struct yy_buffer_state*)
-                                                               );
-
-               /* zero only the new slots.*/
-               memset((yy_buffer_stack) + (yy_buffer_stack_max), 0, grow_size * sizeof(struct yy_buffer_state*));
-               (yy_buffer_stack_max) = num_to_alloc;
-       }
-}
-
-/** Setup the input buffer state to scan directly from a user-specified character buffer.
- * @param base the character buffer
- * @param size the size in bytes of the character buffer
- * 
- * @return the newly allocated buffer state object. 
- */
-YY_BUFFER_STATE gras_ddt_parse__scan_buffer  (char * base, yy_size_t  size )
-{
-       YY_BUFFER_STATE b;
-    
-       if ( size < 2 ||
-            base[size-2] != YY_END_OF_BUFFER_CHAR ||
-            base[size-1] != YY_END_OF_BUFFER_CHAR )
-               /* They forgot to leave room for the EOB's. */
-               return 0;
-
-       b = (YY_BUFFER_STATE) gras_ddt_parse_alloc(sizeof( struct yy_buffer_state )  );
-       if ( ! b )
-               YY_FATAL_ERROR( "out of dynamic memory in gras_ddt_parse__scan_buffer()" );
-
-       b->yy_buf_size = size - 2;      /* "- 2" to take care of EOB's */
-       b->yy_buf_pos = b->yy_ch_buf = base;
-       b->yy_is_our_buffer = 0;
-       b->yy_input_file = 0;
-       b->yy_n_chars = b->yy_buf_size;
-       b->yy_is_interactive = 0;
-       b->yy_at_bol = 1;
-       b->yy_fill_buffer = 0;
-       b->yy_buffer_status = YY_BUFFER_NEW;
-
-       gras_ddt_parse__switch_to_buffer(b  );
-
-       return b;
-}
-
-/** Setup the input buffer state to scan a string. The next call to gras_ddt_parse_lex() will
- * scan from a @e copy of @a str.
- * @param str a NUL-terminated string to scan
- * 
- * @return the newly allocated buffer state object.
- * @note If you want to scan bytes that may contain NUL values, then use
- *       gras_ddt_parse__scan_bytes() instead.
- */
-YY_BUFFER_STATE gras_ddt_parse__scan_string (yyconst char * yy_str )
-{
-    
-       return gras_ddt_parse__scan_bytes(yy_str,strlen(yy_str) );
-}
-
-/** Setup the input buffer state to scan the given bytes. The next call to gras_ddt_parse_lex() will
- * scan from a @e copy of @a bytes.
- * @param bytes the byte buffer to scan
- * @param len the number of bytes in the buffer pointed to by @a bytes.
- * 
- * @return the newly allocated buffer state object.
- */
-YY_BUFFER_STATE gras_ddt_parse__scan_bytes  (yyconst char * bytes, int  len )
-{
-       YY_BUFFER_STATE b;
-       char *buf;
-       yy_size_t n;
-       int i;
-    
-       /* Get memory for full buffer, including space for trailing EOB's. */
-       n = len + 2;
-       buf = (char *) gras_ddt_parse_alloc(n  );
-       if ( ! buf )
-               YY_FATAL_ERROR( "out of dynamic memory in gras_ddt_parse__scan_bytes()" );
-
-       for ( i = 0; i < len; ++i )
-               buf[i] = bytes[i];
-
-       buf[len] = buf[len+1] = YY_END_OF_BUFFER_CHAR;
-
-       b = gras_ddt_parse__scan_buffer(buf,n );
-       if ( ! b )
-               YY_FATAL_ERROR( "bad buffer in gras_ddt_parse__scan_bytes()" );
-
-       /* It's okay to grow etc. this buffer, and we should throw it
-        * away when we're done.
-        */
-       b->yy_is_our_buffer = 1;
-
-       return b;
-}
-
-#ifndef YY_EXIT_FAILURE
-#define YY_EXIT_FAILURE 2
-#endif
-
-static void yy_fatal_error (yyconst char* msg )
-{
-       (void) fprintf( stderr, "%s\n", msg );
-       exit( YY_EXIT_FAILURE );
-}
-
-/* Redefine yyless() so it works in section 3 code. */
-
-#undef yyless
-#define yyless(n) \
-       do \
-               { \
-               /* Undo effects of setting up gras_ddt_parse_text. */ \
-        int yyless_macro_arg = (n); \
-        YY_LESS_LINENO(yyless_macro_arg);\
-               gras_ddt_parse_text[gras_ddt_parse_leng] = (yy_hold_char); \
-               (yy_c_buf_p) = gras_ddt_parse_text + yyless_macro_arg; \
-               (yy_hold_char) = *(yy_c_buf_p); \
-               *(yy_c_buf_p) = '\0'; \
-               gras_ddt_parse_leng = yyless_macro_arg; \
-               } \
-       while ( 0 )
-
-/* Accessor  methods (get/set functions) to struct members. */
-
-/** Get the current line number.
- * 
- */
-int gras_ddt_parse_get_lineno  (void)
-{
-        
-    return gras_ddt_parse_lineno;
-}
-
-/** Get the input stream.
- * 
- */
-FILE *gras_ddt_parse_get_in  (void)
-{
-        return gras_ddt_parse_in;
-}
-
-/** Get the output stream.
- * 
- */
-FILE *gras_ddt_parse_get_out  (void)
-{
-        return gras_ddt_parse_out;
-}
-
-/** Get the length of the current token.
- * 
- */
-int gras_ddt_parse_get_leng  (void)
-{
-        return gras_ddt_parse_leng;
-}
-
-/** Get the current token.
- * 
- */
-
-char *gras_ddt_parse_get_text  (void)
-{
-        return gras_ddt_parse_text;
-}
-
-/** Set the current line number.
- * @param line_number
- * 
- */
-void gras_ddt_parse_set_lineno (int  line_number )
-{
-    
-    gras_ddt_parse_lineno = line_number;
-}
-
-/** Set the input stream. This does not discard the current
- * input buffer.
- * @param in_str A readable stream.
- * 
- * @see gras_ddt_parse__switch_to_buffer
- */
-void gras_ddt_parse_set_in (FILE *  in_str )
-{
-        gras_ddt_parse_in = in_str ;
-}
-
-void gras_ddt_parse_set_out (FILE *  out_str )
-{
-        gras_ddt_parse_out = out_str ;
-}
-
-int gras_ddt_parse_get_debug  (void)
-{
-        return gras_ddt_parse__flex_debug;
-}
-
-void gras_ddt_parse_set_debug (int  bdebug )
-{
-        gras_ddt_parse__flex_debug = bdebug ;
-}
-
-/* gras_ddt_parse_lex_destroy is for both reentrant and non-reentrant scanners. */
-int gras_ddt_parse_lex_destroy  (void)
-{
-    
-    /* Pop the buffer stack, destroying each element. */
-       while(YY_CURRENT_BUFFER){
-               gras_ddt_parse__delete_buffer(YY_CURRENT_BUFFER  );
-               YY_CURRENT_BUFFER_LVALUE = NULL;
-               gras_ddt_parse_pop_buffer_state();
-       }
-
-       /* Destroy the stack itself. */
-       gras_ddt_parse_free((yy_buffer_stack) );
-       (yy_buffer_stack) = NULL;
-
-    return 0;
-}
-
-/*
- * Internal utility routines.
- */
-
-#ifndef yytext_ptr
-static void yy_flex_strncpy (char* s1, yyconst char * s2, int n )
-{
-       register int i;
-       for ( i = 0; i < n; ++i )
-               s1[i] = s2[i];
-}
-#endif
-
-#ifdef YY_NEED_STRLEN
-static int yy_flex_strlen (yyconst char * s )
-{
-       register int n;
-       for ( n = 0; s[n]; ++n )
-               ;
-
-       return n;
-}
-#endif
-
-void *gras_ddt_parse_alloc (yy_size_t  size )
-{
-       return (void *) malloc( size );
-}
-
-void *gras_ddt_parse_realloc  (void * ptr, yy_size_t  size )
-{
-       /* The cast to (char *) in the following accommodates both
-        * implementations that use char* generic pointers, and those
-        * that use void* generic pointers.  It works with the latter
-        * because both ANSI C and C++ allow castless assignment from
-        * any pointer type to void*, and deal with argument conversions
-        * as though doing an assignment.
-        */
-       return (void *) realloc( (char *) ptr, size );
-}
-
-void gras_ddt_parse_free (void * ptr )
-{
-       free( (char *) ptr );   /* see gras_ddt_parse_realloc() for (char *) cast */
-}
-
-#define YYTABLES_NAME "yytables"
-
-#undef YY_NEW_FILE
-#undef YY_FLUSH_BUFFER
-#undef yy_set_bol
-#undef yy_new_buffer
-#undef yy_set_interactive
-#undef yytext_ptr
-#undef YY_DO_BEFORE_ACTION
-
-#ifdef YY_DECL_IS_OURS
-#undef YY_DECL_IS_OURS
-#undef YY_DECL
-#endif
-
-/* {space}+                { return(TOKEN_SPACE);} */
-
-void gras_ddt_parse_dump(void) {
-  switch(gras_ddt_parse_tok_num) {
-  case GRAS_DDT_PARSE_TOKEN_LA      : {printf("TOKEN_LA ");break;}
-  case GRAS_DDT_PARSE_TOKEN_RA      : {printf("TOKEN_RA ");break;}
-  case GRAS_DDT_PARSE_TOKEN_WORD    : {printf("TOKEN_WORD ");break;}
-    /*  case GRAS_DDT_PARSE_TOKEN_SPACE   : {printf("TOKEN_SPACE ");break;}*/
-    /*  case GRAS_DDT_PARSE_TOKEN_COMMENT : {printf("TOKEN_COMMENT ");break;}*/
-  case GRAS_DDT_PARSE_TOKEN_NEWLINE : {printf("TOKEN_NEWLINE\n");return;}
-  case GRAS_DDT_PARSE_TOKEN_EMPTY : {printf("TOKEN_EMPTY\n");return;}
-  default             : {printf("Unknown token %d\n", gras_ddt_parse_tok_num);return;}
-  }
-  printf("-->%s<-- [line %d, pos %d]\n",gras_ddt_parse_text,gras_ddt_parse_line_pos,gras_ddt_parse_char_pos);
-  return;
-}
-
-int gras_ddt_parse_lex_n_dump(void) {
-  gras_ddt_parse_tok_num = gras_ddt_parse_lex();
-  /*  gras_ddt_parse_char_pos += strlen(gras_ddt_parse_text);*/
-  return(gras_ddt_parse_tok_num);
-}
-
-void  gras_ddt_parse_pointer_init(const char *file) {
-  gras_ddt_file_to_parse = fopen(file,"r");
-  gras_ddt_input_buffer = gras_ddt_parse__create_buffer(gras_ddt_file_to_parse,10 );
-  gras_ddt_parse__switch_to_buffer(gras_ddt_input_buffer);
-
-  gras_ddt_parse_line_pos = 1;
-  gras_ddt_parse_char_pos = 0;
-  gras_ddt_parse_col_pos = 0;
-  gras_ddt_parse_tok_num = 0;
-}
-
-void  gras_ddt_parse_pointer_close(void) {
-  gras_ddt_parse__delete_buffer(gras_ddt_input_buffer);
-  fclose(gras_ddt_file_to_parse);
-
-  gras_ddt_parse_line_pos = 1;
-  gras_ddt_parse_char_pos = 0;
-  gras_ddt_parse_tok_num = 0;
-}
-
-void  gras_ddt_parse_pointer_string_init(const char *string_to_parse) {
-  gras_ddt_input_buffer = gras_ddt_parse__scan_string (string_to_parse);
-  definition = string_to_parse;
-  gras_ddt_parse__switch_to_buffer(gras_ddt_input_buffer);
-
-  gras_ddt_parse_line_pos = 1;
-  gras_ddt_parse_char_pos = 0;
-  gras_ddt_parse_tok_num = 0;
-}
-
-void  gras_ddt_parse_pointer_string_close(void) {
-  gras_ddt_parse__delete_buffer(gras_ddt_input_buffer);
-
-  gras_ddt_parse_line_pos = 1;
-  gras_ddt_parse_char_pos = 0;
-  gras_ddt_parse_tok_num = 0;
-
-  if (0)
-    yyunput('\0',NULL); /* fake a use of this function to calm gcc down */
-}
-
-/* Local variables:*/
-/* mode: c */
-/* End: */
-
diff --git a/src/gras_simix/DataDesc/gras_simix_ddt_parse.yy.h b/src/gras_simix/DataDesc/gras_simix_ddt_parse.yy.h
deleted file mode 100644 (file)
index cfedb4f..0000000
+++ /dev/null
@@ -1,71 +0,0 @@
-/* $Id$ */
-
-/* ddt_parse.h -- automatic parsing of data structures                      */
-
-/* Copyright (c) 2003 Arnaud Legrand.                                       */
-/* Copyright (c) 2003, 2004 Martin Quinson.                                 */
-/* 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. */
-
-typedef enum {
-  GRAS_DDT_PARSE_TOKEN_EMPTY = 0,
-  GRAS_DDT_PARSE_TOKEN_LA = 512, /* { 'A' for the french "accolade" since there is a name conflict in english (braket/brace) */
-  GRAS_DDT_PARSE_TOKEN_RA,       /* } */
-  GRAS_DDT_PARSE_TOKEN_LB,       /* [ */
-  GRAS_DDT_PARSE_TOKEN_RB,       /* ] */
-  GRAS_DDT_PARSE_TOKEN_LP,       /* ( */
-  GRAS_DDT_PARSE_TOKEN_RP,       /* ) */
-  GRAS_DDT_PARSE_TOKEN_WORD,
-  GRAS_DDT_PARSE_TOKEN_SPACE,
-  GRAS_DDT_PARSE_TOKEN_COMMENT,
-  GRAS_DDT_PARSE_TOKEN_ANNOTATE,
-  GRAS_DDT_PARSE_TOKEN_NEWLINE,
-  GRAS_DDT_PARSE_TOKEN_STAR,
-  GRAS_DDT_PARSE_TOKEN_SEMI_COLON,
-  GRAS_DDT_PARSE_TOKEN_COLON, /* impossible since the macro think that it's a arg separator. 
-                                But handle anyway for the *vicious* calling gras_ddt_parse manually */
-  GRAS_DDT_PARSE_TOKEN_ERROR
-} gras_ddt_parse_token_t;
-
-#define GRAS_DDT_PARSE_MAX_STR_CONST 4048
-
-extern int gras_ddt_parse_line_pos;
-extern int gras_ddt_parse_col_pos;
-extern int gras_ddt_parse_char_pos;
-extern int gras_ddt_parse_tok_num;
-
-void gras_ddt_parse_dump(void);
-int gras_ddt_parse_lex_n_dump(void);
-void  gras_ddt_parse_pointer_init(const char *file);
-void  gras_ddt_parse_pointer_close(void);
-void  gras_ddt_parse_pointer_string_init(const char *string_to_parse);
-void  gras_ddt_parse_pointer_string_close(void);
-
-/* prototypes of the functions offered by flex */
-int gras_ddt_parse_lex(void);
-int gras_ddt_parse_get_lineno  (void);
-FILE *gras_ddt_parse_get_in  (void);
-FILE *gras_ddt_parse_get_out  (void);
-int gras_ddt_parse_get_leng  (void);
-char *gras_ddt_parse_get_text  (void);
-void gras_ddt_parse_set_lineno (int  line_number );
-void gras_ddt_parse_set_in (FILE *  in_str );
-void gras_ddt_parse_set_out (FILE *  out_str );
-int gras_ddt_parse_get_debug  (void);
-void gras_ddt_parse_set_debug (int  bdebug );
-int gras_ddt_parse_lex_destroy  (void);
-
-#define PARSE_ERROR_PRE do {
-#define PARSE_ERROR_POST xbt_abort();} while (0)
-
-#define PARSE_ERROR0(fmt)     PARSE_ERROR_PRE \
-                              ERROR3(fmt " at %d:%d of :\n%s", gras_ddt_parse_line_pos,gras_ddt_parse_col_pos,definition);\
-                              PARSE_ERROR_POST
-#define PARSE_ERROR1(fmt,a)   PARSE_ERROR_PRE \
-                              ERROR4(fmt " at %d:%d of :\n%s",a, gras_ddt_parse_line_pos,gras_ddt_parse_col_pos,definition);\
-                              PARSE_ERROR_POST
-#define PARSE_ERROR2(fmt,a,b) PARSE_ERROR_PRE \
-                              ERROR5(fmt " at %d:%d of :\n%s",a,b, gras_ddt_parse_line_pos,gras_ddt_parse_col_pos,definition);\
-                              PARSE_ERROR_POST
diff --git a/src/gras_simix/DataDesc/gras_simix_ddt_parse.yy.l b/src/gras_simix/DataDesc/gras_simix_ddt_parse.yy.l
deleted file mode 100644 (file)
index f3b62cb..0000000
+++ /dev/null
@@ -1,240 +0,0 @@
-/* $Id$ */
-
-/* DataDesc/ddt_parse -- automatic parsing of data structures */
-
-/* Copyright (c) 2004 Arnaud Legrand, Martin Quinson. 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. */
-
-%option noyywrap
-%{
-#include "gras/DataDesc/datadesc_private.h"
-#include "gras/DataDesc/ddt_parse.yy.h"
-#include <string.h>
-  YY_BUFFER_STATE gras_ddt_input_buffer;
-  FILE *gras_ddt_file_to_parse;
-
-  int gras_ddt_parse_line_pos = 1;
-  int gras_ddt_parse_col_pos = 0;
-  int gras_ddt_parse_char_pos = 0;
-  int gras_ddt_parse_tok_num = 0;
-  const char *definition;
-  XBT_LOG_NEW_DEFAULT_SUBCATEGORY(gras_ddt_lexer,gras_ddt_parse,"The crude internals of the lexer used for type parsing");
-#define SHOW_WHERE DEBUG4("%d:%d (char #%d): seen '%s'", gras_ddt_parse_line_pos,gras_ddt_parse_col_pos,gras_ddt_parse_char_pos,yytext)
-%}
-
-%x annotate comment foo
-space           [ \t]
-letter          [A-Za-z._-]
-digit           [0-9]
-
-%%
-   int comment_caller=0;
-   int annotate_caller=0;
-
-"//"[^\n]*
-
-"/*g"{space}* { /****************** ANNOTATION ************************/
-  DEBUG0("Begin annotation");
-  annotate_caller = INITIAL;
-  gras_ddt_parse_char_pos+= strlen(yytext);
-  gras_ddt_parse_col_pos+= strlen(yytext);
-  BEGIN(annotate);
-}
-<foo>"/*g"{space}* { /* trim annotation */
-  DEBUG0("Begin annotation");
-  annotate_caller = foo;
-  gras_ddt_parse_char_pos+= strlen(yytext);
-  gras_ddt_parse_col_pos+= strlen(yytext);
-  BEGIN(annotate);
-}
-
-<annotate>{space}*"g*/" {
-  DEBUG0("End annotation");
-  gras_ddt_parse_char_pos+= strlen(yytext);
-  gras_ddt_parse_col_pos+= strlen(yytext);
-  BEGIN(annotate_caller);
-}
-
-<annotate>"*/" {
-  PARSE_ERROR0("``/*g'' construct closed by a regular ``*/''");
-}
-<annotate>\n  {
-  PARSE_ERROR0("Type annotation cannot spread over several lines");
-}
-
-<annotate>.* { /* eat the rest */
-  gras_ddt_parse_char_pos+= strlen(yytext);
-  gras_ddt_parse_col_pos+= strlen(yytext);
-  return GRAS_DDT_PARSE_TOKEN_ANNOTATE;
-}
-
-"/*[^g]"   { /****************** COMMENTS ************************/
-  /* constructs like : */
-    /*g [string] g*/ 
-  /* are not comments but size annotations */
-  comment_caller = INITIAL;
-  BEGIN(comment);
-}
-
-<foo>"/*[^g]"    {
-  comment_caller = foo;
-  BEGIN(comment);
-}
-
-<comment>[^*\n]*      { /* eat anything that's not a '*' */
-}
-<comment>"*"+[^*/\n]* { /* eat up '*'s not followed by '/'s */
-}
-<comment>\n             {
-  ++gras_ddt_parse_line_pos;
-  gras_ddt_parse_col_pos=0;
-  gras_ddt_parse_char_pos++;
-}
-<comment>"*"+"/" {
-  gras_ddt_parse_char_pos+= strlen(yytext);
-  gras_ddt_parse_col_pos+= strlen(yytext);
-  BEGIN(comment_caller);
-}
-
-({letter}|{digit})* {  /****************** STATEMENTS ************************/
-  gras_ddt_parse_char_pos += strlen(yytext);
-  gras_ddt_parse_col_pos += strlen(yytext);
-  SHOW_WHERE;
-  return(GRAS_DDT_PARSE_TOKEN_WORD);
-}
-"{"  { 
-  gras_ddt_parse_char_pos++; 
-  gras_ddt_parse_col_pos++; 
-  SHOW_WHERE;
-  return(GRAS_DDT_PARSE_TOKEN_LA);
-}
-"}" {
-  gras_ddt_parse_char_pos++;
-  gras_ddt_parse_col_pos++;
-  SHOW_WHERE;
-  return(GRAS_DDT_PARSE_TOKEN_RA);
-}
-"["  { 
-  gras_ddt_parse_char_pos++; 
-  gras_ddt_parse_col_pos++; 
-  SHOW_WHERE;
-  return(GRAS_DDT_PARSE_TOKEN_LB);
-}
-"]" {
-  gras_ddt_parse_char_pos++;
-  gras_ddt_parse_col_pos++;
-  SHOW_WHERE;
-  return(GRAS_DDT_PARSE_TOKEN_RB);
-}
-"("  { 
-  gras_ddt_parse_char_pos++; 
-  gras_ddt_parse_col_pos++; 
-  SHOW_WHERE;
-  return(GRAS_DDT_PARSE_TOKEN_LP);
-}
-")" {
-  gras_ddt_parse_char_pos++;
-  gras_ddt_parse_col_pos++;
-  SHOW_WHERE;
-  return(GRAS_DDT_PARSE_TOKEN_RP);
-}
-"*" {
-  gras_ddt_parse_char_pos++;
-  gras_ddt_parse_col_pos++;
-  SHOW_WHERE;
-  return(GRAS_DDT_PARSE_TOKEN_STAR);
-}
-";" {
-  gras_ddt_parse_char_pos++;
-  gras_ddt_parse_col_pos++;
-  SHOW_WHERE;
-  return(GRAS_DDT_PARSE_TOKEN_SEMI_COLON);
-}
-"," { 
-  gras_ddt_parse_char_pos++;
-  gras_ddt_parse_col_pos++;
-  SHOW_WHERE;
-  return(GRAS_DDT_PARSE_TOKEN_COLON);
-}
-"\n" {
- gras_ddt_parse_line_pos++; 
- gras_ddt_parse_char_pos++;
- gras_ddt_parse_col_pos=0;
-  SHOW_WHERE;
-}
-. { 
-  gras_ddt_parse_char_pos++;
-  gras_ddt_parse_col_pos++;
-  SHOW_WHERE;
-}
-%%
-/* {space}+                { return(TOKEN_SPACE);} */
-
-void gras_ddt_parse_dump(void) {
-  switch(gras_ddt_parse_tok_num) {
-  case GRAS_DDT_PARSE_TOKEN_LA      : {printf("TOKEN_LA ");break;}
-  case GRAS_DDT_PARSE_TOKEN_RA      : {printf("TOKEN_RA ");break;}
-  case GRAS_DDT_PARSE_TOKEN_WORD    : {printf("TOKEN_WORD ");break;}
-    /*  case GRAS_DDT_PARSE_TOKEN_SPACE   : {printf("TOKEN_SPACE ");break;}*/
-    /*  case GRAS_DDT_PARSE_TOKEN_COMMENT : {printf("TOKEN_COMMENT ");break;}*/
-  case GRAS_DDT_PARSE_TOKEN_NEWLINE : {printf("TOKEN_NEWLINE\n");return;}
-  case GRAS_DDT_PARSE_TOKEN_EMPTY : {printf("TOKEN_EMPTY\n");return;}
-  default             : {printf("Unknown token %d\n", gras_ddt_parse_tok_num);return;}
-  }
-  printf("-->%s<-- [line %d, pos %d]\n",yytext,gras_ddt_parse_line_pos,gras_ddt_parse_char_pos);
-  return;
-}
-
-int gras_ddt_parse_lex_n_dump(void) {
-  gras_ddt_parse_tok_num = gras_ddt_parse_lex();
-  /*  gras_ddt_parse_char_pos += strlen(yytext);*/
-  return(gras_ddt_parse_tok_num);
-}
-
-void  gras_ddt_parse_pointer_init(const char *file) {
-  gras_ddt_file_to_parse = fopen(file,"r");
-  gras_ddt_input_buffer = yy_create_buffer( gras_ddt_file_to_parse, 10 );
-  yy_switch_to_buffer(gras_ddt_input_buffer);
-
-  gras_ddt_parse_line_pos = 1;
-  gras_ddt_parse_char_pos = 0;
-  gras_ddt_parse_col_pos = 0;
-  gras_ddt_parse_tok_num = 0;
-}
-
-void  gras_ddt_parse_pointer_close(void) {
-  yy_delete_buffer(gras_ddt_input_buffer);
-  fclose(gras_ddt_file_to_parse);
-
-  gras_ddt_parse_line_pos = 1;
-  gras_ddt_parse_char_pos = 0;
-  gras_ddt_parse_tok_num = 0;
-}
-
-
-void  gras_ddt_parse_pointer_string_init(const char *string_to_parse) {
-  gras_ddt_input_buffer = yy_scan_string (string_to_parse);
-  definition = string_to_parse;
-  yy_switch_to_buffer(gras_ddt_input_buffer);
-
-  gras_ddt_parse_line_pos = 1;
-  gras_ddt_parse_char_pos = 0;
-  gras_ddt_parse_tok_num = 0;
-}
-
-void  gras_ddt_parse_pointer_string_close(void) {
-  yy_delete_buffer(gras_ddt_input_buffer);
-
-  gras_ddt_parse_line_pos = 1;
-  gras_ddt_parse_char_pos = 0;
-  gras_ddt_parse_tok_num = 0;
-
-  if (0)
-    yyunput('\0',NULL); /* fake a use of this function to calm gcc down */
-}
-
-/* Local variables:*/
-/* mode: c */
-/* End: */
diff --git a/src/gras_simix/Msg/gras_simix_msg.c b/src/gras_simix/Msg/gras_simix_msg.c
deleted file mode 100644 (file)
index ecb4237..0000000
+++ /dev/null
@@ -1,837 +0,0 @@
-/* $Id$ */
-
-/* messaging - Function related to messaging (code shared between RL and SG)*/
-
-/* Copyright (c) 2003, 2004 Martin Quinson. 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. */
-
-#include "xbt/ex.h"
-#include "xbt/ex_interface.h"
-#include "gras_simix/Msg/gras_simix_msg_private.h"
-#include "gras_simix/Virtu/gras_simix_virtu_interface.h"
-#include "gras_simix/DataDesc/gras_simix_datadesc_interface.h"
-#include "gras_simix/Transport/gras_simix_transport_interface.h" /* gras_select */
-#include "portable.h" /* execinfo when available to propagate exceptions */
-
-#ifndef MIN
-#define MIN(a,b) ((a) < (b) ? (a) : (b))
-#endif
-
-XBT_LOG_NEW_DEFAULT_SUBCATEGORY(gras_msg,gras,"High level messaging");
-
-xbt_set_t _gras_msgtype_set = NULL;
-static char *make_namev(const char *name, short int ver);
-char _GRAS_header[6];
-const char *e_gras_msg_kind_names[e_gras_msg_kind_count]=
-  {"UNKNOWN","ONEWAY","RPC call","RPC answer","RPC error"};
-
-/*
- * Creating procdata for this module
- */
-static void *gras_msg_procdata_new() {
-   gras_msg_procdata_t res = xbt_new(s_gras_msg_procdata_t,1);
-   
-   res->name = xbt_strdup("gras_msg");
-   res->name_len = 0;
-   res->msg_queue     = xbt_dynar_new(sizeof(s_gras_msg_t),   NULL);
-   res->msg_waitqueue = xbt_dynar_new(sizeof(s_gras_msg_t),   NULL);
-   res->cbl_list      = xbt_dynar_new(sizeof(gras_cblist_t *),gras_cbl_free);
-   res->timers        = xbt_dynar_new(sizeof(s_gras_timer_t), NULL);
-   res->msg_to_receive_queue = xbt_fifo_new();
-   
-   return (void*)res;
-}
-
-/*
- * Freeing procdata for this module
- */
-static void gras_msg_procdata_free(void *data) {
-   gras_msg_procdata_t res = (gras_msg_procdata_t)data;
-   
-   xbt_dynar_free(&( res->msg_queue ));
-   xbt_dynar_free(&( res->msg_waitqueue ));
-   xbt_dynar_free(&( res->cbl_list ));
-   xbt_dynar_free(&( res->timers ));
-   xbt_fifo_free( res->msg_to_receive_queue );
-
-   free(res->name);
-   free(res);
-}
-
-/*
- * Module registration
- */
-int gras_msg_libdata_id;
-void gras_msg_register() {
-   gras_msg_libdata_id = gras_procdata_add("gras_msg",gras_msg_procdata_new, gras_msg_procdata_free);
-}
-
-/*
- * Initialize this submodule.
- */
-void gras_msg_init(void) {
-  /* only initialize once */
-  if (_gras_msgtype_set != NULL)
-    return;
-
-  VERB0("Initializing Msg");
-  
-  _gras_msgtype_set = xbt_set_new();
-
-  memcpy(_GRAS_header,"GRAS", 4);
-  _GRAS_header[4]=GRAS_PROTOCOL_VERSION;
-  _GRAS_header[5]=(char)GRAS_THISARCH;
-   
-  gras_msg_ctx_mallocator = 
-     xbt_mallocator_new(1000,
-                       gras_msg_ctx_mallocator_new_f,
-                       gras_msg_ctx_mallocator_free_f,
-                       gras_msg_ctx_mallocator_reset_f);
-}
-
-/*
- * Finalize the msg module
- */
-void
-gras_msg_exit(void) {
-  VERB0("Exiting Msg");
-  xbt_set_free(&_gras_msgtype_set);
-
-  xbt_mallocator_free(gras_msg_ctx_mallocator);
-}
-
-/*
- * Reclamed memory
- */
-void gras_msgtype_free(void *t) {
-  gras_msgtype_t msgtype=(gras_msgtype_t)t;
-  if (msgtype) {
-    free(msgtype->name);
-    free(msgtype);
-  }
-}
-/**
- * Dump all declared message types (debugging purpose)
- */
-void gras_msgtype_dumpall(void) {   
-  xbt_set_cursor_t cursor;
-  gras_msgtype_t msgtype=NULL;
-   
-  INFO0("Dump of all registered messages:");
-  xbt_set_foreach(_gras_msgtype_set, cursor, msgtype) {
-    INFO6("  Message name: %s (v%d) %s; %s%s%s", 
-         msgtype->name, msgtype->version, e_gras_msg_kind_names[msgtype->kind],
-         gras_datadesc_get_name(msgtype->ctn_type),
-         (msgtype->kind==e_gras_msg_kind_rpccall ? " -> ":""),
-         (msgtype->kind==e_gras_msg_kind_rpccall ? gras_datadesc_get_name(msgtype->answer_type) : ""));
-  }   
-}
-
-
-/**
- * make_namev:
- *
- * Returns the versionned name of the message. If the version is 0, that's 
- * the name unchanged. Pay attention to this before free'ing the result.
- */
-static char *make_namev(const char *name, short int ver) {
-  char *namev;
-
-  if (!ver)
-    return (char *)name;
-
-  namev = (char*)xbt_malloc(strlen(name)+2+3+1);
-
-  if (namev)
-      sprintf(namev,"%s_v%d",name,ver);
-
-  return namev;
-}
-
-/* Internal function doing the crude work of registering messages */
-void 
-gras_msgtype_declare_ext(const char           *name,
-                        short int             version,
-                        e_gras_msg_kind_t     kind, 
-                        gras_datadesc_type_t  payload_request,
-                        gras_datadesc_type_t  payload_answer) {
-
-  gras_msgtype_t msgtype=NULL;
-  char *namev=make_namev(name,version);
-  volatile int found = 0;
-  xbt_ex_t e;    
-  
-  TRY {
-    msgtype = (gras_msgtype_t)xbt_set_get_by_name(_gras_msgtype_set,namev);
-    found = 1;
-  } CATCH(e) {
-    if (e.category != not_found_error)
-      RETHROW;
-    xbt_ex_free(e);
-  }
-
-  if (found) {
-    VERB2("Re-register version %d of message '%s' (same kind & payload, ignored).",
-         version, name);
-    xbt_assert3(msgtype->kind == kind,
-               "Message %s re-registered as a %s (it was known as a %s)",
-               namev,e_gras_msg_kind_names[kind],e_gras_msg_kind_names[msgtype->kind]);
-    xbt_assert3(!gras_datadesc_type_cmp(msgtype->ctn_type, payload_request),
-                "Message %s re-registred with another payload (%s was %s)",
-                namev,gras_datadesc_get_name(payload_request),
-                gras_datadesc_get_name(msgtype->ctn_type));
-
-    xbt_assert3(!gras_datadesc_type_cmp(msgtype->answer_type, payload_answer),
-            "Message %s re-registred with another answer payload (%s was %s)",
-                namev,gras_datadesc_get_name(payload_answer),
-                gras_datadesc_get_name(msgtype->answer_type));
-
-    return ; /* do really ignore it */
-
-  }
-
-  VERB4("Register version %d of message '%s' "
-       "(payload: %s; answer payload: %s).", 
-       version, name, gras_datadesc_get_name(payload_request),
-       gras_datadesc_get_name(payload_answer));    
-
-  msgtype = xbt_new(s_gras_msgtype_t,1);
-  msgtype->name = (namev == name ? strdup(name) : namev);
-  msgtype->name_len = strlen(namev);
-  msgtype->version = version;
-  msgtype->kind = kind;
-  msgtype->ctn_type = payload_request;
-  msgtype->answer_type = payload_answer;
-
-  xbt_set_add(_gras_msgtype_set, (xbt_set_elm_t)msgtype,
-              &gras_msgtype_free);
-}
-
-
-/** @brief declare a new message type of the given name. It only accepts the given datadesc as payload
- *
- * @param name: name as it should be used for logging messages (must be uniq)
- * @param payload: datadescription of the payload
- */
-void gras_msgtype_declare(const char           *name,
-                         gras_datadesc_type_t  payload) {
-   gras_msgtype_declare_ext(name, 0, e_gras_msg_kind_oneway, payload, NULL);
-}
-
-
-
-/** @brief declare a new versionned message type of the given name and payload
- *
- * @param name: name as it should be used for logging messages (must be uniq)
- * @param version: something like versionning symbol
- * @param payload: datadescription of the payload
- *
- * Registers a message to the GRAS mechanism. Use this version instead of 
- * gras_msgtype_declare when you change the semantic or syntax of a message and
- * want your programs to be able to deal with both versions. Internally, each
- * will be handled as an independent message type, so you can register 
- * differents for each of them.
- */
-void
-gras_msgtype_declare_v(const char           *name,
-                      short int             version,
-                      gras_datadesc_type_t  payload) {
-   gras_msgtype_declare_ext(name, version, 
-                           e_gras_msg_kind_oneway, payload, NULL);
-}
-
-/** @brief retrieve an existing message type from its name (raises an exception if it does not exist). */
-gras_msgtype_t gras_msgtype_by_name (const char *name) {
-  return gras_msgtype_by_namev(name,0);
-}
-/** @brief retrieve an existing message type from its name (or NULL if it does not exist). */
-gras_msgtype_t gras_msgtype_by_name_or_null (const char *name) {
-  xbt_ex_t e;
-  gras_msgtype_t res = NULL;
-   
-  TRY {
-     res = gras_msgtype_by_namev(name,0);
-  } CATCH(e) {
-     res = NULL;
-     xbt_ex_free(e);
-  }
-  return res;
-}
-
-/** @brief retrieve an existing message type from its name and version. */
-gras_msgtype_t gras_msgtype_by_namev(const char      *name,
-                                    short int        version) {
-  gras_msgtype_t res = NULL;
-  char *namev = make_namev(name,version);
-  volatile int found=0;
-  xbt_ex_t e;
-
-  TRY {
-    res = (gras_msgtype_t)xbt_set_get_by_name(_gras_msgtype_set, namev);
-    found=1;
-  } CATCH(e) {
-    xbt_ex_free(e);
-  }
-  if (!found)
-    THROW1(not_found_error,0,"No registred message of that name: %s",name);
-
-  if (name != namev) 
-    free(namev);
-  
-  return res;
-}
-/** @brief retrieve an existing message type from its name and version. */
-gras_msgtype_t gras_msgtype_by_id(int id) {
-  return (gras_msgtype_t)xbt_set_get_by_id(_gras_msgtype_set, id);
-}
-
-/** \brief Waits for a message to come in over a given socket. 
- *
- * @param timeout: How long should we wait for this message.
- * @param msgt_want: type of awaited msg (or NULL if I'm enclined to accept any message)
- * @param expe_want: awaited expeditot (match on hostname, not port; NULL if not relevant)
- * @param filter: function returning true or false when passed a payload. Messages for which it returns false are not selected. (NULL if not relevant)
- * @param filter_ctx: context passed as second argument of the filter (a pattern to match?)
- * @param[out] msg_got: where to write the message we got
- *
- * Every message of another type received before the one waited will be queued
- * and used by subsequent call to this function or gras_msg_handle().
- */
-
-void
-gras_msg_wait_ext_(double           timeout,    
-
-                 gras_msgtype_t   msgt_want,
-                 gras_socket_t    expe_want,
-                 gras_msg_filter_t filter,
-                 void             *filter_ctx, 
-
-                 gras_msg_t       msg_got) {
-
-  s_gras_msg_t msg;
-  double start, now;
-  gras_msg_procdata_t pd=(gras_msg_procdata_t)gras_libdata_by_id(gras_msg_libdata_id);
-  int cpt;
-
-  xbt_assert0(msg_got,"msg_got is an output parameter");
-
-  start = gras_os_time();
-  VERB1("Waiting for message '%s'",msgt_want?msgt_want->name:"(any)");
-
-  xbt_dynar_foreach(pd->msg_waitqueue,cpt,msg){
-    if ( (   !msgt_want || (msg.type->code == msgt_want->code)) 
-        && (!expe_want || (!strcmp( gras_socket_peer_name(msg.expe),
-                                    gras_socket_peer_name(expe_want))))
-        && (!filter || filter(&msg,filter_ctx))) {
-
-      memcpy(msg_got,&msg,sizeof(s_gras_msg_t));
-      xbt_dynar_cursor_rm(pd->msg_waitqueue, &cpt);
-      VERB0("The waited message was queued");
-      return;
-    }
-  }
-
-  xbt_dynar_foreach(pd->msg_queue,cpt,msg){
-    if ( (   !msgt_want || (msg.type->code == msgt_want->code)) 
-        && (!expe_want || (!strcmp( gras_socket_peer_name(msg.expe),
-                                    gras_socket_peer_name(expe_want))))
-        && (!filter || filter(&msg,filter_ctx))) {
-
-      memcpy(msg_got,&msg,sizeof(s_gras_msg_t));
-      xbt_dynar_cursor_rm(pd->msg_queue, &cpt);
-      VERB0("The waited message was queued");
-      return;
-    }
-  }
-
-  while (1) {
-    int need_restart;
-    xbt_ex_t e;
-
-  restart_receive: /* Goto here when the receive of a message failed */
-    need_restart=0;
-    now=gras_os_time();
-    memset(&msg,sizeof(msg),0);
-
-    TRY {
-      msg.expe = gras_trp_select(timeout ? timeout - now + start : 0);
-      gras_msg_recv(msg.expe, &msg);
-    } CATCH(e) {
-      if (e.category == system_error &&
-         !strncmp("Socket closed by remote side",e.msg,
-                 strlen("Socket closed by remote side"))) {
-       xbt_ex_free(e);
-       need_restart=1;
-      }        else {
-       RETHROW;
-      }
-    }
-    if (need_restart)
-      goto restart_receive;
-
-    DEBUG0("Got a message from the socket");
-
-    if ( (   !msgt_want || (msg.type->code == msgt_want->code)) 
-        && (!expe_want || (!strcmp( gras_socket_peer_name(msg.expe),
-                                    gras_socket_peer_name(expe_want))))
-        && (!filter || filter(&msg,filter_ctx))) {
-
-      memcpy(msg_got,&msg,sizeof(s_gras_msg_t));
-      DEBUG0("Message matches expectations. Use it.");
-      return;
-    }
-    DEBUG0("Message does not match expectations. Queue it.");
-
-    /* not expected msg type. Queue it for later */
-    xbt_dynar_push(pd->msg_queue,&msg);
-    
-    now=gras_os_time();
-    if (now - start + 0.001 > timeout) {
-      THROW1(timeout_error,  now-start+0.001-timeout,
-            "Timeout while waiting for msg '%s'",
-            msgt_want?msgt_want->name:"(any)");
-    }
-  }
-
-  THROW_IMPOSSIBLE;
-}
-/** \brief Waits for a message to come in over a given socket. 
- *
- * @param timeout: How long should we wait for this message.
- * @param msgt_want: type of awaited msg
- * @param[out] expeditor: where to create a socket to answer the incomming message
- * @param[out] payload: where to write the payload of the incomming message
- * @return the error code (or no_error).
- *
- * Every message of another type received before the one waited will be queued
- * and used by subsequent call to this function or gras_msg_handle().
- */
-void
-gras_msg_wait_(double           timeout,    
-              gras_msgtype_t   msgt_want,
-              gras_socket_t   *expeditor,
-              void            *payload) {
-  s_gras_msg_t msg;
-
-  gras_msg_wait_ext_(timeout,
-                    msgt_want, NULL,      NULL, NULL,
-                    &msg);
-
-  if (msgt_want->ctn_type) {
-    xbt_assert1(payload,
-               "Message type '%s' convey a payload you must accept",
-               msgt_want->name);
-  } else {
-    xbt_assert1(!payload,
-               "No payload was declared for message type '%s'",
-               msgt_want->name);
-  }
-
-  if (payload) {
-    memcpy(payload,msg.payl,msg.payl_size);
-    free(msg.payl);
-  }
-
-  if (expeditor)
-    *expeditor = msg.expe;
-}
-
-static int gras_msg_wait_or_filter(gras_msg_t msg, void *ctx) {
-  xbt_dynar_t dyn=(xbt_dynar_t)ctx;
-  int res =  xbt_dynar_member(dyn,msg->type);
-  if (res)
-    VERB1("Got matching message (type=%s)",msg->type->name);
-  else
-    VERB0("Got message not matching our expectations");
-  return res;
-}
-/** \brief Waits for a message to come in over a given socket. 
- *
- * @param timeout: How long should we wait for this message.
- * @param msgt_want: a dynar containing all accepted message type
- * @param[out] ctx: the context of received message (in case it's a RPC call we want to answer to)
- * @param[out] msgt_got: indice in the dynar of the type of the received message 
- * @param[out] payload: where to write the payload of the incomming message
- * @return the error code (or no_error).
- *
- * Every message of a type not in the accepted list received before the one
- * waited will be queued and used by subsequent call to this function or
- * gras_msg_handle().
- *
- * If you are interested in the context, pass the address of a s_gras_msg_cb_ctx_t variable.
- */
-void gras_msg_wait_or(double         timeout,
-                      xbt_dynar_t    msgt_want,
-                     gras_msg_cb_ctx_t *ctx,
-                      int           *msgt_got,
-                      void          *payload) {
-  s_gras_msg_t msg;
-
-  VERB1("Wait %f seconds for several message types",timeout);
-  gras_msg_wait_ext_(timeout,
-                    NULL, NULL,      
-                    &gras_msg_wait_or_filter, (void*)msgt_want,
-                    &msg);
-
-  if (msg.type->ctn_type) {
-    xbt_assert1(payload,
-               "Message type '%s' convey a payload you must accept",
-               msg.type->name);
-  } /* don't check the other side since some of the types may have a payload */
-
-  if (payload && msg.type->ctn_type) {
-    memcpy(payload,msg.payl,msg.payl_size);
-    free(msg.payl);
-  }
-
-  if (ctx) 
-    *ctx=gras_msg_cb_ctx_new(msg.expe, msg.type, msg.ID,
-                            (msg.kind == e_gras_msg_kind_rpccall), 60);
-
-  if (msgt_got)
-    *msgt_got = xbt_dynar_search(msgt_want,msg.type);
-}
-
-
-/** \brief Send the data pointed by \a payload as a message of type
- * \a msgtype to the peer \a sock */
-void
-gras_msg_send_(gras_socket_t   sock,
-             gras_msgtype_t  msgtype,
-             void           *payload) {
-
-  if (msgtype->ctn_type) {
-    xbt_assert1(payload,
-               "Message type '%s' convey a payload you must provide",
-               msgtype->name);
-  } else {
-    xbt_assert1(!payload,
-               "No payload was declared for message type '%s'",
-               msgtype->name);
-  }
-
-  DEBUG2("Send a oneway message of type '%s'. Payload=%p",
-        msgtype->name,payload);
-  gras_msg_send_ext(sock, e_gras_msg_kind_oneway,0, msgtype, payload);
-  VERB2("Sent a oneway message of type '%s'. Payload=%p",
-       msgtype->name,payload);
-}
-
-/** @brief Handle all messages arriving within the given period
- *
- * @param period: How long to wait for incoming messages (in seconds)
- *
- * Messages are dealed with just like gras_msg_handle() would do. The
- * difference is that gras_msg_handle() handles at most one message (or wait up
- * to timeout second when no message arrives) while this function handles any
- * amount of messages, and lasts the given period in any case.
- */
-void 
-gras_msg_handleall(double period) {
-  xbt_ex_t e;
-  double begin=gras_os_time();
-  double now;
-
-  do {
-    now=gras_os_time();
-    TRY{
-      if (period - now + begin > 0)
-       gras_msg_handle(period - now + begin);
-    } CATCH(e) {
-      if (e.category != timeout_error) 
-       RETHROW0("Error while waiting for messages: %s");
-      xbt_ex_free(e);
-    }
-  } while (now - begin < period);
-}
-
-/** @brief Handle an incomming message or timer (or wait up to \a timeOut seconds)
- *
- * @param timeOut: How long to wait for incoming messages (in seconds)
- * @return the error code (or no_error).
- *
- * Messages are passed to the callbacks. See also gras_msg_handleall().
- */
-void
-gras_msg_handle(double timeOut) {
-  
-  double          untiltimer;
-   
-  int             cpt;
-  int volatile ran_ok;
-
-  s_gras_msg_t    msg;
-
-  gras_msg_procdata_t pd=(gras_msg_procdata_t)gras_libdata_by_id(gras_msg_libdata_id);
-  gras_cblist_t  *list=NULL;
-  gras_msg_cb_t       cb;
-  s_gras_msg_cb_ctx_t ctx;
-   
-  int timerexpected, timeouted;
-  xbt_ex_t e;
-
-  VERB1("Handling message within the next %.2fs",timeOut);
-  
-  untiltimer = gras_msg_timer_handle();
-  DEBUG1("Next timer in %f sec", untiltimer);
-  if (untiltimer == 0.0) {
-     /* A timer was already elapsed and handled */
-     return;
-  }
-  if (untiltimer != -1.0) {
-     timerexpected = 1;
-     timeOut = MIN(timeOut, untiltimer);
-  } else {
-     timerexpected = 0;
-  }
-   
-  /* get a message (from the queue or from the net) */
-  timeouted = 0;
-  if (xbt_dynar_length(pd->msg_queue)) {
-    DEBUG0("Get a message from the queue");
-    xbt_dynar_shift(pd->msg_queue,&msg);
-  } else {
-    TRY {
-      msg.expe = gras_trp_select(timeOut);
-    } CATCH(e) {
-      if (e.category != timeout_error)
-       RETHROW;
-      xbt_ex_free(e);
-      timeouted = 1;
-    }
-
-    if (!timeouted) {
-      TRY {
-       /* FIXME: if not the right kind, queue it and recall ourself or goto >:-) */
-       gras_msg_recv(msg.expe, &msg);
-       DEBUG1("Received a msg from the socket kind:%s",
-              e_gras_msg_kind_names[msg.kind]);
-    
-      } CATCH(e) {
-       RETHROW4("Error while receiving a message on select()ed socket %p to [%s]%s:%d: %s",
-                msg.expe,
-                gras_socket_peer_proc(msg.expe),gras_socket_peer_name(msg.expe),
-                gras_socket_peer_port(msg.expe));
-      }
-    }
-  }
-
-  if (timeouted) {
-     if (timerexpected) {
-         
-       /* A timer elapsed before the arrival of any message even if we select()ed a bit */
-       untiltimer = gras_msg_timer_handle();
-       if (untiltimer == 0.0) {
-         /* we served a timer, we're done */
-         return;
-       } else {
-          xbt_assert1(untiltimer>0, "Negative timer (%f). I'm 'puzzeled'", untiltimer);
-          WARN1("No timer elapsed, in contrary to expectations (next in %f sec)",
-                 untiltimer);
-          THROW1(timeout_error,0,
-                 "No timer elapsed, in contrary to expectations (next in %f sec)",
-                 untiltimer);
-       }
-       
-     } else {
-       /* select timeouted, and no timer elapsed. Nothing to do */
-       THROW1(timeout_error, 0, "No new message or timer (delay was %f)",
-             timeOut);
-     }
-     
-  }
-   
-  /* A message was already there or arrived in the meanwhile. handle it */
-  xbt_dynar_foreach(pd->cbl_list,cpt,list) {
-    if (list->id == msg.type->code) {
-      break;
-    } else {
-      list=NULL;
-    }
-  }
-  if (!list) {
-    INFO3("No callback for message '%s' from %s:%d. Queue it for later gras_msg_wait() use.",
-         msg.type->name,
-         gras_socket_peer_name(msg.expe),gras_socket_peer_port(msg.expe));
-    xbt_dynar_push(pd->msg_waitqueue,&msg);
-    return; /* FIXME: maybe we should call ourselves again until the end of the timer or a proper msg is got */
-  }
-  
-  ctx.expeditor = msg.expe;
-  ctx.ID = msg.ID;
-  ctx.msgtype = msg.type;
-  ctx.answer_due = (msg.kind == e_gras_msg_kind_rpccall);
-
-  switch (msg.kind) {
-  case e_gras_msg_kind_oneway:
-  case e_gras_msg_kind_rpccall:
-    ran_ok=0;
-    TRY {
-      xbt_dynar_foreach(list->cbs,cpt,cb) { 
-       if (!ran_ok) {
-         DEBUG4("Use the callback #%d (@%p) for incomming msg %s (payload_size=%d)",
-               cpt+1,cb,msg.type->name,msg.payl_size);
-         if (!(*cb)(&ctx,msg.payl)) {
-           /* cb handled the message */
-           free(msg.payl);
-           ran_ok = 1;
-         }
-       }
-      }
-    } CATCH(e) {
-      free(msg.payl);
-      if (msg.type->kind == e_gras_msg_kind_rpccall) {
-       /* The callback raised an exception, propagate it on the network */
-       if (!e.remote) { /* the exception is born on this machine */
-         e.host = (char*)gras_os_myname();
-         xbt_ex_setup_backtrace(&e);
-       } 
-       VERB5("Propagate %s exception ('%s') from '%s' RPC cb back to %s:%d",
-             (e.remote ? "remote" : "local"),
-             e.msg,
-             msg.type->name,
-             gras_socket_peer_name(msg.expe),
-             gras_socket_peer_port(msg.expe));
-       gras_msg_send_ext(msg.expe, e_gras_msg_kind_rpcerror,
-                         msg.ID, msg.type, &e);
-       xbt_ex_free(e);
-       ctx.answer_due = 0;
-       ran_ok=1;
-      } else {
-       RETHROW0("Callback raised an exception: %s");
-      }
-    }
-    xbt_assert0(!(ctx.answer_due),
-               "RPC callback didn't call gras_msg_rpcreturn");
-
-    if (!ran_ok)
-      THROW1(mismatch_error,0,
-            "Message '%s' refused by all registered callbacks", msg.type->name);
-    /* FIXME: gras_datadesc_free not implemented => leaking the payload */
-    break;
-
-
-  case e_gras_msg_kind_rpcanswer:
-    INFO1("Unexpected RPC answer discarded (type: %s)", msg.type->name);
-    WARN0("FIXME: gras_datadesc_free not implemented => leaking the payload");
-    return;
-
-  case e_gras_msg_kind_rpcerror:
-    INFO1("Unexpected RPC error discarded (type: %s)", msg.type->name);
-    WARN0("FIXME: gras_datadesc_free not implemented => leaking the payload");
-    return;
-
-  default:
-    THROW1(unknown_error,0,
-          "Cannot handle messages of kind %d yet",msg.type->kind);
-  }
-
-}
-
-void
-gras_cbl_free(void *data){
-  gras_cblist_t *list=*(void**)data;
-  if (list) {
-    xbt_dynar_free(&( list->cbs ));
-    free(list);
-  }
-}
-
-/** \brief Bind the given callback to the given message type 
- *
- * Several callbacks can be attached to a given message type. The lastly added one will get the message first, and 
- * if it returns a non-null value, the message will be passed to the second one. 
- * And so on until one of the callbacks accepts the message.
- */
-void
-gras_cb_register_(gras_msgtype_t msgtype,
-                 gras_msg_cb_t cb) {
-  gras_msg_procdata_t pd=(gras_msg_procdata_t)gras_libdata_by_id(gras_msg_libdata_id);
-  gras_cblist_t *list=NULL;
-  int cpt;
-
-  DEBUG2("Register %p as callback to '%s'",cb,msgtype->name);
-
-  /* search the list of cb for this message on this host (creating if NULL) */
-  xbt_dynar_foreach(pd->cbl_list,cpt,list) {
-    if (list->id == msgtype->code) {
-      break;
-    } else {
-      list=NULL;
-    }
-  }
-  if (!list) {
-    /* First cb? Create room */
-    list = xbt_new(gras_cblist_t,1);
-    list->id = msgtype->code;
-    list->cbs = xbt_dynar_new(sizeof(gras_msg_cb_t), NULL);
-    xbt_dynar_push(pd->cbl_list,&list);
-  }
-
-  /* Insert the new one into the set */
-  xbt_dynar_insert_at(list->cbs,0,&cb);
-}
-
-/** \brief Unbind the given callback from the given message type */
-void
-gras_cb_unregister_(gras_msgtype_t msgtype,
-                   gras_msg_cb_t cb) {
-
-  gras_msg_procdata_t pd=(gras_msg_procdata_t)gras_libdata_by_id(gras_msg_libdata_id);
-  gras_cblist_t *list;
-  gras_msg_cb_t cb_cpt;
-  int cpt;
-  int found = 0;
-
-  /* search the list of cb for this message on this host */
-  xbt_dynar_foreach(pd->cbl_list,cpt,list) {
-    if (list->id == msgtype->code) {
-      break;
-    } else {
-      list=NULL;
-    }
-  }
-
-  /* Remove it from the set */
-  if (list) {
-    xbt_dynar_foreach(list->cbs,cpt,cb_cpt) {
-      if (cb == cb_cpt) {
-       xbt_dynar_cursor_rm(list->cbs, &cpt);
-       found = 1;
-      }
-    }
-  }
-  if (!found)
-    VERB1("Ignoring removal of unexisting callback to msg id %d",
-         msgtype->code);
-}
-
-/** \brief Retrieve the expeditor of the message */
-gras_socket_t gras_msg_cb_ctx_from(gras_msg_cb_ctx_t ctx) {
-  return ctx->expeditor;
-}
-/* \brief Creates a new message exchange context (user should never have to) */
-gras_msg_cb_ctx_t gras_msg_cb_ctx_new(gras_socket_t expe, 
-                                     gras_msgtype_t msgtype,
-                                     unsigned long int ID,
-                                     int answer_due,
-                                     double timeout) {
-  gras_msg_cb_ctx_t res=xbt_new(s_gras_msg_cb_ctx_t,1);
-  res->expeditor = expe;
-  res->msgtype = msgtype;
-  res->ID = ID;
-  res->timeout = timeout;
-  res->answer_due = answer_due;
-
-  return res;
-}
-/* \brief Frees a message exchange context 
- *
- * This function is mainly useful with \ref gras_msg_wait_or, ie seldom.
- */
-void gras_msg_cb_ctx_free(gras_msg_cb_ctx_t ctx) {
-  free(ctx);
-}
diff --git a/src/gras_simix/Msg/gras_simix_msg_interface.h b/src/gras_simix/Msg/gras_simix_msg_interface.h
deleted file mode 100644 (file)
index 2cb52fe..0000000
+++ /dev/null
@@ -1,54 +0,0 @@
-/* $Id$ */
-
-/* messaging - high level communication (send/receive messages)             */
-
-/* module's public interface exported within GRAS, but not to end user.     */
-
-/* Copyright (c) 2003, 2004 Martin Quinson. 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 GRAS_MSG_INTERFACE_H
-#define GRAS_MSG_INTERFACE_H
-
-#include "gras/transport.h"
-#include "xbt/fifo.h"
-
-/*
- * Data of this module specific to each process 
- * (used by sg_process.c to check some usual errors at the end of the simulation)
- * FIXME: it could be cleaned up ?
- */
-typedef struct {
-  /* set headers */
-  unsigned int ID;
-  char        *name;
-  unsigned int name_len;
-
-  /* queue storing the msgs got while msg_wait'ing for something else. Reuse them ASAP. */
-  xbt_dynar_t msg_queue; /* elm type: s_gras_msg_t */
-
-  /* queue storing the msgs without callback got when handling. Feed them to wait() */
-  xbt_dynar_t msg_waitqueue; /* elm type: s_gras_msg_t */
-
-  /* registered callbacks for each message */
-  xbt_dynar_t cbl_list; /* elm type: gras_cblist_t */
-   
-  /* registered timers */
-  xbt_dynar_t timers; /* elm type: s_gras_timer_t */
-       
-       /* queue storing the msgs that have to received and the process synchronization made (wait the surf action done) */
-       xbt_fifo_t msg_to_receive_queue; /* elm type: s_gras_msg_t */
-
-} s_gras_msg_procdata_t,*gras_msg_procdata_t;
-
-
-void gras_msg_send_namev(gras_socket_t  sock, 
-                        const char    *namev, 
-                        void          *payload);
-
-#define GRAS_PROTOCOL_VERSION '\0';
-
-
-#endif  /* GRAS_MSG_INTERFACE_H */
diff --git a/src/gras_simix/Msg/gras_simix_msg_private.h b/src/gras_simix/Msg/gras_simix_msg_private.h
deleted file mode 100644 (file)
index 2773ad1..0000000
+++ /dev/null
@@ -1,132 +0,0 @@
-/* $Id$ */
-
-/* messaging - high level communication (send/receive messages)             */
-
-/* module's private interface masked even to other parts of GRAS.           */
-
-/* Copyright (c) 2003, 2004 Martin Quinson. 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 GRAS_MESSAGE_PRIVATE_H
-#define GRAS_MESSAGE_PRIVATE_H
-
-#include "portable.h"
-
-#include "xbt/sysdep.h"
-#include "xbt/log.h"
-#include "xbt/dynar.h"
-#include "xbt/set.h"
-#include "gras/transport.h"
-#include "gras/datadesc.h"
-#include "gras/virtu.h"
-
-#include "gras/messages.h"
-#include "gras/timer.h"
-#include "gras_modinter.h"
-
-#include "gras_simix/Msg/gras_simix_msg_interface.h"
-
-extern char _GRAS_header[6];
-
-extern int gras_msg_libdata_id; /* The identifier of our libdata */
-extern const char *e_gras_msg_kind_names[e_gras_msg_kind_count];
-
-/* declare either regular messages or RPC or whatever */
-void 
-gras_msgtype_declare_ext(const char           *name,
-                        short int             version,
-                        e_gras_msg_kind_t     kind, 
-                        gras_datadesc_type_t  payload_request,
-                        gras_datadesc_type_t  payload_answer);
-
-/**
- * gras_msgtype_t:
- *
- * Message type descriptor. There one of these for each registered version.
- */
-typedef struct s_gras_msgtype {
-  /* headers for the data set */
-  unsigned int   code;
-  char          *name;
-  unsigned int   name_len;
-        
-  /* payload */
-  short int version;
-  e_gras_msg_kind_t kind;
-  gras_datadesc_type_t ctn_type;
-  gras_datadesc_type_t answer_type; /* only used for RPC */
-} s_gras_msgtype_t;
-
-extern xbt_set_t _gras_msgtype_set; /* of gras_msgtype_t */
-void gras_msgtype_free(void *msgtype);
-
-
-/* functions to extract msg from socket or put it on wire (depend RL vs SG) */
-void gras_msg_recv(gras_socket_t   sock,
-                  gras_msg_t      msg/*OUT*/);
-void gras_msg_send_ext(gras_socket_t   sock,
-                    e_gras_msg_kind_t kind,
-                      unsigned long int ID,
-                      gras_msgtype_t  msgtype,
-                      void           *payload);
-
-/**
- * gras_cblist_t:
- *
- * association between msg ID and cb list for a given process
- */
-struct s_gras_cblist {
-  long int id;
-  xbt_dynar_t cbs; /* of gras_msg_cb_t */
-};
-
-typedef struct s_gras_cblist gras_cblist_t;
-void gras_cbl_free(void *); /* used to free the memory at the end */
-void gras_cblist_free(void *cbl);
-
-/**
- * gras_msg_cb_ctx_t:
- *
- * Context associated to a given callback (to either regular message or RPC)
- */
-struct s_gras_msg_cb_ctx {
-  gras_socket_t expeditor;
-  gras_msgtype_t msgtype;
-  unsigned long int ID;
-  double timeout;
-  int answer_due; /* Whether the callback is expected to return a result (for sanity checks) */
-};
-typedef struct s_gras_msg_cb_ctx s_gras_msg_cb_ctx_t;
-
-/* ********* *
- * * TIMER * *
- * ********* */
-typedef struct {
-  double expiry;
-  double period;
-  void_f_void_t *action;
-  int repeat;
-} s_gras_timer_t, *gras_timer_t;
-
-/* returns 0 if it handled a timer, or the delay until next timer, or -1 if no armed timer */
-double gras_msg_timer_handle(void);
-
-gras_msg_cb_ctx_t gras_msg_cb_ctx_new(gras_socket_t expe,
-                                                gras_msgtype_t msgtype,
-                                                unsigned long int ID,
-                                                int answer_due,
-                                                double timeout);
-
-
-/* We deploy a mallocator on the RPC contextes */
-#include "xbt/mallocator.h"
-extern xbt_mallocator_t gras_msg_ctx_mallocator;
-void* gras_msg_ctx_mallocator_new_f(void);
-void gras_msg_ctx_mallocator_free_f(void* dict);
-void gras_msg_ctx_mallocator_reset_f(void* dict);
-
-
-#endif  /* GRAS_MESSAGE_PRIVATE_H */
diff --git a/src/gras_simix/Msg/gras_simix_rl_msg.c b/src/gras_simix/Msg/gras_simix_rl_msg.c
deleted file mode 100644 (file)
index b9b6538..0000000
+++ /dev/null
@@ -1,181 +0,0 @@
-/* $Id$ */
-
-/* messaging - Function related to messaging code specific to RL            */
-
-/* Copyright (c) 2003-2005 Martin Quinson. 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. */
-
-#include "xbt/ex.h"
-#include "gras_simix/Msg/gras_simix_msg_private.h"
-
-#include "gras_simix/DataDesc/gras_simix_datadesc_interface.h"
-#include "gras_simix/Transport/gras_simix_transport_interface.h" /* gras_trp_send/recv */
-
-XBT_LOG_EXTERNAL_CATEGORY(gras_msg);
-XBT_LOG_DEFAULT_CATEGORY(gras_msg);
-
-void gras_msg_send_ext(gras_socket_t   sock,
-                    e_gras_msg_kind_t kind,
-                      unsigned long int ID,
-                      gras_msgtype_t  msgtype,
-                      void           *payload) {
-
-  static gras_datadesc_type_t string_type=NULL;
-  static gras_datadesc_type_t ulong_type=NULL;
-  char c_kind=(char)kind;
-  
-  xbt_assert0(msgtype,"Cannot send the NULL message");
-
-  if (!string_type) {
-    string_type = gras_datadesc_by_name("string");
-    xbt_assert(string_type);
-  }
-  if (!ulong_type) {
-    ulong_type = gras_datadesc_by_name("unsigned long int");
-    xbt_assert(ulong_type);
-  }
-
-  DEBUG3("send '%s' to %s:%d", msgtype->name, 
-        gras_socket_peer_name(sock),gras_socket_peer_port(sock));
-  gras_trp_send(sock, _GRAS_header, 6, 1 /* stable */);
-  gras_trp_send(sock, &c_kind,      1, 1 /* stable */);
-  switch (kind) {
-   case e_gras_msg_kind_oneway: 
-     break;
-     
-   case e_gras_msg_kind_rpccall:
-   case e_gras_msg_kind_rpcanswer:
-   case e_gras_msg_kind_rpcerror:
-     gras_datadesc_send(sock,ulong_type,&ID);
-     break;
-
-   default:
-     THROW1(unknown_error,0,"Unknown msg kind %d",kind);
-  }
-   
-  gras_datadesc_send(sock, string_type,   &msgtype->name);
-  if (kind == e_gras_msg_kind_rpcerror) {
-     /* error on remote host, carfull, payload is an exception */
-    gras_datadesc_send(sock, gras_datadesc_by_name("ex_t"),payload);
-  } else if (kind == e_gras_msg_kind_rpcanswer) {
-    if (msgtype->answer_type)
-      gras_datadesc_send(sock, msgtype->answer_type, payload);
-  }else {
-     /* regular message */
-     if (msgtype->ctn_type)
-       gras_datadesc_send(sock, msgtype->ctn_type, payload);
-  }
-   
-  gras_trp_flush(sock);
-}
-
-/*
- * receive the next message on the given socket.  
- */
-void
-gras_msg_recv(gras_socket_t    sock,
-             gras_msg_t       msg) {
-
-  xbt_ex_t e;
-  static gras_datadesc_type_t string_type=NULL;
-  static gras_datadesc_type_t ulong_type=NULL;
-  char header[6];
-  int cpt;
-  int r_arch;
-  char *msg_name=NULL;
-  char c_kind;
-
-  xbt_assert1(!gras_socket_is_meas(sock), 
-             "Asked to receive a message on the measurement socket %p", sock);
-  if (!string_type) {
-    string_type=gras_datadesc_by_name("string");
-    xbt_assert(string_type);
-  }
-  if (!ulong_type) {
-    ulong_type = gras_datadesc_by_name("unsigned long int");
-    xbt_assert(ulong_type);
-  }
-
-  
-  TRY {
-    gras_trp_recv(sock, header, 6);
-    gras_trp_recv(sock, &c_kind, 1);
-    msg->kind=(e_gras_msg_kind_t)c_kind;
-  } CATCH(e) {
-    RETHROW0("Exception caught while trying to get the mesage header: %s");
-  }
-
-  for (cpt=0; cpt<4; cpt++)
-    if (header[cpt] != _GRAS_header[cpt])
-      THROW2(mismatch_error,0,
-            "Incoming bytes do not look like a GRAS message (header='%.4s' not '%.4s')",
-            header,_GRAS_header);
-  if (header[4] != _GRAS_header[4]) 
-    THROW2(mismatch_error,0,"GRAS protocol mismatch (got %d, use %d)",
-          (int)header[4], (int)_GRAS_header[4]);
-  r_arch = (int)header[5];
-  DEBUG2("Handle an incoming message using protocol %d (remote is %s)",
-        (int)header[4],gras_datadesc_arch_name(r_arch));
-
-  switch (msg->kind) {
-  case e_gras_msg_kind_oneway: 
-    break;
-    
-  case e_gras_msg_kind_rpccall:
-  case e_gras_msg_kind_rpcanswer:
-  case e_gras_msg_kind_rpcerror:
-    gras_datadesc_recv(sock,ulong_type,r_arch, &msg->ID);
-    break;
-    
-  default:
-    THROW_IMPOSSIBLE;
-  }
-
-  gras_datadesc_recv(sock, string_type, r_arch, &msg_name);
-  TRY {
-    msg->type = (gras_msgtype_t)xbt_set_get_by_name(_gras_msgtype_set,msg_name);
-  } CATCH(e) {
-    /* FIXME: Survive unknown messages */
-    RETHROW1("Exception caught while retrieving the type associated to messages '%s' : %s",
-            msg_name);
-  }
-  free(msg_name);
-
-  if (msg->kind == e_gras_msg_kind_rpcerror) {
-    /* error on remote host. Carfull with that exception, eugene */
-    msg->payl_size=gras_datadesc_size(gras_datadesc_by_name("ex_t"));
-    msg->payl=xbt_malloc(msg->payl_size);
-    gras_datadesc_recv(sock, gras_datadesc_by_name("ex_t"), r_arch, msg->payl);
-
-  } else if  (msg->kind == e_gras_msg_kind_rpcanswer) {
-     /* answer to RPC */
-     if (msg->type->answer_type) {
-       msg->payl_size=gras_datadesc_size(msg->type->answer_type);
-       xbt_assert2(msg->payl_size > 0,
-                   "%s %s",
-                   "Dynamic array as payload is forbided for now (FIXME?).",
-                   "Reference to dynamic array is allowed.");
-       msg->payl = xbt_malloc(msg->payl_size);
-       gras_datadesc_recv(sock, msg->type->answer_type, r_arch, msg->payl);
-     } else {
-       msg->payl = NULL;
-       msg->payl_size = 0;
-     }
-  } else {
-     /* regular message */
-     if (msg->type->ctn_type) {
-       msg->payl_size=gras_datadesc_size(msg->type->ctn_type);
-       xbt_assert2(msg->payl_size > 0,
-                   "%s %s",
-                   "Dynamic array as payload is forbided for now (FIXME?).",
-                   "Reference to dynamic array is allowed.");
-       msg->payl = xbt_malloc(msg->payl_size);
-       gras_datadesc_recv(sock, msg->type->ctn_type, r_arch, msg->payl);
-     } else {
-       msg->payl = NULL;
-       msg->payl_size = 0;
-     }
-  }
-}
diff --git a/src/gras_simix/Msg/gras_simix_rpc.c b/src/gras_simix/Msg/gras_simix_rpc.c
deleted file mode 100644 (file)
index 84ec9e9..0000000
+++ /dev/null
@@ -1,231 +0,0 @@
-/* $Id$ */
-
-/* rpc - RPC implementation on top of GRAS messages                         */
-
-/* Copyright (c) 2005 Martin Quinson. 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. */
-
-#include "gras_simix/Msg/gras_simix_msg_private.h"
-                
-xbt_set_t _gras_rpctype_set = NULL;
-xbt_dynar_t _gras_rpc_cancelled = NULL;
-
-XBT_LOG_NEW_DEFAULT_SUBCATEGORY(gras_msg_rpc,gras_msg,"RPC mecanism");
-
-
-/** @brief declare a new versionned RPC type of the given name and payloads
- *
- * @param name: name as it should be used for logging messages (must be uniq)
- * @param payload_request: datatype of request
- * @param payload_answer: datatype of answer
- *
- * Registers a new RPC message to the GRAS mechanism. RPC are constituted of a pair 
- * of messages. 
- */
-void
-gras_msgtype_declare_rpc(const char           *name,
-                        gras_datadesc_type_t  payload_request,
-                        gras_datadesc_type_t  payload_answer) {
-
-  gras_msgtype_declare_ext(name, 0, 
-                          e_gras_msg_kind_rpccall, 
-                          payload_request, payload_answer);
-
-}
-
-/** @brief declare a new versionned RPC type of the given name and payloads
- *
- * @param name: name as it should be used for logging messages (must be uniq)
- * @param version: something like versionning symbol
- * @param payload_request: datatype of request
- * @param payload_answer: datatype of answer
- *
- * Registers a new RPC message to the GRAS mechanism. RPC are constituted of a pair 
- * of messages. 
- *
- * Use this version instead of gras_rpctype_declare when you change the
- * semantic or syntax of a message and want your programs to be able to deal
- * with both versions. Internally, each will be handled as an independent
- * message type, so you can register differents for each of them.
- */
-void
-gras_msgtype_declare_rpc_v(const char           *name,
-                          short int             version,
-                          gras_datadesc_type_t  payload_request,
-                          gras_datadesc_type_t  payload_answer) {
-
-  gras_msgtype_declare_ext(name, version, 
-                          e_gras_msg_kind_rpccall, 
-                          payload_request, payload_answer);
-
-}
-
-static unsigned long int last_msg_ID = 0;
-
-static int msgfilter_rpcID(gras_msg_t msg, void* ctx) {
-  unsigned long int ID= *(unsigned long int*)ctx;
-  int res = msg->ID == ID && 
-    (msg->kind == e_gras_msg_kind_rpcanswer || msg->kind == e_gras_msg_kind_rpcerror);
-  int cursor;
-  gras_msg_cb_ctx_t rpc_ctx;
-     
-
-  DEBUG5("Filter a message of ID %lu, type '%s' and kind '%s'. Waiting for ID=%lu. %s",
-        msg->ID,msg->type->name,e_gras_msg_kind_names[msg->kind],ID,
-        res?"take it": "reject");
-   
-  if (res && !_gras_rpc_cancelled)
-     return res;
-  
-  /* Check whether it is an old answer to a message we already canceled */
-  xbt_dynar_foreach(_gras_rpc_cancelled,cursor,rpc_ctx) {
-     if (msg->ID == rpc_ctx->ID && msg->kind==e_gras_msg_kind_rpcanswer) {
-       VERB1("Got an answer to the already canceled (timeouted?) RPC %ld. Ignore it (leaking the payload!).",msg->ID);
-       xbt_dynar_cursor_rm (_gras_rpc_cancelled, &cursor);
-       return 1;
-     }
-  }
-   
-  return res;
-}
-
-/* Mallocator cruft */
-xbt_mallocator_t gras_msg_ctx_mallocator = NULL;
-void* gras_msg_ctx_mallocator_new_f(void) {
-   return xbt_new0(s_gras_msg_cb_ctx_t,1);
-}
-void gras_msg_ctx_mallocator_free_f(void* ctx) {
-   xbt_free(ctx);
-}
-void gras_msg_ctx_mallocator_reset_f(void* ctx) {
-   memset(ctx, sizeof(s_gras_msg_cb_ctx_t),0);
-}
-
-/** @brief Launch a RPC call, but do not block for the answer */
-gras_msg_cb_ctx_t 
-gras_msg_rpc_async_call_(gras_socket_t server,
-                        double timeOut,
-                        gras_msgtype_t msgtype,
-                        void *request) {
-  gras_msg_cb_ctx_t ctx = xbt_mallocator_get(gras_msg_ctx_mallocator);
-
-  if (msgtype->ctn_type) {
-    xbt_assert1(request,
-               "RPC type '%s' convey a payload you must provide",
-               msgtype->name);
-  } else {
-    xbt_assert1(!request,
-               "No payload was declared for RPC type '%s'",
-               msgtype->name);
-  }
-
-  ctx->ID = last_msg_ID++;
-  ctx->expeditor = server;
-  ctx->msgtype=msgtype;
-  ctx->timeout=timeOut;
-
-  VERB4("Send to %s:%d a RPC of type '%s' (ID=%lu)",
-       gras_socket_peer_name(server),
-       gras_socket_peer_port(server),
-       msgtype->name,ctx->ID);
-
-  gras_msg_send_ext(server, e_gras_msg_kind_rpccall, ctx->ID, msgtype, request);
-
-  return ctx;
-}
-
-/** @brief Wait the answer of a RPC call previously launched asynchronously */
-void gras_msg_rpc_async_wait(gras_msg_cb_ctx_t ctx,
-                            void *answer) {
-  xbt_ex_t e;
-  s_gras_msg_t received;
-
-  if (ctx->msgtype->answer_type) {
-    xbt_assert1(answer,
-               "Answers to RPC '%s' convey a payload you must accept",
-               ctx->msgtype->name);
-  } else {
-    xbt_assert1(!answer,
-               "No payload was declared for answers to RPC '%s'",
-               ctx->msgtype->name);
-  }
-
-  TRY {
-     /* The filter returns 1 when we eat an old RPC answer to something canceled */
-     do {
-       gras_msg_wait_ext_(ctx->timeout,
-                          ctx->msgtype, NULL, msgfilter_rpcID, &ctx->ID,
-                          &received);
-     } while (received.ID != ctx->ID);
-     
-  } CATCH(e) {
-     if (!_gras_rpc_cancelled)
-       _gras_rpc_cancelled = xbt_dynar_new(sizeof(ctx),NULL);
-     xbt_dynar_push(_gras_rpc_cancelled,&ctx);
-     INFO5("canceled RPC %ld pushed onto the stack (%s from %s:%d) Reason: %s",
-          ctx->ID,ctx->msgtype->name,
-          gras_socket_peer_name(ctx->expeditor),gras_socket_peer_port(ctx->expeditor),
-          e.msg);
-     RETHROW;
-  }
-   
-  xbt_mallocator_release(gras_msg_ctx_mallocator, ctx);
-  if (received.kind == e_gras_msg_kind_rpcerror) {
-    xbt_ex_t e;
-    memcpy(&e,received.payl,received.payl_size);
-    free(received.payl);
-    VERB3("Raise a remote exception cat:%d comming from %s (%s)",
-         e.category, e.host, e.msg);
-     __xbt_ex_ctx()->ctx_ex.msg      = e.msg;
-     __xbt_ex_ctx()->ctx_ex.category = e.category;
-     __xbt_ex_ctx()->ctx_ex.value    = e.value;
-     __xbt_ex_ctx()->ctx_ex.remote   = 1;
-     __xbt_ex_ctx()->ctx_ex.host     = e.host;
-     __xbt_ex_ctx()->ctx_ex.procname = e.procname;
-     __xbt_ex_ctx()->ctx_ex.pid      = e.pid;
-     __xbt_ex_ctx()->ctx_ex.file     = e.file;
-     __xbt_ex_ctx()->ctx_ex.line     = e.line;
-     __xbt_ex_ctx()->ctx_ex.func     = e.func;
-     __xbt_ex_ctx()->ctx_ex.used     = e.used;
-     __xbt_ex_ctx()->ctx_ex.bt_strings = e.bt_strings;
-     memset(&__xbt_ex_ctx()->ctx_ex.bt,0,
-           sizeof(__xbt_ex_ctx()->ctx_ex.bt));
-    DO_THROW(__xbt_ex_ctx()->ctx_ex);
-  }
-  memcpy(answer,received.payl,received.payl_size);
-  free(received.payl);
-}
-
-/** @brief Conduct a RPC call */
-void gras_msg_rpccall_(gras_socket_t server,
-                      double timeout,
-                      gras_msgtype_t msgtype,
-                      void *request, void *answer) {
-
-  gras_msg_cb_ctx_t ctx;
-
-  ctx = gras_msg_rpc_async_call_(server, timeout,msgtype,request);
-  gras_msg_rpc_async_wait(ctx, answer);
-}
-
-
-/** @brief Return the result of a RPC call
- *
- * It done before the actual return of the callback so that the callback can do
- * some cleanups before leaving.
- */
-
-void gras_msg_rpcreturn(double timeOut,gras_msg_cb_ctx_t ctx,void *answer) {
-  xbt_assert0(ctx->answer_due,
-             "RPC return not allowed here. Either not a RPC message or already returned a result");
-  ctx->answer_due = 0;
-  DEBUG5("Return to RPC '%s' from %s:%d (tOut=%f, payl=%p)",
-        ctx->msgtype->name,
-        gras_socket_peer_name(ctx->expeditor),gras_socket_peer_port(ctx->expeditor),
-        timeOut,answer);
-  gras_msg_send_ext(ctx->expeditor, e_gras_msg_kind_rpcanswer, 
-                   ctx->ID, ctx->msgtype, answer);
-}
-
diff --git a/src/gras_simix/Msg/gras_simix_sg_msg.c b/src/gras_simix/Msg/gras_simix_sg_msg.c
deleted file mode 100644 (file)
index c39e711..0000000
+++ /dev/null
@@ -1,153 +0,0 @@
-/* $Id$ */
-
-/* messaging - Function related to messaging code specific to SG            */
-
-/* Copyright (c) 2003-2005 Martin Quinson. 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. */
-
-#include "xbt/ex.h"
-
-#include "gras_simix/Virtu/gras_simix_virtu_sg.h"
-
-#include "gras_simix/Msg/gras_simix_msg_private.h"
-
-#include "gras_simix/DataDesc/gras_simix_datadesc_interface.h"
-#include "gras_simix/Transport/gras_simix_transport_interface.h" /* gras_trp_chunk_send/recv */
-#include "gras_simix/Transport/gras_simix_transport_private.h" /* sock->data */
-
-XBT_LOG_EXTERNAL_CATEGORY(gras_msg);
-XBT_LOG_DEFAULT_CATEGORY(gras_msg);
-
-typedef void* gras_trp_bufdata_;
-
-void gras_msg_send_ext(gras_socket_t   sock,
-                    e_gras_msg_kind_t kind,
-                      unsigned long int ID,
-                      gras_msgtype_t  msgtype,
-                      void           *payload) {
-
-       smx_action_t act; /* simix action */
-       gras_trp_sg_sock_data_t *sock_data; 
-       gras_hostdata_t *hd;
-       gras_trp_procdata_t trp_remote_proc;
-       gras_msg_procdata_t msg_remote_proc;
-       gras_msg_t msg; /* message to send */
-  int whole_payload_size=0; /* msg->payload_size is used to memcpy the payload. 
-                               This is used to report the load onto the simulator. It also counts the size of pointed stuff */
-
-       sock_data = (gras_trp_sg_sock_data_t *)sock->data;
-
-       hd = (gras_hostdata_t *)SIMIX_host_get_data(SIMIX_host_self());
-
-  xbt_assert1(!gras_socket_is_meas(sock), 
-             "Asked to send a message on the measurement socket %p", sock);
-       
-       /* got the mutex my port */
-       DEBUG1("Sock port %d",sock->port);
-       SIMIX_mutex_lock(sock_data->mutex);
-
-       /*initialize gras message */
-       msg = xbt_new(s_gras_msg_t,1);
-       msg->expe = sock;
-       msg->kind = kind;
-       msg->type = msgtype;
-       msg->ID = ID;
-  if (kind == e_gras_msg_kind_rpcerror) {
-     /* error on remote host, carfull, payload is an exception */
-    msg->payl_size=gras_datadesc_size(gras_datadesc_by_name("ex_t"));
-    msg->payl=xbt_malloc(msg->payl_size);
-    whole_payload_size = gras_datadesc_copy(gras_datadesc_by_name("ex_t"),
-                                           payload,msg->payl);
-  } else if (kind == e_gras_msg_kind_rpcanswer) {
-    msg->payl_size=gras_datadesc_size(msgtype->answer_type);
-    msg->payl=xbt_malloc(msg->payl_size);
-    if (msgtype->answer_type)
-      whole_payload_size = gras_datadesc_copy(msgtype->answer_type,
-                                             payload, msg->payl);
-  } else {
-    msg->payl_size=gras_datadesc_size(msgtype->ctn_type);
-    msg->payl=msg->payl_size?xbt_malloc(msg->payl_size):NULL;
-    if (msgtype->ctn_type)
-      whole_payload_size = gras_datadesc_copy(msgtype->ctn_type,
-                                             payload, msg->payl);
-  }
-       /* put message on msg_queue */
-       msg_remote_proc = (gras_msg_procdata_t)gras_libdata_by_name_from_remote("gras_msg",sock_data->to_process);
-       xbt_fifo_push(msg_remote_proc->msg_to_receive_queue,msg);
-       
-       /* wake-up the receiver */
-       trp_remote_proc = (gras_trp_procdata_t)gras_libdata_by_name_from_remote("gras_trp",sock_data->to_process);
-       xbt_fifo_push(trp_remote_proc->active_socket,sock);
-
-       SIMIX_cond_signal(trp_remote_proc->cond);
-
-       /* wait for the receiver */
-       SIMIX_cond_wait(sock_data->cond, sock_data->mutex);
-
-       /* creates simix action and waits its ends, waits in the sender host condition*/
-       act = SIMIX_action_communicate(SIMIX_host_self(), sock_data->to_host,msgtype->name, (double)whole_payload_size, -1);
-       SIMIX_register_action_to_condition(act,sock_data->cond);
-       SIMIX_register_condition_to_action(act,sock_data->cond);
-
-  VERB5("Sending to %s(%s) a message type '%s' kind '%s' ID %lu",
-       SIMIX_host_get_name(sock_data->to_host),SIMIX_process_get_name(sock_data->to_process),
-       msg->type->name,e_gras_msg_kind_names[msg->kind],       msg->ID);
-       
-       SIMIX_cond_wait(sock_data->cond, sock_data->mutex);
-       /* error treatmeant */
-
-       /* cleanup structures */
-       SIMIX_action_destroy(act);
-       SIMIX_mutex_unlock(sock_data->mutex);
-
-       VERB0("Message sent");
-
-}
-/*
- * receive the next message on the given socket.  
- */
-void
-gras_msg_recv(gras_socket_t    sock,
-             gras_msg_t       msg) {
-
-       gras_trp_sg_sock_data_t *sock_data; 
-       gras_trp_sg_sock_data_t *remote_sock_data; 
-       gras_hostdata_t *remote_hd;
-  gras_msg_t msg_got;
-       gras_msg_procdata_t msg_procdata = (gras_msg_procdata_t)gras_libdata_by_name("gras_msg");
-
-  xbt_assert1(!gras_socket_is_meas(sock), 
-             "Asked to receive a message on the measurement socket %p", sock);
-
-  xbt_assert0(msg,"msg is an out parameter of gras_msg_recv...");
-
-       sock_data = (gras_trp_sg_sock_data_t *)sock->data;
-       remote_sock_data = ((gras_trp_sg_sock_data_t *)sock->data)->to_socket->data;
-       DEBUG3("Remote host %s, Remote Port: %d Local port %d", SIMIX_host_get_name(sock_data->to_host), sock->peer_port, sock->port);
-       remote_hd = (gras_hostdata_t *)SIMIX_host_get_data(sock_data->to_host);
-
-       if (xbt_fifo_size(msg_procdata->msg_to_receive_queue) == 0 ) {
-               THROW_IMPOSSIBLE;
-       }
-       DEBUG1("Size msg_to_receive buffer: %d", xbt_fifo_size(msg_procdata->msg_to_receive_queue));
-  msg_got = xbt_fifo_shift(msg_procdata->msg_to_receive_queue);
-
-       SIMIX_mutex_lock(remote_sock_data->mutex);
-/* ok, I'm here, you can continuate the communication */
-       SIMIX_cond_signal(remote_sock_data->cond);
-
-/* wait for communication end */
-       SIMIX_cond_wait(remote_sock_data->cond,remote_sock_data->mutex);
-
-       msg_got->expe= msg->expe;
-  memcpy(msg,msg_got,sizeof(s_gras_msg_t));
-       xbt_free(msg_got);
-       SIMIX_mutex_unlock(remote_sock_data->mutex);
-
-       VERB3("Received a message type '%s' kind '%s' ID %lu",// from %s",
-       msg->type->name,
-       e_gras_msg_kind_names[msg->kind],
-       msg->ID);
-}
diff --git a/src/gras_simix/Msg/gras_simix_timer.c b/src/gras_simix/Msg/gras_simix_timer.c
deleted file mode 100644 (file)
index d15e482..0000000
+++ /dev/null
@@ -1,175 +0,0 @@
-/* $Id$ */
-
-/* timer - Delayed and repetitive actions                                   */
-
-/* Copyright (c) 2005 Martin Quinson. 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. */
-
-#include "xbt/ex.h"
-#include "gras_simix/Msg/gras_simix_msg_private.h"
-#include "gras/timer.h"
-#include "gras_simix/Virtu/gras_simix_virtu_interface.h"
-
-
-XBT_LOG_NEW_DEFAULT_SUBCATEGORY(gras_timer,gras,
-                               "Delayed and repetitive actions");
-
-/** @brief Request \a action to be called once in \a delay seconds */
-void gras_timer_delay(double delay, void_f_void_t action) {
-  gras_msg_procdata_t pd=(gras_msg_procdata_t)gras_libdata_by_id(gras_msg_libdata_id);
-   
-  gras_timer_t timer = xbt_dynar_push_ptr(pd->timers);
-   
-  VERB1("Register delayed action %p", action);
-  timer->period = delay;
-  timer->expiry = delay+gras_os_time();
-  timer->action = action;
-  timer->repeat = FALSE;
-}
-
-/** @brief Request \a action to be called every \a interval seconds */
-void gras_timer_repeat(double interval, void_f_void_t action) {
-  gras_msg_procdata_t pd=(gras_msg_procdata_t)gras_libdata_by_id(gras_msg_libdata_id);
-   
-  gras_timer_t timer = xbt_dynar_push_ptr(pd->timers);
-
-  VERB1("Register repetitive action %p", action);
-  timer->period = interval;
-  timer->expiry = interval+gras_os_time();
-  timer->action = action;
-  timer->repeat = TRUE;
-}
-
-/** @brief Cancel a delayed task */
-void gras_timer_cancel_delay(double interval, void_f_void_t action) {
-  gras_msg_procdata_t pd=(gras_msg_procdata_t)gras_libdata_by_id(gras_msg_libdata_id);
-  int cursor,found;
-  s_gras_timer_t timer;
-
-  found = FALSE;
-  xbt_dynar_foreach(pd->timers,cursor,timer){
-     if (timer.repeat == FALSE    &&
-        timer.period == interval &&
-        timer.action == action) {
-       
-       found = TRUE;
-       xbt_dynar_cursor_rm(pd->timers, &cursor);
-     }
-  }
-  
-  if (!found)
-     THROW2(mismatch_error,0,"Cannot remove the action %p delayed of %f second: not found",
-           action,interval);
-   
-}
-
-/** @brief Cancel a repetitive task */
-void gras_timer_cancel_repeat(double interval, void_f_void_t action) {
-  gras_msg_procdata_t pd=(gras_msg_procdata_t)gras_libdata_by_id(gras_msg_libdata_id);
-  int cursor,found;
-  s_gras_timer_t timer;
-
-  found = FALSE;
-  xbt_dynar_foreach(pd->timers,cursor,timer){
-     if (timer.repeat == TRUE     &&
-        timer.period == interval &&
-        timer.action == action) {
-       
-       found = TRUE;
-       xbt_dynar_cursor_rm(pd->timers, &cursor);
-     }
-  }
-  
-  if (!found)
-     THROW2(mismatch_error,0,"Cannot remove the action %p delayed of %f second: not found",
-           action,interval);
-}
-
-/** @brief Cancel all delayed tasks */
-void gras_timer_cancel_delay_all(void) {
-  gras_msg_procdata_t pd=(gras_msg_procdata_t)gras_libdata_by_id(gras_msg_libdata_id);
-  int cursor, found;
-  s_gras_timer_t timer;
-
-  found = FALSE;
-  xbt_dynar_foreach(pd->timers,cursor,timer){
-     if (timer.repeat   == FALSE) {
-       
-       found = TRUE;
-       xbt_dynar_cursor_rm(pd->timers, &cursor);
-     }
-  }
-  
-  if (!found)
-     THROW0(mismatch_error,0,"No delayed action to remove");
-   
-}
-
-/** @brief Cancel all repetitive tasks */
-void gras_timer_cancel_repeat_all(void){
-  gras_msg_procdata_t pd=(gras_msg_procdata_t)gras_libdata_by_id(gras_msg_libdata_id);
-  int cursor, found;
-  s_gras_timer_t timer;
-
-  found = FALSE;
-  xbt_dynar_foreach(pd->timers,cursor,timer){
-    if (timer.repeat   == FALSE) {
-      
-      found = TRUE;
-      xbt_dynar_cursor_rm(pd->timers, &cursor);
-    }
-  }
-  
-  if (!found)
-    THROW0(mismatch_error,0,"No repetitive action to remove");
-}
-
-/** @brief Cancel all delayed and repetitive tasks */
-void gras_timer_cancel_all(void) {
-  gras_msg_procdata_t pd=(gras_msg_procdata_t)gras_libdata_by_id(gras_msg_libdata_id);
-  xbt_dynar_reset( pd->timers );
-}
-
-   
-/* returns 0 if it handled a timer, or the delay until next timer, or -1 if no armed timer */
-double gras_msg_timer_handle(void) {
-  gras_msg_procdata_t pd=(gras_msg_procdata_t)gras_libdata_by_id(gras_msg_libdata_id);
-  int cursor;
-  gras_timer_t timer;
-  double now=gras_os_time();
-  double untilnext = -1.0;
-  
-  for (cursor=0; cursor < xbt_dynar_length(pd->timers); cursor++) {
-     double untilthis;
-     
-     timer = xbt_dynar_get_ptr (pd->timers, cursor);
-     untilthis = timer->expiry - now;
-     
-     DEBUG2("Action %p expires in %f", timer->action, untilthis);
-     
-     if (untilthis <= 0.0) {
-       void_f_void_t *action = timer->action;
-       
-       DEBUG5("[%.0f] Serve %s action %p (%f<%f)",gras_os_time(),
-             timer->repeat ? "repetitive" : "delayed", timer->action,
-             timer->expiry, now);
-       
-       if (timer->repeat) {    
-        timer->expiry = now + timer->period;
-        DEBUG4("[%.0f] Re-arm repetitive action %p for %f (period=%f)",
-               gras_os_time(),
-               timer->action, timer->expiry, timer->period);
-       } else {
-        DEBUG2("[%.0f] Remove %p now that it's done", gras_os_time(), timer->action);
-        xbt_dynar_cursor_rm(pd->timers, &cursor);
-       }
-       action();
-       return 0.0;
-     } else if (untilthis < untilnext || untilnext == -1) {
-       untilnext = untilthis;
-     }
-  }
-  return untilnext;
-}
diff --git a/src/gras_simix/Transport/gras_simix_rl_transport.c b/src/gras_simix/Transport/gras_simix_rl_transport.c
deleted file mode 100644 (file)
index 9407947..0000000
+++ /dev/null
@@ -1,226 +0,0 @@
-/* $Id$ */
-
-/* rl_transport - RL specific functions for transport                       */
-
-/* Copyright (c) 2004 Martin Quinson. 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. */
-
-#include "xbt/ex.h"
-#include "portable.h"
-#include "gras_simix/Transport/gras_simix_transport_private.h"
-XBT_LOG_EXTERNAL_DEFAULT_CATEGORY(gras_trp);
-
-/* check transport_private.h for an explanation of this variable */
-gras_socket_t _gras_lastly_selected_socket = NULL;
-
-/**
- * gras_trp_select:
- *
- * Returns the next socket to service because it receives a message.
- *
- * if timeout<0, we ought to implement the adaptative timeout (FIXME)
- *
- * if timeout=0, do not wait for new message, only handle the ones already there.
- *
- * if timeout>0 and no message there, wait at most that amount of time before giving up.
- */
-gras_socket_t gras_trp_select(double timeout) {
-  xbt_dynar_t sockets= ((gras_trp_procdata_t) gras_libdata_by_id(gras_trp_libdata_id))->sockets;
-  int done = -1;
-  double wakeup = gras_os_time() + timeout;
-  double now = 0;
-  /* nextToService used to make sure socket with high number do not starve */
-  /*  static int nextToService = 0; */
-  struct timeval tout, *p_tout;
-
-  int max_fds=0; /* first arg of select: number of existing sockets */
-  /* but accept() of winsock returns sockets bigger than the limit, so don't bother 
-     with this tiny optimisation on BillWare */
-  fd_set FDS;
-  int ready; /* return of select: number of socket ready to be serviced */
-  static int fd_setsize=-1; /* FD_SETSIZE not always defined. Get this portably */
-
-  gras_socket_t sock_iter; /* iterating over all sockets */
-  int cursor;              /* iterating over all sockets */
-
-  /* Check whether there is more data to read from the socket we selected last time.
-     This can happen with tcp buffered sockets since we try to get as much data as we can for them */
-  if (_gras_lastly_selected_socket && _gras_lastly_selected_socket->moredata) {
-     VERB0("Returning _gras_lastly_selected_socket since there is more data on it");
-     return _gras_lastly_selected_socket;
-  }
-  
-  /* Compute FD_SETSIZE on need */
-  if (fd_setsize < 0) {        
-#ifdef HAVE_SYSCONF
-     fd_setsize = sysconf( _SC_OPEN_MAX );
-#else
-#  ifdef HAVE_GETDTABLESIZE 
-     fd_setsize = getdtablesize();
-#  else
-     fd_setsize = FD_SETSIZE;
-#  endif /* !USE_SYSCONF */
-#endif
-  }
-
-  while (done == -1) {
-    if (timeout > 0) { /* did we timeout already? */
-      now = gras_os_time();
-      DEBUG2("wakeup=%f now=%f",wakeup, now);
-      if (now == -1 || now >= wakeup) {
-       /* didn't find anything; no need to update _gras_lastly_selected_socket since its moredata is 0 (or we would have returned it directly) */
-       THROW1(timeout_error,0,
-              "Timeout (%f) elapsed with selecting for incomming connexions",
-              timeout);
-      }
-    }
-
-    /* construct the set of socket to ear from */
-    FD_ZERO(&FDS);
-    max_fds = -1;
-    xbt_dynar_foreach(sockets,cursor,sock_iter) {
-      if (!sock_iter->valid)
-        continue;
-       
-      if (sock_iter->incoming) {
-       DEBUG1("Considering socket %d for select",sock_iter->sd);
-#ifndef HAVE_WINSOCK_H
-       if (max_fds < sock_iter->sd)
-         max_fds = sock_iter->sd;
-#else
-      max_fds = 0;
-
-#endif
-       FD_SET(sock_iter->sd, &FDS);
-      } else {
-       DEBUG1("Not considering socket %d for select",sock_iter->sd);
-      }
-    }
-
-    if (max_fds == -1) {
-       if (timeout > 0) {
-         DEBUG1("No socket to select onto. Sleep %f sec instead.",timeout);
-         gras_os_sleep(timeout);
-         THROW1(timeout_error,0,"No socket to select onto. Sleep %f sec instead",timeout);
-       } else {
-         DEBUG0("No socket to select onto. Return directly.");
-         THROW0(timeout_error,0, "No socket to select onto. Return directly.");
-       }
-    }
-
-#ifndef HAVE_WINSOCK_H
-    /* we cannot have more than FD_SETSIZE sockets 
-       ... but with WINSOCK which returns sockets higher than the limit (killing this optim) */
-    if (++max_fds > fd_setsize && fd_setsize > 0) {
-      WARN1("too many open sockets (%d).",max_fds);
-      done = 0;
-      break;
-    }
-#else
-    max_fds = fd_setsize;
-#endif
-
-    if (timeout > 0) { 
-      /* set the timeout */
-      tout.tv_sec = (unsigned long)(wakeup - now);
-      tout.tv_usec = ((wakeup -now) - ((unsigned long)(wakeup - now))) * 1000000;
-      p_tout = &tout;
-    } else if (timeout == 0) {
-      /* polling only */
-      tout.tv_sec = 0;
-      tout.tv_usec = 0;
-      p_tout = &tout;
-      /* we just do one loop around */
-      done = 0;
-    } else { 
-      /* no timeout: good luck! */
-      p_tout = NULL;
-    }
-     
-    DEBUG2("Selecting over %d socket(s); timeout=%f", max_fds-1,timeout);
-    ready = select(max_fds, &FDS, NULL, NULL, p_tout);
-    DEBUG1("select returned %d", ready);
-    if (ready == -1) {
-      switch (errno) {
-      case  EINTR: /* a signal we don't care about occured. we don't care */
-       /* if we cared, we would have set an handler */
-       continue;
-      case EINVAL: /* invalid value */
-       THROW3(system_error,EINVAL,"invalid select: nb fds: %d, timeout: %d.%d",
-              max_fds, (int)tout.tv_sec,(int) tout.tv_usec);
-      case ENOMEM: 
-       xbt_assert0(0,"Malloc error during the select");
-      default:
-       THROW2(system_error,errno,"Error during select: %s (%d)",
-              strerror(errno),errno);
-      }
-      THROW_IMPOSSIBLE;
-    } else if (ready == 0) {
-      continue;         /* this was a timeout */
-    }
-
-    xbt_dynar_foreach(sockets,cursor,sock_iter) {
-       if(!FD_ISSET(sock_iter->sd, &FDS)) { /* this socket is not ready */
-       continue;
-       }
-       
-       /* Got a socket to serve */
-       ready--;
-
-       if (   sock_iter->accepting
-          && sock_iter->plugin->socket_accept) { 
-        /* not a socket but an ear. accept on it and serve next socket */
-        gras_socket_t accepted=NULL;
-        
-        accepted = (sock_iter->plugin->socket_accept)(sock_iter);
-        DEBUG2("accepted=%p,&accepted=%p",accepted,&accepted);
-        accepted->meas = sock_iter->meas;
-
-       } else if (sock_iter->recv_ok) {
-        /* Make sure the socket is still alive by reading the first byte */
-        char lookahead;
-        int recvd;
-
-        recvd = recv(sock_iter->sd, &lookahead, 1, MSG_PEEK);
-        if (recvd < 0) {
-          WARN2("socket %d failed: %s", sock_iter->sd, strerror(errno));
-          /* done with this socket */
-          gras_socket_close(sock_iter);
-          cursor--;
-        } else if (recvd == 0) {
-          /* Connection reset (=closed) by peer. */
-          DEBUG1("Connection %d reset by peer", sock_iter->sd);
-          sock_iter->valid=0; /* don't close it. User may keep references to it */
-        } else { 
-          /* Got a suited socket ! */
-          XBT_OUT;
-          _gras_lastly_selected_socket = sock_iter;
-          return sock_iter;
-        }
-
-       } else {
-        /* This is a file socket. Cannot recv() on it, but it must be alive */
-          XBT_OUT;
-          _gras_lastly_selected_socket = sock_iter;
-          return sock_iter;
-       }
-
-       
-       /* if we're here, the socket we found wasn't really ready to be served */
-       if (ready == 0) /* exausted all sockets given by select. Request new ones */
-        break; 
-    }
-
-  }
-
-  /* No socket found. Maybe we had timeout=0 and nothing to do */
-  DEBUG0("TIMEOUT");
-  THROW0(timeout_error,0,"Timeout");
-}
-
-void gras_trp_sg_setup(gras_trp_plugin_t plug) {
-  THROW0(mismatch_error,0,"No SG transport on live platforms");
-}
-
diff --git a/src/gras_simix/Transport/gras_simix_sg_transport.c b/src/gras_simix/Transport/gras_simix_sg_transport.c
deleted file mode 100644 (file)
index 297fdd2..0000000
+++ /dev/null
@@ -1,130 +0,0 @@
-/* $Id$ */
-
-/* sg_transport - SG specific functions for transport                       */
-
-/* Copyright (c) 2004 Martin Quinson. 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. */
-
-#include "xbt/ex.h"
-#include "gras_simix/Transport/gras_simix_transport_private.h"
-//#include "msg/msg.h"
-#include "gras_simix/Virtu/gras_simix_virtu_sg.h"
-
-XBT_LOG_EXTERNAL_DEFAULT_CATEGORY(gras_trp);
-
-/* check transport_private.h for an explanation of this variable; this just need to be defined to NULL in SG */
-gras_socket_t _gras_lastly_selected_socket = NULL;
-
-/**    
- * gras_trp_select:
- *
- * Returns the next socket to service having a message awaiting.
- *
- * if timeout<0, we ought to implement the adaptative timeout (FIXME)
- *
- * if timeout=0, do not wait for new message, only handle the ones already there.
- *
- * if timeout>0 and no message there, wait at most that amount of time before giving up.
- */
-gras_socket_t gras_trp_select(double timeout) {
-       gras_socket_t res;
-       gras_trp_procdata_t pd = (gras_trp_procdata_t) gras_libdata_by_id(gras_trp_libdata_id);
-       gras_trp_sg_sock_data_t *sockdata;
-       gras_trp_plugin_t trp;
-       gras_socket_t active_socket;
-       gras_socket_t sock_iter; /* iterating over all sockets */
-       int cursor;
-
-       DEBUG0("Trying to get the lock pd, trp_select");
-       SIMIX_mutex_lock(pd->mutex);
-       DEBUG3("select on %s@%s with timeout=%f",
-                       SIMIX_process_get_name(SIMIX_process_self()),
-                       SIMIX_host_get_name(SIMIX_host_self()),
-                       timeout);
-
-       if (xbt_fifo_size(pd->active_socket) == 0) {
-       /* message didn't arrive yet, wait */
-               SIMIX_cond_wait_timeout(pd->cond,pd->mutex,timeout);
-       }
-
-       if (xbt_fifo_size(pd->active_socket) == 0) {
-               DEBUG0("TIMEOUT");
-               SIMIX_mutex_unlock(pd->mutex);
-               THROW0(timeout_error,0,"Timeout");
-       }
-       active_socket = xbt_fifo_shift(pd->active_socket);
-       
-       /* Ok, got something. Open a socket back to the expeditor */
-
-       /* Try to reuse an already openned socket to that expeditor */
-       DEBUG1("Open sockets size %lu",xbt_dynar_length(pd->sockets));
-       xbt_dynar_foreach(pd->sockets,cursor,sock_iter) {
-               DEBUG1("Consider %p as outgoing socket to expeditor",sock_iter);
-
-               if (sock_iter->meas || !sock_iter->outgoing)
-                       continue;
-                       /*
-               if ((sock_iter->peer_port == active_socket->port) && 
-                               (((gras_trp_sg_sock_data_t*)sock_iter->data)->to_host == SIMIX_process_get_host(((gras_trp_sg_sock_data_t*)active_socket->data)->from_process))) {
-                               */
-               if ( (((gras_trp_sg_sock_data_t*)sock_iter->data)->to_socket == active_socket) && (((gras_trp_sg_sock_data_t*)sock_iter->data)->to_host == SIMIX_process_get_host(((gras_trp_sg_sock_data_t*)active_socket->data)->from_process)) ) {
-                       SIMIX_mutex_unlock(pd->mutex);
-                       return sock_iter;
-               }
-       }
-
-       /* Socket to expeditor not created yet */
-       DEBUG0("Create a socket to the expeditor");
-
-       trp = gras_trp_plugin_get_by_name("sg");
-
-       gras_trp_socket_new(1,&res);
-       res->plugin   = trp;
-
-       res->incoming  = 1;
-       res->outgoing  = 1;
-       res->accepting = 0;
-       res->sd        = -1;
-
-       res->port = -1;
-
-       /* initialize the ports */
-       //res->peer_port = active_socket->port;
-       res->port = active_socket->peer_port;
-
-       /* create sockdata */
-       sockdata = xbt_new(gras_trp_sg_sock_data_t,1);
-       sockdata->from_process = SIMIX_process_self();
-       sockdata->to_process   = ((gras_trp_sg_sock_data_t*)(active_socket->data))->from_process;
-       
-       res->peer_port = ((gras_trp_procdata_t)gras_libdata_by_name_from_remote("gras_trp",sockdata->to_process))->myport;
-       sockdata->to_socket = active_socket;
-       /*update the peer to_socket  variable */
-       ((gras_trp_sg_sock_data_t*)active_socket->data)->to_socket = res;
-       sockdata->cond = SIMIX_cond_init();
-       sockdata->mutex = SIMIX_mutex_init();
-
-       sockdata->to_host  = SIMIX_process_get_host(((gras_trp_sg_sock_data_t*)(active_socket->data))->from_process);
-
-       res->data = sockdata;
-       res->peer_name = strdup(SIMIX_host_get_name(sockdata->to_host));
-
-       gras_trp_buf_init_sock(res);
-
-       DEBUG4("Create socket to process:%s(Port %d) from process: %s(Port %d)",SIMIX_process_get_name(sockdata->from_process),res->peer_port, SIMIX_process_get_name(sockdata->to_process), res->port);
-
-       SIMIX_mutex_unlock(pd->mutex);
-       return res;
-}
-
-  
-/* dummy implementations of the functions used in RL mode */
-
-void gras_trp_tcp_setup(gras_trp_plugin_t plug) {  THROW0(mismatch_error,0,NULL); }
-void gras_trp_file_setup(gras_trp_plugin_t plug){  THROW0(mismatch_error,0,NULL); }
-void gras_trp_iov_setup(gras_trp_plugin_t plug) {  THROW0(mismatch_error,0,NULL); }
-
-gras_socket_t gras_trp_buf_init_sock(gras_socket_t sock) { return sock;}
-   
diff --git a/src/gras_simix/Transport/gras_simix_transport.c b/src/gras_simix/Transport/gras_simix_transport.c
deleted file mode 100644 (file)
index f2db951..0000000
+++ /dev/null
@@ -1,624 +0,0 @@
-/* $Id$ */
-
-/* transport - low level communication                                      */
-
-/* Copyright (c) 2004 Martin Quinson. 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. */
-
-/***
- *** Options
- ***/
-int gras_opt_trp_nomoredata_on_close=0;
-
-#include "xbt/ex.h"
-#include "xbt/peer.h"
-#include "portable.h"
-#include "gras_simix/Transport/gras_simix_transport_private.h"
-
-XBT_LOG_NEW_DEFAULT_SUBCATEGORY(gras_trp,gras,"Conveying bytes over the network");
-XBT_LOG_NEW_SUBCATEGORY(gras_trp_meas,gras_trp,"Conveying bytes over the network without formating for perf measurements");
-static short int _gras_trp_started = 0;
-
-static xbt_dict_t _gras_trp_plugins;      /* All registered plugins */
-static void gras_trp_plugin_free(void *p); /* free one of the plugins */
-
-static void
-gras_trp_plugin_new(const char *name, gras_trp_setup_t setup) {
-  xbt_ex_t e;
-
-  gras_trp_plugin_t plug = xbt_new0(s_gras_trp_plugin_t, 1);
-  
-  DEBUG1("Create plugin %s",name);
-
-  plug->name=xbt_strdup(name);
-
-  TRY {
-    setup(plug);
-  } CATCH(e) {
-    if (e.category == mismatch_error) {
-      /* SG plugin raise mismatch when in RL mode (and vice versa) */
-      free(plug->name);
-      free(plug);
-      plug=NULL;
-      xbt_ex_free(e);
-    } else {
-      RETHROW;
-    }
-  }
-
-  if (plug)
-    xbt_dict_set(_gras_trp_plugins, name, plug, gras_trp_plugin_free);
-}
-
-void gras_trp_init(void){
-  if (!_gras_trp_started) {
-     /* make room for all plugins */
-     _gras_trp_plugins=xbt_dict_new();
-
-#ifdef HAVE_WINSOCK2_H
-     /* initialize the windows mechanism */
-     {  
-       WORD wVersionRequested;
-       WSADATA wsaData;
-       
-       wVersionRequested = MAKEWORD( 2, 0 );
-       xbt_assert0(WSAStartup( wVersionRequested, &wsaData ) == 0,
-                   "Cannot find a usable WinSock DLL");
-       
-       /* Confirm that the WinSock DLL supports 2.0.*/
-       /* Note that if the DLL supports versions greater    */
-       /* than 2.0 in addition to 2.0, it will still return */
-       /* 2.0 in wVersion since that is the version we      */
-       /* requested.                                        */
-       
-       xbt_assert0(LOBYTE( wsaData.wVersion ) == 2 &&
-                   HIBYTE( wsaData.wVersion ) == 0,
-                   "Cannot find a usable WinSock DLL");
-       INFO0("Found and initialized winsock2");
-     }       /* The WinSock DLL is acceptable. Proceed. */
-#elif HAVE_WINSOCK_H
-     {       WSADATA wsaData;
-       xbt_assert0(WSAStartup( 0x0101, &wsaData ) == 0,
-                   "Cannot find a usable WinSock DLL");
-       INFO0("Found and initialized winsock");
-     }
-#endif
-   
-     /* Add plugins */
-     gras_trp_plugin_new("file",gras_trp_file_setup);
-     gras_trp_plugin_new("sg",gras_trp_sg_setup);
-     gras_trp_plugin_new("tcp", gras_trp_tcp_setup);
-  }
-   
-  _gras_trp_started++;
-}
-
-void
-gras_trp_exit(void){
-  //xbt_dynar_t sockets = ((gras_trp_procdata_t) gras_libdata_by_id(gras_trp_libdata_id))->sockets;
-  //gras_socket_t sock_iter;
-  //int cursor;
-       DEBUG1("gras_trp valor %d",_gras_trp_started);
-   if (_gras_trp_started == 0) {
-      return;
-   }
-   
-   if ( --_gras_trp_started == 0 ) {
-#ifdef HAVE_WINSOCK_H
-      if ( WSACleanup() == SOCKET_ERROR ) {
-        if ( WSAGetLastError() == WSAEINPROGRESS ) {
-           WSACancelBlockingCall();
-           WSACleanup();
-        }
-       }
-#endif
-
-      /* Close all the sockets, moved to process_close */
-                       /*
-                       DEBUG1("sockets pointer %p",sockets);
-      xbt_dynar_foreach(sockets,cursor,sock_iter) {
-       VERB1("Closing the socket %p left open on exit. Maybe a socket leak?",
-             sock_iter);
-       gras_socket_close(sock_iter);
-      }
-      */
-      /* Delete the plugins */
-      xbt_dict_free(&_gras_trp_plugins);
-   }
-}
-
-
-void gras_trp_plugin_free(void *p) {
-  gras_trp_plugin_t plug = p;
-
-  if (plug) {
-    if (plug->exit) {
-      plug->exit(plug);
-    } else if (plug->data) {
-      DEBUG1("Plugin %s lacks exit(). Free data anyway.",plug->name);
-      free(plug->data);
-    }
-
-    free(plug->name);
-    free(plug);
-  }
-}
-
-
-/**
- * gras_trp_socket_new:
- *
- * Malloc a new socket, and initialize it with defaults
- */
-void gras_trp_socket_new(int incoming,
-                        gras_socket_t *dst) {
-
-  gras_socket_t sock=xbt_new0(s_gras_socket_t,1);
-
-  VERB1("Create a new socket (%p)", (void*)sock);
-
-  sock->plugin = NULL;
-
-  sock->incoming  = incoming ? 1:0;
-  sock->outgoing  = incoming ? 0:1;
-  sock->accepting = incoming ? 1:0;
-  sock->meas = 0;
-  sock->recv_ok = 1;
-  sock->valid = 1;
-  sock->moredata = 0;
-
-  sock->sd     = -1;
-  sock->port      = -1;
-  sock->peer_port = -1;
-  sock->peer_name = NULL;
-  sock->peer_proc = NULL;
-
-  sock->data   = NULL;
-  sock->bufdata = NULL;
-  
-  *dst = sock;
-
-  xbt_dynar_push(((gras_trp_procdata_t) 
-                 gras_libdata_by_id(gras_trp_libdata_id))->sockets,dst);
-  XBT_OUT;
-}
-/**
- * @brief Opens a server socket and makes it ready to be listened to.
- * @param port: port on which you want to listen
- * @param buf_size: size of the buffer (in byte) on the socket (for TCP sockets only). If 0, a sain default is used (32k, but may change)
- * @param measurement: whether this socket is meant to convey measurement (if you don't know, use 0 to exchange regular messages)
- * 
- * In real life, you'll get a TCP socket. 
- */
-gras_socket_t
-gras_socket_server_ext(unsigned short port,
-                      
-                      unsigned long int buf_size,
-                      int measurement) {
-  xbt_ex_t e;
-  gras_trp_plugin_t trp;
-  gras_socket_t sock;
-
-  DEBUG2("Create a server socket from plugin %s on port %d",
-        gras_if_RL() ? "tcp" : "sg",
-        port);
-  trp = gras_trp_plugin_get_by_name(gras_if_SG() ? "sg":"tcp");
-
-  /* defaults settings */
-  gras_trp_socket_new(1,&sock);
-  sock->plugin= trp;
-  sock->port=port;
-  sock->buf_size = buf_size>0 ? buf_size : 32*1024;
-  sock->meas = measurement;
-
-  /* Call plugin socket creation function */
-  DEBUG1("Prepare socket with plugin (fct=%p)",trp->socket_server);
-  TRY {
-    trp->socket_server(trp, sock);
-    DEBUG3("in=%c out=%c accept=%c",
-          sock->incoming?'y':'n', 
-          sock->outgoing?'y':'n',
-          sock->accepting?'y':'n');
-  } CATCH(e) {
-    int cursor;
-    gras_socket_t sock_iter;
-    xbt_dynar_t socks = ((gras_trp_procdata_t) gras_libdata_by_id(gras_trp_libdata_id))->sockets;
-    xbt_dynar_foreach(socks, cursor, sock_iter) {
-       if (sock_iter==sock) 
-        xbt_dynar_cursor_rm(socks,&cursor);
-    }     
-    free(sock);
-    RETHROW;
-  }
-
-  if (!measurement)
-     ((gras_trp_procdata_t) gras_libdata_by_id(gras_trp_libdata_id))->myport = port;
-  return sock;
-}
-/**
- * @brief Opens a server socket on any port in the given range
- * 
- * @param minport: first port we will try
- * @param maxport: last port we will try
- * @param buf_size: size of the buffer (in byte) on the socket (for TCP sockets only). If 0, a sain default is used (32k, but may change)
- * @param measurement: whether this socket is meant to convey measurement (if you don't know, use 0 to exchange regular messages)
- * 
- * If none of the provided ports works, raises the exception got when trying the last possibility
- */ 
-gras_socket_t
-gras_socket_server_range(unsigned short minport, unsigned short maxport,
-                        unsigned long int buf_size, int measurement) {
-   
-  int port;
-  gras_socket_t res=NULL;
-  xbt_ex_t e;
-  
-  for (port=minport; port<maxport;port ++) {
-    TRY {
-      res=gras_socket_server_ext(port,buf_size,measurement);
-    } CATCH(e) {
-      if (port==maxport)
-       RETHROW;
-      xbt_ex_free(e);
-    }
-    if (res)
-      return res;
-  }
-  THROW_IMPOSSIBLE;
-}
-   
-/**
- * @brief Opens a client socket to a remote host.
- * @param host: who you want to connect to
- * @param port: where you want to connect to on this host
- * @param buf_size: size of the buffer (in bytes) on the socket (for&n