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 }