X-Git-Url: https://pd.if.org/git/?a=blobdiff_plain;f=functions%2Fassert.c;fp=functions%2Fassert.c;h=37213474d42d947ffb8780a69bca4d1672966e44;hb=f36203b64ed60547688aeb3f614b3d1c1f581c27;hp=0000000000000000000000000000000000000000;hpb=15e3f8a309359e62810df3cd1dafaf77481452a2;p=pdclib.old

diff --git a/functions/assert.c b/functions/assert.c
new file mode 100644
index 0000000..3721347
--- /dev/null
+++ b/functions/assert.c
@@ -0,0 +1,17 @@
+// ----------------------------------------------------------------------------
+// $Id$
+// ----------------------------------------------------------------------------
+// Public Domain C Library - http://pdclib.sourceforge.net
+// This code is Public Domain. Use, modify, and redistribute at will.
+// ----------------------------------------------------------------------------
+
+#include <stdlib.h>
+#include <stdio.h>
+
+__assert( char const * const expression, char const * const file,
+          char const * const function, int const line )
+{
+    fprintf(stderr, "Assertion failed: %s, function %s, file %s, line %d.\n",
+                    expression, function, file, line );
+    abort();
+}