/* Iterate over a complex number */
int
complex_next(viter *iter)
{
    vcomplex *c = iter->object;

    switch (iter->ipos) {
    case 0:
        iter->dval[0] = c->real;
        iter->ipos++;
        return 1;
    case 1:
        iter->dval[0] = c->imag;
        iter->ipos++;
        return 1;
    }

    return 0;
}