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 }