Patch from GSR that a) fixes a whole bunch of GPL/BL license
[blender.git] / source / gameengine / Expressions / PyObjectPlus.cpp
1 /**
2  * $Id$
3  * ***** BEGIN GPL LICENSE BLOCK *****
4  *
5  * This program is free software; you can redistribute it and/or
6  * modify it under the terms of the GNU General Public License
7  * as published by the Free Software Foundation; either version 2
8  * of the License, or (at your option) any later version.
9  *
10  * This program is distributed in the hope that it will be useful,
11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13  * GNU General Public License for more details.
14  *
15  * You should have received a copy of the GNU General Public License
16  * along with this program; if not, write to the Free Software Foundation,
17  * Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
18  *
19  * The Original Code is Copyright (C) 2001-2002 by NaN Holding BV.
20  * All rights reserved.
21  *
22  * The Original Code is: all of this file.
23  *
24  * Contributor(s): none yet.
25  *
26  * ***** END GPL LICENSE BLOCK *****
27  */
28
29 #ifdef HAVE_CONFIG_H
30 #include <config.h>
31 #endif
32
33 #ifndef NO_EXP_PYTHON_EMBEDDING
34
35 /*------------------------------
36  * PyObjectPlus cpp
37  *
38  * C++ library routines for Crawl 3.2
39  *
40  * Derived from work by
41  * David Redish
42  * graduate student
43  * Computer Science Department 
44  * Carnegie Mellon University (CMU)
45  * Center for the Neural Basis of Cognition (CNBC) 
46  * http://www.python.org/doc/PyCPP.html
47  *
48 ------------------------------*/
49 #include <MT_assert.h>
50 #include "stdlib.h"
51 #include "PyObjectPlus.h"
52 #include "STR_String.h"
53 /*------------------------------
54  * PyObjectPlus Type            -- Every class, even the abstract one should have a Type
55 ------------------------------*/
56
57 PyTypeObject PyObjectPlus::Type = {
58         PyObject_HEAD_INIT(&PyType_Type)
59         0,                              /*ob_size*/
60         "PyObjectPlus",                 /*tp_name*/
61         sizeof(PyObjectPlus),           /*tp_basicsize*/
62         0,                              /*tp_itemsize*/
63         /* methods */
64         PyDestructor,                   /*tp_dealloc*/
65         0,                              /*tp_print*/
66         __getattr,                      /*tp_getattr*/
67         __setattr,                      /*tp_setattr*/
68         0,                              /*tp_compare*/
69         __repr,                         /*tp_repr*/
70         0,                              /*tp_as_number*/
71         0,                              /*tp_as_sequence*/
72         0,                              /*tp_as_mapping*/
73         0,                              /*tp_hash*/
74         0,                              /*tp_call */
75 };
76
77 PyObjectPlus::~PyObjectPlus()
78 {
79         if (ob_refcnt)
80         {
81                 _Py_ForgetReference(this);
82         }
83 //      assert(ob_refcnt==0);
84 }
85
86 PyObjectPlus::PyObjectPlus(PyTypeObject *T)                             // constructor
87 {
88         MT_assert(T != NULL);
89         this->ob_type = T; 
90         _Py_NewReference(this);
91 };
92   
93 /*------------------------------
94  * PyObjectPlus Methods         -- Every class, even the abstract one should have a Methods
95 ------------------------------*/
96 PyMethodDef PyObjectPlus::Methods[] = {
97   {"isA",                (PyCFunction) sPy_isA,                 Py_NEWARGS},
98   {NULL, NULL}          /* Sentinel */
99 };
100
101 /*------------------------------
102  * PyObjectPlus Parents         -- Every class, even the abstract one should have parents
103 ------------------------------*/
104 PyParentObject PyObjectPlus::Parents[] = {&PyObjectPlus::Type, NULL};
105
106 /*------------------------------
107  * PyObjectPlus attributes      -- attributes
108 ------------------------------*/
109 PyObject *PyObjectPlus::_getattr(const STR_String& attr)
110 {
111         if (attr == "__doc__" && GetType()->tp_doc)
112                 return PyString_FromString(GetType()->tp_doc);
113
114   //if (streq(attr, "type"))
115   //  return Py_BuildValue("s", (*(GetParents()))->tp_name);
116
117   return Py_FindMethod(Methods, this, const_cast<char *>(attr.ReadPtr()));
118 }
119
120 int PyObjectPlus::_delattr(const STR_String& attr)
121 {
122         return 1;
123 }
124
125 int PyObjectPlus::_setattr(const STR_String& attr, PyObject *value)
126 {
127         //return PyObject::_setattr(attr,value);
128         //cerr << "Unknown attribute" << endl;
129   return 1;
130 }
131
132 /*------------------------------
133  * PyObjectPlus repr            -- representations
134 ------------------------------*/
135 PyObject *PyObjectPlus::_repr(void)
136 {
137   Py_Error(PyExc_SystemError, "Representation not overridden by object.");  
138 }
139
140 /*------------------------------
141  * PyObjectPlus isA             -- the isA functions
142 ------------------------------*/
143 bool PyObjectPlus::isA(PyTypeObject *T)         // if called with a Type, use "typename"
144 {
145   return isA(T->tp_name);
146 }
147
148
149 bool PyObjectPlus::isA(const char *mytypename)          // check typename of each parent
150 {
151   int i;
152   PyParentObject  P;
153   PyParentObject *Ps = GetParents();
154   
155   for (P = Ps[i=0]; P != NULL; P = Ps[i++])
156   {
157       if (STR_String(P->tp_name) == STR_String(mytypename)      )
158                   return true;
159   }
160         
161   return false;
162 }
163
164 PyObject *PyObjectPlus::Py_isA(PyObject *args)          // Python wrapper for isA
165 {
166   char *mytypename;
167   Py_Try(PyArg_ParseTuple(args, "s", &mytypename));
168   if(isA(mytypename))
169     {Py_INCREF(Py_True); return Py_True;}
170   else
171     {Py_INCREF(Py_False); return Py_False;};
172 }
173
174 #endif //NO_EXP_PYTHON_EMBEDDING
175