diff options
author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-02-16 12:49:08 +0100 |
---|---|---|
committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-02-16 12:49:08 +0100 |
commit | 7bdf92ff183ac2f1edc942f644a050853bf50a3d (patch) | |
tree | ed1403fc18c18289d3146aec82416aeade2021a5 /modules/language/python/module/sys.scm | |
parent | d4f5255498d07b424ba5d6b8535aedc3ec40808a (diff) |
sys module
Diffstat (limited to 'modules/language/python/module/sys.scm')
-rw-r--r-- | modules/language/python/module/sys.scm | 208 |
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)) + + + + + + + + + + + + + + + + + + + + + |