Operaciones entre reales y enteros.

ac.syn.h

+/* A Bison parser, made by GNU Bison 3.0.4.  */
+
+/* Bison interface for Yacc-like parsers in C
+
+   Copyright (C) 1984, 1989-1990, 2000-2015 Free Software Foundation, Inc.
+
+   This program is free software: you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation, either version 3 of the License, or
+   (at your option) any later version.
+
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
+
+/* As a special exception, you may create a larger work that contains
+   part or all of the Bison parser skeleton and distribute that work
+   under terms of your choice, so long as that work isn't itself a
+   parser generator using the skeleton or a modified version thereof
+   as a parser skeleton.  Alternatively, if you modify or redistribute
+   the parser skeleton itself, you may (at your option) remove this
+   special exception, which will cause the skeleton and the resulting
+   Bison output files to be licensed under the GNU General Public
+   License without this special exception.
+
+   This special exception was added by the Free Software Foundation in
+   version 2.2 of Bison.  */
+
+#ifndef YY_YY_AC_SYN_H_INCLUDED
+# define YY_YY_AC_SYN_H_INCLUDED
+/* Debug traces.  */
+#ifndef YYDEBUG
+# define YYDEBUG 0
+#endif
+#if YYDEBUG
+extern int yydebug;
+#endif
+
+/* Token type.  */
+#ifndef YYTOKENTYPE
+# define YYTOKENTYPE
+  enum yytokentype
+  {
+    EQ = 258,
+    NE = 259,
+    LAND = 260,
+    LOR = 261,
+    LT = 262,
+    GT = 263,
+    BAND = 264,
+    BOR = 265,
+    SL = 266,
+    SR = 267,
+    DIV = 268,
+    UNARY = 269,
+    BNOT = 270,
+    ID = 271,
+    PRINT = 272,
+    READ = 273,
+    SIN = 274,
+    COS = 275,
+    TAN = 276,
+    LN = 277,
+    INT = 278,
+    FLOAT = 279,
+    STR = 280,
+    WHILE = 281,
+    IF = 282,
+    ELSE = 283,
+    DEL_BL_A = 284,
+    DEL_BL_C = 285
+  };
+#endif
+/* Tokens.  */
+#define EQ 258
+#define NE 259
+#define LAND 260
+#define LOR 261
+#define LT 262
+#define GT 263
+#define BAND 264
+#define BOR 265
+#define SL 266
+#define SR 267
+#define DIV 268
+#define UNARY 269
+#define BNOT 270
+#define ID 271
+#define PRINT 272
+#define READ 273
+#define SIN 274
+#define COS 275
+#define TAN 276
+#define LN 277
+#define INT 278
+#define FLOAT 279
+#define STR 280
+#define WHILE 281
+#define IF 282
+#define ELSE 283
+#define DEL_BL_A 284
+#define DEL_BL_C 285
+
+/* Value type.  */
+#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
+
+union YYSTYPE
+{
+#line 28 "ac.y" /* yacc.c:1909  */
+
+	struct syn_elem {
+		unsigned char type;		/* Tipo de token */
+		union {					/* Valor útil del token */
+			double real_value;	/* Como número real */
+			long int_value;		/* Como número entero */
+			char *string;		/* Como cadena de caracteres */
+			struct ast_s *node;
+		} u;
+	} s;
+
+#line 126 "ac.syn.h" /* yacc.c:1909  */
+};
+
+typedef union YYSTYPE YYSTYPE;
+# define YYSTYPE_IS_TRIVIAL 1
+# define YYSTYPE_IS_DECLARED 1
+#endif
+
+
+extern YYSTYPE yylval;
+
+int yyparse (void);
+
+#endif /* !YY_YY_AC_SYN_H_INCLUDED  */

ast.c

@@ -86,6 +86,9 @@ static symbol evaluateExpr(ast_t *node)
 	symbol value;	/* Valor de la expresión */
 	symbol left;	/* Valor del hijo izquierdo */
 	symbol right;	/* Valor del hijo derecho */
+
+	double leftVal;	/* Valor numérico del hijo izquierdo */
+	double rightVal;/* Valor numérico del hijo derecho */
 	switch (node->tag)
 	{
 		case EQ:
@@ -183,8 +186,13 @@ static symbol evaluateExpr(ast_t *node)
 			}
 			else
 			{
+				if (left.type == INT_id) leftVal = (double)left.value.integer;
+				else leftVal = left.value.real;
+				if (right.type == INT_id) rightVal = (double)right.value.integer;
+				else rightVal = right.value.real;
+
 				value.type = REAL_id;
-				value.value.real = (double)left.value.real + (double)right.value.real;
+				value.value.real = leftVal + rightVal;
 			}
 			return value;
 
@@ -200,7 +208,7 @@ static symbol evaluateExpr(ast_t *node)
 				else
 				{
 					value.type = REAL_id;
-					value.value.real = - (evaluateExpr(node->u.child.right)).value.real;
+					value.value.real = - right.value.real;
 				}
 			}
 			else
