+/**
+ * Nid range list syntax.
+ *
+ * <nidlist> :== <nidrange> [ ' ' <nidrange> ]
+ * <nidrange> :== <addrrange> '@' <net>
+ * <addrrange> :== '*' |
+ * <ipaddr_range> |
+ * <numaddr_range>
+ * <ipaddr_range> :== <numaddr_range>.<numaddr_range>.<numaddr_range>.
+ * <numaddr_range>
+ * <numaddr_range> :== <number> |
+ * <expr_list>
+ * <expr_list> :== '[' <range_expr> [ ',' <range_expr>] ']'
+ * <range_expr> :== <number> |
+ * <number> '-' <number> |
+ * <number> '-' <number> '/' <number>
+ * <net> :== <netname> | <netname><number>
+ * <netname> :== "lo" | "tcp" | "o2ib" | "cib" | "openib" | "iib" |
+ * "vib" | "ra" | "elan" | "gm" | "mx" | "ptl"
+ */
+
+/**
+ * Structure to represent NULL-less strings.
+ */
+struct lstr {
+ char *ls_str;
+ int ls_len;
+};
+
+/**
+ * Structure to represent <nidrange> token of the syntax.
+ *
+ * One of this is created for each <net> parsed.
+ */
+struct nidrange {
+ /**
+ * Link to list of this structures which is built on nid range
+ * list parsing.
+ */
+ struct list_head nr_link;
+ /**
+ * List head for addrrange::ar_link.
+ */
+ struct list_head nr_addrranges;
+ /**
+ * Flag indicating that *@<net> is found.
+ */
+ int nr_all;
+ /**
+ * Pointer to corresponding element of libcfs_netstrfns.
+ */
+ struct netstrfns *nr_netstrfns;
+ /**
+ * Number of network. E.g. 5 if <net> is "elan5".
+ */
+ int nr_netnum;
+};
+
+/**
+ * Structure to represent <addrrange> token of the syntax.
+ */
+struct addrrange {
+ /**
+ * Link to nidrange::nr_addrranges.
+ */
+ struct list_head ar_link;
+ /**
+ * List head for numaddr_range::nar_link.
+ */
+ struct list_head ar_numaddr_ranges;
+};
+
+/**
+ * Structure to represent <numaddr_range> token of the syntax.
+ */
+struct numaddr_range {
+ /**
+ * Link to addrrange::ar_numaddr_ranges.
+ */
+ struct list_head nar_link;
+ /**
+ * List head for range_expr::re_link.
+ */
+ struct list_head nar_range_exprs;
+};
+
+/**
+ * Structure to represent <range_expr> token of the syntax.
+ */
+struct range_expr {
+ /**
+ * Link to numaddr_range::nar_range_exprs.
+ */
+ struct list_head re_link;
+ __u32 re_lo;
+ __u32 re_hi;
+ __u32 re_stride;
+};
+
+int
+cfs_iswhite(char c)
+{
+ switch (c) {
+ case ' ':
+ case '\t':
+ case '\n':
+ case '\r':
+ return 1;
+ default:
+ break;
+ }
+ return 0;
+}
+
+/*
+ * Extracts tokens from strings.
+ *
+ * Looks for \a delim in string \a next, sets \a res to point to
+ * substring before the delimiter, sets \a next right after the found
+ * delimiter.
+ *
+ * \retval 1 if \a res points to a string of non-whitespace characters
+ * \retval 0 otherwise
+ */
+static int
+gettok(struct lstr *next, char delim, struct lstr *res)
+{
+ char *end;
+
+ if (next->ls_str == NULL)
+ return 0;
+
+ /* skip leading white spaces */
+ while (next->ls_len) {
+ if (!cfs_iswhite(*next->ls_str))
+ break;
+ next->ls_str ++;
+ next->ls_len --;
+ }
+ if (next->ls_len == 0)
+ /* whitespaces only */
+ return 0;
+
+ if (*next->ls_str == delim)
+ /* first non-writespace is the delimiter */
+ return 0;
+
+ res->ls_str = next->ls_str;
+ end = memchr(next->ls_str, delim, next->ls_len);
+ if (end == NULL) {
+ /* there is no the delimeter in the string */
+ end = next->ls_str + next->ls_len;
+ next->ls_str = NULL;
+ } else {
+ next->ls_str = end + 1;
+ next->ls_len -= (end - res->ls_str + 1);
+ }
+
+ /* skip ending whitespaces */
+ while (--end != res->ls_str)
+ if (!cfs_iswhite(*end))
+ break;
+
+ res->ls_len = end - res->ls_str + 1;
+ return 1;
+}
+
+/**
+ * Converts string to integer.
+ *
+ * Accepts decimal and hexadecimal number recordings.
+ *
+ * \retval 1 if first \a nob chars of \a str convert to decimal or
+ * hexadecimal integer in the range [\a min, \a max]
+ * \retval 0 otherwise
+ */
+static int
+libcfs_str2num_check(const char *str, int nob, unsigned *num,
+ unsigned min, unsigned max)
+{
+ int n;
+ char nstr[12];
+
+ n = nob;
+ if (sscanf(str, "%u%n", num, &n) != 1 || n != nob)
+ if (sscanf(str, "0x%x%n", num, &n) != 1 || n != nob)
+ if (sscanf(str, "0X%x%n", num, &n) != 1 || n != nob)
+ return 0;
+ sprintf(nstr, "%u", *num);
+ if (n != strlen(nstr) || memcmp(nstr, str, n)) {
+ sprintf(nstr, "0x%x", *num);
+ if (n != strlen(nstr) || memcmp(nstr, str, n)) {
+ sprintf(nstr, "0X%x", *num);
+ if (n != strlen(nstr) || memcmp(nstr, str, n))
+ return 0;
+ }
+ }
+ if (*num < min || *num > max)
+ return 0;
+ return 1;
+}
+
+/**
+ * Parses <range_expr> token of the syntax.
+ *
+ * \retval pointer to allocated range_expr and initialized
+ * range_expr::re_lo, range_expr::re_hi and range_expr:re_stride if \a
+ * src parses to
+ * <number> |
+ * <number> '-' <number> |
+ * <number> '-' <number> '/' <number>
+ * \retval NULL othersize
+ */
+static struct range_expr *
+parse_range_expr(struct lstr *src, unsigned min, unsigned max)
+{
+ struct lstr tok;
+ struct range_expr *expr;
+
+ LIBCFS_ALLOC(expr, sizeof(struct range_expr));
+ if (expr == NULL)
+ return NULL;
+
+ if (libcfs_str2num_check(src->ls_str, src->ls_len, &expr->re_lo,
+ min, max)) {
+ /* <number> is parsed */
+ expr->re_hi = expr->re_lo;
+ expr->re_stride = 1;
+ return expr;
+ }
+
+ if (!gettok(src, '-', &tok))
+ goto failed;
+ if (!libcfs_str2num_check(tok.ls_str, tok.ls_len, &expr->re_lo,
+ min, max))
+ goto failed;
+ /* <number> - */
+ if (libcfs_str2num_check(src->ls_str, src->ls_len, &expr->re_hi,
+ min, max)) {
+ /* <number> - <number> is parsed */
+ expr->re_stride = 1;
+ return expr;
+ }
+
+ /* go to check <number> '-' <number> '/' <number> */
+ if (gettok(src, '/', &tok)) {
+ if (!libcfs_str2num_check(tok.ls_str, tok.ls_len,
+ &expr->re_hi, min, max))
+ goto failed;
+ /* <number> - <number> / ... */
+ if (libcfs_str2num_check(src->ls_str, src->ls_len,
+ &expr->re_stride, min, max))
+ /* <number> - <number> / <number> is parsed */
+ return expr;
+ }
+
+failed:
+ LIBCFS_FREE(expr, sizeof(struct range_expr));
+ return NULL;
+}
+
+/**
+ * Parsed <expr_list> token of the syntax.
+ *
+ * \retval 1 if \a str parses to '[' <range_expr> [ ',' <range_expr>] ']'
+ * \return 0 otherwise
+ */
+static int
+parse_expr_list(struct lstr *str, struct list_head *list,
+ unsigned min, unsigned max)
+{
+ struct lstr res;
+ struct range_expr *range;
+
+ if (str->ls_str[0] != '[' || str->ls_str[str->ls_len - 1] != ']')
+ return 0;
+ str->ls_str ++;
+ str->ls_len -= 2;
+
+ while (str->ls_str) {
+ if (gettok(str, ',', &res) == 0)
+ return 0;
+ range = parse_range_expr(&res, min, max);
+ if (range == NULL)
+ return 0;
+ list_add_tail(&range->re_link, list);
+ }
+ return 1;
+}
+
+/**
+ * Parses <numaddr_range> token of the syntax.
+ *
+ * \retval 1 if \a str parses to <number> | <expr_list>
+ * \retval 0 otherwise
+ */
+static int
+num_parse(char *str, int len,
+ struct list_head *list, unsigned min, unsigned max)
+{
+ __u32 num;
+ struct lstr src;
+ struct numaddr_range *numaddr;
+
+ src.ls_str = str;
+ src.ls_len = len;
+
+ LIBCFS_ALLOC(numaddr, sizeof(struct numaddr_range));
+ if (numaddr == NULL)
+ return 0;
+ list_add_tail(&numaddr->nar_link, list);
+ CFS_INIT_LIST_HEAD(&numaddr->nar_range_exprs);
+
+ if (libcfs_str2num_check(src.ls_str, src.ls_len, &num, min, max)) {
+ /* <number> */
+ struct range_expr *expr;
+
+ LIBCFS_ALLOC(expr, sizeof(struct range_expr));
+ if (expr == NULL)
+ return 0;
+
+ expr->re_lo = expr->re_hi = num;
+ expr->re_stride = 1;
+ list_add_tail(&expr->re_link, &numaddr->nar_range_exprs);
+ return 1;
+ }
+
+ return parse_expr_list(&src, &numaddr->nar_range_exprs, min, max);
+}
+
+/**
+ * Nf_parse_addrlist method for networks using numeric addresses.
+ *
+ * Examples of such networks are gm and elan.
+ *
+ * \retval 1 if \a str parsed to numeric address
+ * \retval 0 otherwise
+ */
+static int
+libcfs_num_parse(char *str, int len, struct list_head *list)
+{
+ return num_parse(str, len, list, 0, MAX_NUMERIC_VALUE);
+}
+
+/**
+ * Nf_parse_addrlist method for networks using ip addresses.
+ *
+ * Examples of such networks are tcp and o2ib.
+ *
+ * \retval 1 if \a str parsed to ip address
+ * \retval 0 otherwise
+ */
+static int
+libcfs_ip_parse(char *str, int len,
+ struct list_head *list)
+{
+ struct lstr src, res;
+ int i;
+
+ src.ls_str = str;
+ src.ls_len = len;
+ i = 0;
+ while (src.ls_str) {
+ if (gettok(&src, '.', &res) == 0)
+ return 0;
+ if (!num_parse(res.ls_str, res.ls_len, list, 0, 255))
+ return 0;
+ i ++;
+ }
+
+ return (i == 4) ? 1 : 0;
+}
+
+/**
+ * Parses <addrrange> token on the syntax.
+ *
+ * Allocates struct addrrange and links to \a nidrange via
+ * (nidrange::nr_addrranges)
+ *
+ * \retval 1 if \a src parses to '*' | <ipaddr_range> | <numaddr_range>
+ * \retval 0 otherwise
+ */
+static int
+parse_addrange(const struct lstr *src, struct nidrange *nidrange)
+{
+ struct addrrange *addrrange;
+
+ if (src->ls_len == 1 && src->ls_str[0] == '*') {
+ nidrange->nr_all = 1;
+ return 1;
+ }
+
+ LIBCFS_ALLOC(addrrange, sizeof(struct addrrange));
+ if (addrrange == NULL)
+ return 0;
+ list_add_tail(&addrrange->ar_link, &nidrange->nr_addrranges);
+ CFS_INIT_LIST_HEAD(&addrrange->ar_numaddr_ranges);
+
+ return nidrange->nr_netstrfns->nf_parse_addrlist(src->ls_str,
+ src->ls_len,
+ &addrrange->ar_numaddr_ranges);
+}
+
+/**
+ * Finds or creates struct nidrange.
+ *
+ * Checks if \a src is a valid network name, looks for corresponding
+ * nidrange on the ist of nidranges (\a nidlist), creates new struct
+ * nidrange if it is not found.
+ *
+ * \retval pointer to struct nidrange matching network specified via \a src
+ * \retval NULL if \a src does not match any network
+ */
+static struct nidrange *
+add_nidrange(const struct lstr *src,
+ struct list_head *nidlist)
+{
+ struct netstrfns *nf;
+ struct nidrange *nr;
+ int endlen;
+ unsigned netnum;
+
+ if (src->ls_len >= LNET_NIDSTR_SIZE)
+ return NULL;
+
+ nf = libcfs_namenum2netstrfns(src->ls_str);
+ if (nf == NULL)
+ return NULL;
+ endlen = src->ls_len - strlen(nf->nf_name);
+ if (endlen == 0)
+ /* network name only, e.g. "elan" or "tcp" */
+ netnum = 0;
+ else {
+ /* e.g. "elan25" or "tcp23", refuse to parse if
+ * network name is not appended with decimal or
+ * hexadecimal number */
+ if (!libcfs_str2num_check(src->ls_str + strlen(nf->nf_name),
+ endlen, &netnum,
+ 0, MAX_NUMERIC_VALUE))
+ return NULL;
+ }
+
+ list_for_each_entry(nr, nidlist, nr_link) {
+ if (nr->nr_netstrfns != nf)
+ continue;
+ if (nr->nr_netnum != netnum)
+ continue;
+ return nr;
+ }
+
+ LIBCFS_ALLOC(nr, sizeof(struct nidrange));
+ if (nr == NULL)
+ return NULL;
+ list_add_tail(&nr->nr_link, nidlist);
+ CFS_INIT_LIST_HEAD(&nr->nr_addrranges);
+ nr->nr_netstrfns = nf;
+ nr->nr_all = 0;
+ nr->nr_netnum = netnum;
+
+ return nr;
+}
+
+/**
+ * Parses <nidrange> token of the syntax.
+ *
+ * \retval 1 if \a src parses to <addrrange> '@' <net>
+ * \retval 0 otherwise
+ */
+static int
+parse_nidrange(struct lstr *src, struct list_head *nidlist)
+{
+ struct lstr addrrange, net, tmp;
+ struct nidrange *nr;
+
+ tmp = *src;
+ if (gettok(src, '@', &addrrange) == 0)
+ goto failed;
+
+ if (gettok(src, '@', &net) == 0 || src->ls_str != NULL)
+ goto failed;
+
+ nr = add_nidrange(&net, nidlist);
+ if (nr == NULL)
+ goto failed;
+
+ if (!parse_addrange(&addrrange, nr))
+ goto failed;
+
+ return 1;
+ failed:
+ CWARN("can't parse nidrange: \"%.*s\"\n", tmp.ls_len, tmp.ls_str);
+ return 0;
+}
+
+/**
+ * Frees range_expr structures of \a list.
+ *
+ * \retval none
+ */
+static void
+free_range_exprs(struct list_head *list)
+{
+ struct list_head *pos, *next;
+
+ list_for_each_safe(pos, next, list) {
+ list_del(pos);
+ LIBCFS_FREE(list_entry(pos, struct range_expr, re_link),
+ sizeof(struct range_expr));
+ }
+}
+
+/**
+ * Frees numaddr_range structures of \a list.
+ *
+ * For each struct numaddr_range structure found on \a list it frees
+ * range_expr list attached to it and frees the numddr_range itself.
+ *
+ * \retval none
+ */
+static void
+free_numaddr_ranges(struct list_head *list)
+{
+ struct list_head *pos, *next;
+ struct numaddr_range *numaddr;
+
+ list_for_each_safe(pos, next, list) {
+ numaddr = list_entry(pos, struct numaddr_range, nar_link);
+ free_range_exprs(&numaddr->nar_range_exprs);
+ list_del(pos);
+ LIBCFS_FREE(numaddr, sizeof(struct numaddr_range));
+ }
+}
+
+/**
+ * Frees addrrange structures of \a list.
+ *
+ * For each struct addrrange structure found on \a list it frees
+ * numaddr_range list attached to it and frees the addrrange itself.
+ *
+ * \retval none
+ */
+static void
+free_addrranges(struct list_head *list)
+{
+ struct list_head *pos, *next;
+ struct addrrange *ar;
+
+ list_for_each_safe(pos, next, list) {
+ ar = list_entry(pos, struct addrrange, ar_link);
+ free_numaddr_ranges(&ar->ar_numaddr_ranges);
+ list_del(pos);
+ LIBCFS_FREE(ar, sizeof(struct addrrange));
+ }
+}
+
+/**
+ * Frees nidrange strutures of \a list.
+ *
+ * For each struct nidrange structure found on \a list it frees
+ * addrrange list attached to it and frees the nidrange itself.
+ *
+ * \retval none
+ */