diff options
Diffstat (limited to 'args.c')
-rw-r--r-- | args.c | 78 |
1 files changed, 78 insertions, 0 deletions
@@ -0,0 +1,78 @@ +/* Copyright 2009-2015 + * Kaz Kylheku <kaz@kylheku.com> + * Vancouver, Canada + * All rights reserved. + * + * Redistribution of this software in source and binary forms, with or without + * modification, is permitted provided that the following two conditions are met. + * + * Use of this software in any manner constitutes agreement with the disclaimer + * which follows the two conditions. + * + * 1. Redistributions of source code must retain the above copyright + * notice, this list of conditions and the following disclaimer. + * 2. Redistributions in binary form must reproduce the above copyright + * notice, this list of conditions and the following disclaimer in + * the documentation and/or other materials provided with the + * distribution. + * + * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED + * WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF + * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL THE + * COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DAMAGES, HOWEVER CAUSED, + * AND UNDER ANY THEORY OF LIABILITY, ARISING IN ANY WAY OUT OF THE USE OF THIS + * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. + */ + +#include <stddef.h> +#include <setjmp.h> +#include <signal.h> +#include "config.h" +#include "lib.h" +#include "signal.h" +#include "unwind.h" +#include ALLOCA_H +#include "args.h" + +val args_cons_list(struct args *args); + +cnum args_limit(val name, cnum in) +{ + if (in <= ARGS_MAX) + return in; + uw_throwf(assert_s, lit("~a: too many trailing arguments (limit is ~s)"), + name, num(ARGS_MAX), nao); +} + +void args_add_list(struct args *args, val list) +{ + for (; list; list = cdr(list)) + args_add(args, car(list)); +} + +val args_add_checked(val name, struct args *args, val arg) +{ + if (args->fill >= args->argc) + uw_throwf(assert_s, lit("~a: argument list size exceeded"), name, nao); + return args_add(args, arg); +} + +val args_cons_list(struct args *args) +{ + cnum i; + list_collect_decl (out, ptail); + + for (i = 0; i < args->argc; i++) + ptail = list_collect(ptail, args->arg[i]); + + return args->list = out; +} + +val args_get_checked(val name, struct args *args, cnum *arg_index) +{ + if (args->fill == 0 && args->list) + args_add_list(args, args->list); + if (*arg_index >= args->fill) + uw_throwf(assert_s, lit("~a: insufficient arguments"), name, nao); + return args_get(args, arg_index); +} |