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   eputs ("memmove stub\n");
 198   return 0;
 199 }
 200
 201 void *
 202 memset (void *s, int c, size_t n)
 203 {
 204   char *p = s;
 205   while (n--) *p++ = c;
 206   return s;
 207 }
 208
 209 int
 210 memcmp (void const *s1, void const *s2, size_t n)
 211 {
 212   char *a = s1;
 213   char *b = s2;
 214   while (*a == *b && --n) {a++;b++;}
 215   return *a - *b;
 216 }
 217
 218 int
 219 mprotect (void *addr, size_t len, int prot)
 220 {
 221   return 0;
 222 }
 223
 224 void
 225 qsort (void *base, size_t nmemb, size_t size, int (*compar)(void const *, void const *))
 226 {
 227   eputs ("qsort stub\n");
 228 }
 229
 230 int
 231 remove (char const *file_name)
 232 {
 233   eputs ("remove stub\n");
 234   return 0;
 235 }
 236
 237 int
 238 setjmp (jmp_buf env)
 239 {
 240   eputs ("setjmp stub\n");
 241   return 0;
 242 }
 243
 244 int
 245 sigaction (int signum, struct sigaction const *act, struct sigaction *oldact)
 246 {
 247   return 0;
 248 }
 249
 250 int
 251 sigemptyset (sigset_t *set)
 252 {
 253   return 0;
 254 }
 255
 256 int
 257 snprintf(char *str,  size_t size,  char const *format, ...)
 258 {
 259   eputs ("snprintf stub\n");
 260   return 0;
 261 }
 262
 263 int
 264 sscanf (char const *str, const char *format, ...)
 265 {
 266   eputs ("sscanf stub\n");
 267   return 0;
 268 }
 269
 270 char *
 271 strcat (char *dest, char const *src)
 272 {
 273   eputs ("strcat stub\n");
 274   return 0;
 275 }
 276
 277 char *
 278 strchr (char const *s, int c)
 279 {
 280   char const *p = s;
 281   while (*p || !c)
 282     {
 283       if (c == *p) return p;
 284       *p++;
 285     }
 286   return 0;
 287 }
 288
 289 char *
 290 strrchr (char const *s, int c)
 291 {
 292   eputs ("strrchr stub\n");
 293   return 0;
 294 }
 295
 296 char *
 297 strstr (char const *haystack, char const *needle)
 298 {
 299   eputs ("strstr stub\n");
 300   return 0;
 301 }
 302
 303 long
 304 strtol (char const *nptr, char **endptr, int base)
 305 {
 306   eputs ("strtol stub\n");
 307   return 0;
 308 }
 309
 310 long long int
 311 strtoll (char const *nptr, char **endptr, int base)
 312 {
 313   eputs ("strtoll stub\n");
 314   return 0;
 315 }
 316
 317 unsigned long
 318 strtoul (char const *nptr, char **endptr, int base)
 319 {
 320   eputs ("strtoul stub\n");
 321   return 0;
 322 }
 323
 324 unsigned long long
 325 strtoull (char const *nptr, char **endptr, int base)
 326 {
 327   eputs ("strtoull stub\n");
 328   return 0;
 329 }
 330
 331 time_t time (time_t *tloc)
 332 {
 333   return 0;
 334 }
 335
 336 int
 337 vsnprintf (char *str, size_t size, char const *format, va_list ap)
 338 {
 339   eputs ("vsnprintf stub\n");
 340   return 0;
 341 }
 342
 343 void *
 344 calloc (size_t nmemb, size_t size)
 345 {
 346   size_t count = nmemb * size;
 347   void *p = malloc (count);
 348   memset (p, 0, count);
 349   return p;
 350 }
 351
 352 void *
 353 realloc (void *ptr, size_t size)
 354 {
 355   void *new = malloc (size);
 356   if (ptr && new)
 357     {
 358       memcpy (new, ptr, size);
 359       free (ptr);
 360     }
 361   return new;
 362 }
 363
 364 int
 365 vfprintf (FILE* f, char const* format, va_list ap)
 366 {
 367   int fd = (int)f;
 368   char const *p = format;
 369   while (*p)
 370     if (*p != '%')
 371       putchar (*p++);
 372     else
 373       {
 374         p++;
 375         char c = *p;
 376         switch (c)
 377           {
 378           case '%': {fputc (*p, fd); break;}
 379           case 'c': {char c; c = va_arg (ap, char); fputc (c, fd); break;}
 380           case 'd': {int d; d = va_arg (ap, int); fputs (itoa (d), fd); break;}
 381           case 's': {char *s; s = va_arg (ap, char *); fputs (s, fd); break;}
 382           default: {fputc (*p, fd); break;}
 383           }
 384         p++;
 385       }
 386   va_end (ap);
 387   return 0;
 388 }