#include "config.h" #include "mud.h" #include "u.h" #include "y.tab.h" ub_strlen(who,aswho,ac,av,retnode) char *who; char *aswho; int ac; Nod *av[]; Nod *retnode; { if (ac != 1) { retnode->rv.t = VNULL; retnode->rv.iv = UERR_BADPARM; return UERR_BADPARM; } retnode->rv.iv = strlen( eval_caststr(av[0]) ); retnode->rv.t = NUM; return UERR_NONE; } ub_world(who,aswho,ac,av,retnode) char *who; char *aswho; int ac; Nod *av[]; Nod *retnode; { register int result; register char *ptr = (char *) 0; retnode->rv.t = VNULL; retnode->rv.iv = UERR_BADPARM; if ((ac < 0) || (ac > 1)) return UERR_BADPARM; if (ac) ptr = index( eval_caststr(av[0]), (int) '@' ); if (!ac || !ptr) ptr = mud_getname(); else ptr = tmpstr( ++ptr ); retnode->rv.cv = ptr; retnode->rv.t = STR; return UERR_NONE; }