Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
Merge branch 'S4U'
[simgrid.git] / src / xbt / xbt_os_file.c
1 /* xbt_os_file.c -- portable interface to file-related functions            */
2
3 /* Copyright (c) 2007-2010, 2012-2015. The SimGrid Team.
4  * All rights reserved.                                                     */
5
6 /* This program is free software; you can redistribute it and/or modify it
7  * under the terms of the license (GNU LGPL) which comes with this package. */
8
9 #include "xbt/sysdep.h"
10 #include "xbt/file.h"    /* this module */
11 #include "xbt/log.h"
12 #include "portable.h"
13
14 #ifndef _MSC_VER
15 #include "libgen.h" /* POSIX dirname */
16 #endif
17
18 /** @brief Get a single line from the stream (reimplementation of the GNU getline)
19  *
20  * This is a reimplementation of the GNU getline function, so that our code don't depends on the GNU libc.
21  *
22  * xbt_getline() reads an entire line from stream, storing the address of the
23  * buffer containing the text into *buf.  The buffer is null-terminated and
24  * includes the newline character, if one was found.
25  *
26  * If *buf is NULL, then xbt_getline() will allocate a buffer for storing the
27  * line, which should be freed by the user program.
28  *
29  * Alternatively, before calling xbt_getline(), *buf can contain a pointer to a
30  * malloc()-allocated buffer *n bytes in size.  If the buffer is not large
31  * enough to hold the line, xbt_getline() resizes it with realloc(), updating
32  * *buf and *n as necessary.
33  *
34  * In either case, on a successful call, *buf and *n will be updated to reflect
35  * the buffer address and allocated size respectively.
36  */
37 ssize_t xbt_getline(char **buf, size_t *n, FILE *stream)
38 {
39   ssize_t i;
40   int ch;
41
42   ch = getc(stream);
43   if (ferror(stream) || feof(stream))
44     return -1;
45
46   if (!*buf) {
47     *n = 512;
48     *buf = xbt_malloc(*n);
49   }
50
51   i = 0;
52   do {
53     if (i == *n)
54       *buf = xbt_realloc(*buf, *n += 512);
55     (*buf)[i++] = ch;
56   } while (ch != '\n' && (ch = getc(stream)) != EOF);
57
58   if (i == *n)
59     *buf = xbt_realloc(*buf, *n += 1);
60   (*buf)[i] = '\0';
61
62   return i;
63 }
64
65 /** @brief Returns the directory component of a path (reimplementation of POSIX dirname)
66  *
67  * The argument is never modified, and the returned value must be freed after use.
68  */
69 char *xbt_dirname(const char *path) {
70 #if _MSC_VER
71           char drive[_MAX_DRIVE];
72           char dir[_MAX_DIR];
73           errno_t err;
74           err = _splitpath_s(path, drive, _MAX_DRIVE, dir, _MAX_DIR, NULL,0, NULL,0);
75           return bprintf("%s%s",drive,dir);
76 #else
77           return dirname(xbt_strdup(path));
78 #endif
79 }
80 /** @brief Returns the file component of a path (reimplementation of POSIX basename)
81  *
82  * The argument is never modified, and the returned value must be freed after use.
83  */
84 char *xbt_basename(const char *path) {
85 #if _MSC_VER
86           char file[1024];
87           char ext[1024];
88           errno_t err;
89           err = _splitpath_s(path, NULL,0, NULL,0, file,1024, ext,1024);
90           return bprintf("%s.%s",file,ext);
91 #else
92           return basename(xbt_strdup(path));
93 #endif
94 }