version 1.32, 2006/07/25 08:27:09 |
version 1.33, 2006/11/17 03:24:31 |
|
|
|
|
while (cbo < llength(clp)) { |
while (cbo < llength(clp)) { |
c = lgetc(clp, cbo++); |
c = lgetc(clp, cbo++); |
if ((!firstc && !isalnum(c)) || pptr == NPAT) |
if ((!firstc && !isalnum(c))) |
break; |
break; |
|
|
|
if (pptr == NPAT - 1) { |
|
ttbeep(); |
|
break; |
|
} |
firstc = 0; |
firstc = 0; |
if (!xcase && ISUPPER(c)) |
if (!xcase && ISUPPER(c)) |
c = TOLOWER(c); |
c = TOLOWER(c); |
|
|
pptr = 0; |
pptr = 0; |
if (pptr == 0) |
if (pptr == 0) |
success = TRUE; |
success = TRUE; |
pat[pptr++] = c; |
if (pptr == NPAT - 1) |
if (pptr == NPAT) { |
ttbeep(); |
ewprintf("Pattern too long"); |
else { |
return (FALSE); |
pat[pptr++] = c; |
|
pat[pptr] = '\0'; |
} |
} |
pat[pptr] = '\0'; |
|
is_lpush(); |
is_lpush(); |
if (success != FALSE) { |
if (success != FALSE) { |
if (is_find(dir) != FALSE) |
if (is_find(dir) != FALSE) |