1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
{- arch-tag: Python types
Copyright (C) 2005 John Goerzen <jgoerzen@complete.org>
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-}
{- |
Module : Python.Types
Copyright : Copyright (C) 2005 John Goerzen
License : GNU GPL, version 2 or above
Maintainer : John Goerzen,
Maintainer : jgoerzen\@complete.org
Stability : provisional
Portability: portable
Interfaces to low-level Python types. You should probably not use this module
directly. You probably want "Python.Objects" instead.
You'll only need this module directly if you are importing new functions
from the Python C API.
Written by John Goerzen, jgoerzen\@complete.org
-}
module Python.Types (
PyObject(..),
CPyObject,
PyException(..),
StartFrom(..)
)
where
import Foreign
import Foreign.C
import Foreign.C.Types
import Data.Typeable
type CPyObject = ()
-- | The type of Python objects.
newtype PyObject = PyObject (ForeignPtr CPyObject)
deriving (Eq, Show)
-- | The type of Python exceptions.
data PyException = PyException {excType :: PyObject, -- ^ Exception type
excValue :: PyObject, -- ^ Exception value
excTraceBack :: PyObject, -- ^ Traceback
excFormatted :: String -- ^ Formatted for display
}
instance Show PyException where
show x = excFormatted x
pyExceptionTc :: TyCon
pyExceptionTc = mkTyCon "MissingPy.Python.Types.PyException"
instance Typeable PyException where
typeOf _ = mkTyConApp pyExceptionTc []
{- | How to interpret a snippet of Python code. -}
data StartFrom = Py_eval_input
| Py_file_input
| Py_single_input
|
