mescc: Tinycc support: memmove.
[mes.git] / 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 }