Movida la BEPD de PseudoD 2.1.0 a 2.2.0

alinarezrangel · Aug 13, 2017 · 59a7651 · 59a7651
1 parent 31fdb41
commit 59a7651
Show file tree

Hide file tree

Showing 26 changed files with 241 additions and 190 deletions.
diff --git a/bepd/builtins.pseudo b/bepd/builtins.pseudo
@@ -157,9 +157,9 @@ con el que es creado.
 
 @races None
 DOCUMENTA]
-funcion PunteroInteligente#apuntar con yo y otro
+metodo PunteroInteligente#apuntar con yo y otro
 	redireccionar <yo>#direccion <otro>
-finfun
+finmetodo
 
 [DOCUMENTA
 @brief Determina si el puntero es nulo.
@@ -172,13 +172,13 @@ Un puntero nulo apunta a la variable <NULO>.
 
 @races None
 DOCUMENTA]
-funcion PunteroInteligente#esNulo con yo
+metodo PunteroInteligente#esNulo con yo
 	si son iguales <yo>#direccion y NULO#NOMBRE
 		devolver VERDADERO
 	sino
 		devolver FALSO
 	nl
-finfun
+finmetodo
 
 adquirir ___codigo_pseudod_buffer_interno___
 puntero # ___codigo_pseudod_buffer_interno___

diff --git a/bepd/cl/buffertexto.pseudo b/bepd/cl/buffertexto.pseudo
@@ -217,7 +217,7 @@ funcion BufferTexto#leerCaracter con yo
 
 		liberar caracter
 		liberar tam_buffer
