Added a workarround for Portugol with objects, now methods are just functions with the first parameter informing which object is being called

Author: jefersonla

examples/PT-Portugol/Melodia/Melodia.ino

@@ -24,15 +24,18 @@
 #include "notas.h"
 
 // Declara o vetor de duracao das notas
-vetor(numerico(), duracaoNotas, 8, {
+vetor(numerico, duracaoNotas, 8, {
   4, 8, 8, 4, 4, 4, 4, 4 
 })
 
 // Declara o vetor da melodia
-vetor(numerico(), melodia, 8, {
+vetor(numerico, melodia, 8, {
   NOTA_C4, NOTA_G3, NOTA_G3, NOTA_A3, NOTA_G3, 0, NOTA_B3, NOTA_C4
 })
 
+// Especifica o pino do alto falante
+numerico(pinoAltoFalante, 8)
+
 // Configura o arduino
 configura
 inicio
@@ -48,7 +51,7 @@ inicio
     duracaoNota = 1000 / duracaoNotas[estaNota]
 
     // Executa o tom pelo tempo definido
-    tom(8, melodia[estaNota], duracaoNota)
+    tom(pinoAltoFalante, melodia[estaNota], duracaoNota)
 
     // Como o tom é executado em paralelo, para sentirmos a diferença entre as notas
     // iremos esperar por 30% do tempo a mais, porque funciona bem
@@ -57,7 +60,7 @@ inicio
     espera(pausaEntreNotas)
 
     // Para de executar o som
-    semTom(8)
+    semTom(pinoAltoFalante)
 
   fim
 

keywords.txt

@@ -13,19 +13,32 @@ declare			KEYWORD2
 espera			KEYWORD2
 tom			KEYWORD2
 semTom			KEYWORD2
+limites			KEYWORD2
+mapeie			KEYWORD2
 
 # Methods -- KEYWORD2
 # ---------------------
 comecar			KEYWORD2
+comeca			KEYWORD2
 imprime			KEYWORD2
+imprimir			KEYWORD2
 imprimeln		KEYWORD2
+imprimirlln			KEYWORD2
+disponivel			KEYWORD2
+ler			KEYWORD2
+le			KEYWORD2
+leCaractere			KEYWORD2
+escrever			KEYWORD2
+escreve			KEYWORD2
 
 # Datatypes -- RESERVED_WORD
 # ---------------------
 numerico			RESERVED_WORD_2
 decimal			RESERVED_WORD_2
+caractere			RESERVED_WORD_2
 vetor			RESERVED_WORD_2
 declare			RESERVED_WORD_2
+constante			RESERVED_WORD_2
 
 # Reserved -- RESERVED_WORD
 # -------------------------
@@ -47,6 +60,9 @@ e			RESERVED_WORD
 para			RESERVED_WORD
 de			RESERVED_WORD
 ate			RESERVED_WORD
+ateCrescente			RESERVED_WORD
+ateDecrescente			RESERVED_WORD
+ateEm			RESERVED_WORD
 
 enquanto			RESERVED_WORD
 faca			RESERVED_WORD
@@ -92,4 +108,4 @@ keywordLITERAL2			LITERAL2
 keywordRESERVED_WORD			RESERVED_WORD
 keywordRESERVED_WORD_2			RESERVED_WORD_2
 keywordDATA_TYPE			DATA_TYPE
-keywordPREPROCESSOR			PREPROCESSOR
+keywordPREPROCESSOR			PREPROCESSOR

src/ArduinoLangPT_Portugol.h

@@ -21,7 +21,7 @@
 #define fim_algoritmo PREVENT_SEMICOLON_ERROR }
 
 // Recreate lasso to apear more like portugol
-#define se PREVENT_SEMICOLON_ERROR if( 
+#define se PREVENT_SEMICOLON_ERROR if(
 #define entao ){
 #define senaose PREVENT_SEMICOLON_ERROR } else if (
 #define senao PREVENT_SEMICOLON_ERROR } else {
@@ -41,24 +41,35 @@
 // Just types
 #define numerico0() int
 #define decimal0() float
+#define caractere0() char
+#define logico0() bool
 
 // Redefine types
 #define declareType(_TYPE, _NAME) PREVENT_SEMICOLON_ERROR _TYPE _NAME;
 #define numerico1(_NAME) declareType(int, _NAME)
 #define decimal1(_NAME) declareType(float, _NAME)
-
-// Vector Initialization
-#define vetor(_TYPE, _NAME, _SIZE, ...) PREVENT_SEMICOLON_ERROR _TYPE _NAME[_SIZE + 1] PREPEND_EQUAL_IF_NONEMPTY(__VA_ARGS__);
-//#define vetor(...) GET_MACRO(_, ##__VA_ARGS__, vetor4, vetor3, _, _, _)(__VA_ARGS__)
+#define caractere1(_NAME) declareType(char, _NAME)
+#define logico1(_NAME) declareType(bool, _NAME)
 
 // Types with values
 #define declareTypeValue(_TYPE, _NAME, _VALUE) PREVENT_SEMICOLON_ERROR _TYPE _NAME = _VALUE;
 #define numerico2(_NAME, _VALUE) declareTypeValue(int, _NAME, _VALUE)
 #define decimal2(_NAME, _VALUE) declareTypeValue(float, _NAME, _VALUE)
+#define caractere2(_NAME, _VALUE) declareTypeValue(char, _NAME, _VALUE)
+#define logico2(_NAME, _VALUE) declareTypeValue(bool, _NAME, _VALUE)
 
 // Overloaded declare functions
 #define numerico(...) GET_MACRO(_, ##__VA_ARGS__, _, _, numerico2, numerico1, numerico0)(__VA_ARGS__)
 #define decimal(...) GET_MACRO(_, ##__VA_ARGS__, _, _, decimal2, decimal1, decimal0)(__VA_ARGS__)
+#define caractere(...) GET_MACRO(_, ##__VA_ARGS__, _, _, caractere2, caractere1, caractere0)(__VA_ARGS__)
+#define logico(...) GET_MACRO(_, ##__VA_ARGS__, _, _, logico2, logico1, logico0)(__VA_ARGS__)
+
+// Vector Initialization
+#define vetor(_TYPE, _NAME, _SIZE, ...) PREVENT_SEMICOLON_ERROR _TYPE() _NAME[_SIZE + 1] PREPEND_EQUAL_IF_NONEMPTY(__VA_ARGS__);
+//#define vetor(...) GET_MACRO(_, ##__VA_ARGS__, vetor4, vetor3, _, _, _)(__VA_ARGS__)
+
+// Constantes
+#define constante(_TYPE, _NAME, _VALUE) PREVENT_SEMICOLON_ERROR _TYPE(const _NAME, _VALUE);
 
 // And then the function to declare any number of vars
 #define declare(_TYPE, ...) PREVENT_SEMICOLON_ERROR CALL_MACRO_X_FOR_EACH(_TYPE, __VA_ARGS__)
@@ -69,8 +80,18 @@
 
 // For in portugol style
 #define para PREVENT_SEMICOLON_ERROR for(
-#define de = 
-#define ate(_X, _Y) ; _X <= _Y ; _X++
+#define de =
+
+// Ate com e sem incremento crescente
+#define ateCrescente3(_X, _Y, _Z) ; _X <= _Y; _X += _Z
+#define ateCrescente2(_X, _Y) ateCrescente3(_X, _Y, 1)
+#define ateCrescente(...) GET_MACRO(_, ##__VA_ARGS__, _, ateCrescente3, ateCrescente2, _, _)(__VA_ARGS__)
+#define ate(...) ateCrescente(__VA_ARGS__)
+
+// Ate com e sem incremento decrescente
+#define ateDecrescente3(_X, _Y, _Z) ; _X >= _Y; _X -= _Z
+#define ateDecrescente2(_X, _Y) ateDecrescente3(_X, _Y, 1)
+#define ateDecrescente(...) GET_MACRO(_, ##__VA_ARGS__, _, ateDecrescente3, ateDecrescente2, _, _)(__VA_ARGS__)
 
 // Basic arduino reserved function name
 #define configura void setup()
@@ -81,20 +102,37 @@
 #define escrevaDigital(_PIN, _STATE) PREVENT_SEMICOLON_ERROR digitalWrite(_PIN, _STATE);
 #define escrevaAnalogico(_PIN, _VALUE) PREVENT_SEMICOLON_ERROR analogWrite(_PIN, _VALUE);
 #define espera(_TIME) PREVENT_SEMICOLON_ERROR delay(_TIME);
-#define tom(_TIME, _NOTE, _DURATION) PREVENT_SEMICOLON_ERROR tone(_TIME, _NOTE, _DURATION);
-#define semTom(_TIME) PREVENT_SEMICOLON_ERROR noTone(_TIME);
+#define tom(_PIN, _NOTE, _DURATION) PREVENT_SEMICOLON_ERROR tone(_PIN, _NOTE, _DURATION);
+#define semTom(_PIN) PREVENT_SEMICOLON_ERROR noTone(_PIN);
+#define limites(_VAR, _MIN, _MAX) PREVENT_SEMICOLON_ERROR constrain(_VAR, _MIN, _MAX);
+#define mapeie(_VAR, _MIN1, _MAX1, _MIN2, _MAX2) PREVENT_SEMICOLON_ERROR mapeie(_VAR, _MIN1, _MAX1, _MIN2, _MAX2)
 
 // Basic functions with return
 #define leiaAnalogico(_PIN) analogRead(_PIN);
 #define leiaDigital(_PIN) digitalRead(_PIN);
 
-// Methods
+// Methods as functions
 #define comecar begin
-#define imprime(_TEXT) println(_TEXT);
-#define imprimeln(_TEXT) print(_TEXT);
+#define comeca(_OBJECT, _SPEED) PREVENT_SEMICOLON_ERROR _OBJECT.begin(_SPEED);
+
+#define imprimir print
+#define imprime(_OBJECT, _TEXT) PREVENT_SEMICOLON_ERROR _OBJECT.print(_TEXT);
+
+#define imprimirln println
+#define imprimeln(_OBJECT, _TEXT) PREVENT_SEMICOLON_ERROR _OBJECT.println(_TEXT);
+
+#define disponivel available()
+#define estaDisponivel(_OBJECT) _OBJECT.available();
+
+#define ler read
+#define le(_OBJECT) _OBJECT.read();
+#define leCaractere le(Serial)
+
+#define escrever(_OBJECT, _CHAR) PREVENT_SEMICOLON_ERROR _OBJECT.write(_CHAR);
+#define escreve write
 
 // Avoid errors on objects
-#define Serial PREVENT_SEMICOLON_ERROR Serial
+//#define Serial PREVENT_SEMICOLON_ERROR Serial
 
 // Constants
 #define ALTO HIGH

tests/preprocessor_limits.c

@@ -148,7 +148,7 @@ inicio
 
 	escreva("Enquanto de 1 ate 10")
 	declare(numerico, i)
-	i = 0
+	i <- 0
 	enquanto i < 10 faca
 	inicio
 		escreva("Numero " variavel_numerica, i)