*** empty log message ***

1999-07-31 04:11:57 +00:00
parent df036dfb2e
commit 0b77ea9f5e
32 changed files with 489 additions and 121 deletions
--- a/harbour/include/assert.ch
+++ b/harbour/include/assert.ch
@@ -0,0 +1,29 @@
+/*
+ * $Id$
+ */
+
+#ifndef _ASSERT_CH
+#define _ASSERT_CH
+
+#ifdef NDEBUG
+
+/* When NDEBUG is definded, ignore all ASSERT() calls */
+#command ASSERT( <exp> [, <msg>] )      =>
+
+#else
+
+#command ASSERT( <exp> [, <msg>] )      =>                              ;
+         IF ( !(<exp>) )                                                ;
+       ;   OUTSTD(                                                      ;
+                   CHR(13) + CHR(10) + PROCNAME(0) +                    ;
+                   "(" + LTRIM(STR(PROCLINE())) + ")" +                 ;
+                   "  Assertion failed: " +                             ;
+                   IF( <.msg.>, <msg>, <"exp"> )                        ;
+                 )                                                      ;
+       ;   QUIT                                                         ;
+       ; ENDIF
+
+#endif /* NDEBUG */
+
+#endif /* _ASSERT_CH */
+