-	fin
+	finsi
 finfun
 
 [DOCUMENTA
@@ -257,7 +257,7 @@ funcion BufferTexto#leerPalabra con yo
 		fijar linea a {}
 
 		fijar cond a
-			si tanto
+			tanto
 				no llamar TipoCaracter#EsEspacioEnBlanco caracter finargs
 			como
 				comparar Importar.Ent.Comparar <yo>#cursor < tam_buffer
@@ -269,7 +269,7 @@ funcion BufferTexto#leerPalabra con yo
 			Importar.Cad.Concatenar linea caracter linea
 
 			fijar cond a
-				si tanto
+				tanto
 					no llamar TipoCaracter#EsEspacioEnBlanco caracter finargs
 				como
 					comparar Importar.Ent.Comparar <yo>#cursor < tam_buffer
@@ -283,7 +283,7 @@ funcion BufferTexto#leerPalabra con yo
 		liberar linea
 		liberar tam_buffer
 		liberar cond
-	fin
+	finsi
 finfun
 
 [DOCUMENTA
@@ -315,7 +315,7 @@ funcion BufferTexto#leerLinea con yo
 		fijar linea a {}
 
 		fijar cond a
-			si tanto
+			tanto
 				no llamar TipoCaracter#EsFinDeLinea caracter finargs
 			como
 				comparar Importar.Ent.Comparar <yo>#cursor < tam_buffer
@@ -327,7 +327,7 @@ funcion BufferTexto#leerLinea con yo
 			Importar.Cad.Concatenar linea caracter linea
 
 			fijar cond a
-				si tanto
+				tanto
 					no llamar TipoCaracter#EsFinDeLinea caracter finargs
 				como
 					comparar Importar.Ent.Comparar <yo>#cursor < tam_buffer
@@ -341,7 +341,7 @@ funcion BufferTexto#leerLinea con yo
 		liberar linea
 		liberar tam_buffer
 		liberar cond
-	fin
+	finsi
 finfun
 
 [DOCUMENTA
@@ -376,7 +376,7 @@ funcion BufferTexto#leerBloque con yo y tam_bloque
 		fijar tam_bql a {0}
 
 		fijar cond a
-			si tanto
+			tanto
 				comparar Importar.Ent.Comparar tam_bql <= tam_bloque
 			como
 				comparar Importar.Ent.Comparar <yo>#cursor < tam_buffer
@@ -389,7 +389,7 @@ funcion BufferTexto#leerBloque con yo y tam_bloque
 			Importar.Cad.Concatenar bloque caracter bloque
 
 			fijar cond a
-				si tanto
+				tanto
 					comparar Importar.Ent.Comparar tam_bql <= tam_bloque
 				como
 					comparar Importar.Ent.Comparar <yo>#cursor < tam_buffer
@@ -404,7 +404,7 @@ funcion BufferTexto#leerBloque con yo y tam_bloque
 		liberar tam_buffer
 		liberar cond
 		liberar tam_bql
-	fin
+	finsi
 finfun
 
 [DOCUMENTA

diff --git a/bepd/cl/decimal.pseudo b/bepd/cl/decimal.pseudo
@@ -51,11 +51,11 @@ finclase
 
 @races None
 DOCUMENTA]
-funcion Decimal#sumar con yo y der y res
+metodo Decimal#sumar con yo y der y res
 	fijar <res>#valor a llamar Sumar
 		<yo>#valor <der>#valor
 	finargs
-finfun
+finmetodo
 
 [DOCUMENTA
 @brief `Decimal#restar` - Resta dos Decimales.
@@ -66,11 +66,11 @@ finfun
 
 @races None
 DOCUMENTA]
-funcion Decimal#restar con yo y der y res
+metodo Decimal#restar con yo y der y res
 	fijar <res>#valor a llamar Restar
 		<yo>#valor <der>#valor
 	finargs
-finfun
+finmetodo
 
 [DOCUMENTA
 @brief `Decimal#multiplicar` - Multiplica dos Decimales.
@@ -81,11 +81,11 @@ finfun
 
 @races None
 DOCUMENTA]
-funcion Decimal#multiplicar con yo y der y res
+metodo Decimal#multiplicar con yo y der y res
 	fijar <res>#valor a llamar Multiplicar
 		<yo>#valor <der>#valor
 	finargs
-finfun
+finmetodo
 
 [DOCUMENTA
 @brief `Decimal#dividir` - Divide dos Decimales.
@@ -96,8 +96,8 @@ finfun
 
 @races None
 DOCUMENTA]
-funcion Decimal#dividir con yo y der y res
+metodo Decimal#dividir con yo y der y res
 	fijar <res>#valor a llamar Dividir
 		<yo>#valor <der>#valor
 	finargs
-finfun
+finmetodo
diff --git a/bepd/cl/elementoaritmetico.pseudo b/bepd/cl/elementoaritmetico.pseudo
@@ -46,9 +46,9 @@ finclase
 
 @races None
 DOCUMENTA]
-funcion ElementoMatematico#sumar con yo y izq y res
+metodo ElementoMatematico#sumar con yo y izq y res
 	necesitas FALSO
-finfun
+finmetodo
 
 [DOCUMENTA
 @brief `ElementoAritmetico#restar` - Resta dos elementos (`res = yo - der`)
@@ -59,9 +59,9 @@ finfun
 
 @races None
 DOCUMENTA]
-funcion ElementoMatematico#restar con yo y izq y res
+metodo ElementoMatematico#restar con yo y izq y res
 	necesitas FALSO
-finfun
+finmetodo
 
 [DOCUMENTA
 @brief `ElementoAritmetico#multiplicar` - Multiplica dos elementos \
@@ -73,9 +73,9 @@ finfun
 
 @races None
 DOCUMENTA]
-funcion ElementoMatematico#multiplicar con yo y izq y res
+metodo ElementoMatematico#multiplicar con yo y izq y res
 	necesitas FALSO
-finfun
+finmetodo
 
 [DOCUMENTA
 @brief `ElementoAritmetico#dividir` - Divide dos elementos (`res = yo / der`)
@@ -86,6 +86,6 @@ finfun
 
 @races None
 DOCUMENTA]
-funcion ElementoMatematico#dividir con yo y izq y res
+metodo ElementoMatematico#dividir con yo y izq y res
 	necesitas FALSO
-finfun
+finmetodo
diff --git a/bepd/cl/fraccion.pseudo b/bepd/cl/fraccion.pseudo
@@ -54,15 +54,15 @@ Almacena el resultado en el argumento res.
 
 @races None
 DOCUMENTA]
-funcion Fraccion#sumar con yo y der y res
+metodo Fraccion#sumar con yo y der y res
 	fijar <res>#numerador a llamar Sumar
 		llamar Multiplicar <yo>#numerador <der>#denominador finargs
 		llamar Multiplicar <yo>#denominador <der>#numerador finargs
 	finargs
 	fijar <res>#denominador a llamar Multiplicar
 		<yo>#denominador <der>#denominador
 	finargs
-finfun
+finmetodo
 
 [DOCUMENTA
 @brief `Fraccion#restar` - Resta dos fracciones.
@@ -76,15 +76,15 @@ Almacena el resultado en el argumento res.
 
 @races None
 DOCUMENTA]
-funcion Fraccion#restar con yo y der y res
+metodo Fraccion#restar con yo y der y res
 	fijar <res>#numerador a llamar Restar
 		llamar Multiplicar <yo>#numerador <der>#denominador finargs
 		llamar Multiplicar <yo>#denominador <der>#numerador finargs
 	finargs
 	fijar <res>#denominador a llamar Multiplicar
 		<yo>#denominador <der>#denominador
 	finargs
-finfun
+finmetodo
 
 [DOCUMENTA
 @brief `Fraccion#multiplicar` - Multiplica dos fracciones.
@@ -98,14 +98,14 @@ Almacena el resultado en el argumento res.
 
 @races None
 DOCUMENTA]
-funcion Fraccion#multiplicar con yo y der y res
+metodo Fraccion#multiplicar con yo y der y res
 	fijar <res>#numerador a llamar Multiplicar
 		<yo>#numerador <der>#numerador
 	finargs
 	fijar <res>#denominador a llamar Multiplicar
 		<yo>#denominador <der>#denominador
 	finargs
-finfun
+finmetodo
 
 [DOCUMENTA
 @brief `Fraccion#dividir` - Divide dos fracciones.
@@ -119,11 +119,11 @@ Almacena el resultado en el argumento res.
 
 @races None
 DOCUMENTA]
-funcion Fraccion#dividir con yo y der y res
+metodo Fraccion#dividir con yo y der y res
 	fijar <res>#numerador a llamar Multiplicar
 		<yo>#numerador <der>#denominador
 	finargs
 	fijar <res>#denominador a llamar Multiplicar
 		<yo>#denominador <der>#numerador
 	finargs
-finfun
+finmetodo
diff --git a/bepd/cl/numero.pseudo b/bepd/cl/numero.pseudo
@@ -51,11 +51,11 @@ finclase
 
 @races None
 DOCUMENTA]
