Initial support for gambit-scheme v4.7.0

ports/gambc_ppapi/main.c

 /* Copyright (c) 2013 The Native Client Authors. All rights reserved.
  * Use of this source code is governed by a BSD-style license that can be
  * found in the LICENSE file. */
 
 #include <assert.h>
 #include <fcntl.h>
-#include <libtar.h>
 #include <limits.h>
 #include <stdio.h>
 #include <stdlib.h>
 #include <string.h>
 #include <sys/mount.h>
+#include <sys/stat.h>
 #include <unistd.h>
 
 #include "ppapi_simple/ps_main.h"
 
-int lua_main(int argc, char **argv);
+int gambc_main(int argc, char **argv);
 
-static int setup_unix_environment(const char* tarfile) {
+static int setup_unix_environment() {
   int ret = umount("/");
   if (ret) {
     printf("unmounting root fs failed\n");
     return 1;
   }
   ret = mount("", "/", "memfs", 0, NULL);
   if (ret) {
     printf("mounting root fs failed\n");
     return 1;
   }
 
   mkdir("/home", 0777);
   mkdir("/tmp", 0777);
   mkdir("/bin", 0777);
   mkdir("/etc", 0777);
   mkdir("/mnt", 0777);
   mkdir("/mnt/http", 0777);
   mkdir("/mnt/html5", 0777);
 
   const char* data_url = getenv("DATA_URL");
   if (!data_url)
-    data_url = "./";
+    data_url = "./scm";
 
   ret = mount(data_url, "/mnt/http", "httpfs", 0,
         "allow_cross_origin_requests=true,allow_credentials=false");
   if (ret) {
     printf("mounting http filesystem failed\n");
     return 1;
   }
 
   // Ignore failures from mounting html5fs.  For example, it will always
   // fail in incognito mode.
   mount("/", "/mnt/html5", "html5fs", 0, "");
 
-  // Extra tar achive from http filesystem.
-  if (tarfile) {
-    TAR* tar;
-    char filename[PATH_MAX];
-    strcpy(filename, "/mnt/http/");
-    strcat(filename, tarfile);
-    ret = tar_open(&tar, filename, NULL, O_RDONLY, 0, 0);
-    if (ret) {
-      printf("error opening: %s\n", filename);
-      return 1;
-    }
-
-    ret = tar_extract_all(tar, "/");
-    if (ret) {
-      printf("error extracting: %s\n", filename);
-      return 1;
-    }
-
-    ret = tar_close(tar);
-    assert(ret == 0);
-  }
-
   // Setup environment
   setenv("HOME", "/home", 1);
   setenv("PATH", "/bin", 1);
   setenv("USER", "user", 1);
   setenv("LOGNAME", "user", 1);
   return 0;
 }
 
-int lua_ppapi_main(int argc, char **argv) {
-  if (setup_unix_environment("luadata.tar"))
+int gambc_ppapi_main(int argc, char **argv) {
+  if (setup_unix_environment())
     return 1;
 
-  chdir("/lua-5.2.2-tests");
-
-  return lua_main(argc, argv);
+  return gambc_main(argc, argv);
 }
 
-PPAPI_SIMPLE_REGISTER_MAIN(lua_ppapi_main)
+PPAPI_SIMPLE_REGISTER_MAIN(gambc_ppapi_main)