lib/sl/slc-gram.c

9    it under the terms of the GNU General Public License as published by
25    under terms of your choice, so long as that work isn't itself a
27    as a parser skeleton.  Alternatively, if you modify or redistribute
41    variables, as they might otherwise be expanded by user macros.
296        and a page size can be as small as 4096 bytes.  So we cannot safely
1003 	  /* Avoid sprintf, as that infringes on the user's name space.
1123   /* Look-ahead token as an internal (translated) token number.  */
1174      so that they stay on the same level as the state stack.
1638 check_option(struct assignment *as)
1650     for(a = as; a != NULL; a = a->next) {
1671 	ex(as, "neither long nor short option");
1675 	ex(as, "either of long or name option must be used");
1679 	ex(as, "multiple long options");
1683 	ex(as, "multiple short options");
1687 	ex(as, "multiple types");
1691 	ex(as, "multiple arguments");
1695 	ex(as, "multiple help strings");
1699 	ex(as, "multiple default values");
1706 check_command(struct assignment *as)
1716 	for(a = as; a != NULL; a = a->next) {
1737 		ex(as, "no command name");
1741 		ex(as, "multiple function names");
1745 		ex(as, "multiple help strings");
1749 		ex(as, "multiple argument strings");
1753 		ex(as, "multiple min_args strings");
1757 		ex(as, "multiple max_args strings");
1765 check(struct assignment *as)
1769     for(a = as; a != NULL; a = a->next) {
1786 find_next(struct assignment *as, const char *name)
1788     for(as = as->next; as != NULL; as = as->next) {
1789 	if(strcmp(as->name, name) == 0)
1790 	    return as;
1796 find(struct assignment *as, const char *name)
1798     for(; as != NULL; as = as->next) {
1799 	if(strcmp(as->name, name) == 0)
1800 	    return as;
1834 gen_command(struct assignment *as)
1838     a = find(as, "name");
1844     b = find(as, "argument");
1849     b = find(as, "help");
1871 make_name(struct assignment *as)
1877     lopt = find(as, "long");
1879 	lopt = find(as, "name");
1883     type = find(as, "type");
1999 gen_wrapper(struct assignment *as)
2010     name = find(as, "name");
2013     arg = find(as, "argument");
2016     opt1 = find(as, "option");
2017     function = find(as, "function");
2039     for(tmp = find(as, "option");
2077     for(tmp = find(as, "option");
2093     for(tmp = find(as, "option");
2112 	    if((tmp = find(as, "min_args")) != NULL) {
2123 	    if((tmp = find(as, "max_args")) != NULL) {
2166     for(tmp = find(as, "option");
2185     for(tmp = find(as, "option");
2207 gen(struct assignment *as)
2220     for(a = as; a != NULL; a = a->next)
2224     for(a = as; a != NULL; a = a->next)