admin/mruby-mruby
1
0
Fork 0
mirror of https://github.com/mruby/mruby synced 2026-06-08 16:11:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #987 from monaka/pr-clean-up-parse.y-20130312

Browse Source 
Clean up parse.y.
This commit is contained in:
Yukihiro "Matz" Matsumoto
2013-03-14 02:46:48 -07:00
parent 15a9fb26f7 dd29e05f8e
commit 1ebebd304a
1 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/parse.y
+11 -5
View File
@@ -3393,34 +3393,40 @@ toklen(parser_state *p)
#define IS_LABEL_POSSIBLE() ((p->lstate == EXPR_BEG && !cmd_state) || IS_ARG())
#define IS_LABEL_SUFFIX(n) (peek_n(p, ':',(n)) && !peek_n(p, ':', (n)+1))
static unsigned long
static int
scan_oct(const int *start, int len, int *retlen)
{
const int *s = start;
unsigned long retval = 0;
int retval = 0;
/* PARANOID: assert(len <= 3) */
while (len-- && *s >= '0' && *s <= '7') {
retval <<= 3;
retval |= *s++ - '0';
}
*retlen = s - start;
return retval;
}
static unsigned long
static int
scan_hex(const int *start, int len, int *retlen)
{
static const char hexdigit[] = "0123456789abcdef0123456789ABCDEF";
register const int *s = start;
register unsigned long retval = 0;
register int retval = 0;
char *tmp;
while (len-- && *s && (tmp = (char *)strchr(hexdigit, *s))) {
/* PARANOID: assert(len <= 2) */
while (len-- && *s && (tmp = strchr(hexdigit, *s))) {
retval <<= 4;
retval |= (tmp - hexdigit) & 15;
s++;
}
*retlen = s - start;
return retval;
}