47 lines
752 B
C
47 lines
752 B
C
|
/*
|
||
|
|
* $Id: rex.c,v 1.1 2006-07-17 06:21:39 bacon Exp $
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include <xp/awk/awk_i.h>
|
||
|
|
|
||
|
|
#ifndef XP_AWK_STAND_ALONE
|
||
|
|
#include <xp/bas/memory.h>
|
||
|
|
#include <xp/bas/assert.h>
|
||
|
|
#endif
|
||
|
|
|
||
|
|
xp_awk_rex_t* xp_awk_rex_open (xp_awk_rex_t* rex)
|
||
|
|
{
|
||
|
|
if (rex == XP_NULL)
|
||
|
|
{
|
||
|
|
rex = (xp_awk_rex_t*) xp_malloc (xp_sizeof(xp_awk_rex_t));
|
||
|
|
if (rex == XP_NULL) return XP_NULL;
|
||
|
|
rex->__dynamic = xp_true;
|
||
|
|
}
|
||
|
|
else rex->__dynamic = xp_false;
|
||
|
|
|
||
|
|
return rex;
|
||
|
|
}
|
||
|
|
|
||
|
|
void xp_awk_rex_close (xp_awk_rex_t* rex)
|
||
|
|
{
|
||
|
|
if (rex->__dynamic) xp_free (rex);
|
||
|
|
}
|
||
|
|
|
||
|
|
int xp_awk_rex_compile (const xp_awk_rex_t* rex, const xp_char_t* ptn)
|
||
|
|
{
|
||
|
|
const xp_char_t* p = ptn;
|
||
|
|
xp_char_t c;
|
||
|
|
|
||
|
|
while (*p != XP_T('\0'))
|
||
|
|
{
|
||
|
|
c = *p++; // TODO: backspace escaping...
|
||
|
|
|
||
|
|
if (c == XP_T('|'))
|
||
|
|
{
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
return -1;
|
||
|
|
}
|