687 lines
13 KiB
HolyC
Executable File
687 lines
13 KiB
HolyC
Executable File
U8 *StrPrintHex(U8 *dst,I64 num;I64 width)
|
||
{
|
||
U8 *res=dst+width;
|
||
dst=res;
|
||
while (width--) {
|
||
*--dst="0123456789ABCDEF"(U8 *)[num&15];
|
||
num>>=4;
|
||
}
|
||
return res;
|
||
}
|
||
|
||
U0 PutHex(I64 num,I64 width)
|
||
{
|
||
U8 buf[17];
|
||
if (width>16) width=16;
|
||
*StrPrintHex(buf,num,width)=0;
|
||
"%s",buf;
|
||
}
|
||
|
||
asm {
|
||
// IN: RAX=NUM TO PRINT
|
||
PUT_HEX_U64::
|
||
PUSH_C_REGS
|
||
PUSH 16
|
||
PUSH RAX
|
||
CALL &PutHex
|
||
POP_C_REGS
|
||
RET
|
||
PUT_HEX_U32::
|
||
PUSH_C_REGS
|
||
PUSH 8
|
||
PUSH RAX
|
||
CALL &PutHex
|
||
POP_C_REGS
|
||
RET
|
||
PUT_HEX_U16::
|
||
PUSH_C_REGS
|
||
PUSH 4
|
||
PUSH RAX
|
||
CALL &PutHex
|
||
POP_C_REGS
|
||
RET
|
||
PUT_HEX_U8::
|
||
PUSH_C_REGS
|
||
PUSH 2
|
||
PUSH RAX
|
||
CALL &PutHex
|
||
POP_C_REGS
|
||
RET
|
||
PUT_CHARS::
|
||
// IN: RAX=Char
|
||
PUSH_C_REGS
|
||
PUSH RAX
|
||
CALL &PutChars
|
||
POP_C_REGS
|
||
RET
|
||
PUT_STR::
|
||
// IN: RSI=String
|
||
PUSH_C_REGS
|
||
PUSH RSI
|
||
CALL &PutS
|
||
POP_C_REGS
|
||
RET
|
||
_STRCPY::
|
||
PUSH RBP
|
||
MOV RBP,RSP
|
||
PUSH RSI
|
||
PUSH RDI
|
||
MOV RDI,U64 SF_ARG1[RBP]
|
||
TEST RDI,RDI
|
||
JZ @@15
|
||
MOV RSI,U64 SF_ARG2[RBP]
|
||
TEST RSI,RSI
|
||
JNZ @@05
|
||
XOR RAX,RAX
|
||
JMP @@10
|
||
@@05: LODSB
|
||
@@10: STOSB
|
||
TEST AL,AL
|
||
JNZ @@05
|
||
@@15: POP RDI
|
||
POP RSI
|
||
POP RBP
|
||
RET1 16
|
||
_STRCMP::
|
||
PUSH RBP
|
||
MOV RBP,RSP
|
||
PUSH RSI
|
||
PUSH RDI
|
||
MOV RSI,U64 SF_ARG2[RBP]
|
||
MOV RDI,U64 SF_ARG1[RBP]
|
||
@@05: LODSB
|
||
TEST AL,AL
|
||
JZ @@20
|
||
SCASB
|
||
JE @@05
|
||
JA @@15
|
||
@@10: MOV RAX,1
|
||
JMP @@25
|
||
@@15: MOV RAX,-1
|
||
JMP @@25
|
||
@@20: SCASB
|
||
JNE @@10
|
||
XOR RAX,RAX
|
||
@@25: POP RDI
|
||
POP RSI
|
||
POP RBP
|
||
RET1 16
|
||
TO_UPPER::
|
||
CMP AL,'a'
|
||
JB @@05
|
||
CMP AL,'z'
|
||
JA @@05
|
||
ADD AL,'A'-'a'
|
||
@@05: RET
|
||
_STRICMP::
|
||
PUSH RBP
|
||
MOV RBP,RSP
|
||
PUSH RSI
|
||
PUSH RDI
|
||
MOV RSI,U64 SF_ARG2[RBP]
|
||
MOV RDI,U64 SF_ARG1[RBP]
|
||
@@05: LODSB
|
||
TEST AL,AL
|
||
JZ @@30
|
||
CMP AL,'a'
|
||
JB @@10
|
||
CMP AL,'z'
|
||
JA @@10
|
||
ADD AL,'A'-'a'
|
||
@@10: MOV BL,U8 [RDI]
|
||
INC RDI
|
||
CMP BL,'a'
|
||
JB @@15
|
||
CMP BL,'z'
|
||
JA @@15
|
||
ADD BL,'A'-'a'
|
||
@@15: CMP AL,BL
|
||
JE @@05
|
||
JA @@25
|
||
@@20: MOV RAX,1
|
||
JMP @@35
|
||
@@25: MOV RAX,-1
|
||
JMP @@35
|
||
@@30: MOV BL,U8 [RDI]
|
||
TEST BL,BL
|
||
JNE @@20
|
||
XOR RAX,RAX
|
||
@@35: POP RDI
|
||
POP RSI
|
||
POP RBP
|
||
RET1 16
|
||
_STRNCMP::
|
||
PUSH RBP
|
||
MOV RBP,RSP
|
||
PUSH RSI
|
||
PUSH RDI
|
||
MOV RCX,U64 SF_ARG3[RBP]
|
||
MOV RSI,U64 SF_ARG2[RBP]
|
||
MOV RDI,U64 SF_ARG1[RBP]
|
||
@@05: TEST RCX,RCX
|
||
JZ @@25
|
||
DEC RCX
|
||
LODSB
|
||
TEST AL,AL
|
||
JZ @@20
|
||
SCASB
|
||
JE @@05
|
||
JA @@15
|
||
@@10: MOV RAX,1
|
||
JMP @@30
|
||
@@15: MOV RAX,-1
|
||
JMP @@30
|
||
@@20: MOV BL,U8 [RDI]
|
||
TEST BL,BL
|
||
JNE @@10
|
||
@@25: XOR RAX,RAX
|
||
@@30: POP RDI
|
||
POP RSI
|
||
POP RBP
|
||
RET1 24
|
||
_STRNICMP::
|
||
PUSH RBP
|
||
MOV RBP,RSP
|
||
PUSH RSI
|
||
PUSH RDI
|
||
MOV RCX,U64 SF_ARG3[RBP]
|
||
MOV RSI,U64 SF_ARG2[RBP]
|
||
MOV RDI,U64 SF_ARG1[RBP]
|
||
@@05: TEST RCX,RCX
|
||
JZ @@35
|
||
DEC RCX
|
||
LODSB
|
||
TEST AL,AL
|
||
JZ @@30
|
||
CMP AL,'a'
|
||
JB @@10
|
||
CMP AL,'z'
|
||
JA @@10
|
||
ADD AL,'A'-'a'
|
||
@@10: MOV BL,U8 [RDI]
|
||
INC RDI
|
||
CMP BL,'a'
|
||
JB @@15
|
||
CMP BL,'z'
|
||
JA @@15
|
||
ADD BL,'A'-'a'
|
||
@@15: CMP AL,BL
|
||
JE @@05
|
||
JA @@25
|
||
@@20: MOV RAX,1
|
||
JMP @@40
|
||
@@25: MOV RAX,-1
|
||
JMP @@40
|
||
@@30: SCASB
|
||
JNE @@20
|
||
@@35: XOR RAX,RAX
|
||
@@40: POP RDI
|
||
POP RSI
|
||
POP RBP
|
||
RET1 24
|
||
_STRMATCH::
|
||
PUSH RBP
|
||
MOV RBP,RSP
|
||
PUSH RSI
|
||
PUSH RDI
|
||
MOV RSI,U64 SF_ARG2[RBP]
|
||
TEST RSI,RSI
|
||
JZ @@25
|
||
MOV RDI,U64 SF_ARG1[RBP]
|
||
TEST RDI,RDI
|
||
JZ @@25
|
||
MOV DL,U8 [RDI]
|
||
TEST DL,DL
|
||
JZ @@20
|
||
JMP @@10
|
||
@@05: INC RSI
|
||
@@10: LODSB
|
||
TEST AL,AL
|
||
JZ @@25
|
||
CMP AL,DL
|
||
JNE @@10
|
||
DEC RSI
|
||
MOV RCX,1
|
||
@@15: MOV AL,U8 [RDI+RCX]
|
||
TEST AL,AL
|
||
JZ @@20
|
||
CMP AL,U8 [RSI+RCX]
|
||
JNE @@05
|
||
INC RCX
|
||
JMP @@15
|
||
|
||
DEC RSI
|
||
@@20: MOV RAX,RSI
|
||
JMP @@30
|
||
@@25: XOR RAX,RAX
|
||
@@30: POP RDI
|
||
POP RSI
|
||
POP RBP
|
||
RET1 16
|
||
_STRIMATCH::
|
||
PUSH RBP
|
||
MOV RBP,RSP
|
||
PUSH RSI
|
||
PUSH RDI
|
||
MOV RSI,U64 SF_ARG2[RBP]
|
||
TEST RSI,RSI
|
||
JZ @@25
|
||
MOV RDI,U64 SF_ARG1[RBP]
|
||
TEST RDI,RDI
|
||
JZ @@25
|
||
MOV AL,U8 [RDI]
|
||
CALL TO_UPPER
|
||
MOV DL,AL
|
||
TEST DL,DL
|
||
JZ @@20
|
||
JMP @@10
|
||
@@05: INC RSI
|
||
@@10: LODSB
|
||
CALL TO_UPPER
|
||
TEST AL,AL
|
||
JZ @@25
|
||
CMP AL,DL
|
||
JNE @@10
|
||
DEC RSI
|
||
MOV RCX,1
|
||
@@15: MOV AL,U8 [RDI+RCX]
|
||
CALL TO_UPPER
|
||
TEST AL,AL
|
||
JZ @@20
|
||
MOV BL,U8 [RSI+RCX]
|
||
XCHG AL,BL
|
||
CALL TO_UPPER
|
||
CMP AL,BL
|
||
JNE @@05
|
||
INC RCX
|
||
JMP @@15
|
||
|
||
DEC RSI
|
||
@@20: MOV RAX,RSI
|
||
JMP @@30
|
||
@@25: XOR RAX,RAX
|
||
@@30: POP RDI
|
||
POP RSI
|
||
POP RBP
|
||
RET1 16
|
||
}
|
||
_extern _STRCMP I64 StrCmp(
|
||
U8 *st1,U8 *st2); //Compare two strings.
|
||
_extern _STRICMP I64 StrICmp(
|
||
U8 *st1,U8 *st2); //Compare two strings, ignoring case.
|
||
_extern _STRNCMP I64 StrNCmp(
|
||
U8 *st1,U8 *st2,I64 n); //Compare N bytes in two strings.
|
||
_extern _STRNICMP I64 StrNICmp(
|
||
U8 *st1,U8 *st2,I64 n); //Compare N bytes in two strings, ignoring case.
|
||
_extern _STRMATCH U8 *StrMatch(
|
||
U8 *needle,U8 *haystack_str); //Scan for string in string.
|
||
_extern _STRIMATCH U8 *StrIMatch(
|
||
U8 *needle,U8 *haystack_str);//Scan for string in string, ignoring case.
|
||
_extern _STRCPY U0 StrCpy(
|
||
U8 *dst,U8 *src); //Copy string.
|
||
|
||
//These bitmaps go to 0-511 so that $LK,"Lex",A="MN:Lex"$() can use them with $LK,"Token Codes",A="MN:TK_EOF"$.
|
||
U32
|
||
char_bmp_alpha[16]=
|
||
{0x0000000,0x00000000,0x87FFFFFF,0x07FFFFFE,
|
||
0xFFFFFFFF,0xFFFFFFFF,0xFFFFFFFF,0xFFFFFFFF,
|
||
0,0,0,0,0,0,0,0},
|
||
|
||
char_bmp_alpha_numeric[16]=
|
||
{0x0000000,0x03FF0000,0x87FFFFFF,0x07FFFFFE,
|
||
0xFFFFFFFF,0xFFFFFFFF,0xFFFFFFFF,0xFFFFFFFF,
|
||
0,0,0,0,0,0,0,0},
|
||
|
||
char_bmp_alpha_numeric_no_at[16]=
|
||
{0x0000000,0x03FF0000,0x87FFFFFE,0x07FFFFFE,
|
||
0xFFFFFFFF,0xFFFFFFFF,0xFFFFFFFF,0xFFFFFFFF,
|
||
0,0,0,0,0,0,0,0},
|
||
|
||
char_bmp_word[16]=
|
||
{0x0000000,0x03FF0080,0x87FFFFFE,0x07FFFFFE,
|
||
0xFFFFFFFF,0xFFFFFFFF,0xFFFFFFFF,0xFFFFFFFF,
|
||
0,0,0,0,0,0,0,0},
|
||
|
||
char_bmp_filename[16]=
|
||
{0x0000000,0x03FF73FB,0xEFFFFFFF,0x6FFFFFFF,
|
||
0xFFFFFFFF,0xFFFFFFFF,0xFFFFFFFF,0xFFFFFFFF,
|
||
0,0,0,0,0,0,0,0},
|
||
|
||
char_bmp_dec_numeric[16]=
|
||
{0x0000000,0x03FF0000,0,0,0,0,0,0,0,0,0,0,0,0,0,0},
|
||
|
||
char_bmp_hex_numeric[16]=
|
||
{0x0000000,0x03FF0000,0x7E,0x7E,0,0,0,0,0,0,0,0,0,0,0,0},
|
||
|
||
char_bmp_white_space[16]=
|
||
{0x80002600,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0},
|
||
|
||
char_bmp_non_eol_white_space[16]=
|
||
{0x80000200,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0},
|
||
|
||
char_bmp_zero_cr_nl_cursor[16]=
|
||
{0x00002421,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0},
|
||
|
||
char_bmp_zero_tab_cr_nl_cursor[16]=
|
||
{0x00002621,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0},
|
||
|
||
char_bmp_zero_tab_cr_nl_cursor_dollar[16]=
|
||
{0x00002621,0x10,0,0,0,0,0,0,0,0,0,0,0,0,0,0},
|
||
|
||
char_bmp_macro[16]=
|
||
{0x80002600,0xFFFFFFDF,0xFFFFFFFF,0x7FFFFFFF,
|
||
0xFFFFFFFF,0xFFFFFFFF,0xFFFFFFFF,0xFFFFFFFF,
|
||
0,0,0,0,0,0,0,0},
|
||
|
||
char_bmp_printable[16]=
|
||
{0x80002600,0xFFFFFFFF,0xFFFFFFFF,0x7FFFFFFF,
|
||
0xFFFFFFFF,0xFFFFFFFF,0xFFFFFFFF,0xFFFFFFFF,
|
||
0,0,0,0,0,0,0,0},
|
||
|
||
char_bmp_displayable[16]=
|
||
{0x80000000,0xFFFFFFFF,0xFFFFFFFF,0x7FFFFFFF,
|
||
0xFFFFFFFF,0xFFFFFFFF,0xFFFFFFFF,0xFFFFFFFF,
|
||
0,0,0,0,0,0,0,0},
|
||
|
||
char_bmp_safe_dollar[16]=
|
||
{0x80000000,0xFFFFFFEF,0xFFFFFFFF,0x7FFFFFFF,
|
||
0xFFFFFFFF,0xFFFFFFFF,0xFFFFFFFF,0xFFFFFFFF,
|
||
0,0,0,0,0,0,0,0},//same but no dollar sign
|
||
|
||
char_bmp_non_eol[16]=
|
||
{0xFFFFDBFE,0xFFFFFFFF,0xFFFFFFFF,0xFFFFFFFF,
|
||
0xFFFFFFFF,0xFFFFFFFF,0xFFFFFFFF,0xFFFFFFFF,
|
||
0xFFFFFFFF,0xFFFFFFFF,0xFFFFFFFF,0xFFFFFFFF,
|
||
0xFFFFFFFF,0xFFFFFFFF,0xFFFFFFFF,0xFFFFFFFF};
|
||
|
||
U8 *LstSub(I64 sub, U8 *lst)
|
||
{//Point to lst entry.
|
||
//Not efficient. Use an array of U8 ptrs for efficiency.
|
||
if (!lst) return NULL;
|
||
while (*lst && sub>0) {
|
||
while (*lst) //Advance to end of cur entry.
|
||
lst++;
|
||
lst++; //Skip trailing zero.
|
||
if (*lst=='@') //Check for '@' alias lst entry.
|
||
lst++;
|
||
else
|
||
sub--;
|
||
}
|
||
if (sub||!*lst)
|
||
return NULL;
|
||
else
|
||
return lst;
|
||
}
|
||
|
||
I64 LstMatch(U8 *needle, U8 *haystack_lst,I64 flags=0)
|
||
{//-2 if Ambiguous
|
||
// -1 if not found
|
||
// Not efficient. Use hash tables for efficiency.
|
||
I64 n,sub=0,res=-1;
|
||
U8 *ptr;
|
||
Bool exact_match=FALSE;
|
||
if (!haystack_lst) return -1;
|
||
n=StrLen(needle);
|
||
while (*haystack_lst) {
|
||
if (*haystack_lst=='@') { //Check for '@' alias haystack_lst entry
|
||
sub--;
|
||
haystack_lst++;
|
||
}
|
||
ptr=needle;
|
||
if (flags & LMF_IGNORE_CASE)
|
||
while (*ptr && ToUpper(*ptr)==ToUpper(*haystack_lst)) {
|
||
ptr++;
|
||
haystack_lst++;
|
||
}
|
||
else
|
||
while (*ptr && *ptr==*haystack_lst) {
|
||
ptr++;
|
||
haystack_lst++;
|
||
}
|
||
if (!*ptr) { //Did we reach end of needle?
|
||
if (!*haystack_lst) //Did we reach end of haystack_lst?
|
||
return sub; //Found Exact match
|
||
else {
|
||
if (res!=-1) {
|
||
if (!exact_match)
|
||
res=-2; //Ambiguous unless later exact match.
|
||
} else {
|
||
if (!(flags & LMF_EXACT))
|
||
res=sub;
|
||
}
|
||
}
|
||
}
|
||
while (*haystack_lst) //Advance to end of cur entry.
|
||
haystack_lst++;
|
||
haystack_lst++; //Skip trailing zero
|
||
sub++;
|
||
}
|
||
return res;
|
||
}
|
||
|
||
I64 StrOcc(U8 *src, I64 ch)
|
||
{//Count occurrences of a char.
|
||
I64 i=0;
|
||
if (!src) return 0;
|
||
while (*src)
|
||
if (*src++==ch)
|
||
i++;
|
||
return i;
|
||
}
|
||
|
||
I64 Spaces2Tabs(U8 *dst,U8 *src)
|
||
{//Src buf with spaces to dst buf without.
|
||
U8 *src2;
|
||
I64 chged=0,space_cnt,space_cnt2,col=0;
|
||
if (*src)
|
||
while (TRUE) {
|
||
src2=src;
|
||
while (*src2==CH_SPACE)
|
||
src2++;
|
||
space_cnt=src2-src;
|
||
while (col+space_cnt>=8) {
|
||
space_cnt2=8-col;
|
||
if (space_cnt2==1)
|
||
*dst++=CH_SPACE;
|
||
else {
|
||
*dst++='\t';
|
||
chged+=space_cnt2-1;
|
||
}
|
||
space_cnt-=space_cnt2;
|
||
col=0;
|
||
}
|
||
if (*src2=='\t') {
|
||
if (space_cnt==1 && col==7)
|
||
*dst++=CH_SPACE;
|
||
else
|
||
chged+=space_cnt;
|
||
*dst++='\t';
|
||
col=0;
|
||
} else {
|
||
while (space_cnt--) {
|
||
*dst++=CH_SPACE;
|
||
if (++col==8)
|
||
col=0;
|
||
}
|
||
if (*src2) {
|
||
*dst++=*src2;
|
||
if (++col==8)
|
||
col=0;
|
||
} else
|
||
break;
|
||
}
|
||
src=++src2;
|
||
}
|
||
*dst=0;
|
||
return chged;
|
||
}
|
||
|
||
U8 *StrUtil(U8 *_src,I64 flags)
|
||
{//Modifies in place. See $LK,"flags",A="MN:SUF_REM_SPACES"$ for all the options.
|
||
U8 *src=_src,*dst=_src;
|
||
I64 ch;
|
||
|
||
if (flags & SUF_REM_LEADING)
|
||
while (Bt(char_bmp_white_space,*src))
|
||
src++;
|
||
while (ch=*src++)
|
||
if (Bt(char_bmp_white_space,ch)) {
|
||
if (!(flags & SUF_REM_SPACES)) {
|
||
if (flags & SUF_SINGLE_SPACE) {
|
||
*dst++ = CH_SPACE;
|
||
while ((ch=*src++) && Bt(char_bmp_white_space,ch));
|
||
src--;
|
||
} else
|
||
*dst++ = ch;
|
||
}
|
||
} else if (!(flags & SUF_REM_CTRL_CHARS) || ch>=CH_SHIFT_SPACE)
|
||
*dst++=ch;
|
||
*dst=0;
|
||
|
||
if (flags & SUF_REM_TRAILING)
|
||
while (dst!=_src && (!*dst || Bt(char_bmp_white_space,*dst)))
|
||
*dst-- =0;
|
||
if (flags & SUF_TO_UPPER)
|
||
for (dst=_src;*dst;dst++) {
|
||
ch=*dst;
|
||
if ('a'<=ch<='z')
|
||
*dst=ch-0x20;
|
||
}
|
||
if (flags & SUF_TO_LOWER)
|
||
for (dst=_src;*dst;dst++) {
|
||
ch=*dst;
|
||
if ('A'<=ch<='Z')
|
||
*dst=ch+0x20;
|
||
}
|
||
if (flags & SUF_SAFE_DOLLAR)
|
||
for (dst=_src;*dst;dst++) {
|
||
ch=*dst;
|
||
if (!Bt(char_bmp_safe_dollar,*dst))
|
||
*dst='.';
|
||
}
|
||
if (flags & SUF_S2T)
|
||
Spaces2Tabs(_src,_src);
|
||
return _src;
|
||
}
|
||
|
||
U8 *StrFirstOcc(U8 *src,U8 *marker)
|
||
{//Point to 1st occurrence of marker set in str.
|
||
I64 ch;
|
||
while ((ch=*src++) && !StrOcc(marker,ch));
|
||
if (ch)
|
||
return src-1;
|
||
else
|
||
return NULL;
|
||
}
|
||
|
||
U8 *StrFirstRem(U8 *src,U8 *marker,U8 *dst=NULL)
|
||
{//Remove first str segment and place in dst buf or NULL.
|
||
I64 ch;
|
||
U8 *ptr=src,*res=dst;
|
||
if (dst) {
|
||
while ((ch=*ptr++) && !StrOcc(marker,ch))
|
||
*dst++=ch;
|
||
*dst=0;
|
||
} else
|
||
while ((ch=*ptr++) && !StrOcc(marker,ch));
|
||
if (ch)
|
||
StrCpy(src,ptr);
|
||
else
|
||
*src=0;
|
||
return res;
|
||
}
|
||
|
||
U8 *StrLastOcc(U8 *src,U8 *marker)
|
||
{//Point to last occurrence of market set in str.
|
||
I64 ch;
|
||
U8 *res=NULL;
|
||
while (ch=*src++)
|
||
if (StrOcc(marker,ch))
|
||
res=src-1;
|
||
return res;
|
||
}
|
||
|
||
U8 *StrLastRem(U8 *src,U8 *marker,U8 *dst=NULL)
|
||
{//Remove last str segment and place in dst buf or NULL.
|
||
U8 *ptr;
|
||
if (ptr=StrLastOcc(src,marker)) {
|
||
if (dst)
|
||
StrCpy(dst,ptr+1);
|
||
*ptr=0;
|
||
} else {
|
||
if (dst)
|
||
StrCpy(dst,src);
|
||
*src=0;
|
||
}
|
||
return dst;
|
||
}
|
||
|
||
U8 *StrFind(U8 *needle,U8 *haystack_str,I64 flags=0)
|
||
{//Find needle_str in haystack_str with options.
|
||
Bool cont;
|
||
U8 *saved_haystack_str=haystack_str;
|
||
I64 plen=StrLen(needle);
|
||
do {
|
||
cont=FALSE;
|
||
if (flags & SFF_IGNORE_CASE)
|
||
haystack_str=StrIMatch(needle,haystack_str);
|
||
else
|
||
haystack_str=StrMatch(needle,haystack_str);
|
||
if (haystack_str && flags & SFF_WHOLE_LABELS_BEFORE &&
|
||
haystack_str!=saved_haystack_str &&
|
||
Bt(char_bmp_alpha_numeric,*(haystack_str-1))) {
|
||
haystack_str++;
|
||
if (*haystack_str)
|
||
cont=TRUE;
|
||
else
|
||
haystack_str=NULL;
|
||
}
|
||
if (haystack_str && flags & SFF_WHOLE_LABELS_AFTER &&
|
||
Bt(char_bmp_alpha_numeric,*(haystack_str+plen))) {
|
||
haystack_str++;
|
||
if (*haystack_str)
|
||
cont=TRUE;
|
||
else
|
||
haystack_str=NULL;
|
||
}
|
||
} while (cont);
|
||
return haystack_str;
|
||
}
|
||
|
||
Bool WildMatch(U8 *test_str,U8 *wild_str)
|
||
{//Wildcard match with '*' and '?'.
|
||
I64 ch1,ch2;
|
||
U8 *fall_back_src=NULL,*fall_back_wild=NULL;
|
||
while (TRUE) {
|
||
if (!(ch1=*test_str++)) {
|
||
if (*wild_str && *wild_str!='*')
|
||
return FALSE;
|
||
else
|
||
return TRUE;
|
||
} else {
|
||
if (!(ch2=*wild_str++))
|
||
return FALSE;
|
||
else {
|
||
if (ch2=='*') {
|
||
fall_back_wild=wild_str-1;
|
||
fall_back_src=test_str;
|
||
if (!(ch2=*wild_str++))
|
||
return TRUE;
|
||
while (ch2!=ch1)
|
||
if (!(ch1=*test_str++))
|
||
return FALSE;
|
||
} else
|
||
if (ch2!='?' && ch1!=ch2) {
|
||
if (fall_back_wild) {
|
||
wild_str=fall_back_wild;
|
||
test_str=fall_back_src;
|
||
fall_back_wild=NULL;
|
||
fall_back_src=NULL;
|
||
} else
|
||
return FALSE;
|
||
}
|
||
}
|
||
}
|
||
}
|
||
}
|