pike.git / src / pike_types.c

version» Context lines:

pike.git/src/pike_types.c:6097:    break;    case T_ZERO:    res = SAFE_IS_ZERO(sval);    break;    case PIKE_T_TYPE:    res = 1;    break;    case PIKE_T_PROGRAM:    case PIKE_T_FUNCTION:    case T_MANY: -  /* FIXME: Identify if sval is callable. */ +  /* Identify if sval is callable. */ +  res = +  (TYPEOF(*sval) == T_FUNCTION) || +  (TYPEOF(*sval) == T_PROGRAM) || +  (TYPEOF(*sval) == T_ARRAY) || +  (TYPEOF(*sval) == T_OBJECT) || +  (TYPEOF(*sval) == T_TYPE);    /* FIXME: Check arguments */    /* FIXME: Check return type */ -  res = 1; +     break;    case PIKE_T_MIXED:    res = 1;    break;    case PIKE_T_OBJECT:    if( TYPEOF( *sval ) == PIKE_T_OBJECT )    {    struct object *o = sval->u.object;    if( o->prog )    {