1 files changed, 208 insertions, 0 deletions
diff --git a/modules/language/python/module/sys.scm b/modules/language/python/module/sys.scm
new file mode 100644
index 0000000..0df5bb1
--- /dev/null
+++ b/modules/language/python/module/sys.scm
@@ -0,0 +1,208 @@
+(define-module (language python module sys)
+  #:use-module (rnrs bytevectors)
+  #:use-module (language python exceptions)
+  #:use-module (language python try)
+  #:use-module (language python module python)
+  #:export (argv byteorder copyright implementation
+		     stdin     stdout     stderr
+		   __stdin__ __stdout__ __stderr__
+		   exit))
+
+(define-syntax stdin
+  (lambda (x)
+    (syntax-case x (set!)
+      ((set! stdin port)
+       #'(set-current-input-port port))
+      ((_ . _)
+       (error "sys.stdin is not a function"))
+      (s #'(current-input-port)))))
+
+(define-syntax stdout
+  (lambda (x)
+    (syntax-case x (set!)
+      ((set! stdin port)
+       #'(set-current-output-port port))
+      ((_ . _)
+       (error "sys.stdin is not a function"))
+      (s #'(current-output-port)))))
+
+(define-syntax stderr
+  (lambda (x)
+    (syntax-case x (set!)
+      ((set! stdin port)
+       #'(set-current-error-port port))
+      ((_ . _)
+       (error "sys.stdin is not a function"))
+      (s #'(current-error-port)))))
+
+(define __stdin__  stdin)
+(define __stdout__ stdout)
+(define __stderr__ stderr)
+
+(define abiflags         '(""))
+(define argv              (command-line))
+(define base_exec_prefix  #f)
+(define base_prefix       #f)
+(define byteorder         (if (eq? (native-endianness) 'little)
+			      "little"
+			      "big"))
+(define builtin_module_names '())
+(define call_tracing
+  (lambda (func args)
+    (apply func args)))
+(define copyright "Stefan Israelsson Tampe")
+(define _clear_type_cache
+  (lambda () (values)))
+(define _current_frames
+  (lambda () '()))
+(define _debugmallocstats
+  (lambda () (values)))
+
+(define dllhandle 0)
+(define displayhook
+  (lambda (value)
+    (when (not (eq? value None))
+      (write stdout (repr value))
+      (set! _ value))))
+(define dont_write_bytecode #f)
+(define excepthook
+  (lambda (type value traceback)
+    (write stderr (repr (list type value traceback)))))
+
+(define __displayhook__ displayhook)
+(define __excepthook__  excepthook)
+
+(define exc_info
+  (lambda () (values)))
+
+(define exec_prefix "/usr/local")
+(define executable "")
+(define exit
+  (lambda arg
+    (apply raise SystemException arg)))
+
+(define flags '())
+(define float_info '())
+(define float_repr_style #f)
+
+(define getallocatedblocks
+  (lambda () 0))
+(define getcheckinterval
+  (lambda () 0))
+
+(define getdefaultencoding
+  (lambda () #f))
+
+(define getdlopenflags
+  (lambda () '()))
+
+(define getfilesystemencoding
+  (lambda () #f))
+
+(define getfilesystemcodeerrors
+  (lambda () #f))
+
+(define getrefcount
+  (lambda () 0))
+
+(define getsizeof
+  (lambda x #f))
+
+(define getswitchinterval
+  (lambda () 0))
+
+(define _getframe
+  (lambda x 0))
+
+(define getwindowsversion
+  (lambda () 0))
+
+(define implementation "guile")
+
+(define int_info #f)
+
+(define __interactivehook__ (lambda () (values)))
+
+
+(define intern (lambda (s) (values)))
+
+(define is_finalizing
+  (lambda () #f))
+
+(define last_type      #f)
+(define last_value     #f)
+(define last_traceback #f)
+    
+(define maxsize #f)
+(define maxunicode #f)
+
+(define meta_path '())
+(define modules (make-hash-table))
+(define path '())
+(define path_hooks '())
+(define path_importer_cache (make-hash-table))
+
+(define platform "linux")
+
+(define prefix "")
+(define ps1    "")
+(define ps2    "")
+
+(define setcheckinterval
+  (lambda (i) (values)))
+
+(define setdlopenflags
+  (lambda (n) (values)))
+
+(define setprofile
+  (lambda (f) (values)))
+
+(define setrecursionlimit
+  (lambda (n) (values)))
+
+(define setswitchinterval
+  (lambda (i) (values)))
+
+(define settrace
+  (lambda (f) (values)))
+
+(define set_asyncgen_hooks
+  (lambda (a b) (values)))
+
+(define set_coroutine_wrappr
+  (lambda (w) (values)))
+
+(define _enablelegacywindowsfsencoding
+  (lambda () (values)))
+
+(define thread_info #f)
+
+(define tracebacklimit 0)
+
+(define version     "0.0.0")
+(define api_version "0.0.0")
+(define version_info '())
+(define warnoptions   #f)
+(define winver        0)
+(define _xoptions    (make-hash-table))
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+    
+  
+
+    
+