match.c File Reference

#include <schily/standard.h>
#include <schily/patmatch.h>
#include <schily/wchar.h>
#include <schily/wctype.h>

Include dependency graph for match.c:

Go to the source code of this file.

Classes
struct	args

Macros
#define	POSIX_CLASS   /* Support [[:alpha:]] by default */
#define	DID_UCHAR_TYPE
#define	CHAR   Uchar
#define	PCHAR   Uchar
#define	ENDSTATE   (-1)
#define	CL_SIZE   32 /* Max size for '[: :]' */
#define	put(ret, state, sp, n)
#define	CHK_POSIX_CLASS
#define	in_class(found, pat, c)
#define	rch(ap)
#define	pch(ap)

Typedefs
typedef unsigned char	Uchar
typedef struct args	arg_t

Functions
EXPORT CHAR *	opatmatch (PCHAR *pat, const int *aux, const CHAR *str, int soff, int slen, int alt) const
EXPORT CHAR *	patmatch (PCHAR *pat, const int *aux, const CHAR *str, int soff, int slen, int alt, state) const
LOCAL void nextitem	__PR ((arg_t *))
LOCAL int expr	__PR ((arg_t *, int *))
LOCAL void setexits	__PR ((int *, int, int))
LOCAL void	nextitem (arg_t *ap)
LOCAL int	prim (arg_t *ap)
LOCAL int	expr (arg_t *ap, int *altp)
LOCAL void	setexits (int *aux, int list, int val)
LOCAL int	join (int *aux, int a, int b)
EXPORT int	patcompile (PCHAR *pat, int len, int *aux) const

Macro Definition Documentation

CHAR

static CHAR   Uchar

Definition at line 83 of file match.c.

CHK_POSIX_CLASS

#define CHK_POSIX_CLASS

Definition at line 132 of file match.c.

CL_SIZE

#define CL_SIZE   32 /* Max size for '[: :]' */

Definition at line 95 of file match.c.

DID_UCHAR_TYPE

#define DID_UCHAR_TYPE

Definition at line 82 of file match.c.

ENDSTATE

#define ENDSTATE   (-1)

Definition at line 93 of file match.c.

in_class

#define in_class	(		found,
			pat,
			c
	)

Definition at line 168 of file match.c.

pch

#define pch

(

ap

)

Value:

    ((((ap)->patp + 1) >= (ap)->length) ?       \
        0                   \
    :                       \
        (ap)->pattern[(ap)->patp+1])        \

Definition at line 418 of file match.c.

PCHAR

typedef PCHAR   Uchar

Definition at line 90 of file match.c.