-funcion Numero#sumar con yo y der y res
+metodo Numero#sumar con yo y der y res
 	fijar <res>#valor a llamar Sumar
 		<yo>#valor <der>#valor
 	finargs
-finfun
+finmetodo
 
 [DOCUMENTA
 @brief `Numero#restar` - Resta dos Numeros.
@@ -66,11 +66,11 @@ finfun
 
 @races None
 DOCUMENTA]
-funcion Numero#restar con yo y der y res
+metodo Numero#restar con yo y der y res
 	fijar <res>#valor a llamar Restar
 		<yo>#valor <der>#valor
 	finargs
-finfun
+finmetodo
 
 [DOCUMENTA
 @brief `Numero#multiplicar` - Multiplica dos Numeros.
@@ -81,11 +81,11 @@ finfun
 
 @races None
 DOCUMENTA]
-funcion Numero#multiplicar con yo y der y res
+metodo Numero#multiplicar con yo y der y res
 	fijar <res>#valor a llamar Multiplicar
 		<yo>#valor <der>#valor
 	finargs
-finfun
+finmetodo
 
 [DOCUMENTA
 @brief `Numero#dividir` - Divide dos Numeros.
@@ -96,8 +96,8 @@ finfun
 
 @races None
 DOCUMENTA]
-funcion Numero#dividir con yo y der y res
+metodo Numero#dividir con yo y der y res
 	fijar <res>#valor a llamar Dividir
 		<yo>#valor <der>#valor
 	finargs
-finfun
+finmetodo
diff --git a/bepd/fn/asertar.pseudo b/bepd/fn/asertar.pseudo
@@ -63,21 +63,22 @@ argumento. Véase <VG_ASERTAR_FALSO_ES_FATAL> y
 Ejecuta `necesitas FALSO` cuando la condición es falsa, `necesitas` lanza
 un error de semantica y por ende, esta función también.
 DOCUMENTA]
-funcion Asertar de mensaje y condicion
+procedimiento Asertar de mensaje y condicion
 	si no condicion
 		llamar ImprimirLinea
 			{Error fatal en Asertar (tipos.pseudo):}
 			mensaje
 			NULO
 		finargs
+
 		si VG_ASERTAR_FALSO_ES_FATAL
 			necesitas FALSO
 		sino
 			si no VG_ASERTAR_NO_IMPRIME_ADVERTENCIAS
 				llamar EscribirLinea
 					{Advertencia en Asertar (tipos.pseudo): VG_ASERTAR_FALSO_ES_FATAL es FALSO}
 				finargs
-			fin
-		fin
-	fin
-finfun
+			finsi
+		finsi
+	finsi
+finprocedimiento
diff --git a/bepd/fn/atributosdinamicos.pseudo b/bepd/fn/atributosdinamicos.pseudo
@@ -33,10 +33,10 @@ Equivalente a escribir `instancia tattr yo#nattr`.
 @races Fatal.HaveAttr
 Si el atributo ya existe, lanzara un error fatal.
 DOCUMENTA]
-funcion CrearAtributoDinamico de yo y nombre_atributo y tipo_atributo
+procedimiento CrearAtributoDinamico de yo y nombre_atributo y tipo_atributo
 	[ instancia tattr yo#nattr ]
 	instancia <tipo_atributo> <yo>#<nombre_atributo>
-finfun
+finprocedimiento
 
 [DOCUMENTA
 @brief `DestruirAtributoDinamico` - Destruye un atributo dinamico.
@@ -48,7 +48,7 @@ Este puede ser creado con <CrearAtributoDinamico>.
 @races Fatal.NonAttr
 De ya estar destruido el atributo, lanzara un error fatal.
 DOCUMENTA]
-funcion DestruirAtributoDinamico de yo y nombre_atributo
+procedimiento DestruirAtributoDinamico de yo y nombre_atributo
 	[ instancia tattr yo#nattr ]
 	liberar <yo>#<nombre_atributo>
-finfun
+finprocedimiento