From 7dfcc480ba1e19bd3232349fc733caef94034292 Mon Sep 17 00:00:00 2001 From: stainer_t Date: Mon, 8 Sep 2025 13:48:49 +0200 Subject: Initial commit from Polytechnique Montreal --- Ganlib/src/xabort_c.c | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 Ganlib/src/xabort_c.c (limited to 'Ganlib/src/xabort_c.c') diff --git a/Ganlib/src/xabort_c.c b/Ganlib/src/xabort_c.c new file mode 100644 index 0000000..5fa4b1b --- /dev/null +++ b/Ganlib/src/xabort_c.c @@ -0,0 +1,23 @@ + +/*****************************************/ +/* GANLIB API */ +/* AUTHOR: A. Hebert ; 06/05/09 */ +/*****************************************/ + +/* +Copyright (C) 2009 Ecole Polytechnique de Montreal + +This library is free software; you can redistribute it and/or +modify it under the terms of the GNU Lesser General Public +License as published by the Free Software Foundation; either +version 2.1 of the License, or (at your option) any later version. +*/ + +#include +#include + +void xabort_c(char *msg){ + printf(" %s\n",msg); + fflush(stdout); + exit(1); +} -- cgit v1.2.3