2011-07-17 19:11:40 -05:00
|
|
|
import str::sbuf;
|
2011-05-12 10:24:54 -05:00
|
|
|
|
2011-06-15 13:19:50 -05:00
|
|
|
|
2011-07-17 19:11:40 -05:00
|
|
|
#[cfg(target_os = "linux")]
|
|
|
|
#[cfg(target_os = "macos")]
|
2011-06-15 13:19:50 -05:00
|
|
|
fn getenv(str n) -> option::t[str] {
|
|
|
|
auto s = os::libc::getenv(str::buf(n));
|
|
|
|
ret if (s as int == 0) {
|
|
|
|
option::none[str]
|
|
|
|
} else { option::some[str](str::str_from_cstr(s)) };
|
2011-07-17 19:11:40 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
#[cfg(target_os = "linux")]
|
|
|
|
#[cfg(target_os = "macos")]
|
|
|
|
fn setenv(str n, str v) {
|
|
|
|
auto nbuf = str::buf(n);
|
|
|
|
auto vbuf = str::buf(v);
|
|
|
|
os::libc::setenv(nbuf, vbuf, 1);
|
|
|
|
}
|
|
|
|
|
|
|
|
#[cfg(target_os = "win32")]
|
|
|
|
fn getenv(str n) -> option::t[str]{
|
|
|
|
auto nbuf = str::buf(n);
|
|
|
|
auto nsize = 256u;
|
|
|
|
while (true) {
|
|
|
|
auto vstr = str::alloc(nsize - 1u);
|
|
|
|
auto vbuf = str::buf(vstr);
|
|
|
|
auto res = os::kernel32::GetEnvironmentVariableA(nbuf, vbuf, nsize);
|
|
|
|
if (res == 0u) {
|
|
|
|
ret option::none;
|
|
|
|
} else if (res < nsize) {
|
|
|
|
ret option::some(str::str_from_cstr(vbuf));
|
|
|
|
} else {
|
|
|
|
nsize = res;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
fail;
|
|
|
|
}
|
|
|
|
|
|
|
|
#[cfg(target_os = "win32")]
|
|
|
|
fn setenv(str n, str v) {
|
|
|
|
auto nbuf = str::buf(n);
|
|
|
|
auto vbuf = str::buf(v);
|
|
|
|
os::kernel32::SetEnvironmentVariableA(nbuf, vbuf);
|
|
|
|
}
|
|
|
|
|
|
|
|
// Local Variables:
|
|
|
|
// mode: rust;
|
|
|
|
// fill-column: 78;
|
|
|
|
// indent-tabs-mode: nil
|
|
|
|
// c-basic-offset: 4
|
|
|
|
// buffer-file-coding-system: utf-8-unix
|
|
|
|
// compile-command: "make -k -C .. 2>&1 | sed -e 's/\\/x\\//x:\\//g'";
|
|
|
|
// End:
|