From b1b146b324f41398cffac3a1dbb926ea2cb76105 Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Thu, 23 Nov 2006 16:34:35 +0000
Subject: Added some interpreted operator implementations

---
 generic/tclCompCmds.c | 68 +++++++++++++++++++++++++++++++++++++++++++++------
 1 file changed, 61 insertions(+), 7 deletions(-)

diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c
index 3c89ec5..1ecfbf6 100644
--- a/generic/tclCompCmds.c
+++ b/generic/tclCompCmds.c
@@ -12,7 +12,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclCompCmds.c,v 1.86 2006/11/23 15:24:29 dkf Exp $
+ * RCS: @(#) $Id: tclCompCmds.c,v 1.87 2006/11/23 16:34:35 dkf Exp $
  */
 
 #include "tclInt.h"
@@ -4961,8 +4961,22 @@ TclStrneqOpCmd(
     int objc,
     Tcl_Obj *const objv[])
 {
-    Tcl_AppendResult(interp, "not yet implemented", NULL);
-    return TCL_ERROR;
+    const char *s1, *s2;
+    int s1len, s2len;
+
+    if (objc != 3) {
+	Tcl_WrongNumArgs(interp, 1, objv, "value value");
+	return TCL_ERROR;
+    }
+
+    s1 = Tcl_GetStringFromObj(objv[1], &s1len);
+    s2 = Tcl_GetStringFromObj(objv[2], &s2len);
+    if (s1len == s2len && !strcmp(s1, s2)) {
+	Tcl_SetBooleanObj(Tcl_GetObjResult(interp), 0);
+    } else {
+	Tcl_SetBooleanObj(Tcl_GetObjResult(interp), 1);
+    }
+    return TCL_OK;
 }
 
 int
@@ -4991,8 +5005,28 @@ TclInOpCmd(
     int objc,
     Tcl_Obj *const objv[])
 {
-    Tcl_AppendResult(interp, "not yet implemented", NULL);
-    return TCL_ERROR;
+    const char *s1, *s2;
+    int s1len, s2len, i, len;
+    Tcl_Obj **listObj;
+
+    if (objc != 3) {
+	Tcl_WrongNumArgs(interp, 1, objv, "value list");
+	return TCL_ERROR;
+    }
+
+    if (Tcl_ListObjGetElements(interp, objv[2], &len, &listObj) != TCL_OK) {
+	return TCL_ERROR;
+    }
+    s1 = Tcl_GetStringFromObj(objv[1], &s1len);
+    for (i=0 ; i<len ; i++) {
+	s2 = Tcl_GetStringFromObj(listObj[i], &s2len);
+	if (s1len == s2len && !strcmp(s1, s2)) {
+	    Tcl_SetBooleanObj(Tcl_GetObjResult(interp), 1);
+	    return TCL_OK;
+	}
+    }
+    Tcl_SetBooleanObj(Tcl_GetObjResult(interp), 0);
+    return TCL_OK;
 }
 
 int
@@ -5021,8 +5055,28 @@ TclNiOpCmd(
     int objc,
     Tcl_Obj *const objv[])
 {
-    Tcl_AppendResult(interp, "not yet implemented", NULL);
-    return TCL_ERROR;
+    const char *s1, *s2;
+    int s1len, s2len, i, len;
+    Tcl_Obj **listObj;
+
+    if (objc != 3) {
+	Tcl_WrongNumArgs(interp, 1, objv, "value list");
+	return TCL_ERROR;
+    }
+
+    if (Tcl_ListObjGetElements(interp, objv[2], &len, &listObj) != TCL_OK) {
+	return TCL_ERROR;
+    }
+    s1 = Tcl_GetStringFromObj(objv[1], &s1len);
+    for (i=0 ; i<len ; i++) {
+	s2 = Tcl_GetStringFromObj(listObj[i], &s2len);
+	if (s1len == s2len && !strcmp(s1, s2)) {
+	    Tcl_SetBooleanObj(Tcl_GetObjResult(interp), 0);
+	    return TCL_OK;
+	}
+    }
+    Tcl_SetBooleanObj(Tcl_GetObjResult(interp), 1);
+    return TCL_OK;
 }
 
 int
-- 
cgit v0.12