3 /* base - several addons to do specific stuff not in GRAS itself */
5 /* Copyright (c) 2003, 2004 Martin Quinson. All rights reserved. */
7 /* This program is free software; you can redistribute it and/or modify it
8 * under the terms of the license (GNU LGPL) which comes with this package. */
10 #include "xbt/error.h"
11 #include "gras/datadesc.h"
12 #include "amok/base.h"
14 XBT_LOG_NEW_DEFAULT_SUBCATEGORY(amok,XBT_LOG_ROOT_CAT,"All AMOK categories");
16 amok_remoterr_t amok_remoterr_new(xbt_error_t param_errcode,
17 const char* format,...) {
23 res = amok_remoterr_new_va(param_errcode,format,ap);
28 amok_remoterr_t amok_remoterr_new_va(xbt_error_t param_errcode,
29 const char* format,va_list ap) {
30 amok_remoterr_t res=xbt_new(s_amok_remoterr_t,1);
31 res->code=param_errcode;
33 res->msg=(char*)xbt_malloc(1024);
34 vsnprintf(res->msg,1024,format,ap);
42 void amok_remoterr_free(amok_remoterr_t *err) {
44 if ((*err)->msg) xbt_free((*err)->msg);
52 amok_repport_error (gras_socket_t sock, gras_msgtype_t msgtype,
53 xbt_error_t param_errcode, const char* format,...) {
54 amok_remoterr_t error;
58 error=xbt_new(s_amok_remoterr_t,1);
59 error->code=param_errcode;
60 error->msg=(char*)xbt_malloc(1024); /* FIXME */
62 vsnprintf(error->msg,1024,format,ap);
65 errcode = gras_msg_send(sock,msgtype,error);
66 if (errcode != no_error) {
67 CRITICAL4("Error '%s' while reporting error '%s' to %s:%d",
68 xbt_error_name(errcode),error->msg,
69 gras_socket_peer_name(sock),gras_socket_peer_port(sock) );
73 void amok_base_init(void) {
74 gras_datadesc_type_t host_desc, remoterr_desc;
76 /* Build the datatype descriptions */
77 host_desc = gras_datadesc_struct("xbt_host_t");
78 gras_datadesc_struct_append(host_desc,"name",gras_datadesc_by_name("string"));
79 gras_datadesc_struct_append(host_desc,"exp_size",gras_datadesc_by_name("int"));
80 gras_datadesc_struct_close(host_desc);
81 host_desc = gras_datadesc_ref("xbt_host_t*",host_desc);
83 remoterr_desc = gras_datadesc_struct("s_amok_remoterr_t");
84 gras_datadesc_struct_append(remoterr_desc,"msg",gras_datadesc_by_name("string"));
85 gras_datadesc_struct_append(remoterr_desc,"code",gras_datadesc_by_name("unsigned int"));
86 gras_datadesc_struct_close(remoterr_desc);
87 remoterr_desc = gras_datadesc_ref("amok_remoterr_t",remoterr_desc);
90 void amok_base_exit(void) {
91 /* No real module mecanism in GRAS so far, nothing to do. */