Referenced by __RtlImageNtHeader(), _Requires_lock_held_(), _Success_(), AddGenericHeaderIPv4(), AhciAllocateResourceForAdapter(), AtapiInterrupt__(), AtapiSendCommand(), BaseCheckVDM(), BuildArgvForOsLoader(), CcCopyRead(), CcPinRead(), CcpMapData(), CdUpdateDirentName(), ClassDeviceHwFirmwareDownloadProcess(), ClassFindModePage(), ClasspIsMediaChangeDisabledDueToHardwareLimitation(), CmpCopyName(), CmpGetNameControlBlock(), co_IntCallHookProc(), CompareCharTable(), CON_API(), ConDrvReadInput(), ConDrvWriteOutput(), ConInString(), CopyBufferChainToBuffer(), CopyBufferToBufferChain(), CreateProcessInternalW(), CsrLoadServerDll(), DbgCommandString(), DbgPrompt(), DLDpFindCurrentThread(), Dns_PtrArrayToOffsetArray(), DosCopyEnvironmentBlock(), DosInt21h(), DosReadFile(), DumpTraceData(), EtfspCheckEtfs(), EtfspFileMatch(), EvalConvertParameterObjects(), EvalCreateParametersList(), ExpLoadInitialProcess(), Ext2IterateAllEa(), Ext2QueryEa(), Ext2SetEa(), ExtTextOutA(), FatPinEaRange(), FatSearchBufferForLabel(), FatSetFsLabelInfo(), FatSetRenameInfo(), FATXAddEntry(), FATXGetNextDirEntry(), FilterConnectCommunicationPort(), FindImportDescriptor(), FindMatchingCreateItem(), FixList(), FltGetVolumeProperties(), FltRegisterFilter(), FormatOutput(), FxPoolAllocator(), GetAnsiEnvironmentSize(), GetCurrentHwProfileA(), GetDIBPixel(), GetDmiString(), gethostbyname(), getsockopt(), GetSubkeyNames(), HalpAcpiGetTableFromBios(), HandleLoadUnloadIoctl(), Hostent_Init(), InfoTdiQueryGetInterfaceMIB(), IntMsgCreateStructW(), IntVideoPortGetMonitorDescription(), IntWideCharToMultiByteCP(), IoBuildPartialMdl(), IofCompleteRequest(), IopLogWorker(), IsBadReadPtr(), IsBadStringPtrA(), IsBadWritePtr(), IsValidPnpIdString(), KdbPrintStringWorker(), KdpCheckLowMemory(), KdpFillMemory(), KdpGetBusData(), KdpGetContext(), KdpGetContextEx(), KdpGetVersion(), KdpNotSupported(), KdpPrintString(), KdpPromptString(), KdpQueryMemory(), KdpReadControlSpace(), KdpReadIoSpace(), KdpReadIoSpaceExtended(), KdpReadMachineSpecificRegister(), KdpReadPhysicalMemory(), KdpReadVirtualMemory(), KdpReportCommandStringStateChange(), KdpReportExceptionStateChange(), KdpReportLoadSymbolsStateChange(), KdpRestoreBreakpoint(), KdpRestoreBreakPointEx(), KdpSearchMemory(), KdpSendWaitContinue(), KdpSetBusData(), KdpSetContext(), KdpSetContextEx(), KdpWriteBreakpoint(), KdpWriteBreakPointEx(), KdpWriteControlSpace(), KdpWriteCustomBreakpoint(), KdpWriteIoSpace(), KdpWriteIoSpaceExtended(), KdpWriteMachineSpecificRegister(), KdpWritePhysicalMemory(), KdpWriteVirtualMemory(), KdReceivePacket(), KeBugCheckWithTf(), KeGetBugMessageText(), KiInitMachineDependent(), LanEnumAdapters(), LauncherRoutine2(), LdrpCheckForKnownDll(), LdrpFetchAddressOfSecurityCookie(), main(), marshall_unicode_as_utf8(), MiBuildNonPagedPool(), MiQueryMemoryBasicInformation(), MiResolveImageReferences(), MiSnapThunk(), MmCreatePeb(), MsgiKMToUMMessage(), MyReallocPool__(), nfs41_ExtractNetRootName(), NmiClearFlag(), NSP_GetServiceByNameHeapAllocW(), NtfsReadFile(), NtGdiFlushUserBatch(), NtlmFixupAStr(), NtUserQueryWindow(), PackParam(), ParaNdis_PacketCopier(), ParseFonFile(), ParseSMBiosTables(), PciIdPrintfAppend(), PeLdrpBindImportName(), PrintDiskData(), ProbeMemory(), ProtocolTransferDataComplete(), Query_Main(), RamdiskGetPartitionInfo(), ReadVolumeLabel(), ReportDetectedPnpDevice(), RosSymCreateFromFile(), RosSymCreateFromMem(), RosSymCreateFromRaw(), RosSymGetAddressInformation(), RtlCompareMemoryUlong(), RtlCreateHeap(), RtlInitAnsiString(), RtlInitAnsiStringEx(), RtlIsDosDeviceName_Ustr(), RtlpCallQueryRegistryRoutine(), RtlReAllocateHeap(), RtlSplayTreeTest(), RtlUnicodeToCustomCPN(), RtlUpcaseUnicodeToCustomCPN(), SaBlob_CreateHostent(), SatisfyPreAccept(), ScrIoControl(), ScsiPortGetPhysicalAddress(), send(), CHttpClient::SendFile(), SendFragments(), sendto(), SkipToOffset(), SpiAdapterControl(), SpiParseDeviceInfo(), SURFACE_AllocSurface(), TextOutA(), UDFCommonDeviceControl(), UDFCompleteMount(), UDFPrepareForWriteOperation(), UniataEnumBusMasterController__(), UnpackHostEnt(), UnpackServEnt(), USBSTOR_HandleQueryProperty(), VfatReadDiskPartial(), vfatRenameEntry(), VfatWriteDiskPartial(), VfdDeviceControl(), VfdOpenImage(), VidBiosVideoService(), WCacheAllocAsyncEntry(), WCacheDirect__(), WCacheFlushBlocksRAM(), WCachePreReadPacket__(), WCacheReadBlocks__(), WCacheUpdatePacket(), WCacheWriteBlocks__(), WriteConsoleOutputCharacterA(), WriteConsoleOutputCharacterW(), WSAAsyncGetServByName(), and WSAAsyncGetServByPort().

POSIX_CLASS

#define POSIX_CLASS   /* Support [[:alpha:]] by default */

Definition at line 4 of file match.c.

put

#define put	(		ret,
			state,
			sp,
			n
	)

