add private configure for preprocessor

3 files changed, 56 insertions, 0 deletions

diff --git a/core/src/xmake/machine.c b/core/src/xmake/machine.c
index c09955e85..a0c17b0e9 100755
--- a/core/src/xmake/machine.c
+++ b/core/src/xmake/machine.c
@@ -63,6 +63,7 @@ tb_int_t xm_os_rmfile(lua_State* lua);
 tb_int_t xm_os_cpfile(lua_State* lua);
 tb_int_t xm_os_rename(lua_State* lua);
 tb_int_t xm_os_exists(lua_State* lua);
+tb_int_t xm_os_setenv(lua_State* lua);
 
 // the path functions
 tb_int_t xm_path_relative(lua_State* lua);
@@ -97,6 +98,7 @@ static luaL_Reg const g_os_functions[] =
 ,   { "cpfile",         xm_os_cpfile    }
 ,   { "rename",         xm_os_rename    }
 ,   { "exists",         xm_os_exists    }
+,   { "setenv",         xm_os_setenv    }
 ,   { tb_null,          tb_null         }
 };
 
diff --git a/core/src/xmake/makefile b/core/src/xmake/makefile
index cfb8510fb..c61411dd8 100755
--- a/core/src/xmake/makefile
+++ b/core/src/xmake/makefile
@@ -27,6 +27,7 @@ xmake_C_FILES 			+= \
 						os/cpfile \
 						os/rename \
 						os/exists \
+						os/setenv \
 						path/relative \
 						path/absolute \
 						path/translate \
diff --git a/core/src/xmake/os/setenv.c b/core/src/xmake/os/setenv.c
new file mode 100755
index 000000000..1b911bbdc
--- /dev/null
+++ b/core/src/xmake/os/setenv.c
@@ -0,0 +1,53 @@
+/*!The Automatic Cross-platform Build Tool
+ * 
+ * XMake is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU Lesser General Public License as published by
+ * the Free Software Foundation; either version 2.1 of the License, or
+ * (at your option) any later version.
+ * 
+ * XMake is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU Lesser General Public License for more details.
+ * 
+ * You should have received a copy of the GNU Lesser General Public License
+ * along with XMake; 
+ * If not, see <a href="http://www.gnu.org/licenses/"> http://www.gnu.org/licenses/</a>
+ * 
+ * Copyright (C) 2009 - 2015, ruki All rights reserved.
+ *
+ * @author      ruki
+ * @file        setenv.c
+ *
+ */
+
+/* //////////////////////////////////////////////////////////////////////////////////////
+ * trace
+ */
+#define TB_TRACE_MODULE_NAME                "setenv"
+#define TB_TRACE_MODULE_DEBUG               (0)
+
+/* //////////////////////////////////////////////////////////////////////////////////////
+ * includes
+ */
+#include "prefix.h"
+
+/* //////////////////////////////////////////////////////////////////////////////////////
+ * implementation
+ */
+tb_int_t xm_os_setenv(lua_State* lua)
+{
+    // check
+    tb_assert_and_check_return_val(lua, 0);
+
+    // get the name and value 
+    tb_char_t const* name = luaL_checkstring(lua, 1);
+    tb_char_t const* value = luaL_checkstring(lua, 2);
+    tb_check_return_val(name, 0);
+
+    // done os.setenv(name, value) 
+    lua_pushboolean(lua, tb_environment_set_one(name, value));
+
+    // ok
+    return 1;
+}