#module NEWSDEFINE "V4.0"
/*----------------------------------------------------------------------
        N E W S . C

 Author:
     Geoff Huston
       Computer Services Centre
       Australian National University

 Functionality:
        Key definition using SMG

 Version:
    V1.0    17-Jul-1986
    V2.0    31-Jan-1987     GIH
    V3.0     6-Apr-1987     GIH     Version 3 Release
    V4.0    30-Oct-1987     GIH     NEWS Version 4.0 Release

----------------------------------------------------------------------*/

#include "newsdefine.h"
#include "newsinclude.h"
#include "newsextern.h"

/*--------------COMMAND FUNCTION-----------------------------------------
 *  d o _ d e f i n e
 *
 * define syntax DEFINE_KEY
 *   routine      do_define
 *   parameter    P1,         prompt="Key name", value(required)
 *   parameter    P2,         prompt="Equivalence name", value(required)
 *   qualifier    ECHO
 *   qualifier    TERMINATE
 *   qualifier    LOCK_STATE
 *   qualifier    IF_STATE,   value(required,list)
 *   qualifier    SET_STATE,  value(required)
 *   qualifier    LOG
 *   qualifier    ERASE
 *   disallow     ((not LOCK_STATE and TERMINATE and SET_STATE) or (LOCK_STATE and not SET_STATE))
 *
 * define verb DEFINE
 *    routine     do_error
 *    qualifier   KEY,        syntax=DEFINE_KEY
 *
 *  Fill out a key definition into the local keytable
 *----------------------------------------------------------------------
 */

do_define()
{
    clear_err_line();
    if (!((status = smg$define_key(&keytab,c$dsc(response))) & 1))
    {
        sprintf(err_oline,"\tError: Define/Key not successful (error code %X)\n",status);
        err_line(err_oline);
    }
    return(0);
}