(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))