scaffold: Add proper includes.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sat, 21 Jul 2018 08:47:05 +0000 (10:47 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sat, 21 Jul 2018 08:47:05 +0000 (10:47 +0200)
* 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.

scaffold/argv.c
scaffold/malloc.c
scaffold/micro-mes.c
scaffold/mini-mes.c
scaffold/tiny-mes.c

index fe47f97d81b61c352da2b816318905c6f4a6aad0..6e64f0cad0dc53b772dc5def422c6c36c348f033 100644 (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"))
     {
index 2c71e9a8dcdf603731c01f9791f67188881c8ac7..ad31867d29d422b1c8a534a0aadb5792da8eca69 100644 (file)
@@ -23,6 +23,8 @@
 #endif
 
 #include <libmes.h>
+#include <stdio.h>
+#include <stdlib.h>
 
 int
 main (int argc, char *argv[])
index 2b3f9f4b01a0c2e4af32762690f36d6964ddd441..fd04c52cd577a7d79f548abdb11902fb34dac05b 100644 (file)
@@ -23,6 +23,7 @@
 #endif
 
 #include <stdio.h>
+#include <stdlib.h>
 
 typedef int SCM;
 
index 58df2d720f1e477f5ad33a29daebf8195f022f9a..59508bdb28fe356d8b56ef6b30a40fd265b864d2 100644 (file)
 #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');
index f21a728a59070dcf048dce9feb78e218c6f64940..dfe8b81a85ea56cca6d92e4e0659950427459edf 100644 (file)
 #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;