[pypy-commit] lang-smalltalk default: added fileplugin primitiveGetPosition

[lwassermann]

Author: Lars Wassermann <lars.wassermann at gmail.com>
Branch: 
Changeset: r461:8bb0308ecb3d
Date: 2013-06-17 17:15 +0200
http://bitbucket.org/pypy/lang-smalltalk/changeset/8bb0308ecb3d/

Log:	added fileplugin primitiveGetPosition

diff --git a/spyvm/plugins/fileplugin.py b/spyvm/plugins/fileplugin.py
--- a/spyvm/plugins/fileplugin.py
+++ b/spyvm/plugins/fileplugin.py
@@ -101,6 +101,15 @@
         target.setchar(start + i, contents[i])
     return space.wrap_int(len_read)
 
+ at FilePlugin.expose_primitive(unwrap_spec=[object, int])
+def primitiveFileGetPosition(interp, s_frame, w_rcvr, fd):
+    try:
+        pos = os.lseek(fd, 0, os.SEEK_CUR)
+    except OSError:
+        raise PrimitiveFailedError
+    else:
+        return interp.space.wrap_int(pos)
+
 @FilePlugin.expose_primitive(unwrap_spec=[object, int, int])
 def primitiveFileSetPosition(interp, s_frame, w_rcvr, fd, position):
     try: