Handle -env option to erjang.Main

We did not handle the -env option, so Erjang
was not picking up the result of e.g. passing
-env ERL_LIBS some:path.

src/main/java/erjang/ErjangConfig.java

@@ -18,6 +18,8 @@
 
 package erjang;
 
+import java.util.HashMap;
+import java.util.Map;
 import java.util.Properties;
 import java.util.logging.Level;
 import java.util.logging.Logger;
@@ -34,6 +36,8 @@
 public class ErjangConfig {
 	static final Logger log = Logger.getLogger("erjang.config");
 
+	static final Map<String,String> extra_env = new HashMap<String, String>();
+
 	static {
 		String configFileName = System.getProperty("erjang.configfile");
 		if (configFileName != null && configFileName.trim().length() > 0) {
@@ -80,4 +84,12 @@ public static String getString(String propname, String fallback) {
 	public static boolean hasString(String propname) {
 		return (System.getProperty(propname) != null);
 	}
+
+	public static void setenv(String env, String val) {
+		extra_env.put(env, val);
+	}
+
+	public static String getenv(String env) {
+		return extra_env.get(env);
+	}
 }

src/main/java/erjang/Main.java

@@ -48,6 +48,9 @@ public static void main(String[] args) throws Exception {
 			if ("-root".equals(args[i]) && i < args.length) {
 				cmd_line_root = args[i+1];
 				i +=1;
+			} else if ("-env".equals(args[i]) && (i+1) < args.length) {
+				ErjangConfig.setenv(args[i+1], args[i+2]);
+				i += 2;
 			} else if ("+e".equals(args[i]) && i < args.length) {
 				erts_version = "erts-" + args[i+1];
 				i += 1;

src/main/java/erjang/m/os/Native.java

@@ -33,6 +33,7 @@
 import erjang.ETuple2;
 import erjang.ETuple3;
 import erjang.ECons;
+import erjang.ErjangConfig;
 import erjang.NotImplemented;
 
 /**
@@ -69,7 +70,14 @@ public static EObject getenv(EObject o) {
 		if (str == null)
 			throw ERT.badarg(o);
 
-		String value = System.getenv(str.stringValue());
+		String value;
+
+		value = ErjangConfig.getenv(str.stringValue());
+		if (value != null) {
+			return EString.fromString(value);
+		}
+
+		value = System.getenv(str.stringValue());
 
 		if (value == null) {
 			return ERT.FALSE;