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:
parent
d8d813fa45
commit
3429f103a4
|
@ -18,7 +18,8 @@
|
||||||
* along with Mes. If not, see <http://www.gnu.org/licenses/>.
|
* along with Mes. If not, see <http://www.gnu.org/licenses/>.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include <stdio.h>
|
#include <libmes.h>
|
||||||
|
#include <string.h>
|
||||||
|
|
||||||
int
|
int
|
||||||
main (int argc, char *argv[])
|
main (int argc, char *argv[])
|
||||||
|
@ -27,7 +28,7 @@ main (int argc, char *argv[])
|
||||||
#if __MESC_MES__
|
#if __MESC_MES__
|
||||||
eputs ("MESC.MES\n");
|
eputs ("MESC.MES\n");
|
||||||
#else
|
#else
|
||||||
puts ("MESC.GUILE\n");
|
eputs ("MESC.GUILE\n");
|
||||||
#endif
|
#endif
|
||||||
if (argc > 1 && !strcmp (argv[1], "--help"))
|
if (argc > 1 && !strcmp (argv[1], "--help"))
|
||||||
{
|
{
|
||||||
|
|
|
@ -23,6 +23,8 @@
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#include <libmes.h>
|
#include <libmes.h>
|
||||||
|
#include <stdio.h>
|
||||||
|
#include <stdlib.h>
|
||||||
|
|
||||||
int
|
int
|
||||||
main (int argc, char *argv[])
|
main (int argc, char *argv[])
|
||||||
|
|
|
@ -23,6 +23,7 @@
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
|
#include <stdlib.h>
|
||||||
|
|
||||||
typedef int SCM;
|
typedef int SCM;
|
||||||
|
|
||||||
|
|
|
@ -24,11 +24,13 @@
|
||||||
#error "POSIX not supported"
|
#error "POSIX not supported"
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
#include <libmes.h>
|
||||||
|
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
#include <assert.h>
|
#include <assert.h>
|
||||||
|
#include <fcntl.h>
|
||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
#include <string.h>
|
#include <string.h>
|
||||||
#include <libmes.h>
|
|
||||||
|
|
||||||
int ARENA_SIZE = 200000; // 32b: 2MiB, 64b: 4 MiB
|
int ARENA_SIZE = 200000; // 32b: 2MiB, 64b: 4 MiB
|
||||||
int MAX_ARENA_SIZE = 300000000;
|
int MAX_ARENA_SIZE = 300000000;
|
||||||
|
@ -214,6 +216,8 @@ int g_function = 0;
|
||||||
#endif
|
#endif
|
||||||
#include "mes.mes.h"
|
#include "mes.mes.h"
|
||||||
|
|
||||||
|
SCM gc_init_news ();
|
||||||
|
|
||||||
// #if !MES_MINI
|
// #if !MES_MINI
|
||||||
// #include "posix.mes.h"
|
// #include "posix.mes.h"
|
||||||
// #ndif
|
// #ndif
|
||||||
|
@ -893,7 +897,7 @@ bload_env (SCM a) ///((internal))
|
||||||
{
|
{
|
||||||
char *mo = "module/mes/read-0-32.mo";
|
char *mo = "module/mes/read-0-32.mo";
|
||||||
g_stdin = open (mo, 0);
|
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 () == 'M');
|
||||||
assert (getchar () == 'E');
|
assert (getchar () == 'E');
|
||||||
assert (getchar () == 'S');
|
assert (getchar () == 'S');
|
||||||
|
|
|
@ -22,9 +22,12 @@
|
||||||
#error "POSIX not supported"
|
#error "POSIX not supported"
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#include <stdio.h>
|
|
||||||
#include <libmes.h>
|
#include <libmes.h>
|
||||||
|
|
||||||
|
#include <fcntl.h>
|
||||||
|
#include <stdio.h>
|
||||||
|
#include <stdlib.h>
|
||||||
|
|
||||||
char arena[300];
|
char arena[300];
|
||||||
|
|
||||||
typedef int SCM;
|
typedef int SCM;
|
||||||
|
|
Loading…
Reference in a new issue