14 implementar visitardeclaracaotente

exemplos/delegua/falhar-sem-catch.delegua

@@ -0,0 +1,4 @@
+escreva("Antes do erro")
+falhar "mensagem de erro"
+escreva("Depois do erro - não vai aparecer")
+

exemplos/delegua/try-catch-erro.delegua

@@ -0,0 +1,8 @@
+tente {
+  falhar "Erro ocorrido"
+} pegue (erro) {
+  escreva(erro)
+} finalmente {
+  escreva("Sempre executa")
+}
+

exemplos/delegua/try-catch-simples.delegua

@@ -0,0 +1,7 @@
+tente {
+  falhar "Deu erro!"
+  escreva("Isso não vai aparecer")
+} pegue {
+  escreva("Exceção capturada")
+}
+

exemplos/delegua/try-finally.delegua

@@ -0,0 +1,6 @@
+tente {
+  escreva("Tentando...")
+} finalmente {
+  escreva("Sempre executa")
+}
+

fontes/bibliotecas/padrao.c

@@ -1,8 +1,4 @@
 #include "./padrao.h"
-#include <stdio.h>
-#include <stdarg.h>
-#include <stdlib.h>
-#include <string.h>
 
 // Utilidades
 
@@ -94,4 +90,11 @@ double numero(void *valor) {
   char *s = (char*) valor;
 
   return strtod(s, NULL);
+}
+
+void falhar(const char *msg) {
+  size_t tamanho = strlen(msg) + 1;
+  void* exc = __cxa_allocate_exception(tamanho);
+  memcpy(exc, msg, tamanho);
+  __cxa_throw(exc, &_ZTIPc, NULL);
 }

fontes/bibliotecas/padrao.h

@@ -1,7 +1,28 @@
 #pragma once
 #include <stdint.h>
+#include <stdio.h>
+#include <stdarg.h>
+#include <stdlib.h>
+#include <string.h>
+#include <stddef.h>
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+void* __cxa_allocate_exception(size_t thrown_size);
+void  __cxa_throw(void* thrown_exception, void* tinfo, void (*dest)(void*));
+void* __cxa_begin_catch(void* exception_header);
+void  __cxa_end_catch(void);
+
+extern void* _ZTIPc;
+
+#ifdef __cplusplus
+}
+#endif
 
 int escreva(const char *fmt, ...);
 void *leia(const char *texto, const char *fmt);
 int inteiro(void *valor);
-double numero(void *valor);
+double numero(void *valor);
+void falhar(const char *msg);