Value:

    {       \
    register int *lstate    = state;    \
    register int *lsp   = sp;       \
    register int ln     = n;        \
                        \
    while (lstate < lsp) {          \
        if (*lstate++ == ln) {      \
            ret = lsp;      \
            lsp = 0;        \
            break;          \
        }               \
    }                   \
    if (lsp) {              \
        *lstate++ = ln;         \
        ret = lstate;           \
    }                   \
}

Definition at line 105 of file match.c.

rch

#define rch

(

ap

)

Value:

{                           \
    if (++(ap)->patp >= (ap)->length)       \
        (ap)->Ch = 0;               \
    else                        \
        (ap)->Ch = (ap)->pattern[(ap)->patp];   \
}

Definition at line 407 of file match.c.

Typedef Documentation

arg_t

typedef struct args arg_t

Uchar

typedef unsigned char Uchar

Definition at line 81 of file match.c.

Function Documentation

__PR() [1/3]

LOCAL void nextitem __PR

(

(arg_t *)

)

__PR() [2/3]

LOCAL int expr __PR

(

(arg_t *, int *)

)

__PR() [3/3]

LOCAL void setexits __PR

(

(int *, int, int)

)

expr()

LOCAL int expr	(	arg_t *	ap,
		int *	altp
	)

Definition at line 512 of file match.c.

{
    int exits = ENDSTATE;
    int a;
    int *aux = ap->aux;
    PCHAR   Ch;
 
    for (;;) {
        a = prim(ap);
        if (a == ENDSTATE)
            return (ENDSTATE);
        Ch = ap->Ch;
        if (Ch == ALT || Ch == RBRACK || Ch == '\0') {
            exits = join(aux, exits, a);
            if (Ch != ALT)
                return (exits);
            *altp = ap->patp;
            altp = &aux[ap->patp];
            nextitem(ap);
        } else
            setexits(aux, a, ap->patp);
    }
}

join()

LOCAL int join	(	int *	aux,
		int	a,
		int	b
	)

Definition at line 560 of file match.c.

{
    int t;
 
    if (a == ENDSTATE)
        return (b);
    t = a;
    while (aux[t] != ENDSTATE)
        t = aux[t];
    aux[t] = b;
    return (a);
}

Referenced by AddPenLinesBounds(), expr(), gdip_to_gdi_join(), GdipSetCustomLineCapStrokeJoin(), GdipSetPenLineJoin(), test_boundsrect(), test_create_adjustable_cap(), and test_linejoin().

nextitem()

LOCAL void nextitem

(

arg_t *

ap

)

Definition at line 428 of file match.c.

{
    if (ap->Ch == QUOTE)
        rch(ap);
    rch(ap);
}

Referenced by enumvar_get_next_item(), expr(), and prim().

opatmatch()

EXPORT CHAR * opatmatch	(	PCHAR *	pat,
		const int *	aux,
		const CHAR *	str,
		int	soff,
		int	slen,
		int	alt
	)		const

Definition at line 209 of file match.c.

{
    int     state[MAXPAT];
 
    return (patmatch(pat, aux, str, soff, slen, alt, state));
}

patcompile()

EXPORT int patcompile	(	PCHAR *	pat,
		int	len,
		int *	aux
	)		const

Definition at line 584 of file match.c.

{
    arg_t   a;
    int alt = ENDSTATE;
    int i;
 
    a.pattern = pat;
    a.length  = len;
    a.aux     = aux;
    a.patp    = -1;
 
    for (i = 0; i < len; i++)
        aux[i] = ENDSTATE;
    rch(&a);
    i = expr(&a, &alt);
    if (i == ENDSTATE)
        return (0);
    setexits(aux, i, ENDSTATE);
    return (alt);
}

Referenced by parse_errctl().

patmatch()

EXPORT CHAR * patmatch	(	PCHAR *	pat,
		const int *	aux,
		const CHAR *	str,
		int	soff,
		int	slen,
		int	alt,
		state
	)		const

Definition at line 230 of file match.c.

