Branch: Tag:

1998-05-23

1998-05-23 12:47:11 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Fixed minor typo.
Now pops stack _after_ calling YPERROR() to avoid confusing stackframes
in the backtrace.

Rev: src/modules/Yp/yp.c:1.13

28:   #include "builtin_functions.h"   #include "module_support.h"    - RCSID("$Id: yp.c,v 1.12 1998/03/28 14:32:57 grubba Exp $"); + RCSID("$Id: yp.c,v 1.13 1998/05/23 12:47:11 grubba Exp $");    - #define YPERROR(fun,err) do{if(err)error("yp->%s(): %s\n", (fun), yperr_string( err ));}while(0) + #define YPERROR(fun,err) do{ if(err) error("yp->%s(): %s\n", (fun), \ +  yperr_string(err)); }while(0)      struct my_yp_domain   {
44:   {    int err;    char *ret; -  pop_n_elems( args ); +     err = yp_get_default_domain(&ret); -  YPERROR( "dafult_yp_domain", err ); +  +  YPERROR( "default_yp_domain", err ); +  +  pop_n_elems( args );    push_text( ret );   }   
54:   {    int err;    char *ret; +     err = yp_master(this->domain, sp[-1].u.string->str, &ret); -  pop_n_elems( args ); +     YPERROR( "server", err ); -  +  +  pop_n_elems( args );    push_text( ret );   }   
77:    }    this->domain = strdup( sp[-args].u.string->str );    err = yp_bind( this->domain ); +     YPERROR("create", err); -  +  +  pop_n_elems(args);   }      static void f_all(INT32 args)
104:    num++;    } while(!err);    -  pop_n_elems(args); +     if(err != YPERR_NOMORE)    {    free_mapping( res_map );    YPERROR( "all", err );    } -  +     this->last_size = num; -  +  pop_n_elems(args);    push_mapping( res_map );   }   
137:    &retkey, &retkeylen, &retval, &retlen);    } while(!err);    -  pop_n_elems(args); +     if(err != YPERR_NOMORE)    YPERROR( "all", err ); -  +  +  pop_n_elems(args);   }      static void f_order(INT32 args)   {    int err;    unsigned long ret; -  +     check_all_args("yp->order", args, BIT_STRING, 0);       err = yp_order( this->domain, sp[-args].u.string->str, &ret); -  +     YPERROR("order", err ); -  +     pop_n_elems( args );    push_int( (INT32) ret );   }
166:    sp[-args+1].u.string->str, sp[-args+1].u.string->len,    &retval, &retlen );    -  pop_n_elems( args ); +     if(err == YPERR_KEY)    { -  +  pop_n_elems( args );    push_int(0);    sp[-1].subtype = NUMBER_UNDEFINED;    return;    }       YPERROR( "match", err ); -  +  +  pop_n_elems( args );    push_string(make_shared_binary_string( retval, retlen ));   }