Renamed all examples for each language, added new functions, and added a macro to expand only if __VA_ARGS__ is non empty <3

Author: jefersonla

examples/PT-Portugol/CodigoMinimo/CodigoMinimo.ino

@@ -0,0 +1,32 @@
+/*
+  Uso básico variacao
+
+  O objetivo deste código é o de apresentar a ideia de usar o arduino com linguagem
+  portugol, adaptada através do uso de diversas macros. Mais informações consultar
+  documentação do projeto ArduinoLang.
+
+  criado 28 de Fevereiro de 2018
+  por Jeferson Lima
+
+  Este exemplo está em dominio público.
+  
+*/
+
+// Inclui biblioteca para linguagem português com estilo da linguagem portugol
+#include <ArduinoLangPT_Portugol.h>
+
+// Configura o arduino
+configura
+inicio
+
+  // Inserir funções e metodos aqui que devam ser executados apenas uma vez
+
+fim
+
+// Executa o algoritmo em loop, indefinidamente
+algoritmo
+inicio
+
+  // Codigo para ser executado enquanto o mesmo estiver ligado
+
+fim

examples/DesvanecerPT_Portugol/DesvanecerPT_Portugol.ino renamed to examples/PT-Portugol/Desvanecer/Desvanecer.ino

@@ -0,0 +1,45 @@
+/*
+  Leitura Analógica Serial
+
+  Este exemplo mostra como ler um pino analógico e enviar o mesmo pela serial.
+  Você pode ler o resultado deste pelo Monitor Serial ou pelo Plotter Serial
+  encontrado em (Ferramentas > Plotter Serial).
+
+  O objetivo deste código é o de apresentar a ideia de usar o arduino com linguagem
+  portugol, adaptada através do uso de diversas macros. Mais informações consultar
+  documentação do projeto ArduinoLang.
+
+  criado 28 de Fevereiro de 2018
+  por Jeferson Lima
+
+  Este exemplo está em dominio público.
+  
+*/
+
+// Inclui biblioteca para linguagem português com estilo da linguagem portugol
+#include <ArduinoLangPT_Portugol.h>
+
+// Configura o arduino
+configura
+inicio
+
+  // Inicializa a comunicação serial
+  Serial.comecar(9600)
+
+fim
+
+// Executa o algoritmo em loop, indefinidamente
+algoritmo
+inicio
+
+  // Le o valor do pino analogico, valor este entre 0 e 1023
+  numerico(valorSensor)
+  valorSensor = leiaAnalogico(A0)
+
+  // Imprime o estado do botão na Serial
+  Serial.imprimeln(valorSensor)
+
+  // Espera por 1 milissegundo para aumentar a estabilidade
+  espera(1)
+
+fim

examples/DigitalLeituraSerialPT_Portugol/DigitalLeituraSerialPT_Portugol.ino renamed to examples/PT-Portugol/DigitalLeituraSerial/DigitalLeituraSerial.ino

@@ -0,0 +1,49 @@
+/*
+  Leitura Analógica de voltagem
+
+  Este exemplo mostra como ler a voltagem de um pino analógico e enviar o mesmo pela
+  serial. Você pode ler o resultado deste pelo Monitor Serial ou pelo Plotter Serial
+  encontrado em (Ferramentas > Plotter Serial)
+
+  O objetivo deste código é o de apresentar a ideia de usar o arduino com linguagem
+  portugol, adaptada através do uso de diversas macros. Mais informações consultar
+  documentação do projeto ArduinoLang.
+
+  criado 28 de Fevereiro de 2018
+  por Jeferson Lima
+
+  Este exemplo está em dominio público.
+  
+*/
+
+// Inclui biblioteca para linguagem português com estilo da linguagem portugol
+#include <ArduinoLangPT_Portugol.h>
+
+// Configura o arduino
+configura
+inicio
+
+  // Inicializa a comunicação serial
+  Serial.comecar(9600)
+
+fim
+
+// Executa o algoritmo em loop, indefinidamente
+algoritmo
+inicio
+
+  // Le o valor do pino analogico, valor este entre 0 e 1023
+  numerico(valorSensor)
+  valorSensor = leiaAnalogico(A0)
+
+  // Converte a leitura analogica para uma voltagem entre 0 e 5V
+  decimal(voltagem)
+  voltagem = valorSensor * (5.0 / 1023.0)
+
+  // Imprime o estado do botão na Serial
+  Serial.imprimeln(voltagem)
+
+  // Espera por 1 milissegundo para aumentar a estabilidade
+  espera(1)
+
+fim

