src/config/unix/os_stubs_c.c

   1 /* Copyright 2001, 2002 b8_bavard, b8_fee_carabine, INRIA */
   2 /*
   3     This file is part of mldonkey.
   4
   5     mldonkey is free software; you can redistribute it and/or modify
   6     it under the terms of the GNU General Public License as published by
   7     the Free Software Foundation; either version 2 of the License, or
   8     (at your option) any later version.
   9
  10     mldonkey is distributed in the hope that it will be useful,
  11     but WITHOUT ANY WARRANTY; without even the implied warranty of
  12     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13     GNU General Public License for more details.
  14
  15     You should have received a copy of the GNU General Public License
  16     along with mldonkey; if not, write to the Free Software
  17     Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
  18 */
  19
  20
  21 #include "../../utils/lib/os_stubs.h"
  22
  23
  24
  25 /*******************************************************************
  26
  27
  28                          os_lseek
  29
  30
  31 *******************************************************************/
  32
  33 OFF_T os_lseek(OS_FD fd, OFF_T pos, int dir)
  34 {
  35   OFF_T result =  lseek(fd, pos, dir);
  36
  37   if(result < 0) unix_error(errno, "os_lseek", Nothing);
  38
  39   return result;
  40 }
  41
  42 /*******************************************************************
  43
  44
  45                          os_read
  46
  47
  48 *******************************************************************/
  49
  50 ssize_t os_read(OS_FD fd, char *buf, size_t len)
  51 {
  52   ssize_t result = read(fd, buf, len);
  53
  54   if(result < 0) unix_error(errno, "os_read", Nothing);
  55
  56   return result;
  57 }
  58
  59 /*******************************************************************
  60
  61
  62                          os_ftruncate
  63
  64
  65 *******************************************************************/
  66
  67 /* TODO: write whole file if sparse disabled */
  68 void os_ftruncate(OS_FD fd, OFF_T len, /* bool */ int sparse)
  69 {
  70   int64 cursize;
  71   if(!fd) failwith("ftruncate32: file is closed");
  72
  73   cursize = os_getfdsize(fd);
  74   if(cursize < len){
  75     int zero = 0;
  76     OFF_T result = lseek(fd, len-1, SEEK_SET);
  77     if(result < 0) unix_error(errno, "os_ftruncate", Nothing);
  78
  79     write(fd, &zero, 1);
  80   } else
  81     if((cursize != len) && (ftruncate(fd, len) < 0)) {
  82       fprintf(stderr, "ftruncate(%d,%Ld)\n", fd, len);
  83       uerror("ml_truncate32: error in ftruncate",Nothing);
  84     }
  85 }
  86
  87 /*******************************************************************
  88
  89
  90                          os_getdtablesize
  91
  92
  93 *******************************************************************/
  94
  95 int os_getdtablesize()
  96 {
  97   return getdtablesize();
  98 }
  99
 100 /*******************************************************************
 101
 102
 103                          os_getfdsize
 104
 105
 106 *******************************************************************/
 107
 108 int64 os_getfdsize(OS_FD fd)
 109 {
 110   struct stat buf;
 111
 112   if(fstat(fd, &buf) < 0)
 113     uerror("fstat: error in fstat",Nothing);
 114
 115   return buf.st_size;
 116 }
 117
 118 /*******************************************************************
 119
 120
 121                          os_getfilesize
 122
 123
 124 *******************************************************************/
 125
 126 int64 os_getfilesize(char *path)
 127 {
 128   struct stat buf;
 129
 130   if(stat(path, &buf) < 0)
 131     uerror("fstat: error in fstat",Nothing);
 132
 133   return buf.st_size;
 134 }
 135
 136 /*******************************************************************
 137
 138
 139                          os_set_nonblock
 140
 141
 142 *******************************************************************/
 143
 144 void os_set_nonblock(OS_SOCKET fd)
 145 {
 146
 147 }
 148
 149 /*******************************************************************
 150
 151
 152                          glibc_version
 153
 154
 155 *******************************************************************/
 156
 157 value glibc_version(void)
 158 {
 159   CAMLparam0 ();
 160   CAMLlocal1 (v);
 161
 162 #ifdef HAVE_GNU_LIBC_VERSION_H
 163 #include <gnu/libc-version.h>
 164
 165   v = copy_string (gnu_get_libc_version());
 166   CAMLreturn (v);
 167
 168 #else
 169
 170   raise_constant(*(value *)caml_named_value("not supported"));
 171
 172 #endif
 173 }
 174
 175 /*******************************************************************
 176
 177
 178                          os_uname
 179
 180
 181 *******************************************************************/
 182
 183 #ifdef HAVE_SYS_UTSNAME_H
 184 #include <sys/utsname.h>
 185
 186 void os_uname(char buf[])
 187 {
 188         struct utsname uts;
 189   uname(&uts);
 190         sprintf(buf, "%s %s %s %s %s",
 191    uts.sysname, uts.nodename, uts.release, uts.version, uts.machine);
 192 }
 193
 194 #else
 195
 196 void os_uname(char buf[])
 197 {
 198 /* Do nothing to buf */
 199 }
 200
 201 #endif
 202
 203 /*******************************************************************
 204
 205
 206                          os_os_supported
 207
 208
 209 *******************************************************************/
 210
 211 int os_os_supported()
 212 {
 213           return 1;  /* return always 1 to expect an supported os */
 214 }