From: Martin v. Löwis <martin@v.loewis.de>
Date: Sat, 3 May 2003 09:45:12 +0000 (+0000)
Subject: Implement tcl object __cmp__.
X-Git-Tag: v2.3c1~876
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=dd6cd65b980c06e66b3d643f7b09ad5901851e05;p=thirdparty%2FPython%2Fcpython.git

Implement tcl object __cmp__.
---

diff --git a/Modules/_tkinter.c b/Modules/_tkinter.c
index e1238d691326..a61bf7f3abcf 100644
--- a/Modules/_tkinter.c
+++ b/Modules/_tkinter.c
@@ -810,6 +810,17 @@ PyTclObject_repr(PyTclObject *self)
 	return PyString_FromString(buf);
 }
 
+static int
+PyTclObject_cmp(PyTclObject *self, PyTclObject *other)
+{
+	int res;
+	res = strcmp(Tcl_GetString(self->value),
+		     Tcl_GetString(other->value));
+	if (res < 0) return -1;
+	if (res > 0) return 1;
+	return 0;
+}
+
 PyDoc_STRVAR(get_typename__doc__, "name of the Tcl type");
 
 static PyObject*
@@ -843,7 +854,7 @@ statichere PyTypeObject PyTclObject_Type = {
 	0,			/*tp_print*/
 	0,			/*tp_getattr*/
 	0,			/*tp_setattr*/
-	0,			/*tp_compare*/
+	(cmpfunc)PyTclObject_cmp,	/*tp_compare*/
 	(reprfunc)PyTclObject_repr,	/*tp_repr*/
 	0,			/*tp_as_number*/
 	0,			/*tp_as_sequence*/