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   eputs ("fclose stub\n");
 102   return 0;
 103 }
 104
 105 FILE *
 106 fdopen (int fd, char const *mode)
 107 {
 108   eputs ("fdopen stub\n");
 109   return 0;
 110 }
 111
 112 int
 113 fflush (FILE *stream)
 114 {
 115   eputs ("fflush stub\n");
 116   return 0;
 117 }
 118
 119 FILE *
 120 fopen (char const *pathname, char const *mode)
 121 {
 122   eputs ("fopen stub\n");
 123   return 0;
 124 }
 125
 126 int
 127 fprintf (FILE *stream, char const *format, ...)
 128 {
 129   eputs ("fprintf stub\n");
 130   return 0;
 131 }
 132
 133 size_t
 134 fread (void *ptr, size_t size, size_t nmemb, FILE *stream)
 135 {
 136   eputs ("fread stub\n");
 137   return 0;
 138 }
 139
 140 void
 141 free (void *ptr)
 142 {
 143 }
 144
 145 int
 146 fseek (FILE *stream, long offset, int whence)
 147 {
 148   eputs ("fseek stub\n");
 149   return 0;
 150 }
 151
 152 long
 153 ftell (FILE *stream)
 154 {
 155   eputs ("ftell stub\n");
 156   return 0;
 157 }
 158
 159 size_t
 160 fwrite (void const *ptr, size_t size, size_t nmemb, FILE *stream)
 161 {
 162   eputs ("fwrite stub\n");
 163   return 0;
 164 }
 165
 166 int
 167 gettimeofday (struct timeval *tv, struct timezone *tz)
 168 {
 169   return 0;
 170 }
 171
 172 struct tm *
 173 localtime (time_t const *timep)
 174 {
 175   eputs ("localtime stub\n");
 176   return 0;
 177 }
 178
 179 void
 180 longjmp (jmp_buf env, int val)
 181 {
 182   eputs ("longjmp stub\n");
 183 }
 184
 185 void *
 186 memcpy (void *dest, void const *src, size_t n)
 187 {
 188   char* p = dest;
 189   char* q = src;
 190   while (n--) *p++ = *q++;
 191   return dest;
 192 }
 193
 194 void *
 195 memmove (void *dest, void const *src, size_t n)
 196 {
 197   if (dest < src)
 198     return memcpy (dest, src, n);
 199   char *p = dest + n;
 200   char const *q = src +n;
 201   while (n--)
 202     *--p = *--q;
 203   return dest;
 204 }
 205
 206 void *
 207 memset (void *s, int c, size_t n)
 208 {
 209   char *p = s;
 210   while (n--) *p++ = c;
 211   return s;
 212 }
 213
 214 int
 215 memcmp (void const *s1, void const *s2, size_t n)
 216 {
 217   char *a = s1;
 218   char *b = s2;
 219   while (*a == *b && --n) {a++;b++;}
 220   return *a - *b;
 221 }
 222
 223 int
 224 mprotect (void *addr, size_t len, int prot)
 225 {
 226   return 0;
 227 }
 228
 229 void
 230 qsort (void *base, size_t nmemb, size_t size, int (*compar)(void const *, void const *))
 231 {
 232   eputs ("qsort stub\n");
 233 }
 234
 235 int
 236 remove (char const *file_name)
 237 {
 238   eputs ("remove stub\n");
 239   return 0;
 240 }
 241
 242 int
 243 setjmp (jmp_buf env)
 244 {
 245   eputs ("setjmp stub\n");
 246   return 0;
 247 }
 248
 249 int
 250 sigaction (int signum, struct sigaction const *act, struct sigaction *oldact)
 251 {
 252   return 0;
 253 }
 254
 255 int
 256 sigemptyset (sigset_t *set)
 257 {
 258   return 0;
 259 }
 260
 261 int
 262 snprintf(char *str,  size_t size,  char const *format, ...)
 263 {
 264   eputs ("snprintf stub\n");
 265   return 0;
 266 }
 267
 268 int
 269 sscanf (char const *str, const char *format, ...)
 270 {
 271   eputs ("sscanf stub\n");
 272   return 0;
 273 }
 274
 275 char *
 276 strcat (char *dest, char const *src)
 277 {
 278   eputs ("strcat stub\n");
 279   return 0;
 280 }
 281
 282 char *
 283 strchr (char const *s, int c)
 284 {
 285   char const *p = s;
 286   while (*p || !c)
 287     {
 288       if (c == *p) return p;
 289       *p++;
 290     }
 291   return 0;
 292 }
 293
 294 char *
 295 strrchr (char const *s, int c)
 296 {
 297   int n = strlen (s);
 298   if (!n) return 0;
 299   char const *p = s + n - 1;
 300   while (*p || !c)
 301     {
 302       if (c == *p) return p;
 303       *p--;
 304     }
 305   return 0;
 306 }
 307
 308 char *
 309 strstr (char const *haystack, char const *needle)
 310 {
 311   eputs ("strstr stub\n");
 312   return 0;
 313 }
 314
 315 long
 316 strtol (char const *nptr, char **endptr, int base)
 317 {
 318   eputs ("strtol stub\n");
 319   return 0;
 320 }
 321
 322 long long int
 323 strtoll (char const *nptr, char **endptr, int base)
 324 {
 325   eputs ("strtoll stub\n");
 326   return 0;
 327 }
 328
 329 unsigned long
 330 strtoul (char const *nptr, char **endptr, int base)
 331 {
 332   eputs ("strtoul stub\n");
 333   return 0;
 334 }
 335
 336 unsigned long long
 337 strtoull (char const *nptr, char **endptr, int base)
 338 {
 339   eputs ("strtoull stub\n");
 340   return 0;
 341 }
 342
 343 time_t time (time_t *tloc)
 344 {
 345   return 0;
 346 }
 347
 348 int
 349 vsnprintf (char *str, size_t size, char const *format, va_list ap)
 350 {
 351   eputs ("vsnprintf stub\n");
 352   return 0;
 353 }
 354
 355 void *
 356 calloc (size_t nmemb, size_t size)
 357 {
 358   size_t count = nmemb * size;
 359   void *p = malloc (count);
 360   memset (p, 0, count);
 361   return p;
 362 }
 363
 364 void *
 365 realloc (void *ptr, size_t size)
 366 {
 367   void *new = malloc (size);
 368   if (ptr && new)
 369     {
 370       memcpy (new, ptr, size);
 371       free (ptr);
 372     }
 373   return new;
 374 }
 375
 376 int
 377 vfprintf (FILE* f, char const* format, va_list ap)
 378 {
 379   int fd = (int)f;
 380   char const *p = format;
 381   while (*p)
 382     if (*p != '%')
 383       putchar (*p++);
 384     else
 385       {
 386         p++;
 387         char c = *p;
 388         switch (c)
 389           {
 390           case '%': {fputc (*p, fd); break;}
 391           case 'c': {char c; c = va_arg (ap, char); fputc (c, fd); break;}
 392           case 'd': {int d; d = va_arg (ap, int); fputs (itoa (d), fd); break;}
 393           case 's': {char *s; s = va_arg (ap, char *); fputs (s, fd); break;}
 394           default: {fputc (*p, fd); break;}
 395           }
 396         p++;
 397       }
 398   va_end (ap);
 399   return 0;
 400 }