133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
|
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
|
+
+
-
+
|
if (objc != 3) {
Tcl_WrongNumArgs(interp, 1, objv, "string1 string2");
return TCL_ERROR;
}
str1 = Tcl_GetStringFromObj(objv[1], &len1);
str2 = Tcl_GetStringFromObj(objv[2], &len2);
len1 = Tcl_NumUtfChars(str1, len1);
len2 = Tcl_NumUtfChars(str2, len2);
if (len1 == len2) {
result = (Tcl_UtfNcmp(str1, str2, (size_t) len1) == 0);
result = (Tcl_UtfNcmp(str1, str2, (size_t)len1) == 0);
} else {
result = 0;
}
Tcl_SetObjResult(interp, Tcl_NewIntObj(result));
return TCL_OK;
}
|