Branch: Tag:

1997-03-14

1997-03-14 04:39:20 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

modified check_all_args(), should be much more flexible now

Rev: src/ChangeLog:1.88
Rev: src/interpret.c:1.36
Rev: src/language.yacc:1.32
Rev: src/lex.c:1.19
Rev: src/mapping.c:1.15
Rev: src/module_support.c:1.4
Rev: src/module_support.h:1.4
Rev: src/modules/Yp/yp.c:1.4
Rev: src/modules/files/file.c:1.30
Rev: src/modules/system/system.c:1.14
Rev: src/operators.c:1.12
Rev: src/peep.in:1.7
Rev: src/pike_types.c:1.19
Rev: src/svalue.h:1.7

65:    f_default_yp_domain(0);    args = 1;    } -  check_all_args("yp->create", args, 1, BIT_STRING); +  check_all_args("yp->create", args, BIT_STRING,0);       if(this->domain)    {
84:    int retlen, retkeylen;    char *map;    struct mapping *res_map; -  check_all_args("yp->all", args, 1, BIT_STRING); +  check_all_args("yp->all", args, BIT_STRING, 0);       map = sp[-1].u.string->str;    res_map = allocate_mapping( (this->last_size?this->last_size+2:40) );
120:       struct svalue *f = &sp[-1];    -  check_all_args("map", args, 2, BIT_STRING, BIT_FUNCTION|BIT_ARRAY ); +  check_all_args("map", args, BIT_STRING, BIT_FUNCTION|BIT_ARRAY, 0 );       map = sp[-2].u.string->str;   
143:   {    int err;    unsigned long ret; -  check_all_args("yp->order()", args, 1, BIT_STRING); +  check_all_args("yp->order", args, BIT_STRING, 0);       err = yp_order( this->domain, sp[-args].u.string->str, &ret);    YPERROR("order", err );
157:    char *retval;    int retlen;    -  check_all_args("yp->match", args, 2, BIT_STRING, BIT_STRING); +  check_all_args("yp->match", args, BIT_STRING, BIT_STRING, 0);       err = yp_match( this->domain, sp[-args].u.string->str,    sp[-args+1].u.string->str, sp[-args+1].u.string->len,