150276Speter/****************************************************************************
2262629Sdelphij * Copyright (c) 1998-2004,2010 Free Software Foundation, Inc.              *
350276Speter *                                                                          *
450276Speter * Permission is hereby granted, free of charge, to any person obtaining a  *
550276Speter * copy of this software and associated documentation files (the            *
650276Speter * "Software"), to deal in the Software without restriction, including      *
750276Speter * without limitation the rights to use, copy, modify, merge, publish,      *
850276Speter * distribute, distribute with modifications, sublicense, and/or sell       *
950276Speter * copies of the Software, and to permit persons to whom the Software is    *
1050276Speter * furnished to do so, subject to the following conditions:                 *
1150276Speter *                                                                          *
1250276Speter * The above copyright notice and this permission notice shall be included  *
1350276Speter * in all copies or substantial portions of the Software.                   *
1450276Speter *                                                                          *
1550276Speter * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS  *
1650276Speter * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF               *
1750276Speter * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.   *
1850276Speter * IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,   *
1950276Speter * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR    *
2050276Speter * OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR    *
2150276Speter * THE USE OR OTHER DEALINGS IN THE SOFTWARE.                               *
2250276Speter *                                                                          *
2350276Speter * Except as contained in this notice, the name(s) of the above copyright   *
2450276Speter * holders shall not be used in advertising or otherwise to promote the     *
2550276Speter * sale, use or other dealings in this Software without prior written       *
2650276Speter * authorization.                                                           *
2750276Speter ****************************************************************************/
2850276Speter
2950276Speter/****************************************************************************
30166124Srafan *   Author:  Juergen Pfeifer, 1995,1997                                    *
3150276Speter ****************************************************************************/
3250276Speter
3350276Speter#include "form.priv.h"
3450276Speter
35262629SdelphijMODULE_ID("$Id: frm_scale.c,v 1.10 2010/01/23 21:14:36 tom Exp $")
3650276Speter
3750276Speter/*---------------------------------------------------------------------------
3850276Speter|   Facility      :  libnform
3950276Speter|   Function      :  int scale_form( const FORM *form, int *rows, int *cols )
4050276Speter|
4150276Speter|   Description   :  Retrieve size of form
4250276Speter|
4350276Speter|   Return Values :  E_OK              - no error
4450276Speter|                    E_BAD_ARGUMENT    - invalid form pointer
4550276Speter|                    E_NOT_CONNECTED   - no fields connected to form
4650276Speter+--------------------------------------------------------------------------*/
4776726SpeterNCURSES_EXPORT(int)
48166124Srafanscale_form(const FORM *form, int *rows, int *cols)
4950276Speter{
50262629Sdelphij  T((T_CALLED("scale_form(%p,%p,%p)"),
51262629Sdelphij     (const void *)form,
52262629Sdelphij     (void *)rows,
53262629Sdelphij     (void *)cols));
54166124Srafan
55166124Srafan  if (!form)
5650276Speter    RETURN(E_BAD_ARGUMENT);
5750276Speter
58166124Srafan  if (!(form->field))
5950276Speter    RETURN(E_NOT_CONNECTED);
60166124Srafan
61166124Srafan  if (rows)
6250276Speter    *rows = form->rows;
63166124Srafan  if (cols)
6450276Speter    *cols = form->cols;
65166124Srafan
6650276Speter  RETURN(E_OK);
6750276Speter}
6850276Speter
6950276Speter/* frm_scale.c ends here */
70