1152e72648a30c41c7ca9c4ca88b71a0bdd66540
[mes.git] / lib / libc+tcc.c
1 /* -*-comment-start: "//";comment-end:""-*-
2  * Mes --- Maxwell Equations of Software
3  * Copyright © 2017,2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
4  * Copyright (C) 2018 Han-Wen Nienhuys <hanwen@xs4all.nl>
5  *
6  * This file is part of Mes.
7  *
8  * Mes is free software; you can redistribute it and/or modify it
9  * under the terms of the GNU General Public License as published by
10  * the Free Software Foundation; either version 3 of the License, or (at
11  * your option) any later version.
12  *
13  * Mes is distributed in the hope that it will be useful, but
14  * WITHOUT ANY WARRANTY; without even the implied warranty of
15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16  * GNU General Public License for more details.
17  *
18  * You should have received a copy of the GNU General Public License
19  * along with Mes.  If not, see <http://www.gnu.org/licenses/>.
20  */
21
22 #include <setjmp.h>
23 #include <stdarg.h>
24 #include <stdio.h>
25 #include <stdlib.h>
26 #include <string.h>
27 #include <time.h>
28 #include <signal.h>
29 #include <sys/mman.h>
30 #include <sys/time.h>
31 #include <unistd.h>
32
33 #include <libc.c>
34
35 #if __MESC__
36
37 #include <linux+tcc-mes.c>
38 #include <libc+tcc-mes.c>
39 #include <getopt.c>
40
41 #else // !__MESC__
42
43 #include <linux+tcc-gcc.c>
44 #include <libc+tcc-gcc.c>
45 #include <getopt.c>
46 #include <m4.c>
47
48 #endif // !__MESC__
49
50 int
51 dlclose (void *handle)
52 {
53   return 0;
54 }
55
56 void *
57 dlopen (char const *filename, int flags)
58 {
59   return 0;
60 }
61
62 int
63 execvp (char const *file, char *const argv[])
64 {
65   eputs ("execvp stub\n");
66   return 0;
67 }
68
69 int
70 fclose (FILE *stream)
71 {
72   int fd = (int)stream;
73   return close (fd);
74 }
75
76 FILE *
77 fdopen (int fd, char const *mode)
78 {
79   return (FILE*)fd;
80 }
81
82 int
83 ferror (FILE *stream)
84 {
85   int fd = (int)stream;
86   if (fd == -1) return -1;
87   return 0;
88 }
89
90 int
91 fflush (FILE *stream)
92 {
93   eputs ("fflush stub\n");
94   return 0;
95 }
96
97 int
98 fprintf (FILE *stream, char const *format, ...)
99 {
100   va_list ap;
101   va_start (ap, format);
102   int r = vfprintf (stream, format, ap);
103   va_end (ap);
104   return r;
105 }
106
107 size_t
108 fread (void *data, size_t size, size_t count, FILE *stream)
109 {
110   if (! size || !count)
111     return 0;
112   int bytes = read ((int)stream, data, size * count);
113   if (bytes > 0)
114     return bytes/size;
115
116   return bytes;
117 }
118
119 long
120 ftell (FILE *stream)
121 {
122   return lseek ((int)stream, 0, SEEK_CUR);
123 }
124
125 int
126 fseek (FILE *stream, long offset, int whence)
127 {
128   int pos = lseek ((int)stream, offset, whence);
129   if (pos >= 0)
130     return 0;
131   return -1;
132 }
133
134 int
135 gettimeofday (struct timeval *tv, struct timezone *tz)
136 {
137   return 0;
138 }
139
140 double
141 ldexp (double x, int exp)
142 {
143   eputs ("ldexp stub\n");
144   return 0;
145 }
146
147 struct tm *
148 localtime (time_t const *timep)
149 {
150   eputs ("localtime stub\n");
151   return 0;
152 }
153
154 void *
155 memmove (void *dest, void const *src, size_t n)
156 {
157   if (dest < src)
158     return memcpy (dest, src, n);
159   char *p = dest + n;
160   char const *q = src +n;
161   while (n--)
162     *--p = *--q;
163   return dest;
164 }
165
166 void *
167 memset (void *s, int c, size_t n)
168 {
169   char *p = s;
170   while (n--) *p++ = c;
171   return s;
172 }
173
174 int
175 memcmp (void const *s1, void const *s2, size_t n)
176 {
177   char *a = s1;
178   char *b = s2;
179   while (*a == *b && --n) {a++;b++;}
180   return *a - *b;
181 }
182
183 int
184 mprotect (void *addr, size_t len, int prot)
185 {
186   return 0;
187 }
188
189 void
190 qswap (void *a, void *b, size_t size)
191 {
192   char *buf[8];
193   memcpy (buf, a, size);
194   memcpy (a, b, size);
195   memcpy (b, buf, size);
196 }
197
198 size_t
199 qpart (void *base, size_t count, size_t size, int (*compare)(void const *, void const *))
200 {
201   void* p = base + count*size;
202   size_t i = 0;
203   for (size_t j = 0; j < count; j++)
204     {
205       if (compare (base+j*size, p) < 0)
206         {
207           qswap (base+i*size, base+j*size, size);
208           i++;
209         }
210     }
211   if (compare (base+count*size, base+i*size) < 0)
212     qswap (base+i*size, base+count*size, size);
213   return i;
214 }
215
216 void
217 qsort (void *base, size_t count, size_t size, int (*compare)(void const *, void const *))
218 {
219   if (count > 1)
220     {
221       int p = qpart (base, count-1, size, compare);
222       qsort (base, p, size, compare);
223       qsort (base+p*size, count-p, size, compare);
224     }
225 }
226
227 int
228 remove (char const *file_name)
229 {
230   eputs ("remove stub\n");
231   return 0;
232 }
233
234 int
235 sigaction (int signum, struct sigaction const *act, struct sigaction *oldact)
236 {
237   return 0;
238 }
239
240 int
241 sigemptyset (sigset_t *set)
242 {
243   return 0;
244 }
245
246 int
247 snprintf(char *str,  size_t size,  char const *format, ...)
248 {
249   va_list ap;
250   va_start (ap, format);
251   int r = vsprintf (str, format, ap);
252   va_end (ap);
253   return r;
254 }
255
256 int
257 sscanf (char const *str, const char *format, ...)
258 {
259   eputs ("sscanf stub\n");
260   return 0;
261 }
262
263 char *
264 strcat (char *dest, char const *src)
265 {
266   char *p = strchr (dest, '\0');
267   while (*src++) *p++ = *src++;
268   *p = 0;
269   return dest;
270 }
271
272 char *
273 strchr (char const *s, int c)
274 {
275   char const *p = s;
276   while (*p || !c)
277     {
278       if (c == *p) return p;
279       *p++;
280     }
281   return 0;
282 }
283
284 char *
285 strncpy (char *dest, char const *src, size_t length)
286 {
287   char *p = dest;
288   while (*src && length--)
289     *p++ = *src++;
290   if (*src)
291     length++;
292   while (length--)
293     *p++ = 0;
294   return dest;
295 }
296
297 char *
298 strrchr (char const *s, int c)
299 {
300   int n = strlen (s);
301   if (!n) return 0;
302   char const *p = s + n - 1;
303   while (*p || !c)
304     {
305       if (c == *p) return p;
306       *p--;
307     }
308   return 0;
309 }
310
311 /** locate a substring. #memmem# finds the first occurrence of
312     #needle# in #haystack#.  This is not ANSI-C.
313
314     The prototype is not in accordance with the Linux Programmer's
315     Manual v1.15, but it is with /usr/include/string.h   */
316
317 unsigned char *
318 _memmem (unsigned char const *haystack, int haystack_len,
319          unsigned char const *needle, int needle_len)
320 {
321   unsigned char const *end_haystack = haystack + haystack_len - needle_len + 1;
322   unsigned char const *end_needle = needle + needle_len;
323
324   /* Ahhh ... Some minimal lowlevel stuff. This *is* nice; Varation
325      is the spice of life */
326   while (haystack < end_haystack)
327     {
328       unsigned char const *subneedle = needle;
329       unsigned char const *subhaystack = haystack;
330       while (subneedle < end_needle)
331         if (*subneedle++ != *subhaystack++)
332           goto next;
333
334       /* Completed the needle.  Gotcha.  */
335       return (unsigned char *) haystack;
336     next:
337       haystack++;
338     }
339   return 0;
340 }
341
342 void *
343 memmem (void const *haystack, int haystack_len,
344         void const *needle, int needle_len)
345 {
346   unsigned char const *haystack_byte_c = (unsigned char const *)haystack;
347   unsigned char const *needle_byte_c = (unsigned char const *)needle;
348   return _memmem (haystack_byte_c, haystack_len, needle_byte_c, needle_len);
349 }
350
351 char *
352 strstr (char const *haystack, char const *needle)
353 {
354   return memmem (haystack, strlen (haystack), needle, strlen (needle));
355 }
356
357 double
358 strtod (char const *nptr, char **endptr)
359 {
360   eputs ("strtoul stub\n");
361 }
362
363 float
364 strtof (char const *nptr, char **endptr)
365 {
366   return strtod (nptr, endptr);
367 }
368
369 long double
370 strtold (char const *nptr, char **endptr)
371 {
372   return strtod (nptr, endptr);
373 }
374
375 long
376 strtol (char const *nptr, char **endptr, int base)
377 {
378   if (!strncmp (nptr, "0x", 2))
379     {
380       char const *p = nptr + 2;
381       return abtoi (&p, 16);
382     }
383   return abtoi (&nptr, base);
384 }
385
386 long long int
387 strtoll (char const *nptr, char **endptr, int base)
388 {
389   eputs ("strtoll stub\n");
390   return 0;
391 }
392
393 unsigned long
394 strtoul (char const *nptr, char **endptr, int base)
395 {
396   eputs ("strtoul stub\n");
397   return 0;
398 }
399
400 unsigned long long
401 strtoull (char const *p, char **endptr, int base)
402 {
403   *endptr = p;
404   return abtoi (endptr, base);
405 }
406
407 time_t time (time_t *tloc)
408 {
409   return 0;
410 }
411
412 int
413 vsnprintf (char *str, size_t size, char const *format, va_list ap)
414 {
415   return vsprintf (str, format, ap);
416 }
417
418 void *
419 calloc (size_t nmemb, size_t size)
420 {
421   size_t count = nmemb * size;
422   void *p = malloc (count);
423   memset (p, 0, count);
424   return p;
425 }
426
427 int
428 vfprintf (FILE* f, char const* format, va_list ap)
429 {
430   int fd = (int)f;
431   char const *p = format;
432   while (*p)
433     if (*p != '%')
434       fputc (*p++, fd);
435     else
436       {
437         p++;
438         char c = *p;
439         switch (c)
440           {
441           case '%': {fputc (*p, fd); break;}
442           case 'c': {char c; c = va_arg (ap, char); fputc (c, fd); break;}
443           case 'd': {int d; d = va_arg (ap, int); fputs (itoa (d), fd); break;}
444           case 's': {char *s; s = va_arg (ap, char *); fputs (s, fd); break;}
445           default: {fputc (*p, fd); break;}
446           }
447         p++;
448       }
449   va_end (ap);
450   return 0;
451 }