mescc: Tinycc support: oops, use new realloc.
[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 #define FULL_MALLOC 1
22 #include <libc-mes.c>
23
24 #include <setjmp.h>
25 #include <stdarg.h>
26 #include <stdio.h>
27 #include <stdlib.h>
28 #include <string.h>
29 #include <time.h>
30 #include <unistd.h>
31
32 void
33 close ()
34 {
35   asm ("mov____0x8(%ebp),%ebx !8");
36
37   asm ("mov____$i32,%eax SYS_close");
38   asm ("int____$0x80");
39 }
40
41 char *
42 getcwd (char *buf, size_t size)
43 {
44   asm ("mov____0x8(%ebp),%ebx !8");
45   asm ("mov____0x8(%ebp),%ecx !12");
46
47   asm ("mov____$i32,%eax SYS_getcwd");
48   asm ("int____$0x80");
49 }
50
51 int
52 unlink (char const *file_name)
53 {
54   asm ("mov____0x8(%ebp),%ebx !8");
55
56   asm ("mov____$i32,%eax SYS_unlink");
57   asm ("int____$0x80");
58 }
59
60 off_t
61 lseek (int fd, off_t offset, int whence)
62 {
63   asm ("mov____0x8(%ebp),%ebx !8");
64   asm ("mov____0x8(%ebp),%ecx !12");
65   asm ("mov____0x8(%ebp),%edx !16");
66
67   asm ("mov____$i32,%eax SYS_lseek");
68   asm ("int____$0x80");
69 }
70
71
72 int
73 execvp (char const *file, char *const argv[])
74 {
75   return 0;
76 }
77
78 int
79 fclose (FILE *stream)
80 {
81   return 0;
82 }
83
84 FILE *
85 fdopen (int fd, char const *mode)
86 {
87   return 0;
88 }
89
90 int
91 fflush (FILE *stream)
92 {
93   return 0;
94 }
95
96 FILE *
97 fopen (char const *pathname, char const *mode)
98 {
99   return 0;
100 }
101
102 int
103 fprintf (FILE *stream, char const *format, ...)
104 {
105   return 0;
106 }
107
108 size_t
109 fread (void *ptr, size_t size, size_t nmemb, FILE *stream)
110 {
111   return 0;
112 }
113
114 void
115 free (void *ptr)
116 {
117 }
118
119 int
120 fseek (FILE *stream, long offset, int whence)
121 {
122   return 0;
123 }
124
125 long
126 ftell (FILE *stream)
127 {
128   return 0;
129 }
130
131 size_t
132 fwrite (void const *ptr, size_t size, size_t nmemb, FILE *stream)
133 {
134   return 0;
135 }
136
137 struct tm *
138 localtime (time_t const *timep)
139 {
140   return 0;
141 }
142
143 void
144 longjmp (jmp_buf env, int val)
145 {
146 }
147
148 void *
149 memcpy (void *dest, void const *src, size_t n)
150 {
151   return 0;
152 }
153
154 void *
155 memmove (void *dest, void const *src, size_t n)
156 {
157   return 0;
158 }
159
160 void *
161 memset (void *s, int c, size_t n)
162 {
163   return 0;
164 }
165
166 int
167 memcmp (void const *s1, void const *s2, size_t n)
168 {
169   return 0;
170 }
171
172 void
173 qsort (void *base, size_t nmemb, size_t size, int (*compar)(void const *, void const *))
174 {
175 }
176
177 int
178 remove (char const *file_name)
179 {
180   return 0;
181 }
182
183 int
184 setjmp (jmp_buf env)
185 {
186   return 0;
187 }
188
189 int
190 snprintf(char *str,  size_t size,  char const *format, ...)
191 {
192   return 0;
193 }
194
195 int
196 sscanf (char const *str, const char *format, ...)
197 {
198   return 0;
199 }
200
201 char *
202 strchr (char const *s, int c)
203 {
204   return 0;
205 }
206
207 char *
208 strrchr (char const *s, int c)
209 {
210   return 0;
211 }
212
213 char *
214 strstr (char const *haystack, char const *needle)
215 {
216   return 0;
217 }
218
219 long
220 strtol (char const *nptr, char **endptr, int base)
221 {
222   return 0;
223 }
224
225 long long int
226 strtoll (char const *nptr, char **endptr, int base)
227 {
228   return 0;
229 }
230
231 unsigned long
232 strtoul (char const *nptr, char **endptr, int base)
233 {
234   return 0;
235 }
236
237 unsigned long long
238 strtoull (char const *nptr, char **endptr, int base)
239 {
240   return 0;
241 }
242
243 time_t time (time_t *tloc)
244 {
245   return 0;
246 }
247
248 int
249 vsnprintf (char *str, size_t size, char const *format, va_list ap)
250 {
251   return 0;
252 }
253
254 void *
255 calloc (size_t nmemb, size_t size)
256 {
257   size_t count = nmemb * size;
258   void *p = malloc (count);
259   memset (p, 0, count);
260   return p;
261 }
262
263 void *
264 realloc (void *ptr, size_t size)
265 {
266   void *new = malloc (size);
267   if (ptr && new)
268     {
269       memcpy (new, ptr, size);
270       free (ptr);
271     }
272   return new;
273 }