mescc: Implement fflush, sscanf, vsscanf.
[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   return 0;
94 }
95
96 int
97 fprintf (FILE *stream, char const *format, ...)
98 {
99   va_list ap;
100   va_start (ap, format);
101   int r = vfprintf (stream, format, ap);
102   va_end (ap);
103   return r;
104 }
105
106 size_t
107 fread (void *data, size_t size, size_t count, FILE *stream)
108 {
109   if (! size || !count)
110     return 0;
111   int bytes = read ((int)stream, data, size * count);
112   if (bytes > 0)
113     return bytes/size;
114
115   return bytes;
116 }
117
118 long
119 ftell (FILE *stream)
120 {
121   return lseek ((int)stream, 0, SEEK_CUR);
122 }
123
124 int
125 fseek (FILE *stream, long offset, int whence)
126 {
127   int pos = lseek ((int)stream, offset, whence);
128   if (pos >= 0)
129     return 0;
130   return -1;
131 }
132
133 int
134 gettimeofday (struct timeval *tv, struct timezone *tz)
135 {
136   return 0;
137 }
138
139 double
140 ldexp (double x, int exp)
141 {
142   eputs ("ldexp stub\n");
143   return 0;
144 }
145
146 struct tm *
147 localtime (time_t const *timep)
148 {
149   eputs ("localtime stub\n");
150   return 0;
151 }
152
153 void *
154 memmove (void *dest, void const *src, size_t n)
155 {
156   if (dest < src)
157     return memcpy (dest, src, n);
158   char *p = dest + n;
159   char const *q = src +n;
160   while (n--)
161     *--p = *--q;
162   return dest;
163 }
164
165 void *
166 memset (void *s, int c, size_t n)
167 {
168   char *p = s;
169   while (n--) *p++ = c;
170   return s;
171 }
172
173 int
174 memcmp (void const *s1, void const *s2, size_t n)
175 {
176   char *a = s1;
177   char *b = s2;
178   while (*a == *b && --n) {a++;b++;}
179   return *a - *b;
180 }
181
182 int
183 mprotect (void *addr, size_t len, int prot)
184 {
185   return 0;
186 }
187
188 void
189 qswap (void *a, void *b, size_t size)
190 {
191   char *buf[8];
192   memcpy (buf, a, size);
193   memcpy (a, b, size);
194   memcpy (b, buf, size);
195 }
196
197 size_t
198 qpart (void *base, size_t count, size_t size, int (*compare)(void const *, void const *))
199 {
200   void* p = base + count*size;
201   size_t i = 0;
202   for (size_t j = 0; j < count; j++)
203     {
204       if (compare (base+j*size, p) < 0)
205         {
206           qswap (base+i*size, base+j*size, size);
207           i++;
208         }
209     }
210   if (compare (base+count*size, base+i*size) < 0)
211     qswap (base+i*size, base+count*size, size);
212   return i;
213 }
214
215 void
216 qsort (void *base, size_t count, size_t size, int (*compare)(void const *, void const *))
217 {
218   if (count > 1)
219     {
220       int p = qpart (base, count-1, size, compare);
221       qsort (base, p, size, compare);
222       qsort (base+p*size, count-p, size, compare);
223     }
224 }
225
226 int
227 remove (char const *file_name)
228 {
229   eputs ("remove stub\n");
230   return 0;
231 }
232
233 int
234 sigaction (int signum, struct sigaction const *act, struct sigaction *oldact)
235 {
236   return 0;
237 }
238
239 int
240 sigemptyset (sigset_t *set)
241 {
242   return 0;
243 }
244
245 int
246 snprintf(char *str,  size_t size,  char const *format, ...)
247 {
248   va_list ap;
249   va_start (ap, format);
250   int r = vsprintf (str, format, ap);
251   va_end (ap);
252   return r;
253 }
254
255 int
256 sscanf (char const *str, const char *template, ...)
257 {
258   va_list ap;
259   va_start (ap, template);
260   int r = vsscanf (str, template, ap);
261   va_end (ap);
262   return r;
263   return 0;
264 }
265
266 char *
267 strcat (char *dest, char const *src)
268 {
269   char *p = strchr (dest, '\0');
270   while (*src++) *p++ = *src++;
271   *p = 0;
272   return dest;
273 }
274
275 char *
276 strchr (char const *s, int c)
277 {
278   char const *p = s;
279   while (*p || !c)
280     {
281       if (c == *p) return p;
282       *p++;
283     }
284   return 0;
285 }
286
287 char *
288 strncpy (char *dest, char const *src, size_t length)
289 {
290   char *p = dest;
291   while (*src && length--)
292     *p++ = *src++;
293   if (*src)
294     length++;
295   while (length--)
296     *p++ = 0;
297   return dest;
298 }
299
300 char *
301 strrchr (char const *s, int c)
302 {
303   int n = strlen (s);
304   if (!n) return 0;
305   char const *p = s + n - 1;
306   while (*p || !c)
307     {
308       if (c == *p) return p;
309       *p--;
310     }
311   return 0;
312 }
313
314 /** locate a substring. #memmem# finds the first occurrence of
315     #needle# in #haystack#.  This is not ANSI-C.
316
317     The prototype is not in accordance with the Linux Programmer's
318     Manual v1.15, but it is with /usr/include/string.h   */
319
320 unsigned char *
321 _memmem (unsigned char const *haystack, int haystack_len,
322          unsigned char const *needle, int needle_len)
323 {
324   unsigned char const *end_haystack = haystack + haystack_len - needle_len + 1;
325   unsigned char const *end_needle = needle + needle_len;
326
327   /* Ahhh ... Some minimal lowlevel stuff. This *is* nice; Varation
328      is the spice of life */
329   while (haystack < end_haystack)
330     {
331       unsigned char const *subneedle = needle;
332       unsigned char const *subhaystack = haystack;
333       while (subneedle < end_needle)
334         if (*subneedle++ != *subhaystack++)
335           goto next;
336
337       /* Completed the needle.  Gotcha.  */
338       return (unsigned char *) haystack;
339     next:
340       haystack++;
341     }
342   return 0;
343 }
344
345 void *
346 memmem (void const *haystack, int haystack_len,
347         void const *needle, int needle_len)
348 {
349   unsigned char const *haystack_byte_c = (unsigned char const *)haystack;
350   unsigned char const *needle_byte_c = (unsigned char const *)needle;
351   return _memmem (haystack_byte_c, haystack_len, needle_byte_c, needle_len);
352 }
353
354 char *
355 strstr (char const *haystack, char const *needle)
356 {
357   return memmem (haystack, strlen (haystack), needle, strlen (needle));
358 }
359
360 double
361 strtod (char const *nptr, char **endptr)
362 {
363   eputs ("strtoul stub\n");
364 }
365
366 float
367 strtof (char const *nptr, char **endptr)
368 {
369   return strtod (nptr, endptr);
370 }
371
372 long double
373 strtold (char const *nptr, char **endptr)
374 {
375   return strtod (nptr, endptr);
376 }
377
378 long
379 strtol (char const *nptr, char **endptr, int base)
380 {
381   if (!strncmp (nptr, "0x", 2))
382     {
383       char const *p = nptr + 2;
384       return abtoi (&p, 16);
385     }
386   return abtoi (&nptr, base);
387 }
388
389 long long int
390 strtoll (char const *nptr, char **endptr, int base)
391 {
392   eputs ("strtoll stub\n");
393   return 0;
394 }
395
396 unsigned long
397 strtoul (char const *nptr, char **endptr, int base)
398 {
399   eputs ("strtoul stub\n");
400   return 0;
401 }
402
403 unsigned long long
404 strtoull (char const *p, char **endptr, int base)
405 {
406   *endptr = p;
407   return abtoi (endptr, base);
408 }
409
410 time_t time (time_t *tloc)
411 {
412   return 0;
413 }
414
415 int
416 vsnprintf (char *str, size_t size, char const *format, va_list ap)
417 {
418   return vsprintf (str, format, ap);
419 }
420
421 void *
422 calloc (size_t nmemb, size_t size)
423 {
424   size_t count = nmemb * size;
425   void *p = malloc (count);
426   memset (p, 0, count);
427   return p;
428 }
429
430 int
431 vfprintf (FILE* f, char const* format, va_list ap)
432 {
433   int fd = (int)f;
434   char const *p = format;
435   while (*p)
436     if (*p != '%')
437       fputc (*p++, fd);
438     else
439       {
440         p++;
441         char c = *p;
442         switch (c)
443           {
444           case '%': {fputc (*p, fd); break;}
445           case 'c': {char c; c = va_arg (ap, char); fputc (c, fd); break;}
446           case 'd': {int d; d = va_arg (ap, int); fputs (itoa (d), fd); break;}
447           case 's': {char *s; s = va_arg (ap, char *); fputs (s, fd); break;}
448           default: {fputc (*p, fd); break;}
449           }
450         p++;
451       }
452   va_end (ap);
453   return 0;
454 }
455
456 int
457 vsscanf (char const *s, char const *template, va_list ap)
458 {
459   char const *p = s;
460   char const *t = template;
461   while (*t && *p)
462     if (*t != '%')
463       {
464         t++;
465         p++;
466       }
467     else
468       {
469         t++;
470         char c = *t;
471         switch (c)
472           {
473           case '%': {p++; break;}
474           case 'c': {char *c = va_arg (ap, char*); *c = *p++; break;}
475           case 'd': {int *d = va_arg (ap, int*); *d = abtoi (&p, 10); break;}
476           default:
477             {
478               eputs ("vsscanf: not supported: %");
479               eputc (c);
480               eputs ("\n");
481               t++;
482               p++;
483             }
484           }
485         t++;
486       }
487   va_end (ap);
488   return 0;
489 }