/*--------------------------------------------------------------------
 * FICHERO:  CarMinus.c
 * OBJETIVO: Definir la funcin Car_Minus()
 * AUTOR:    Pedro Reina
 * FECHA:    J.13.7.1995
 *------------------------------------------------------------------*/

/*--------------------------------------------------------------------
 * Ficheros de cabecera
 *------------------------------------------------------------------*/

#include "Caracter.h"

/*--------------------------------------------------------------------
 * Tabla de minsculas de cada carcter
 *------------------------------------------------------------------*/

#ifdef OLIMPO_PC
caracter Car_Minus_[256] = {
/*          0   1   2   3   4   5   6   7   8   9  10  11  12  13  14  15 */
/*   0 */   0,  1,  2,  3,  4,  5,  6,  7,  8,  9, 10, 11, 12, 13, 14, 15,
/*  16 */  16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
/*  32 */  32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
/*  48 */  48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
/*  64 */  64, 97, 98, 99,100,101,102,103,104,105,106,107,108,109,110,111,
/*  80 */ 112,113,114,115,116,117,118,119,120,121,122, 91, 92, 93, 94, 95,
/*  96 */  96, 97, 98, 99,100,101,102,103,104,105,106,107,108,109,110,111,
/* 112 */ 112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127,
/* 128 */ 135,129,130,131,132,133,134,135,136,137,138,139,140,141,132,134,
/* 144 */ 130,145,145,147,148,149,150,151,152,148,129,155,156,157,158,159,
/* 160 */ 160,161,162,163,164,164,166,167,168,169,170,171,172,173,174,175,
/* 176 */ 176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191,
/* 192 */ 192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207,
/* 208 */ 208,209,210,211,212,213,214,215,216,217,218,219,220,221,222,223,
/* 224 */ 224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239,
/* 240 */ 240,241,242,243,244,245,246,247,248,249,250,251,252,253,254,255 };
#endif

#ifdef OLIMPO_QL
caracter Car_Minus_[256] = {
/*          0   1   2   3   4   5   6   7   8   9  10  11  12  13  14  15 */
/*   0 */   0,  1,  2,  3,  4,  5,  6,  7,  8,  9, 10, 11, 12, 13, 14, 15,
/*  16 */  16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
/*  32 */  32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
/*  48 */  48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
/*  64 */  64, 97, 98, 99,100,101,102,103,104,105,106,107,108,109,110,111,
/*  80 */ 112,113,114,115,116,117,118,119,120,121,122, 91, 92, 93, 94, 95,
/*  96 */  96, 97, 98, 99,100,101,102,103,104,105,106,107,108,109,110,111,
/* 112 */ 112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127,
/* 128 */ 128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143,
/* 144 */ 144,145,146,147,148,149,150,151,152,153,154,155,156,157,158,159,
/* 160 */ 128,129,130,131,132,133,134,135,136,137,138,139,172,173,174,175,
/* 176 */ 176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191,
/* 192 */ 192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207,
/* 208 */ 208,209,210,211,212,213,214,215,216,217,218,219,220,221,222,223,
/* 224 */ 224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239,
/* 240 */ 240,241,242,243,244,245,246,247,248,249,250,251,252,253,254,255 };
#endif

/*--------------------------------------------------------------------
 * Definicin de funciones
 *------------------------------------------------------------------*/

/*--------------------------------------------------------------Olimpo
 * FUNCION:  Car_Minus()
 * OBJETIVO: Transformar un carcter en su minscula
 * ENTRADAS: Un carcter
 * SALIDAS:  El carcter en minscula o el mismo carcter
 *           si no tiene minscula
 * EJEMPLO:  Car_Minus ('')
 *------------------------------------------------------------------*/
caracter Car_Minus (c)
caracter c;
  { return ( Car_Minus_[c] ); }
