@@ -0,0 +1,1139 @@
+/**%0A * This file is part of Erjang - A JVM-based Erlang VM%0A *%0A * Copyright (c) 2009 by Trifork%0A *%0A * Licensed under the Apache License, Version 2.0 (the %22License%22);%0A * you may not use this file except in compliance with the License.%0A * You may obtain a copy of the License at%0A *  %0A *     http://www.apache.org/licenses/LICENSE-2.0%0A *%0A * Unless required by applicable law or agreed to in writing, software%0A * distributed under the License is distributed on an %22AS IS%22 BASIS,%0A * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.%0A * See the License for the specific language governing permissions and%0A * limitations under the License.%0A **/%0A%0A%0Apackage erjang.m.os;%0A%0Aimport erjang.BIF;%0Aimport erjang.ENative;%0Aimport erjang.EObject;%0Aimport erjang.ERT;%0Aimport erjang.ESeq;%0Aimport erjang.EString;%0A%0A/**%0A * %0A */%0Apublic class Native extends ENative %7B%0A%0A%09@BIF%0A%09public static ESeq getenv(EObject o) %7B%0A%09%09EString str = o.testString();%0A%09%09if (str == null) throw ERT.badarg(o);%0A%09%09%0A%09%09String value = System.getenv(str.stringValue());%0A%09%09%0A%09%09if (value == null) %7B%0A%09%09%09return ERT.NIL;%0A%09%09%7D else %7B%0A%09%09%09return EString.fromString(value);%0A%09%09%7D%0A%09%7D%0A%09%0A%7D%0A

implement os:getenv