{
    register int    *sp;
    register int    *n;
    register int    *i;
    register int    p;
    register int    q, s, k;
#ifdef  __MB_CHAR
    wchar_t     c;
    int     mlen = 1;
#else
    int     c;
#endif
    const CHAR  *lastp = (CHAR *)NULL;
 
#ifdef  __LINE_MATCH
for (; soff <= slen; soff++) {
#endif
 
    sp = state;
    put(sp, state, state, 0);
    if (alt != ENDSTATE)
        put(sp, state, sp, alt);
 
#ifdef  __MB_CHAR
    mbtowc(NULL, NULL, 0);
    for (s = soff; ; s += mlen) {
#else
    for (s = soff; ; s++) {
#endif
        /*
         * next char from input string
         */
        if (s >= slen) {
            c = 0;
        } else {
#ifdef  __MB_CHAR
            mlen = mbtowc(&c, (char *)str, slen - s);
            if (mlen < 0) {
                mbtowc(NULL, NULL, 0);
                c = str[s];
                mlen = 1;
            }
#else
            c = str[s];
#endif
        }
        /*
         * first complete the closure
         */
        for (n = state; n < sp; ) {
            p = *n++;       /* next state number */
            if (p == ENDSTATE)
                continue;
            q = aux[p];     /* get next state for pat */
            k = pat[p];     /* get next char from pat */
            switch (k) {
 
            case REP:
                put(sp, state, sp, p+1);
                /* FALLTHRU */
            case NIL:       /* NIL matches always */
            case STAR:
                put(sp, state, sp, q);
                break;
            case LBRACK:        /* alternations */
            case ALT:
                put(sp, state, sp, p+1);
                if (q != ENDSTATE)
                    put(sp, state, sp, q);
                break;
            case START:
                if (s == 0)
                    put(sp, state, sp, q);
                break;
            case END:
                if (c == '\0')
                    put(sp, state, sp, q);
                break;
            }
        }
 
        for (i = state; i < sp; ) {
            if (*i++ == ENDSTATE) {
                lastp = &str[s];
                break;
            }
        }
        if (c == 0)
            return ((CHAR *)lastp);
 
        /*
         * now try to match next character
         */
        n = sp;
        sp = state;
        for (i = sp; i < n; ) {
            p = *i++;       /* next active state number */
            if (p == ENDSTATE)
                continue;
            k = pat[p];
            switch (k) {
 
            case ALT:
            case REP:
            case NIL:
            case LBRACK:
            case START:
            case END:
                continue;
            case LCLASS:
                in_class(q, &pat[p+1], c);
                if (!q)
                    continue;
                break;
            case STAR:
                put(sp, state, sp, p);
                continue;
            case QUOTE:
                k = pat[p+1];
            default:
                if (k != c)
                    continue;
                /* FALLTHRU */
            case ANY:
                break;
            }
            put(sp, state, sp, aux[p]);
        }
        if (sp == state) {      /* if no new states return */
#ifdef  __LINE_MATCH
 
            if (lastp || (soff == slen - 1))
                return ((CHAR *)lastp);
            else
                break;
#else
            return ((CHAR *)lastp);
#endif
        }
    }
#ifdef  __LINE_MATCH
}
return ((CHAR *)lastp);
#endif
}

Referenced by _errptr(), and opatmatch().

prim()

LOCAL int prim

(

arg_t *

ap

)

Definition at line 440 of file match.c.

{
    int a  = ap->patp;
    int op = ap->Ch;
    int t;
 
    nextitem(ap);
    switch (op) {
 
    case '\0':
    case ALT:
    case RBRACK:
        return (ENDSTATE);
    case LCLASS:
        while (ap->Ch != RCLASS && ap->Ch != '\0') {
#ifdef  POSIX_CLASS
            if (ap->Ch == LCLASS) {
                if (pch(ap) == ':') {   /* [:alpha:] */
                    char    class[CL_SIZE+1];
                    char    *pc = class;
 
                    nextitem(ap);
                    nextitem(ap);
                    while (ap->Ch != ':' &&
                        ap->Ch != '\0') {
                        if (pc > &class[CL_SIZE])
                            return (ENDSTATE);
                        *pc = ap->Ch;
                        if (*pc++ != ap->Ch)
                            return (ENDSTATE);
                        nextitem(ap);
                    }
                    if (pc == class)
                        return (ENDSTATE);
                    *pc = '\0';
                    if (ap->Ch == '\0')
                        return (ENDSTATE);
                    if (wctype(class) == 0)
                        return (ENDSTATE);
                    nextitem(ap);
                }
                if (ap->Ch != RCLASS)
                    return (ENDSTATE);
            }
#endif
            nextitem(ap);
        }
        if (ap->Ch == '\0')
            return (ENDSTATE);
        nextitem(ap);
        break;
    case REP:
        t = prim(ap);
        if (t == ENDSTATE)
            return (ENDSTATE);
        setexits(ap->aux, t, a);
        break;
    case LBRACK:
        a = expr(ap, &ap->aux[a]);
        if (a == ENDSTATE || ap->Ch != RBRACK)
            return (ENDSTATE);
        nextitem(ap);
        break;
    }
    return (a);
}

Referenced by DateConstr_value(), equal_values(), expr(), gl_EvalMesh1(), prim(), to_number(), to_primitive(), and to_string().

setexits()

LOCAL void setexits	(	int *	aux,
		int	list,
		int	val
	)

Definition at line 542 of file match.c.

{
    int a;
 
    while (list != ENDSTATE) {
        a = aux[list];
        aux[list] = val;
        list = a;
    }
}

Referenced by expr(), patcompile(), and prim().