Changeset 3faeba in git

Timestamp:

Feb 19, 1998, 4:10:07 PM (26 years ago)

Author:

Jens Schmidt <schmidt@…>

Branches:

(u'spielwiese', '2fa36c576e6a4ddbb1093b43c7f8e9835e17e52a')

Children:

b257014f6f377126c7f9a83d3507e0359642b730

Parents:

4f75c36732ca1d4ce09ccab17196480bd0e5bcc0

Message:

	* ftest_util.m4: `#line' preprocessor directives added to most of
	  the macros (that's cool, man!)

	* ftest_util.m4 (ftestSetEnv): macro removed


git-svn-id: file:///usr/local/Singular/svn/trunk@1160 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• factory/ftest/ftest_util.m4 (modified) (14 diffs)

factory/ftest/ftest_util.m4

@@ -1 @@
-dnl $Id: ftest_util.m4,v 1.14 1997-12-17 12:16:11 schmidt Exp $
+dnl $Id: ftest_util.m4,v 1.15 1998-02-19 15:10:07 schmidt Exp $
 dnl
 dnl ftest_util.m4 - m4 macros used by the factory test environment.
@@ -5 +5 @@
 dnl "External" macro start with prefix `ftest', "internal" macros
 dnl with prefix `_'.
+dnl
+dnl Almost all macros insert `#line'-preprocessor directives into
+dnl code to aid debugging.
 dnl
 dnl Note: Be carefull where to place the ';'!
@@ -58 +61 @@
 define(`ftestPreprocInit', `dnl
 changecom(`//')dnl
+`#line' __line__ "__file__"
 `#include <unistd.h>
 
@@ -66 +70 @@
 
 #include "ftest_util.h"
-#include "ftest_io.h"
-'')
+#include "ftest_io.h"'
+dnl')
 
 #
@@ -73 +77 @@
 #
 define(`ftestGlobalInit', `dnl
+`#line' __line__ "__file__"
 `TIMING_DEFINE_PRINT( ftestTimer )'')
 
@@ -82 +87 @@
 #
 define(`ftestMainInit', `dnl
-`int optind = 0;
+`#line' __line__ "__file__"
+    `int optind = 0;
     ftestStatusT check = UndefinedResult;
 
@@ -92 +98 @@
     }
 
-    ftestSignalCatch()'')
+    ftestSignalCatch();
+    #line' __line__ "__file__"
+dnl')
 
 #
@@ -98 +106 @@
 #
 define(`ftestMainExit', `dnl
-`return check'')
+`#line' __line__ "__file__"
+    `return check'')
 
 #
@@ -142 +151 @@
 #
 define(`ftestGetOpts', `dnl
-`ftestGetOpts( argc, argv, optind )'')
+`#line' __line__ "__file__"
+    `ftestGetOpts( argc, argv, optind )'')
 
 #
@@ -150 +160 @@
 #
 define(`ftestGetEnv', `dnl
-`ftestGetEnv( argc, argv, optind );
+`#line' __line__ "__file__"
+    `ftestGetEnv( argc, argv, optind );
 
     ftestPrintEnv()'')
@@ -176 +187 @@
         ftestError( CommandlineError,
                     "expected '_stripTWS(`_ftestInType_$1')` at position %d in commandline\n",
-                    optind )'',
+                    optind );'',
   ``if ( argv[ optind ] ) {
         ftestArgGiven$1 = true;
         $1 = ftestGet'_stripTWS(`_ftestInType_$1')`( argv[ optind++ ] );
     } else
-        $1 = '_qstripTWS(`$2')')')
+        $1 = '_qstripTWS(`$2')`;'')
+    `#line' __line__ "__file__"
+
+dnl')
 
 #
@@ -200 +214 @@
 #
 define(`ftestRun', `dnl
-`// save random generator seed now since the algorithm
+`#line' __line__ "__file__"
+    `// save random generator seed now since the algorithm
     // most likely is going to change it
     ftestWriteSeed();
@@ -221 +236 @@
 #
 define(`ftestCheck', `dnl
-`if ( ftestCheckFlag )
+`#line' __line__ "__file__"
+    `if ( ftestCheckFlag )
         check = '_qstripTWS(`$1')')
 
@@ -240 +256 @@
 
 define(`ftestOutput', `dnl
-`ftestPrintTimer( timing_ftestTimer_time );
+`#line' __line__ "__file__"
+    `ftestPrintTimer( timing_ftestTimer_time );
     ftestPrintCheck( check )'_ftestOutput($@)')
-
-#
-# ftestSetEnv() - set factory environment.
-#
-# This macro is quite spurious, but I keep it for future
-# use.
-#
-define(`ftestSetEnv', `dnl
-`ftestSetEnv();
-    ftestPrintEnv()'')
 
 dnl switch on output again