/***************************************************************************
 *                                                                         *
 *   LINGYN.C                                                              *
 *                                                                         *
 *   Copyright (c) 1993-1997 Galacticomm, Inc.    All Rights Reserved.     *
 *                                                                         *
 *   Multilingual yes/no conversion                                        *
 *                                                                         *
 *                                    - Robert N. Stein 2/23/93            *
 *                                                                         *
 ***************************************************************************/

#include "gcomm.h"

#define FILREV "$Revision: 4 $"

CHAR                               /*   returns 'Y' or 'N' based on clingo */
lingyn(                            /* translate input to Yes/No            */
CHAR c)                            /*   character to translate             */
{
     c=toupper(c);
     if (c == toupper(languages[clingo]->yes[0])) {
          c='Y';
     }
     else if (c == toupper(languages[clingo]->no[0])) {
          c='N';
     }
     return(c);
}
