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