[Firebird-checkins] CVS: TCS/tcs/tcs common.h,NONE,1.1 time.h,NONE,1.1 tan.e,1.1.1.1,1.2

[Frank Schlottmann-G. <fs...@us...>]

Update of /cvsroot/firebird/TCS/tcs/tcs
In directory slayer.i.sourceforge.net:/tmp/cvs-serv7705/TCS/tcs/tcs

Modified Files:
	tan.e 
Added Files:
	common.h time.h 
Log Message:
Changes to get tan compiled, not very useful at the moment

***** Error reading new file: (2, 'No such file or directory')
***** Error reading new file: (2, 'No such file or directory')
Index: tan.e
===================================================================
RCS file: /cvsroot/firebird/TCS/tcs/tcs/tan.e,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** tan.e	2000/11/11 10:25:57	1.1.1.1
--- tan.e	2000/11/14 13:22:05	1.2
***************
*** 20,34 ****
   * 
   * Contributor(s): ______________________________________.
   */
  
  #include <stdio.h>
  #include <stdlib.h>
  #include <signal.h>
  #include <string.h>
  #include <sys/stat.h>
! /*************************
! #include "../jrd/common.h"
! #include "../jrd/time.h"
! *************************/
  
  #ifdef VERSION_33
--- 20,39 ----
   * 
   * Contributor(s): ______________________________________.
+  * $Log$
+  * Revision 1.2  2000/11/14 13:22:05  fsg
+  * Changes to get tan compiled, not very useful at the moment
+  *
   */
  
  #include <stdio.h>
+ #include <ctype.h>
  #include <stdlib.h>
  #include <signal.h>
  #include <string.h>
  #include <sys/stat.h>
! /* seems these are needed to compile */
! #include <gds.h>
! #include "common.h"
! #include "time.h"
  
  #ifdef VERSION_33
***************
*** 297,303 ****
  else
  #if (defined apollo || defined WIN_NT || defined OS2_ONLY)
!     db_name = "/gds/corporate/databases/rollup.gdb";
  #else
!     db_name = "/usr/gds/corporate/databases/rollup.gdb";
  #endif
  
--- 302,308 ----
  else
  #if (defined apollo || defined WIN_NT || defined OS2_ONLY)
!     db_name = "./tests/rollup.gdb";
  #else
!     db_name = "./tests/rollup.gdb";
  #endif
  
***************
*** 1555,1564 ****
  
  #ifdef apollo
! gdb_name = "/gds/tests/gtcs.gdb";
  #else
  #if (defined WIN_NT || defined OS2_ONLY)
! gdb_name = "jedi:/usr/gds/tests/gtcs.gdb";
  #else
! gdb_name = "/usr/gds/tests/gtcs.gdb";
  #endif
  #endif
--- 1560,1569 ----
  
  #ifdef apollo
! gdb_name = "./tests/gtcs.gdb";
  #else
  #if (defined WIN_NT || defined OS2_ONLY)
! gdb_name = "./tests/gtcs.gdb";
  #else
! gdb_name = "./tests/gtcs.gdb";
  #endif
  #endif
***************
*** 2106,2109 ****
--- 2111,2115 ----
  
  /* Lookup database/test */
+ /* WILL DO NOTHING UNTIL gpre IS FIXED
  
  if (args == 0)
***************
*** 2125,2128 ****
--- 2131,2136 ----
  		input_pattern, version, current_platform->dbb_system);
  
+ */
+ 
  /* This kind of fetch is easier to do in SQL than in GDML - 
   * so we now have a mixed mode program.  Note that SQL doesn't
***************
*** 2132,2137 ****
   * once and then we change databases.
   */
  EXEC SQL DECLARE LR CURSOR FOR 
!    SELECT RUN, COUNT(*), MAX(DATE), MIN(DATE) 
       FROM LTCS.FAILURES
       WHERE RUN LIKE :input_pattern
--- 2140,2151 ----
   * once and then we change databases.
   */
+ 
+ /* gpre doesn't like the aggregate functions, 
+  * so don't do it until gpre is fixed
+  * FSG 14.Nov.2000
+ 
+ 
  EXEC SQL DECLARE LR CURSOR FOR 
!      SELECT RUN, COUNT(*), MAX(DATE), MIN(DATE)
       FROM LTCS.FAILURES
       WHERE RUN LIKE :input_pattern
***************
*** 2160,2164 ****
  
  EXEC SQL CLOSE LR;
! 
  /* Close does not drop the request handle, so we drop it here.
   * Note that this depends on this SQL cursor being the only
--- 2174,2178 ----
  
  EXEC SQL CLOSE LR;
! */
  /* Close does not drop the request handle, so we drop it here.
   * Note that this depends on this SQL cursor being the only
***************
*** 2166,2175 ****
   * request handle stashed away in dbb
   */
! RELEASE_REQUESTS FOR LTCS;
  
  if (!count)
      fprintf (output, "No runs showing failures on %s/%s\n", 
  		dbb->dbb_system, dbb->dbb_platform);
! 
  return TRUE;
  }
--- 2180,2189 ----
   * request handle stashed away in dbb
   */
! /*RELEASE_REQUESTS FOR LTCS;
  
  if (!count)
      fprintf (output, "No runs showing failures on %s/%s\n", 
  		dbb->dbb_system, dbb->dbb_platform);
! */
  return TRUE;
  }
***************
*** 3339,3343 ****
  	    STORE (TRANSACTION_HANDLE rollup_trans) NEW IN DB.FAILURES
  		NEW.DATE = FAILURE.DATE;
! 		(NEW.DATE).gds_quad_low = 0;
  		strcpy (NEW.TEST_NAME, FAILURE.TEST_NAME);
  		strcpy (NEW.SYSTEM, dbb->dbb_system);
--- 3353,3357 ----
  	    STORE (TRANSACTION_HANDLE rollup_trans) NEW IN DB.FAILURES
  		NEW.DATE = FAILURE.DATE;
! /*		(NEW.DATE).gds_quad_low = 0;*/
  		strcpy (NEW.TEST_NAME, FAILURE.TEST_NAME);
  		strcpy (NEW.SYSTEM, dbb->dbb_system);