/* -*- LPC -*- */
/*
* $Locker: $
* $Id: ;_.c,v 1.3 2000/05/11 23:41:04 pinkfish Exp $
* $Log: ;_.c,v $
* Revision 1.3 2000/05/11 23:41:04 pinkfish
* Fix up the return values.
*
* Revision 1.2 2000/05/11 23:40:17 pinkfish
* Change the return*
*
* Revision 1.1 1998/01/06 05:10:49 ceres
* Initial revision
*
*/
/* ; command, trial out by Turrican for a commands daemon. */
#include <parser.h>
inherit "/cmds/base";
mixed cmd(string str) {
mixed res;
PARSER->init_expr(str);
res = PARSER->expr();
printf("Returns: %O\n", ((pointerp(res) && sizeof(res) == 1)?res[0]:res));
PARSER->finish_expr();
return 1;
}
