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