libc.j: sleep and fork.

JuliaLang · May 15, 2010 · 670c3f7 · 670c3f7
1 parent aaebd41
commit 670c3f7
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 0 deletions.
diff --git a/libc.j b/libc.j
@@ -0,0 +1,4 @@
+libc = dlopen("libc")
+
+sleep(s::Scalar) = ccall(dlsym(libc,"usleep"), Uint32, (Uint32,), uint32(round(s*1e6)))
+fork() = ccall(dlsym(libc,"fork"), Int32, ())
diff --git a/prim.j b/prim.j
@@ -1,6 +1,7 @@
 typealias Nullable{T} Union(T,())
 typealias Index Int32
 typealias Size  Int32
+typealias String Array{Uint8,1}
 
 (<:)(T::Type, S::Type) = subtype(T,S)
 (:>)(T::Type, S::Type) = subtype(S,T)

diff --git a/start.j b/start.j
@@ -12,3 +12,4 @@ load("dequeue.j")
 #load("tree.j")
 load("array.j")
 load("mathfunctions.j")
+load("libc.j")