examples/PT-Portugol/LeituraAnalogicaSerial/LeituraAnalogicaSerial.ino

@@ -0,0 +1,72 @@
+/*
+  Melodia
+
+  Executa uma melodia.
+
+  Circuito
+    - resistor de 50 ohms e alto-falante piezoelétrico
+
+  O objetivo deste código é o de apresentar a ideia de usar o arduino com linguagem
+  portugol, adaptada através do uso de diversas macros. Mais informações consultar
+  documentação do projeto ArduinoLang.
+
+  criado 28 de Fevereiro de 2018
+  por Jeferson Lima
+
+  Este exemplo está em dominio público.
+  
+*/
+
+// Inclui biblioteca para linguagem português com estilo da linguagem portugol
+#include <ArduinoLangPT_Portugol.h>
+
+// Inclui as notas
+#include "notas.h"
+
+// Declara o vetor de duracao das notas
+vetor(numerico(), duracaoNotas, 8, {
+  4, 8, 8, 4, 4, 4, 4, 4 
+})
+
+// Declara o vetor da melodia
+vetor(numerico(), melodia, 8, {
+  NOTA_C4, NOTA_G3, NOTA_G3, NOTA_A3, NOTA_G3, 0, NOTA_B3, NOTA_C4
+})
+
+// Configura o arduino
+configura
+inicio
+
+  // Percore as notas da melodia
+  numerico(estaNota)
+  para estaNota de 1 ate(estaNota, 8) faca
+  inicio
+
+    // Para calcular a duração da nota, pegue um segundo e divida pelo tipo da nota.
+    // Exemplo: quarta nota = 1000 / 4, oitava nota = 1000 / 8, etc. 
+    numerico(duracaoNota)
+    duracaoNota = 1000 / duracaoNotas[estaNota]
+    
+    // Executa o tom pelo tempo definido
+    tom(8, 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
+    numerico(pausaEntreNotas)
+    pausaEntreNotas = duracaoNota * 1.30
+    espera(pausaEntreNotas)
+
+    // Para de executar o som
+    semTom(8)
+    
+  fim
+
+fim
+
+// Executa o algoritmo em loop, indefinidamente
+algoritmo
+inicio
+
+  // Sem necessidade para repetir a música
+
+fim

examples/PT-Portugol/LeituraAnalogicaVoltagem/LeituraAnalogicaVoltagem.ino

@@ -0,0 +1,95 @@
+/*************************************************
+ * Constantes Públicas
+ *************************************************/
+
+#define NOTA_B0  31
+#define NOTA_C1  33
+#define NOTA_CS1 35
+#define NOTA_D1  37
+#define NOTA_DS1 39
+#define NOTA_E1  41
+#define NOTA_F1  44
+#define NOTA_FS1 46
+#define NOTA_G1  49
+#define NOTA_GS1 52
+#define NOTA_A1  55
+#define NOTA_AS1 58
+#define NOTA_B1  62
+#define NOTA_C2  65
+#define NOTA_CS2 69
+#define NOTA_D2  73
+#define NOTA_DS2 78
+#define NOTA_E2  82
+#define NOTA_F2  87
+#define NOTA_FS2 93
+#define NOTA_G2  98
+#define NOTA_GS2 104
+#define NOTA_A2  110
+#define NOTA_AS2 117
+#define NOTA_B2  123
+#define NOTA_C3  131
+#define NOTA_CS3 139
+#define NOTA_D3  147
+#define NOTA_DS3 156
+#define NOTA_E3  165
+#define NOTA_F3  175
+#define NOTA_FS3 185
+#define NOTA_G3  196
+#define NOTA_GS3 208
+#define NOTA_A3  220
+#define NOTA_AS3 233
+#define NOTA_B3  247
+#define NOTA_C4  262
+#define NOTA_CS4 277
+#define NOTA_D4  294
+#define NOTA_DS4 311
+#define NOTA_E4  330
+#define NOTA_F4  349
+#define NOTA_FS4 370
+#define NOTA_G4  392
+#define NOTA_GS4 415
+#define NOTA_A4  440
+#define NOTA_AS4 466
+#define NOTA_B4  494
+#define NOTA_C5  523
+#define NOTA_CS5 554
+#define NOTA_D5  587
+#define NOTA_DS5 622
+#define NOTA_E5  659
+#define NOTA_F5  698
+#define NOTA_FS5 740
+#define NOTA_G5  784
+#define NOTA_GS5 831
+#define NOTA_A5  880
+#define NOTA_AS5 932
+#define NOTA_B5  988
+#define NOTA_C6  1047
+#define NOTA_CS6 1109
+#define NOTA_D6  1175
+#define NOTA_DS6 1245
+#define NOTA_E6  1319
+#define NOTA_F6  1397
+#define NOTA_FS6 1480
+#define NOTA_G6  1568
+#define NOTA_GS6 1661
+#define NOTA_A6  1760
+#define NOTA_AS6 1865
+#define NOTA_B6  1976
+#define NOTA_C7  2093
+#define NOTA_CS7 2217
+#define NOTA_D7  2349
+#define NOTA_DS7 2489
+#define NOTA_E7  2637
+#define NOTA_F7  2794
+#define NOTA_FS7 2960
+#define NOTA_G7  3136
+#define NOTA_GS7 3322
+#define NOTA_A7  3520
+#define NOTA_AS7 3729
+#define NOTA_B7  3951
+#define NOTA_C8  4186
+#define NOTA_CS8 4435
+#define NOTA_D8  4699
+#define NOTA_DS8 4978
+
+

examples/PT-Portugol/Melodia/Melodia.ino

@@ -11,6 +11,8 @@ leiaDigital			KEYWORD2
 leiaAnalogico			KEYWORD2
 declare			KEYWORD2
 espera			KEYWORD2
+tom			KEYWORD2
+semTom			KEYWORD2
 
 # Methods -- KEYWORD2
 # ---------------------
@@ -22,10 +24,11 @@ imprimeln		KEYWORD2
 # ---------------------
 numerico			RESERVED_WORD_2
 decimal			RESERVED_WORD_2
+vetor			RESERVED_WORD_2
+declare			RESERVED_WORD_2
 
 # Reserved -- RESERVED_WORD
 # -------------------------
-enquanto			RESERVED_WORD
 
 retorna			RESERVED_WORD
 fim_algoritmo			RESERVED_WORD
@@ -41,6 +44,13 @@ senao			RESERVED_WORD
 ou			RESERVED_WORD
 e			RESERVED_WORD
 
+para			RESERVED_WORD
+de			RESERVED_WORD
+ate			RESERVED_WORD
+
+enquanto			RESERVED_WORD
+faca			RESERVED_WORD
+
 # Constants -- RESERVED_WORD_2
 # -------------------------
 ALTO			RESERVED_WORD_2
@@ -61,7 +71,6 @@ LED_INTEGRADO			RESERVED_WORD_2
 inicio			DATA_TYPE
 fim			DATA_TYPE
 fimse			DATA_TYPE
-faca			DATA_TYPE
 
 # LibNames -- DATA_TYPE
 # -------------------------

examples/PT-Portugol/Melodia/notas.h

@@ -38,19 +38,27 @@
 // Redefine reserved words
 #define retorna PREVENT_SEMICOLON_ERROR return
 
+// Just types
+#define numerico0() int
+#define decimal0() float
+
 // 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__)
+
 // 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)
 
 // Overloaded declare functions
-#define numerico(...) GET_MACRO(__VA_ARGS__, numerico2, numerico1)(__VA_ARGS__)
-#define decimal(...) GET_MACRO(__VA_ARGS__, decimal2, decimal1)(__VA_ARGS__)
+#define numerico(...) GET_MACRO(_, ##__VA_ARGS__, _, _, numerico2, numerico1, numerico0)(__VA_ARGS__)
+#define decimal(...) GET_MACRO(_, ##__VA_ARGS__, _, _, decimal2, decimal1, decimal0)(__VA_ARGS__)
 
 // And then the function to declare any number of vars
 #define declare(_TYPE, ...) PREVENT_SEMICOLON_ERROR CALL_MACRO_X_FOR_EACH(_TYPE, __VA_ARGS__)
@@ -73,6 +81,8 @@
 #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);
 
 // Basic functions with return
 #define leiaAnalogico(_PIN) analogRead(_PIN);
@@ -83,6 +93,9 @@
 #define imprime(_TEXT) println(_TEXT);
 #define imprimeln(_TEXT) print(_TEXT);
 
+// Avoid errors on objects
+#define Serial PREVENT_SEMICOLON_ERROR Serial
+
 // Constants
 #define ALTO HIGH
 #define BAIXO LOW