prolog/Objeto.cpp at main · pmerinodiaz/prolog · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
/*---------------------------------------------------------------------------*\
 | Archivo       : Objeto.cpp                                                |
 | Proyecto      : Prolog.bpr                                                |
 | Programado por: Patricio Merino - Héctor Díaz.                            |
 | Descripción   : Esta clase representa lo que es en Prolog un Objeto. Esto |
 |                 puede ser un Atomo o una Variable. Ambos son una cadena de|
 |                 caracteres, pero difieren en que una Variable debe        |
 |                 con una letra Mayúscula, en cambio el Atomo puede comenzar|
 |                 con una letra Minúscula o Mayúscula.                      |
 | Usada por     : Predicado.cpp, Interprete.cpp                             |
\*---------------------------------------------------------------------------*/

#include <vcl.h>
#pragma hdrstop
#include "Objeto.h"
#define SINTIPO  0
#define ATOMO    1
#define VARIABLE 2
#pragma package(smart_init)

/*---------------------------------------------------------------------------*\
 | Nombre        : Objeto()                                                  |
 | Programado por: Patricio Merino - Héctor Díaz.                            |
 | Entradas      : No tiene.                                                 |
 | Salidas       : No tiene.                                                 |
 | Descripción   : Método constructor en el cual se llama al constructor de  |
 |                 la clase madre y el <tipo> de Objeto se deja en valor 0.  |
\*---------------------------------------------------------------------------*/
Objeto::Objeto()
{
    Cadena();
    tipo = SINTIPO;
}

/*---------------------------------------------------------------------------*\
 | Nombre        : int obtieneTipo()                                         |
 | Programado por: Patricio Merino - Héctor Díaz.                            |
 | Entradas      : No tiene.                                                 |
 | Salidas       : El <tipo> del Objeto.                                     |
 |                 0. Sin tipo.                                              |
 |                 1. Atomo.                                                 |
 |                 2. Variable.                                              |
 | Descripción   : Este método determina si un Objeto es Variable o Atomo.   |
 |                 Para esto, se toma el primer caracter de la cadena y se ve|
 |                 si es mayúscula o no. Si lo es, entonces es Variable, en  |
 |                 caso contrario es Atomo. Posteriormente se retorna el     |
 |                 valor de <tipo>.                                          |
\*---------------------------------------------------------------------------*/
int Objeto::obtieneTipo()
{
    tipo = SINTIPO;

    char c = obtiene(0);

    if ((c >= 97) && (c <= 122))
      tipo = ATOMO;
    else if ((c >= 65) && (c <= 90 ))
           tipo = VARIABLE;

    return (tipo);
}