/**
 * This file is part of Erjang - A JVM-based Erlang VM
 *
 * Copyright (c) 2009 by Trifork
 *
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *  
 *     http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 **/


package erjang.m.os;

import erjang.BIF;
import erjang.ENative;
import erjang.EObject;
import erjang.ERT;
import erjang.ESeq;
import erjang.EString;

/**
 * 
 */
public class Native extends ENative {

	@BIF
	public static ESeq getenv(EObject o) {
		EString str = o.testString();
		if (str == null) throw ERT.badarg(o);
		
		String value = System.getenv(str.stringValue());
		
		if (value == null) {
			return ERT.NIL;
		} else {
			return EString.fromString(value);
		}
	}
	
}

@@ -696,16 +696,37 @@
 ng.BIF;%0A
+import erjang.EAtom;%0A
 import e
@@ -824,16 +824,39 @@
 EString;
+%0Aimport erjang.ETuple2;
 %0A%0A/**%0A *
@@ -900,16 +900,64 @@
 tive %7B%0A%0A
+%09/** os:getenv(string()) -%3E string() %7C false */%0A
 %09@BIF%0A%09p
@@ -970,19 +970,22 @@
 static E
-Seq
+Object
  getenv(
@@ -1167,11 +1167,13 @@
 ERT.
-NIL
+FALSE
 ;%0A%09%09
@@ -1227,10 +1227,119 @@
 %09%7D%0A%09%7D%0A%09%0A
+%09@BIF%0A%09public static ETuple2 type() %7B%0A%09%09return new ETuple2(EAtom.intern(%22unix%22), EAtom.intern(%22macosx%22));%0A%09%7D%0A
 %7D%0A

fix os:getenv to return false, not nil on non-existant environment var; dummy impl for os:type (needs improvement)