c90b4f5798bc4e43e6c80d6259facc0a9f785502
[mes.git] / mlibc / libc-mes+tcc.c
1 /* -*-comment-start: "//";comment-end:""-*-
2  * Mes --- Maxwell Equations of Software
3  * Copyright © 2017 Jan Nieuwenhuizen <janneke@gnu.org>
4  *
5  * This file is part of Mes.
6  *
7  * 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  * 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 Mes.  If not, see <http://www.gnu.org/licenses/>.
19  */
20
21 #include <setjmp.h>
22 #include <stdarg.h>
23 #include <stdio.h>
24 #include <stdlib.h>
25 #include <string.h>
26 #include <time.h>
27 #include <signal.h>
28 #include <sys/mman.h>
29 #include <sys/time.h>
30 #include <unistd.h>
31
32 #if !__GNUC__
33 #define FULL_MALLOC 1
34 #include <libc-mes.c>
35
36 int errno;
37
38 int
39 close (int fd)
40 {
41   asm ("mov____0x8(%ebp),%ebx !8");
42
43   asm ("mov____$i32,%eax SYS_close");
44   asm ("int____$0x80");
45 }
46
47 int
48 unlink (char const *file_name)
49 {
50   asm ("mov____0x8(%ebp),%ebx !8");
51
52   asm ("mov____$i32,%eax SYS_unlink");
53   asm ("int____$0x80");
54 }
55
56 off_t
57 lseek (int fd, off_t offset, int whence)
58 {
59   asm ("mov____0x8(%ebp),%ebx !8");
60   asm ("mov____0x8(%ebp),%ecx !12");
61   asm ("mov____0x8(%ebp),%edx !16");
62
63   asm ("mov____$i32,%eax SYS_lseek");
64   asm ("int____$0x80");
65 }
66
67 char *
68 getcwd (char *buf, size_t size)
69 {
70   asm ("mov____0x8(%ebp),%ebx !8");
71   asm ("mov____0x8(%ebp),%ecx !12");
72
73   asm ("mov____$i32,%eax SYS_getcwd");
74   asm ("int____$0x80");
75 }
76 #endif // !__GNUC__
77
78
79 int
80 dlclose (void *handle)
81 {
82   return 0;
83 }
84
85 void *
86 dlopen (char const *filename, int flags)
87 {
88   return 0;
89 }
90
91 int
92 execvp (char const *file, char *const argv[])
93 {
94   eputs ("execvp stub\n");
95   return 0;
96 }
97
98 int
99 fclose (FILE *stream)
100 {
101   int fd = (int)stream;
102   return close (fd);
103 }
104
105 FILE *
106 fdopen (int fd, char const *mode)
107 {
108   return (FILE*)fd;
109 }
110
111 int
112 fflush (FILE *stream)
113 {
114   eputs ("fflush stub\n");
115   return 0;
116 }
117
118 FILE *
119 fopen (char const *pathname, char const *mode)
120 {
121   eputs ("fopen stub\n");
122   return 0;
123 }
124
125 int
126 fprintf (FILE *stream, char const *format, ...)
127 {
128   va_list ap;
129   va_start (ap, format);
130   int r = vfprintf (stream, format, ap);
131   va_end (ap);
132   return r;
133 }
134
135 size_t
136 fread (void *ptr, size_t size, size_t nmemb, FILE *stream)
137 {
138   eputs ("fread stub\n");
139   return 0;
140 }
141
142 void
143 free (void *ptr)
144 {
145 }
146
147 int
148 fseek (FILE *stream, long offset, int whence)
149 {
150   eputs ("fseek stub\n");
151   return 0;
152 }
153
154 long
155 ftell (FILE *stream)
156 {
157   eputs ("ftell stub\n");
158   return 0;
159 }
160
161 size_t
162 fwrite (void const *ptr, size_t size, size_t nmemb, FILE *stream)
163 {
164   int fd = (int)stream;
165   return write (fd, ptr, size * nmemb);
166 }
167
168 int
169 gettimeofday (struct timeval *tv, struct timezone *tz)
170 {
171   return 0;
172 }
173
174 struct tm *
175 localtime (time_t const *timep)
176 {
177   eputs ("localtime stub\n");
178   return 0;
179 }
180
181 void
182 longjmp (jmp_buf env, int val)
183 {
184   eputs ("longjmp stub\n");
185 }
186
187 void *
188 memcpy (void *dest, void const *src, size_t n)
189 {
190   char* p = dest;
191   char* q = src;
192   while (n--) *p++ = *q++;
193   return dest;
194 }
195
196 void *
197 memmove (void *dest, void const *src, size_t n)
198 {
199   if (dest < src)
200     return memcpy (dest, src, n);
201   char *p = dest + n;
202   char const *q = src +n;
203   while (n--)
204     *--p = *--q;
205   return dest;
206 }
207
208 void *
209 memset (void *s, int c, size_t n)
210 {
211   char *p = s;
212   while (n--) *p++ = c;
213   return s;
214 }
215
216 int
217 memcmp (void const *s1, void const *s2, size_t n)
218 {
219   char *a = s1;
220   char *b = s2;
221   while (*a == *b && --n) {a++;b++;}
222   return *a - *b;
223 }
224
225 int
226 mprotect (void *addr, size_t len, int prot)
227 {
228   return 0;
229 }
230
231 void
232 qsort (void *base, size_t nmemb, size_t size, int (*compar)(void const *, void const *))
233 {
234   eputs ("qsort stub\n");
235 }
236
237 int
238 remove (char const *file_name)
239 {
240   eputs ("remove stub\n");
241   return 0;
242 }
243
244 int
245 setjmp (jmp_buf env)
246 {
247   eputs ("setjmp stub\n");
248   return 0;
249 }
250
251 int
252 sigaction (int signum, struct sigaction const *act, struct sigaction *oldact)
253 {
254   return 0;
255 }
256
257 int
258 sigemptyset (sigset_t *set)
259 {
260   return 0;
261 }
262
263 int
264 snprintf(char *str,  size_t size,  char const *format, ...)
265 {
266   eputs ("snprintf stub\n");
267   return 0;
268 }
269
270 int
271 sscanf (char const *str, const char *format, ...)
272 {
273   eputs ("sscanf stub\n");
274   return 0;
275 }
276
277 char *
278 strcat (char *dest, char const *src)
279 {
280   eputs ("strcat stub\n");
281   return 0;
282 }
283
284 char *
285 strchr (char const *s, int c)
286 {
287   char const *p = s;
288   while (*p || !c)
289     {
290       if (c == *p) return p;
291       *p++;
292     }
293   return 0;
294 }
295
296 char *
297 strrchr (char const *s, int c)
298 {
299   int n = strlen (s);
300   if (!n) return 0;
301   char const *p = s + n - 1;
302   while (*p || !c)
303     {
304       if (c == *p) return p;
305       *p--;
306     }
307   return 0;
308 }
309
310 char *
311 strstr (char const *haystack, char const *needle)
312 {
313   eputs ("strstr stub\n");
314   return 0;
315 }
316
317 long
318 strtol (char const *nptr, char **endptr, int base)
319 {
320   eputs ("strtol stub\n");
321   return 0;
322 }
323
324 long long int
325 strtoll (char const *nptr, char **endptr, int base)
326 {
327   eputs ("strtoll stub\n");
328   return 0;
329 }
330
331 unsigned long
332 strtoul (char const *nptr, char **endptr, int base)
333 {
334   eputs ("strtoul stub\n");
335   return 0;
336 }
337
338 unsigned long long
339 strtoull (char const *nptr, char **endptr, int base)
340 {
341   eputs ("strtoull stub\n");
342   return 0;
343 }
344
345 time_t time (time_t *tloc)
346 {
347   return 0;
348 }
349
350 int
351 vsnprintf (char *str, size_t size, char const *format, va_list ap)
352 {
353   eputs ("vsnprintf stub\n");
354   return 0;
355 }
356
357 void *
358 calloc (size_t nmemb, size_t size)
359 {
360   size_t count = nmemb * size;
361   void *p = malloc (count);
362   memset (p, 0, count);
363   return p;
364 }
365
366 void *
367 realloc (void *ptr, size_t size)
368 {
369   void *new = malloc (size);
370   if (ptr && new)
371     {
372       memcpy (new, ptr, size);
373       free (ptr);
374     }
375   return new;
376 }
377
378 int
379 vfprintf (FILE* f, char const* format, va_list ap)
380 {
381   int fd = (int)f;
382   char const *p = format;
383   while (*p)
384     if (*p != '%')
385       putchar (*p++);
386     else
387       {
388         p++;
389         char c = *p;
390         switch (c)
391           {
392           case '%': {fputc (*p, fd); break;}
393           case 'c': {char c; c = va_arg (ap, char); fputc (c, fd); break;}
394           case 'd': {int d; d = va_arg (ap, int); fputs (itoa (d), fd); break;}
395           case 's': {char *s; s = va_arg (ap, char *); fputs (s, fd); break;}
396           default: {fputc (*p, fd); break;}
397           }
398         p++;
399       }
400   va_end (ap);
401   return 0;
402 }