lib/linux/libc.c

   1 /* -*-comment-start: "//";comment-end:""-*-
   2  * GNU Mes --- Maxwell Equations of Software
   3  * Copyright © 2016,2017,2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
   4  *
   5  * This file is part of GNU Mes.
   6  *
   7  * GNU Mes is free software; you can redistribute it and/or modify it
   8  * under the terms of the GNU General Public License as published by
   9  * the Free Software Foundation; either version 3 of the License, or (at
  10  * your option) any later version.
  11  *
  12  * GNU Mes is distributed in the hope that it will be useful, but
  13  * WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15  * GNU General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU General Public License
  18  * along with GNU Mes.  If not, see <http://www.gnu.org/licenses/>.
  19  */
  20
  21 #include <libmes.h>
  22
  23 #include <fcntl.h>
  24 #include <stdarg.h>
  25 #include <stdio.h>
  26 #include <stdlib.h>
  27 #include <unistd.h>
  28 #include <sys/stat.h>
  29 #include <sys/wait.h>
  30
  31 #if __MESC__ && __i386__
  32 #include <linux/x86-mes/mes.c>
  33 #elif __MESC__ && __x86_64__
  34 #include <linux/x86_64-mes/mes.c>
  35 #elif __i386__
  36 #include <linux/x86-mes-gcc/mes.c>
  37 #elif __x86_64__
  38 #include <linux/x86_64-mes-gcc/mes.c>
  39 #else
  40 #error arch not supported
  41 #endif
  42
  43 int
  44 fork ()
  45 {
  46   return _sys_call (SYS_fork);
  47 }
  48
  49 ssize_t
  50 read (int filedes, void *buffer, size_t size)
  51 {
  52   ssize_t bytes = _sys_call3 (SYS_read, (int)filedes, (long)buffer, (long)size);
  53   if (__mes_debug () > 3)
  54     {
  55       if (bytes == 1)
  56         {
  57           eputs ("read fd="); eputs (itoa ((int)filedes)); eputs (" c="); eputc (*(char*)buffer); eputs ("\n");
  58         }
  59       else
  60         {
  61           eputs ("read fd="); eputs (itoa ((int)filedes));
  62           eputs (" bytes="); eputs (itoa (bytes)); eputs ("\n");
  63         }
  64     }
  65   return bytes;
  66 }
  67
  68 int
  69 _open3 (char const *file_name, int flags, int mask)
  70 {
  71 #if !MES_BOOTSTRAP
  72   if (!flags)
  73     {
  74       _ungetc_pos = -1;
  75       _ungetc_fd = -1;
  76     }
  77 #endif
  78   int r = _sys_call3 (SYS_open, (long)file_name, (int)flags, (int)mask);
  79   return r;
  80 }
  81
  82 int
  83 _open2 (char const *file_name, int flags)
  84 {
  85   int mask = 0777;
  86   return _open3 (file_name, flags, mask);
  87 }
  88
  89 int
  90 open (char const *file_name, int flags, ...)
  91 {
  92   va_list ap;
  93   va_start (ap, flags);
  94   int mask = va_arg (ap, int);
  95   int r = _open3 (file_name, flags, mask);
  96   va_end (ap);
  97   return r;
  98 }
  99
 100 pid_t
 101 waitpid (pid_t pid, int *status_ptr, int options)
 102 {
 103 #if __i386__
 104   return _sys_call3 (SYS_waitpid, (long)pid, (long)status_ptr, (int)options);
 105 #elif __x86_64__
 106   return _sys_call4 (SYS_wait4, (long)pid, (long)status_ptr, (int)options, 0);
 107 #else
 108 #error arch not supported
 109 #endif
 110 }
 111
 112 int
 113 execve (char const* file_name, char *const argv[], char *const env[])
 114 {
 115   return _sys_call3 (SYS_execve, (long)file_name, (long)argv, (long)env);
 116 }
 117
 118 int
 119 chmod (char const *file_name, mode_t mask)
 120 {
 121   return _sys_call2 (SYS_chmod, (long)file_name, (long)mask);
 122 }
 123
 124 int
 125 access (char const *file_name, int how)
 126 {
 127   return _sys_call2 (SYS_access, (long)file_name, (int)how);
 128 }
 129
 130 long
 131 brk (void *addr)
 132 {
 133   return _sys_call1 (SYS_brk, (long)addr);
 134 }
 135
 136 int
 137 ioctl (int filedes, unsigned long command, ...)
 138 {
 139   va_list ap;
 140   va_start (ap, command);
 141   int data = va_arg (ap, int);
 142   int r = _sys_call3 (SYS_ioctl, (int)filedes, (long)command, (int)data);
 143   va_end (ap);
 144   return r;
 145 }
 146
 147 int
 148 fsync (int filedes)
 149 {
 150   return _sys_call1 (SYS_fsync, (int)filedes);
 151 }
 152
 153 char *
 154 getcwd (char *buffer, size_t size)
 155 {
 156   int r = _sys_call2 (SYS_getcwd, (long)buffer, (long)size);
 157   if (r >= 0)
 158     return buffer;
 159   return 0;
 160 }
 161
 162 int
 163 dup (int old)
 164 {
 165   return _sys_call1 (SYS_dup, (int)old);
 166 }
 167
 168 int
 169 dup2 (int old, int new)
 170 {
 171   return _sys_call2 (SYS_dup2, (int)old, (int)new);
 172 }
 173
 174 #include "linux/clock_gettime.c"
 175 #include "linux/gettimeofday.c"
 176 #include "linux/time.c"