37 lines
600 B
C
37 lines
600 B
C
|
/*
|
||
|
|
* $Id: func.c,v 1.1 2006-06-16 14:31:42 bacon Exp $
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include <xp/awk/awk_i.h>
|
||
|
|
|
||
|
|
#ifndef XP_AWK_STAND_ALONE
|
||
|
|
#include <xp/bas/memory.h>
|
||
|
|
#include <xp/bas/string.h>
|
||
|
|
#endif
|
||
|
|
|
||
|
|
enum
|
||
|
|
{
|
||
|
|
BFN_SYSTEM,
|
||
|
|
BFN_CLOSE
|
||
|
|
};
|
||
|
|
|
||
|
|
static xp_awk_bfn_t __bfn[] =
|
||
|
|
{
|
||
|
|
{ XP_T("system"), BFN_SYSTEM, 0, 1, 1, XP_NULL },
|
||
|
|
{ XP_T("close"), BFN_CLOSE, 0, 1, 2, XP_NULL },
|
||
|
|
{ XP_NULL, 0, 0, 0, 0, XP_NULL }
|
||
|
|
};
|
||
|
|
|
||
|
|
xp_awk_bfn_t* xp_awk_getbfn (const xp_char_t* name)
|
||
|
|
{
|
||
|
|
xp_awk_bfn_t* p = __bfn;
|
||
|
|
|
||
|
|
while (p->name != XP_NULL)
|
||
|
|
{
|
||
|
|
if (xp_strcmp (p->name, name) == 0) return p;
|
||
|
|
p++;
|
||
|
|
}
|
||
|
|
|
||
|
|
return XP_NULL;
|
||
|
|
}
|