Changeset 58 for NEWT0/trunk/src/newt_core/NewtStr.c

Timestamp:

06/10/06 23:42:24 (3 years ago)

Author:

gnue

Message:

add BeginsWith, EndsWith global function

Files:

• NEWT0/trunk/src/newt_core/NewtStr.c (modified) (3 diffs)

NEWT0/trunk/src/newt_core/NewtStr.c

@@ -19 +19 @@
 /* �֐��v���g�^�C�v */
 static newtRef  NewtParamStr(char * baseStr, size_t baseStrLen, newtRefArg paramStrArray, bool ifthen);
-
+static bool     NewtBeginsWith(const char * str, const char * sub);
+static bool     NewtEndsWith(const char * str, const char * sub);
 
 
@@ -142 +143 @@
 
     return dstStr;
+}
+
+
+/*------------------------------------------------------------------------*/
+/** ������O��������������������邩�`�F�b�N����*
+ * @param str       [in] ������ @param sub      [in] ����������
+ * @retval          true    �O���������������������* @retval            false   �O��������������������Ȃ�
+ */
+
+bool NewtBeginsWith(const char * str, const char * sub)
+{
+    int32_t len;
+    int32_t sublen;
+
+    len = strlen(str);
+    sublen = strlen(sub);
+
+    if (len < sublen)
+        return false;
+    else
+        return (strncasecmp(str, sub, sublen) == 0);
+}
+
+
+/*------------------------------------------------------------------------*/
+/** ������Ō�����������������邩�`�F�b�N����*
+ * @param str       [in] ������ @param sub      [in] ����������
+ * @retval          true    �Ō������������������* @retval           false   �Ō�����������������Ȃ�
+ */
+
+bool NewtEndsWith(const char * str, const char * sub)
+{
+    int32_t st;
+
+    st = strlen(str) - strlen(sub);
+
+    if (st < 0)
+        return false;
+    else
+        return (strcasecmp(str + st, sub) == 0);
 }
 
@@ -449 +490 @@
     return theResult;
 }
+
+
+/*------------------------------------------------------------------------*/
+/** ������O��������������������邩�`�F�b�N����*
+ * @param rcvr      [in] ���V�[�o
+ * @param str       [in] ������ @param sub      [in] ����������
+ * @retval          TRUE    �O���������������������* @retval            NIL     �O��������������������Ȃ�
+ */
+
+newtRef NsBeginsWith(newtRefArg rcvr, newtRefArg str, newtRefArg sub)
+{
+    bool    result;
+
+    if (! NewtRefIsString(str))
+        return NewtThrow(kNErrNotAString, str);
+
+    if (! NewtRefIsString(sub))
+        return NewtThrow(kNErrNotAString, sub);
+
+    result = NewtBeginsWith(NewtRefToString(str), NewtRefToString(sub));
+
+    return NewtMakeBoolean(result);
+}
+
+
+/*------------------------------------------------------------------------*/
+/** ������Ō�����������������邩�`�F�b�N����*
+ * @param rcvr      [in] ���V�[�o
+ * @param str       [in] ������ @param sub      [in] ����������
+ * @retval          TRUE    �Ō������������������* @retval           NIL     �Ō�����������������Ȃ�
+ */
+
+newtRef NsEndsWith(newtRefArg rcvr, newtRefArg str, newtRefArg sub)
+{
+    bool    result;
+
+    if (! NewtRefIsString(str))
+        return NewtThrow(kNErrNotAString, str);
+
+    if (! NewtRefIsString(sub))
+        return NewtThrow(kNErrNotAString, sub);
+
+    result = NewtEndsWith(NewtRefToString(str), NewtRefToString(sub));
+
+    return NewtMakeBoolean(result);
+}