GNU Mes.
[mes.git] / lib / 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 <sys/ioctl.h>
22 #include <stdarg.h>
23 #include <stdlib.h>
24 #include <libmes.h>
25 #include <stdio.h>
26
27 #include <libmes.h>
28 #include <stdarg.h>
29 #include <stdlib.h>
30 #include <unistd.h>
31
32 #include <libc-mini.c>
33 #include <libmes.c>
34
35 #if __GNU__
36 #include <hurd/libc.c>
37 #elif __linux__
38 #include <linux/libc.c>
39 #else
40 #error both __GNU__ and _linux__ are undefined, choose one
41 #endif
42
43 int g_stdin = 0;
44
45 void _env ();
46
47 #define MAX(a, b) (((a) > (b)) ? (a) : (b))
48
49 int
50 __mes_debug ()
51 {
52   static int __mes_debug = -1;
53   if (__mes_debug == -1)
54     {
55       char *p = getenv ("MES_DEBUG");
56       __mes_debug = p ? MAX (atoi (p), 1) : 0;
57     }
58   return __mes_debug;
59 }
60
61
62 #if !___GNU__
63 #include <string/memcpy.c>
64 #include <stdlib/malloc.c>
65 #include <assert/assert.c>
66 #endif
67
68 int
69 getchar ()
70 {
71   return fdgetc (g_stdin);
72 }
73
74 int
75 putchar (int c)
76 {
77   write (STDOUT, (char*)&c, 1);
78   return 0;
79 }
80
81 int
82 fputc (int c, FILE* stream)
83 {
84   return fdputc (c, (int)stream);
85 }
86
87 int
88 fputs (char const* s, FILE* stream)
89 {
90   return fdputs (s, (int)stream);
91 }
92
93 int
94 putc (int c, FILE* stream)
95 {
96   return fdputc (c, (int)stream);
97 }
98
99 int
100 getc (FILE *stream)
101 {
102   return fdgetc ((int)stream);
103 }
104
105 int
106 fgetc (FILE *stream)
107 {
108   return fdgetc ((int)stream);
109 }
110
111 void
112 free (void *ptr)
113 {
114 }
115
116 int
117 ungetc (int c, FILE *stream)
118 {
119   return fdungetc (c, (int)stream);
120 }
121
122 int
123 strcmp (char const* a, char const* b)
124 {
125   while (*a && *b && *a == *b)
126     {
127       a++;b++;
128     }
129   return *a - *b;
130 }
131
132 char *
133 strcpy (char *dest, char const *src)
134 {
135   char *p = dest;
136   while (*src) *p++ = *src++;
137   *p = 0;
138   return dest;
139 }
140
141 void *
142 realloc (void *ptr, size_t size)
143 {
144   void *new = malloc (size);
145   if (ptr && new)
146     {
147       memcpy (new, ptr, size);
148       free (ptr);
149     }
150   return new;
151 }
152
153 int
154 strncmp (char const* a, char const* b, size_t size)
155 {
156   if (!size)
157     return 0;
158   while (*a && *b && *a == *b && --size)
159     {
160       a++;
161       b++;
162     }
163   return *a - *b;
164 }
165
166 char *
167 getenv (char const* s)
168 {
169   char **p = environ;
170   int length = strlen (s);
171   while (*p)
172     {
173       if (!strncmp (s, *p, length) && *(*p + length) == '=') return (*p + length + 1);
174       p++;
175     }
176   return 0;
177 }
178
179 int
180 setenv (char const* s, char const* v, int overwrite_p)
181 {
182   char **p = environ;
183   int length = strlen (s);
184   while (*p)
185     {
186       if (!strncmp (s, *p, length) && *(*p + length) == '=')
187         break;
188       p++;
189     }
190   char *entry = malloc (length + strlen (v) + 2);
191   int end_p = *p == 0;
192   *p = entry;
193   strcpy (entry, s);
194   strcpy (entry + length, "=");
195   strcpy (entry + length + 1, v);
196   *(entry + length + strlen (v) + 2) = 0;
197   if (end_p)
198     *++p = 0;
199   return 0;
200 }
201
202 int
203 isatty (int fd)
204 {
205   return ioctl (fd, TCGETS, 0) & 0xf0;
206 }
207
208 int
209 wait (int *status_ptr)
210 {
211   return waitpid  (-1, status_ptr, 0);
212 }
213
214 int
215 execv (char const *file_name, char *const argv[])
216 {
217   return execve (file_name, argv, environ);
218 }