#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;
}