@@ -214,8 +222,13 @@ static symbol evaluateExpr(ast_t *node)
 				}
 				else
 				{
+					if (left.type == INT_id) leftVal = (double)left.value.integer;
+					else leftVal = left.value.real;
+					if (right.type == INT_id) rightVal = (double)right.value.integer;
+					else rightVal = right.value.real;
+				
 					value.type = REAL_id;
-					value.value.real = (double)left.value.real - (double)right.value.real;
+					value.value.real = leftVal - rightVal;
 				}
 			}
 			return value;
@@ -230,16 +243,27 @@ static symbol evaluateExpr(ast_t *node)
 			}
 			else
 			{
+				if (left.type == INT_id) leftVal = (double)left.value.integer;
+				else leftVal = left.value.real;
+				if (right.type == INT_id) rightVal = (double)right.value.integer;
+				else rightVal = right.value.real;
+				
 				value.type = REAL_id;
-				value.value.real = (double)left.value.real * (double)right.value.real;
+				value.value.real = leftVal * rightVal;
 			}
 			return value;	
 
 		case '/':
 			left = evaluateExpr(node->u.child.left);
 			right = evaluateExpr(node->u.child.right);
+
+			if (left.type == INT_id) leftVal = (double)left.value.integer;
+			else leftVal = left.value.real;
+			if (right.type == INT_id) rightVal = (double)right.value.integer;
+			else rightVal = right.value.real;
+				
 			value.type = REAL_id;
-			value.value.real = (double)left.value.real / (double)right.value.real;
+			value.value.real = leftVal / rightVal;
 			return value;
 
 		case '%':
@@ -252,8 +276,13 @@ static symbol evaluateExpr(ast_t *node)
 			}
 			else
 			{
+				if (left.type == INT_id) leftVal = (double)left.value.integer;
+				else leftVal = left.value.real;
+				if (right.type == INT_id) rightVal = (double)right.value.integer;
+				else rightVal = right.value.real;
+				
 				value.type = REAL_id;
-				value.value.real = fmod((double)left.value.real, (double)right.value.real);
+				value.value.real = fmod(leftVal, rightVal);
 			}
 			return value;
 
@@ -274,8 +303,13 @@ static symbol evaluateExpr(ast_t *node)
 			}
 			else
 			{
+				if (left.type == INT_id) leftVal = (double)left.value.integer;
+				else leftVal = left.value.real;
+				if (right.type == INT_id) rightVal = (double)right.value.integer;
+				else rightVal = right.value.real;
+				
 				value.type = REAL_id;
-				value.value.real = pow((double)left.value.real, (double)right.value.real);
+				value.value.real = pow(leftVal, rightVal);
 			}
 			return value;
 
@@ -311,7 +345,7 @@ static symbol evaluateExpr(ast_t *node)
 
 		case BNOT:
 			right = evaluateExpr(node->u.child.right);
-			if (left.type == INT_id && right.type == INT_id)
+			if (right.type == INT_id)
 			{
 				value.type = INT_id;
 				value.value.integer = ~right.value.integer;
@@ -367,23 +401,43 @@ static symbol evaluateExpr(ast_t *node)
 			return get(node->u.str);
 
 		case SIN:
+			left = evaluateExpr(node->u.child.left);
+
+			if (left.type == INT_id) leftVal = (double)left.value.integer;
+			else leftVal = left.value.real;
+
 			value.type = REAL_id;
-			value.value.real = sin((double)evaluateExpr(node->u.child.left).value.real);
+			value.value.real = sin(leftVal);
 			return value;
 
 		case COS:
+			left = evaluateExpr(node->u.child.left);
+
+			if (left.type == INT_id) leftVal = (double)left.value.integer;
+			else leftVal = left.value.real;
+
 			value.type = REAL_id;
-			value.value.real = cos((double)evaluateExpr(node->u.child.left).value.real);
+			value.value.real = cos(leftVal);
 			return value;
 
 		case TAN:
+			left = evaluateExpr(node->u.child.left);
+
+			if (left.type == INT_id) leftVal = (double)left.value.integer;
+			else leftVal = left.value.real;
+
 			value.type = REAL_id;
-			value.value.real = tan((double)evaluateExpr(node->u.child.left).value.real);
+			value.value.real = tan(leftVal);
 			return value;
 
 		case LN:
+			left = evaluateExpr(node->u.child.left);
+
+			if (left.type == INT_id) leftVal = (double)left.value.integer;
+			else leftVal = left.value.real;
+
 			value.type = REAL_id;
-			value.value.real = log((double)evaluateExpr(node->u.child.left).value.real);
+			value.value.real = log(leftVal);
 			return value;
 
 		default:

ejemplos/media.a

+print "Programa para calcular la media de varios numeros."
+
+// La suma acumulada se guarda en "suma"
+suma = 0
+// "contador" cuenta la cantidad de números leídos
+contador = 0
+// "input" es una bandera para seguir leyendo números
+input = 1
+
+// Comenzamos leyendo un número
+while (input == 1) {
+	read "Introduzca el siguiente numero: " x
+	suma = suma + x
+	contador = contador + 1
+
+	read "Introduzca 1 si desea introducir mas numeros: " input
+	// Se sigue leyendo mientras el usuario introduzca "1"
+}
+
+print ""	// Impresión de una línea vacía
+media = suma / contador
+print "La media es " media