scaffold: Add proper includes.

* scaffold/argv.c: Add proper includes.
* scaffold/malloc.c: Likewise.
* scaffold/micro-mes.c: Likewise.
* scaffold/mini-mes.c: Likewise.
* scaffold/tiny-mes.c: Likewise.
This commit is contained in:
Jan Nieuwenhuizen 2018-07-21 10:47:05 +02:00
parent d8d813fa45
commit 3429f103a4
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
5 changed files with 16 additions and 5 deletions

View File

@ -18,7 +18,8 @@
* along with Mes. If not, see <http://www.gnu.org/licenses/>.
*/
#include <stdio.h>
#include <libmes.h>
#include <string.h>
int
main (int argc, char *argv[])
@ -27,7 +28,7 @@ main (int argc, char *argv[])
#if __MESC_MES__
eputs ("MESC.MES\n");
#else
puts ("MESC.GUILE\n");
eputs ("MESC.GUILE\n");
#endif
if (argc > 1 && !strcmp (argv[1], "--help"))
{

View File

@ -23,6 +23,8 @@
#endif
#include <libmes.h>
#include <stdio.h>
#include <stdlib.h>
int
main (int argc, char *argv[])

View File

@ -23,6 +23,7 @@
#endif
#include <stdio.h>
#include <stdlib.h>
typedef int SCM;

View File

@ -24,11 +24,13 @@
#error "POSIX not supported"
#endif
#include <libmes.h>
#include <stdio.h>
#include <assert.h>
#include <fcntl.h>
#include <stdlib.h>
#include <string.h>
#include <libmes.h>
int ARENA_SIZE = 200000; // 32b: 2MiB, 64b: 4 MiB
int MAX_ARENA_SIZE = 300000000;
@ -214,6 +216,8 @@ int g_function = 0;
#endif
#include "mes.mes.h"
SCM gc_init_news ();
// #if !MES_MINI
// #include "posix.mes.h"
// #ndif
@ -893,7 +897,7 @@ bload_env (SCM a) ///((internal))
{
char *mo = "module/mes/read-0-32.mo";
g_stdin = open (mo, 0);
if (g_stdin < 0) {eputs ("no such file: ");eputs (mo);eputs ("\n");return 1;}
if (g_stdin < 0) {eputs ("no such file: ");eputs (mo);eputs ("\n");return 1;}
assert (getchar () == 'M');
assert (getchar () == 'E');
assert (getchar () == 'S');

View File

@ -22,9 +22,12 @@
#error "POSIX not supported"
#endif
#include <stdio.h>
#include <libmes.h>
#include <fcntl.h>
#include <stdio.h>
#include <stdlib.h>
char arena[300];
typedef int SCM;