add setcwd()

JuliaLang · Jul 3, 2011 · c6f4b8a · c6f4b8a · StefanKarpinski · Jul 3, 2011
1 parent 677847a
commit c6f4b8a
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/j/libc.j b/j/libc.j
@@ -30,3 +30,10 @@ function getcwd()
  end
  string(p)
 end
+
+function setcwd(p::String)
+ if ccall(dlsym(libc, :chdir), Int32, (Ptr{Uint8},), p) == -1
+ throw(SystemError("setcwd"))
+ end
+ getcwd()
+end