Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
"new ruby host method"
[simgrid.git] / src / xbt / xbt_log_appender_file.c
1 /* $Id$ */
2
3 /* file_appender - a dumb log appender which simply prints to stdout        */
4
5 /* Copyright (c) 2003, 2004 Martin Quinson. All rights reserved.            */
6
7 /* This program is free software; you can redistribute it and/or modify it
8  * under the terms of the license (GNU LGPL) which comes with this package. */
9
10 #include "xbt/sysdep.h"
11 #include "xbt/log_private.h"
12 #include <stdio.h>
13
14 /**
15  * The root category's default logging function.
16  */
17
18 extern const char *xbt_log_priority_names[8];
19
20
21 static void append_file(xbt_log_appender_t this_appender, char *str)
22 {
23   fprintf((FILE *) (this_appender->data), "%s", str);
24 }
25
26 static void free_(xbt_log_appender_t this_)
27 {
28   if (this_->data != stderr)
29     fclose(this_->data);
30 }
31
32
33
34 xbt_log_appender_t xbt_log_appender_file_new(char *arg)
35 {
36   xbt_log_appender_t res = xbt_new0(s_xbt_log_appender_t, 1);
37   res->do_append = append_file;
38   res->free_ = free_;
39   if (arg)
40     res->data = (void *) fopen(arg, "w");
41   else
42     res->data = (void *) stderr;
43   return res;
44 }