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

changed the unary bitwise negation operator to a single tilde which overlaps with the regex match operator

Browse Source
This commit is contained in:
hyung-hwan 2020-03-04 09:54:38 +00:00
parent 916da0fd59
commit 7980e12999
4 changed files with 20 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
hawk/README.md
View File

@ -1,13 +1,9 @@
# Hawk
# Table of Contents
- [Language](#language)
- [Basic Modules](#basic-modules)
- [Embedding Guide](#embedding-guide)
#### TODO: unary bitwise not
#### TODO: fix -F or --field-separator to hawk.
## Language <a name="language"></a>
Hawk implements most of the AWK programming language elements with extensions.
@ -63,4 +59,12 @@ BEGIN { x[3]=99; q(x); for (i in x) print i, x[i]; }'
</pre>
## Basic Modules <a name="basic-modules"></a>
### sys
### ffi
### mysql
## Embedding Guide <a name="embedding-guide"></a>

14
hawk/lib/parse.c
View File

@ -97,7 +97,7 @@ enum tok_t
TOK_LT,
TOK_GE,
TOK_GT,
TOK_MA, /* ~ - match */
TOK_TILDE, /* ~ - match or bitwise negation */
TOK_NM, /* !~ - not match */
TOK_LNOT, /* ! - logical negation */
TOK_PLUS,
@ -113,7 +113,6 @@ enum tok_t
TOK_BOR,
TOK_BXOR, /* ^^ - bitwise-xor */
TOK_BAND,
TOK_BNOT, /* ~~ - used for unary bitwise-not */
TOK_RS,
TOK_LS,
TOK_IN,
@ -4088,7 +4087,7 @@ static hawk_nde_t* parse_regex_match (hawk_t* awk, const hawk_loc_t* xloc)
{
static binmap_t map[] =
{
{ TOK_MA, HAWK_BINOP_MA },
{ TOK_TILDE, HAWK_BINOP_MA },
{ TOK_NM, HAWK_BINOP_NM },
{ TOK_EOF, 0 },
};
@ -4191,7 +4190,7 @@ static hawk_nde_t* parse_concat (hawk_t* awk, const hawk_loc_t* xloc)
if (MATCH(awk,TOK_LPAREN) || MATCH(awk,TOK_DOLLAR) ||
/* unary operators */
MATCH(awk,TOK_PLUS) || MATCH(awk,TOK_MINUS) ||
MATCH(awk,TOK_LNOT) || MATCH(awk,TOK_BNOT) ||
MATCH(awk,TOK_LNOT) ||/* MATCH(awk,TOK_TILDE) ||*/
/* increment operators */
MATCH(awk,TOK_PLUSPLUS) || MATCH(awk,TOK_MINUSMINUS) ||
((awk->opt.trait & HAWK_TOLERANT) &&
@ -4261,7 +4260,7 @@ static hawk_nde_t* parse_unary (hawk_t* awk, const hawk_loc_t* xloc)
opcode = (MATCH(awk,TOK_PLUS))? HAWK_UNROP_PLUS:
(MATCH(awk,TOK_MINUS))? HAWK_UNROP_MINUS:
(MATCH(awk,TOK_LNOT))? HAWK_UNROP_LNOT:
(MATCH(awk,TOK_BNOT))? HAWK_UNROP_BNOT: -1;
(MATCH(awk,TOK_TILDE))? HAWK_UNROP_BNOT: -1;
/*if (opcode <= -1) return parse_increment (awk);*/
if (opcode <= -1) return parse_exponent (awk, xloc);
@ -4408,7 +4407,7 @@ static hawk_nde_t* parse_unary_exp (hawk_t* awk, const hawk_loc_t* xloc)
opcode = (MATCH(awk,TOK_PLUS))? HAWK_UNROP_PLUS:
(MATCH(awk,TOK_MINUS))? HAWK_UNROP_MINUS:
(MATCH(awk,TOK_LNOT))? HAWK_UNROP_LNOT:
(MATCH(awk,TOK_BNOT))? HAWK_UNROP_BNOT: -1;
(MATCH(awk,TOK_TILDE))? HAWK_UNROP_BNOT: -1; /* ~ in the unary context is a bitwise-not operator */
if (opcode <= -1) return parse_increment (awk, xloc);
@ -6416,8 +6415,7 @@ static int get_symbols (hawk_t* awk, hawk_ooci_t c, hawk_tok_t* tok)
{ HAWK_T("%%"), 2, TOK_CONCAT, 0 },
{ HAWK_T("%="), 2, TOK_MOD_ASSN, 0 },
{ HAWK_T("%"), 1, TOK_MOD, 0 },
{ HAWK_T("~~"), 2, TOK_BNOT, 0 },
{ HAWK_T("~"), 1, TOK_MA, 0 },
{ HAWK_T("~"), 1, TOK_TILDE, 0 },
{ HAWK_T("("), 1, TOK_LPAREN, 0 },
{ HAWK_T(")"), 1, TOK_RPAREN, 0 },
{ HAWK_T("{"), 1, TOK_LBRACE, 0 },

3
hawk/lib/tree.c
View File

@ -85,8 +85,7 @@ static const hawk_ooch_t* unrop_str[] =
HAWK_T("+"),
HAWK_T("-"),
HAWK_T("!"),
HAWK_T("~~"),
HAWK_T("`")
HAWK_T("~")
};
static const hawk_ooch_t* incop_str[] =

6
hawk/scripts/tcp-proxy.awk
View File

@ -64,7 +64,7 @@ function handle_bridge_eof (&brtab, fd, mx)
pfd = brtab[fd];
evmask = brtab[fd,"evmask"] & ~~sys::MUX_EVT_IN;
evmask = brtab[fd,"evmask"] & ~sys::MUX_EVT_IN;
if (sys::modinmux(mx, fd, evmask) <= -1) return -1;
brtab[fd,"evmask"] = evmask;
brtab[fd,"eof"] = 1;
@ -100,7 +100,7 @@ function bridge_traffic (&brtab, fd, mx)
x = sys::write(pfd, buf, pos);
if (x == sys::RC_EAGAIN)
{
evmask = brtab[fd,"evmask"] & ~~sys::MUX_EVT_IN;
evmask = brtab[fd,"evmask"] & ~sys::MUX_EVT_IN;
if (sys::modinmux(mx, fd, evmask) <= -1) return -1;
brtab[fd,"evmask"] = evmask;
@ -145,7 +145,7 @@ function bridge_pendind_data (&brtab, fd, mx)
## sent all pending data.
delete brtab[fd,"pending"];
evmask = brtab[fd,"evmask"] & ~~sys::MUX_EVT_OUT;
evmask = brtab[fd,"evmask"] & ~sys::MUX_EVT_OUT;
if (sys::modinmux(mx, fd, evmask) <= -1) return -1;
brtab[fd,"evmask"] = evmask;