[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Pspp-cvs] Changes to pspp/src/command.c
From: |
Ben Pfaff |
Subject: |
[Pspp-cvs] Changes to pspp/src/command.c |
Date: |
Mon, 02 May 2005 02:21:26 -0400 |
Index: pspp/src/command.c
diff -u pspp/src/command.c:1.21 pspp/src/command.c:1.22
--- pspp/src/command.c:1.21 Fri Apr 29 01:02:13 2005
+++ pspp/src/command.c Mon May 2 06:21:20 2005
@@ -183,7 +183,7 @@
return CMD_SUCCESS;
/* Parse comments. */
- if ((token == T_ID && !strcmp (tokid, "COMMENT"))
+ if ((token == T_ID && !strcasecmp (tokid, "COMMENT"))
|| token == T_EXP || token == '*' || token == '[')
{
lex_skip_comment ();
@@ -281,7 +281,7 @@
while (a_len > 0 && b_len > 0)
{
/* Mismatch always returns zero. */
- if (*a++ != *b++)
+ if (toupper ((unsigned char) *a++) != toupper ((unsigned char) *b++))
return 0;
/* Advance. */
@@ -341,14 +341,14 @@
assert (aw != NULL && bw != NULL);
/* Words that are the same don't conflict. */
- if (aw_len == bw_len && !memcmp (aw, bw, aw_len))
+ if (aw_len == bw_len && !mm_case_compare (aw, bw, aw_len))
return 0;
/* Words that are otherwise the same in the first three letters
do conflict. */
return ((aw_len > 3 && bw_len > 3)
|| (aw_len == 3 && bw_len > 3)
- || (bw_len == 3 && aw_len > 3)) && !memcmp (aw, bw, 3);
+ || (bw_len == 3 && aw_len > 3)) && !mm_case_compare (aw, bw, 3);
}
/* Returns nonzero if CMD can be confused with another command
@@ -390,7 +390,7 @@
word != NULL && word_idx < word_cnt;
word = find_word (word + word_len, &word_len), word_idx++)
if (word_len != strlen (words[word_idx])
- || memcmp (word, words[word_idx], word_len))
+ || mm_case_compare (word, words[word_idx], word_len))
{
size_t match_chars = match_strings (word, word_len,
words[word_idx],
- [Pspp-cvs] Changes to pspp/src/command.c,
Ben Pfaff <=