hyung-hwan/qse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
hyung-hwan 2006-09-01 06:45:05 +00:00
parent 069a25f54f
commit e16d36fb1f
4 changed files with 49 additions and 51 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ase/awk/func.c
View File

@ -1,15 +1,11 @@
/* /*
* $Id: func.c,v 1.40 2006-09-01 06:22:11 bacon Exp $ * $Id: func.c,v 1.41 2006-09-01 06:45:05 bacon Exp $
*/ */
#include <xp/awk/awk_i.h> #include <xp/awk/awk_i.h>
#ifndef XP_AWK_STAND_ALONE #ifndef XP_AWK_STAND_ALONE
#include <xp/bas/memory.h>
#include <xp/bas/string.h>
#include <xp/bas/assert.h> #include <xp/bas/assert.h>
#include <xp/bas/ctype.h>
#include <xp/bas/stdio.h>
#endif #endif
#ifdef _WIN32 #ifdef _WIN32

4
ase/awk/misc.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: misc.c,v 1.9 2006-09-01 06:22:12 bacon Exp $ * $Id: misc.c,v 1.10 2006-09-01 06:42:52 bacon Exp $
*/ */
#include <xp/awk/awk_i.h> #include <xp/awk/awk_i.h>
@ -679,7 +679,7 @@ static xp_char_t* __adjust_format (xp_awk_t* awk, const xp_char_t* format)
#ifdef XP_CHAR_IS_MCHAR #ifdef XP_CHAR_IS_MCHAR
ADDC (str, 'l'); ADDC (str, 'l');
#endif #endif
ADDC (str, xp_tolower(ch)); ADDC (str, XP_AWK_TOLOWER(awk,ch));
#endif #endif
} }
else if (ch == XP_T('d') || ch == XP_T('i') || else if (ch == XP_T('d') || ch == XP_T('i') ||

84
ase/awk/rex.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: rex.c,v 1.25 2006-09-01 03:44:16 bacon Exp $ * $Id: rex.c,v 1.26 2006-09-01 06:42:52 bacon Exp $
*/ */
#include <xp/awk/awk_i.h> #include <xp/awk/awk_i.h>
@ -191,21 +191,21 @@ static const xp_byte_t* __match_boundary (
xp_size_t lbound, xp_size_t ubound, __match_t* mat); xp_size_t lbound, xp_size_t ubound, __match_t* mat);
static xp_bool_t __test_charset ( static xp_bool_t __test_charset (
const xp_byte_t* p, xp_size_t csc, xp_char_t c); __matcher_t* matcher, const xp_byte_t* p, xp_size_t csc, xp_char_t c);
#ifndef XP_AWK_NTDDK #ifndef XP_AWK_NTDDK
static xp_bool_t __cc_isalnum (xp_char_t c); static xp_bool_t __cc_isalnum (xp_awk_t* awk, xp_char_t c);
static xp_bool_t __cc_isalpha (xp_char_t c); static xp_bool_t __cc_isalpha (xp_awk_t* awk, xp_char_t c);
static xp_bool_t __cc_isblank (xp_char_t c); static xp_bool_t __cc_isblank (xp_awk_t* awk, xp_char_t c);
static xp_bool_t __cc_iscntrl (xp_char_t c); static xp_bool_t __cc_iscntrl (xp_awk_t* awk, xp_char_t c);
static xp_bool_t __cc_isdigit (xp_char_t c); static xp_bool_t __cc_isdigit (xp_awk_t* awk, xp_char_t c);
static xp_bool_t __cc_isgraph (xp_char_t c); static xp_bool_t __cc_isgraph (xp_awk_t* awk, xp_char_t c);
static xp_bool_t __cc_islower (xp_char_t c); static xp_bool_t __cc_islower (xp_awk_t* awk, xp_char_t c);
static xp_bool_t __cc_isprint (xp_char_t c); static xp_bool_t __cc_isprint (xp_awk_t* awk, xp_char_t c);
static xp_bool_t __cc_ispunct (xp_char_t c); static xp_bool_t __cc_ispunct (xp_awk_t* awk, xp_char_t c);
static xp_bool_t __cc_isspace (xp_char_t c); static xp_bool_t __cc_isspace (xp_awk_t* awk, xp_char_t c);
static xp_bool_t __cc_isupper (xp_char_t c); static xp_bool_t __cc_isupper (xp_awk_t* awk, xp_char_t c);
static xp_bool_t __cc_isxdigit (xp_char_t c); static xp_bool_t __cc_isxdigit (xp_awk_t* awk, xp_char_t c);
#endif #endif
static const xp_byte_t* __print_pattern (const xp_byte_t* p); static const xp_byte_t* __print_pattern (const xp_byte_t* p);
@ -217,7 +217,7 @@ static struct __char_class_t
{ {
const xp_char_t* name; const xp_char_t* name;
xp_size_t name_len; xp_size_t name_len;
xp_bool_t (*func) (xp_char_t c); xp_bool_t (*func) (xp_awk_t* awk, xp_char_t c);
}; };
static struct __char_class_t __char_class [] = static struct __char_class_t __char_class [] =
@ -1248,7 +1248,7 @@ static const xp_byte_t* __match_charset (
{ {
if (&mat->match_ptr[si] >= matcher->match.str.end) break; if (&mat->match_ptr[si] >= matcher->match.str.end) break;
n = __test_charset (p, csc, mat->match_ptr[si]); n = __test_charset (matcher, p, csc, mat->match_ptr[si]);
if (cp->negate) n = !n; if (cp->negate) n = !n;
if (!n) break; if (!n) break;
@ -1482,7 +1482,8 @@ static const xp_byte_t* __match_boundary (
return p; return p;
} }
xp_bool_t __test_charset (const xp_byte_t* p, xp_size_t csc, xp_char_t c) xp_bool_t __test_charset (
__matcher_t* matcher, const xp_byte_t* p, xp_size_t csc, xp_char_t c)
{ {
xp_size_t i; xp_size_t i;
@ -1509,7 +1510,8 @@ xp_bool_t __test_charset (const xp_byte_t* p, xp_size_t csc, xp_char_t c)
else if (c0 == CHARSET_CLASS) else if (c0 == CHARSET_CLASS)
{ {
c1 = *(xp_char_t*)p; c1 = *(xp_char_t*)p;
if (__char_class[c1].func (c)) return xp_true; if (__char_class[c1].func (
matcher->awk, c)) return xp_true;
} }
#endif #endif
else else
@ -1526,64 +1528,64 @@ xp_bool_t __test_charset (const xp_byte_t* p, xp_size_t csc, xp_char_t c)
#ifndef XP_AWK_NTDDK #ifndef XP_AWK_NTDDK
static xp_bool_t __cc_isalnum (xp_char_t c) static xp_bool_t __cc_isalnum (xp_awk_t* awk, xp_char_t c)
{ {
return xp_isalnum (c); return XP_AWK_ISALNUM (awk, c);
} }
static xp_bool_t __cc_isalpha (xp_char_t c) static xp_bool_t __cc_isalpha (xp_awk_t* awk, xp_char_t c)
{ {
return xp_isalpha (c); return XP_AWK_ISALPHA (awk, c);
} }
static xp_bool_t __cc_isblank (xp_char_t c) static xp_bool_t __cc_isblank (xp_awk_t* awk, xp_char_t c)
{ {
return c == XP_T(' ') || c == XP_T('\t'); return c == XP_T(' ') || c == XP_T('\t');
} }
static xp_bool_t __cc_iscntrl (xp_char_t c) static xp_bool_t __cc_iscntrl (xp_awk_t* awk, xp_char_t c)
{ {
return xp_iscntrl (c); return XP_AWK_ISCNTRL (awk, c);
} }
static xp_bool_t __cc_isdigit (xp_char_t c) static xp_bool_t __cc_isdigit (xp_awk_t* awk, xp_char_t c)
{ {
return xp_isdigit (c); return XP_AWK_ISDIGIT (awk, c);
} }
static xp_bool_t __cc_isgraph (xp_char_t c) static xp_bool_t __cc_isgraph (xp_awk_t* awk, xp_char_t c)
{ {
return xp_isgraph (c); return XP_AWK_ISGRAPH (awk, c);
} }
static xp_bool_t __cc_islower (xp_char_t c) static xp_bool_t __cc_islower (xp_awk_t* awk, xp_char_t c)
{ {
return xp_islower (c); return XP_AWK_ISLOWER (awk, c);
} }
static xp_bool_t __cc_isprint (xp_char_t c) static xp_bool_t __cc_isprint (xp_awk_t* awk, xp_char_t c)
{ {
return xp_isprint (c); return XP_AWK_ISPRINT (awk, c);
} }
static xp_bool_t __cc_ispunct (xp_char_t c) static xp_bool_t __cc_ispunct (xp_awk_t* awk, xp_char_t c)
{ {
return xp_ispunct (c); return XP_AWK_ISPUNCT (awk, c);
} }
static xp_bool_t __cc_isspace (xp_char_t c) static xp_bool_t __cc_isspace (xp_awk_t* awk, xp_char_t c)
{ {
return xp_isspace (c); return XP_AWK_ISSPACE (awk, c);
} }
static xp_bool_t __cc_isupper (xp_char_t c) static xp_bool_t __cc_isupper (xp_awk_t* awk, xp_char_t c)
{ {
return xp_isupper (c); return XP_AWK_ISUPPER (awk, c);
} }
static xp_bool_t __cc_isxdigit (xp_char_t c) static xp_bool_t __cc_isxdigit (xp_awk_t* awk, xp_char_t c)
{ {
return xp_isxdigit (c); return XP_AWK_ISXDIGIT (awk, c);
} }
void xp_awk_printrex (void* rex) void xp_awk_printrex (void* rex)

6
ase/test/awk/t12.awk
View File

@ -30,9 +30,9 @@ BEGIN {
} }
print x > "def"; print x > "def";
//print "fflush(def) = ", fflush ("def"); #print "fflush(def) = ", fflush ("def");
print "fflush() = ", fflush (""); print "fflush() = ", fflush ("");
// print (1 (2 getline j) j); # print (1 (2 getline j) j);
// print "abc" 1 + 2 3 + 49 2 / 3; # print "abc" 1 + 2 3 + 49 2 / 3;
} }