# Path: schemepy/tpcl.py
# def setup(vm):


from ctypes.util import find_library
from ctypes import *
from schemepy.types import *
from schemepy.exceptions import *
from schemepy import tpcl
from _ctypes import Py_INCREF, Py_DECREF, PyObj_FromPtr
import types
import os.path
import os, os.path
	def get(smob):
		pypointer = guile.scm_smob_data(smob)
		return PyObj_FromPtr(pypointer)

PythonSMOB.free = PythonSMOB.free_cfunc(PythonSMOB.free)
PythonSMOB.str  = PythonSMOB.str_cfunc(PythonSMOB.str)


# Initialize guile
guile.scm_init_guile()
guileroot = guile.scm_current_module()

# Load the pretty-print module..
guile.scm_c_eval_string("(use-modules (ice-9 pretty-print))")
prettyprint_symbol = guile.scm_c_lookup("pretty-print")
prettyprint        = guile.scm_variable_ref(prettyprint_symbol)

# Create a "scope" for this class
__file__ = os.path.realpath(__file__)
__path__ = os.path.dirname(__file__)
guile.scm_c_primitive_load(os.path.join(__path__, "profiles", "scope.scm"))
makescope_symbol = guile.scm_c_lookup("make-scope")
makescope        = guile.scm_variable_ref(makescope_symbol)

# Profiles
guile.scm_c_eval_string("(use-modules (ice-9 r5rs))")
profiles = {
        "r5rs" : guile.scm_c_eval_string("(scheme-report-environment 5)"),
        "minimal" : guile.scm_c_eval_string("(null-environment 5)"),
        "tpcl" : (guile.scm_c_eval_string("(scheme-report-environment 5)"),

# Path: schemepy/tpcl.py
# def setup(vm):


# Path: schemepy/guile/guile.py
from ctypes.util import find_library
from ctypes import *
from schemepy.types import *
from schemepy.exceptions import *
from schemepy import tpcl
from _ctypes import Py_INCREF, Py_DECREF, PyObj_FromPtr
import types
import os.path
import os, os.path

	def get(smob):
		pypointer = guile.scm_smob_data(smob)
		return PyObj_FromPtr(pypointer)

PythonSMOB.free = PythonSMOB.free_cfunc(PythonSMOB.free)
PythonSMOB.str  = PythonSMOB.str_cfunc(PythonSMOB.str)


# Initialize guile
guile.scm_init_guile()
guileroot = guile.scm_current_module()

# Load the pretty-print module..
guile.scm_c_eval_string("(use-modules (ice-9 pretty-print))")
prettyprint_symbol = guile.scm_c_lookup("pretty-print")
prettyprint        = guile.scm_variable_ref(prettyprint_symbol)

# Create a "scope" for this class
__file__ = os.path.realpath(__file__)
__path__ = os.path.dirname(__file__)
guile.scm_c_primitive_load(os.path.join(__path__, "profiles", "scope.scm"))
makescope_symbol = guile.scm_c_lookup("make-scope")
makescope        = guile.scm_variable_ref(makescope_symbol)

# Profiles
guile.scm_c_eval_string("(use-modules (ice-9 r5rs))")
profiles = {
        "r5rs" : guile.scm_c_eval_string("(scheme-report-environment 5)"),
        "minimal" : guile.scm_c_eval_string("(null-environment 5)"),
        "tpcl" : (guile.scm_c_eval_string("(scheme-report-environment 5)"),

                              lambda vm: tpcl.setup(vm))