---

yaml
---
r: 23356
b: refs/heads/master
c: 3f1f6bf
h: refs/heads/master
v: v3

Author: Daniel Patterson

[refs]

@@ -1,5 +1,5 @@
 ---
-refs/heads/master: 47cca22d5455d2d60226ead907fd627784701ef5
+refs/heads/master: 3f1f6bf9e3fc7d07adedef225e33156425a0608f
 refs/heads/snap-stage1: e33de59e47c5076a89eadeb38f4934f58a3618a6
 refs/heads/snap-stage3: cd6f24f9d14ac90d167386a56e7a6ac1f0318195
 refs/heads/try: ffbe0e0e00374358b789b0037bcb3a577cd218be

trunk/src/libcore/os.rs

@@ -30,7 +30,7 @@ export close, fclose, fsync_fd, waitpid;
 export env, getenv, setenv, fdopen, pipe;
 export getcwd, dll_filename, self_exe_path;
 export exe_suffix, dll_suffix, sysname, arch, family;
-export homedir, list_dir, list_dir_path, path_is_dir, path_exists,
+export homedir, tmpdir, list_dir, list_dir_path, path_is_dir, path_exists,
        make_absolute, make_dir, remove_dir, change_dir, remove_file,
        copy_file;
 export last_os_error;
@@ -464,6 +464,43 @@ fn homedir() -> option<Path> {
     }
 }
 
+/**
+ * Returns the path to a temporary directory, if known.
+ *
+ * On Unix, returns the value of the 'TMPDIR' environment variable if it is
+ * set and non-empty and '/tmp' otherwise.
+ *
+ * On Windows, returns the value of, in order, the 'TMP', 'TEMP',
+ * 'USERPROFILE' environment variable if any are set and not the empty
+ * string. Otherwise, tmpdir returns option::none.
+ */
+fn tmpdir() -> option<Path> {
+    return lookup();
+
+    fn getenv_nonempty(v: Path) -> option<Path> {
+        match getenv(v) {
+            some(x) =>
+                if str::is_empty(x) {
+                    none
+                } else {
+                    some(x)
+                },
+            _ => none
+        }
+    }
+
+    #[cfg(unix)]
+    fn lookup() -> option<Path> {
+        option::or(getenv_nonempty(~"TMPDIR"), some(~"/tmp"))
+    }
+
+    #[cfg(windows)]
+    fn lookup() -> option<Path> {
+        option::or(getenv_nonempty(~"TMP"),
+        option::or(getenv_nonempty(~"TEMP"),
+                   getenv_nonempty(~"USERPROFILE")))
+    }
+}
 /// Recursively walk a directory structure
 fn walk_dir(p: Path, f: fn(Path) -> bool) {