form/common/chg_field.c

/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License, Version 1.0 only
 * (the "License").  You may not use this file except in compliance
 * with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */
/*  Copyright (c) 1988 AT&T */
/*    All Rights Reserved   */


/*
 *      Copyright (c) 1997, by Sun Microsystems, Inc.
 *      All rights reserved.
 */

#pragma ident   "%Z%%M% %I% %E% SMI"

/*LINTLIBRARY*/

#include <sys/types.h>
#include "utility.h"

#define first(f)    (f->field [Pmin(f, P(f))])
#define last(f)     (f->field [Pmax(f, P(f))])
#define sfirst(f)   (f->field [Smin(f, P(f))])
#define slast(f)    (f->field [Smax(f, P(f))])

#define Active(f)   (Opt(f, O_ACTIVE) && Opt(f, O_VISIBLE))

/* next - return next active field on page after f(user defined order) */
static FIELD *
next(FIELD *f)
{
    FORM    *t  = f->form;
    FIELD   **p = t->field + f->index;
    FIELD   **pmin  = t->field + Pmin(t, P(t));
    FIELD   **pmax  = t->field + Pmax(t, P(t));

    do
        p = p == pmax ? pmin : p+1;

    while ((!Active(*p)) && (*p != f));

    return (*p);
}

/* prev - return previous active field on page before f */
static FIELD *
prev(FIELD *f)
{
    FORM  *t    = f->form;
    FIELD **p   = t->field + f->index;
    FIELD **pmin    = t->field + Pmin(t, P(t));
    FIELD **pmax    = t->field + Pmax(t, P(t));

    do
        p = p == pmin ? pmax : p-1;

    while ((!Active(*p)) && (*p != f));

    return (*p);
}

/* snext - return next active field on page after f(sorted order) */
static FIELD *
snext(FIELD *f)
{
    FIELD *x = f;

    do
        f = f->snext;

    while ((!Active(f)) && (f != x));

    return (f);
}

/* sprev - return previous active field on page before f(sorted order) */
static FIELD *
sprev(FIELD *f)
{
    FIELD *x = f;

    do
        f = f->sprev;

    while ((!Active(f)) && (f != x));

    return (f);
}

/* left - return active field on page left of f */
static FIELD *
left(FIELD *f)
{
    int row = f->frow;

    do
        f = sprev(f);

    while (f->frow != row);

    return (f);
}

/* right - return active field on page right of f */
static FIELD *
right(FIELD *f)
{
    int row = f->frow;

    do
        f = snext(f);

    while (f->frow != row);

    return (f);
}

/* up - return active field on page above f */
static FIELD *
up(FIELD *f)
{
    int row = f->frow;
    int col = f->fcol;

    do
        f = sprev(f);

    while (f->frow == row && f->fcol != col);

    if (f->frow != row) {
        row = f->frow;

        while (f->frow == row && f->fcol > col)
            f = sprev(f);

        if (f->frow != row)
            f = snext(f);
    }
    return (f);
}

/* down - return active field on page below f */
static FIELD *
down(FIELD *f)
{
    int row = f->frow;
    int col = f->fcol;

    do
        f = snext(f);

    while (f->frow == row && f->fcol != col);

    if (f->frow != row) {
        row = f->frow;

        while (f->frow == row && f->fcol < col)
            f = snext(f);

        if (f ->frow != row)
            f = sprev(f);
    }
    return (f);
}

    /*
     *  _next_field
     */

int
_next_field(FORM *f)
{
    return (_set_current_field(f, next(C(f))));
}

int
_prev_field(FORM *f)
{
    return (_set_current_field(f, prev(C(f))));
}

int
_first_field(FORM *f)
{
    return (_set_current_field(f, next(last(f))));
}

int
_last_field(FORM *f)
{
    return (_set_current_field(f, prev(first(f))));
}

int
_snext_field(FORM *f)
{
    return (_set_current_field(f, snext(C(f))));
}

int
_sprev_field(FORM *f)
{
    return (_set_current_field(f, sprev(C(f))));
}

int
_sfirst_field(FORM *f)
{
    return (_set_current_field(f, snext(slast(f))));
}

int
_slast_field(FORM *f)
{
    return (_set_current_field(f, sprev(sfirst(f))));
}

int
_left_field(FORM *f)
{
    return (_set_current_field(f, left(C(f))));
}

int
_right_field(FORM *f)
{
    return (_set_current_field(f, right(C(f))));
}

int
_up_field(FORM *f)
{
    return (_set_current_field(f, up(C(f))));
}

int
_down_field(FORM *f)
{
    return (_set_current_field(f, down(C(f))));
}

FIELD *
_first_active(FORM *f)
{
    return (next(last(f)));
}