lib/linux/gnu.c

   1 /* -*-comment-start: "//";comment-end:""-*-
   2  * GNU Mes --- Maxwell Equations of Software
   3  * Copyright © 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 <sys/resource.h>
  22 #include <time.h>
  23
  24 int
  25 link (char const *old_name, char const *new_name)
  26 {
  27   return _sys_call2 (SYS_link, (long)old_name, (long)new_name);
  28 }
  29
  30 pid_t
  31 getpid ()
  32 {
  33   return _sys_call (SYS_getpid);
  34 }
  35
  36 uid_t
  37 getuid ()
  38 {
  39   return _sys_call (SYS_getuid);
  40 }
  41
  42 int
  43 kill (pid_t pid, int signum)
  44 {
  45   return _sys_call2 (SYS_kill, (long)pid, (long)signum);
  46 }
  47
  48 int
  49 rename (char const *old_name, char const *new_name)
  50 {
  51   return _sys_call2 (SYS_rename, (long)old_name, (long)new_name);
  52 }
  53
  54 int
  55 mkdir (char const *file_name, mode_t mode)
  56 {
  57   return _sys_call2 (SYS_mkdir, (long)file_name, (long)mode);
  58 }
  59
  60 gid_t
  61 getgid ()
  62 {
  63   return _sys_call (SYS_getgid);
  64 }
  65
  66 // long _sys_call (long sys_call);
  67 // long _sys_call4 (long sys_call, long one, long two, long three, long four);
  68
  69 #define SA_SIGINFO 4
  70 #define SA_RESTORER 0x04000000
  71
  72 #define SYS_rt_sigreturn 15
  73
  74 void
  75 _restorer (void)
  76 {
  77   _sys_call (SYS_rt_sigreturn);
  78 }
  79
  80 # define __sigmask(sig) \
  81   (((unsigned long int) 1) << (((sig) - 1) % (8 * sizeof (unsigned long int))))
  82
  83 sighandler_t
  84 signal (int signum, sighandler_t action)
  85 {
  86 #if __i386__
  87   return _sys_call2 (SYS_signal, signum, action);
  88 #else
  89   static struct sigaction setup_action = {-1};
  90   static struct sigaction old = {0};
  91
  92   setup_action.sa_handler = action;
  93   setup_action.sa_restorer = _restorer;
  94   setup_action.sa_mask = __sigmask (signum);
  95   old.sa_handler = SIG_DFL;
  96   setup_action.sa_flags = SA_RESTORER | SA_RESTART;
  97   int r = _sys_call4 (SYS_rt_sigaction, signum, &setup_action, &old, sizeof (sigset_t));
  98   if (r)
  99     return 0;
 100   return old.sa_handler;
 101 #endif
 102 }
 103
 104 int
 105 fcntl (int filedes, int command, ...)
 106 {
 107   va_list ap;
 108   va_start (ap, command);
 109   int data = va_arg (ap, int);
 110   int r = _sys_call3 (SYS_fcntl, (int)filedes, (int)command, (int)data);
 111   va_end (ap);
 112   return r;
 113 }
 114
 115 int
 116 pipe (int filedes[2])
 117 {
 118   return _sys_call1 (SYS_pipe, (long)filedes);
 119 }
 120
 121 int
 122 getrusage (int processes, struct rusage *rusage)
 123 {
 124   return _sys_call2 (SYS_getrusage, (int)processes, (long)rusage);
 125 }
 126
 127 int
 128 lstat (char const *file_name, struct stat *statbuf)
 129 {
 130   return _sys_call2 (SYS_lstat, (long)file_name, (long)statbuf);
 131 }
 132
 133 int
 134 nanosleep (const struct timespec *requested_time,
 135            struct timespec *remaining)
 136 {
 137   return _sys_call2 (SYS_nanosleep, (long)requested_time, (long)remaining);
 138 }
 139
 140 int
 141 setitimer (int which, struct itimerval const *new,
 142           struct itimerval *old)
 143 {
 144   return _sys_call3 (SYS_setitimer, (long)which, (long)new, (long)old);
 145 }
 146
 147 int
 148 fstat (int filedes, struct stat *statbuf)
 149 {
 150   return _sys_call2 (SYS_fstat, (int)filedes, (long)statbuf);
 151 }
 152
 153 int
 154 getdents (int filedes, char *buffer, size_t nbytes)
 155 {
 156   return _sys_call3 (SYS_getdents, (int)filedes, (long)buffer, (long)nbytes);
 157 }
 158
 159 int
 160 chdir (char const *file_name)
 161 {
 162   return _sys_call1 (SYS_chdir, (long)file_name);
 163 }
 164
 165 // bash
 166 uid_t
 167 geteuid ()
 168 {
 169   return _sys_call (SYS_geteuid);
 170 }
 171
 172 gid_t
 173 getegid ()
 174 {
 175   return _sys_call (SYS_getegid);
 176 }
 177
 178 int
 179 setuid (uid_t newuid)
 180 {
 181   return _sys_call1 (SYS_setuid, (long)newuid);
 182 }
 183
 184 int
 185 setgid (gid_t newgid)
 186 {
 187   return _sys_call1 (SYS_setgid, (long)newgid);
 188 }
 189
 190 // make+POSIX
 191 int
 192 sigprocmask (int how, sigset_t const *set, sigset_t *oldset)
 193 {
 194 #if __i386__
 195   return _sys_call3 (SYS_sigprocmask, (long)how, (long)set, (long)oldset);
 196 #else
 197   return _sys_call3 (SYS_rt_sigprocmask, (long)how, (long)set, (long)oldset);
 198 #endif
 199 }