Lines Matching refs:l
63 #define EATAB {while (isascii(CAST(unsigned char, *l)) && \
64 isspace(CAST(unsigned char, *l))) ++l;}
65 #define LOWCASE(l) (isupper(CAST(unsigned char, l)) ? \ argument
66 tolower(CAST(unsigned char, l)) : (l))
318 get_type(const struct type_tbl_s *tbl, const char *l, const char **t) in get_type() argument
323 if (strncmp(l, p->name, p->len) == 0) { in get_type()
325 *t = l + p->len; in get_type()
342 get_standard_integer_type(const char *l, const char **t) in get_standard_integer_type() argument
346 if (isalpha(CAST(unsigned char, l[1]))) { in get_standard_integer_type()
347 switch (l[1]) { in get_standard_integer_type()
380 l += 2; in get_standard_integer_type()
381 } else if (isdigit(CAST(unsigned char, l[1]))) { in get_standard_integer_type()
392 if (isdigit(CAST(unsigned char, l[2]))) { in get_standard_integer_type()
396 switch (l[1]) { in get_standard_integer_type()
413 l += 2; in get_standard_integer_type()
419 ++l; in get_standard_integer_type()
422 *t = l; in get_standard_integer_type()
1748 get_cond(const char *l, const char **t) in get_cond() argument
1763 if (strncmp(l, p->name, p->len) == 0 && in get_cond()
1764 isspace(CAST(unsigned char, l[p->len]))) { in get_cond()
1766 *t = l + p->len; in get_cond()
1820 const char *l = *lp; in parse_indirect_modifier() local
1822 while (!isspace(CAST(unsigned char, *++l))) in parse_indirect_modifier()
1823 switch (*l) { in parse_indirect_modifier()
1830 "invalid", *l); in parse_indirect_modifier()
1831 *lp = l; in parse_indirect_modifier()
1834 *lp = l; in parse_indirect_modifier()
1842 const char *l = *lp; in parse_op_modifier() local
1846 ++l; in parse_op_modifier()
1848 val = CAST(uint64_t, strtoull(l, &t, 0)); in parse_op_modifier()
1849 l = t; in parse_op_modifier()
1851 eatsize(&l); in parse_op_modifier()
1852 *lp = l; in parse_op_modifier()
1858 const char *l = *lp; in parse_string_modifier() local
1862 while (!isspace(CAST(unsigned char, *++l))) { in parse_string_modifier()
1863 switch (*l) { in parse_string_modifier()
1871 m->str_range = CAST(uint32_t, strtoul(l, &t, 0)); in parse_string_modifier()
1874 l = t - 1; in parse_string_modifier()
1943 "invalid", *l); in parse_string_modifier()
1947 if (l[1] == '/' && !isspace(CAST(unsigned char, l[2]))) in parse_string_modifier()
1948 l++; in parse_string_modifier()
1952 *lp = l; in parse_string_modifier()
1955 *lp = l; in parse_string_modifier()
1971 const char *l = line; in parse() local
1982 while (*l == '>') { in parse()
1983 ++l; /* step over */ in parse()
2038 if (*l == '&') { /* m->cont_level == 0 checked below. */ in parse()
2039 ++l; /* step over */ in parse()
2042 if (*l == '(') { in parse()
2043 ++l; /* step over */ in parse()
2048 if (*l == '&') { /* m->cont_level == 0 checked below */ in parse()
2049 ++l; /* step over */ in parse()
2061 if (*l == '-') { in parse()
2062 ++l; /* step over */ in parse()
2065 m->offset = CAST(int32_t, strtol(l, &t, 0)); in parse()
2066 if (l == t) { in parse()
2068 file_magwarn(ms, "offset `%s' invalid", l); in parse()
2072 l = t; in parse()
2081 if (*l == '.' || *l == ',') { in parse()
2082 if (*l == ',') in parse()
2084 l++; in parse()
2085 switch (*l) { in parse()
2138 *l); in parse()
2141 l++; in parse()
2144 if (*l == '~') { in parse()
2146 l++; in parse()
2148 if ((op = get_op(*l)) != -1) { in parse()
2150 l++; in parse()
2152 if (*l == '(') { in parse()
2154 l++; in parse()
2156 if (isdigit(CAST(unsigned char, *l)) || *l == '-') { in parse()
2157 m->in_offset = CAST(int32_t, strtol(l, &t, 0)); in parse()
2158 if (l == t) { in parse()
2161 "in_offset `%s' invalid", l); in parse()
2164 l = t; in parse()
2166 if (*l++ != ')' || in parse()
2167 ((m->in_op & FILE_OPINDIRECT) && *l++ != ')')) { in parse()
2177 m->cond = get_cond(l, &l); in parse()
2187 if (*l == 'u') { in parse()
2193 m->type = get_type(type_tbl, l + 1, &l); in parse()
2199 m->type = get_standard_integer_type(l, &l); in parse()
2211 m->type = get_type(type_tbl, l, &l); in parse()
2218 if (*l == 'd') in parse()
2219 m->type = get_standard_integer_type(l, &l); in parse()
2220 else if (*l == 's' in parse()
2221 && !isalpha(CAST(unsigned char, l[1]))) { in parse()
2223 ++l; in parse()
2230 m->type = get_type(special_tbl, l, &l); in parse()
2235 file_magwarn(ms, "type `%s' invalid", l); in parse()
2242 "declared at top level", l); in parse()
2250 if (*l == '~') { in parse()
2255 ++l; in parse()
2259 if ((op = get_op(*l)) != -1) { in parse()
2272 r = parse_indirect_modifier(ms, m, &l); in parse()
2274 r = parse_string_modifier(ms, m, &l); in parse()
2278 parse_op_modifier(ms, m, &l, op); in parse()
2287 switch (*l) { in parse()
2290 m->reln = *l; in parse()
2291 ++l; in parse()
2292 if (*l == '=') { in parse()
2298 ++l; in parse()
2305 m->reln = *l; in parse()
2306 ++l; in parse()
2307 if (*l == '=') { in parse()
2309 ++l; in parse()
2313 m->reln = *l; in parse()
2314 ++l; in parse()
2318 if (*l == 'x' && ((isascii(CAST(unsigned char, l[1])) && in parse()
2319 isspace(CAST(unsigned char, l[1]))) || !l[1])) { in parse()
2320 m->reln = *l; in parse()
2321 ++l; in parse()
2328 if (m->reln != 'x' && getvalue(ms, m, &l, action)) in parse()
2341 if (l[0] == '\b') { in parse()
2342 ++l; in parse()
2344 } else if ((l[0] == '\\') && (l[1] == 'b')) { in parse()
2345 ++l; in parse()
2346 ++l; in parse()
2349 for (i = 0; (m->desc[i++] = *l++) != '\0' && i < sizeof(m->desc); ) in parse()
2383 const char *l = line; in parse_strength() local
2400 switch (*l) { in parse_strength()
2406 m->factor_op = *l++; in parse_strength()
2409 file_magwarn(ms, "Unknown factor op `%c'", *l); in parse_strength()
2413 factor = strtoul(l, &el, 0); in parse_strength()
2419 file_magwarn(ms, "Bad factor `%s'", l); in parse_strength()
2446 const char *l = line; in parse_extra() local
2453 "`%.*s', new type `%s'", name, CAST(int, len), buf, l); in parse_extra()
2464 for (i = 0; *l && i < llen && i < len && goodchar(*l, extra); in parse_extra()
2465 buf[i++] = *l++) in parse_extra()
2468 if (i == len && *l) { in parse_extra()
2475 if (!isspace(CAST(unsigned char, *l)) && !goodchar(*l, extra)) in parse_extra()
2477 name, line, *l); in parse_extra()
3073 size_t l = file_pstring_length_size(ms, m); in getstr() local
3074 if (l == FILE_BADSIZE) in getstr()
3076 m->vallen += CAST(unsigned char, l); in getstr()
3164 const char *l = *p; in eatsize() local
3166 if (LOWCASE(*l) == 'u') in eatsize()
3167 l++; in eatsize()
3169 switch (LOWCASE(*l)) { in eatsize()
3175 l++; in eatsize()
3181 *p = l; in eatsize()
3512 file_varint2uintmax_t(const unsigned char *us, int t, size_t *l) argument
3521 if (l)
3522 *l = c - us + 1;
3534 if (l)
3535 *l = c - us + 1;
3624 size_t l = file_pstring_length_size(ms, m); local
3625 if (l == FILE_BADSIZE)
3626 return l;
3627 len -= l;
