[pypy-svn] r48034 - pypy/dist/pypy/lang/smalltalk

[tverwaes at codespeak.net]

Author: tverwaes
Date: Fri Oct 26 12:01:14 2007
New Revision: 48034

Modified:
   pypy/dist/pypy/lang/smalltalk/primitives.py
Log:
adding milliseconds primitive


Modified: pypy/dist/pypy/lang/smalltalk/primitives.py
==============================================================================
--- pypy/dist/pypy/lang/smalltalk/primitives.py	(original)
+++ pypy/dist/pypy/lang/smalltalk/primitives.py	Fri Oct 26 12:01:14 2007
@@ -506,6 +506,16 @@
     rgc.collect()
     return fake_bytes_left()
 
+#____________________________________________________________________________
+# Time Primitives
+MILLISECOND_CLOCK = 135
+
+ at expose_primitive(MILLISECOND_CLOCK, unwrap_spec=[object])
+def func(interp, w_arg):
+    import time
+    import math
+    return wrap_int(math.fmod(time.time()*1000,1073741823/2))
+
 # ___________________________________________________________________________
 # Boolean Primitives