Changeset 172 for SH_SHM/trunk/source/seed_io/sfd2db.c

Timestamp:

12/01/2009 07:56:45 AM (13 years ago)

Author:

marcus

Message:

r101 | svn | 2009-11-27 11:48:20 +0100 (Fr, 27 Nov 2009) | 1 line

code for renaming gec2a,gec2b to gec2; added some station info

File:

• SH_SHM/trunk/source/seed_io/sfd2db.c (modified) (4 diffs)

SH_SHM/trunk/source/seed_io/sfd2db.c

@@ -3 +3 @@
  *      ========
  *
- * $Revision: 26 $, $Date: 2008-02-11 16:00:39 +0100 (Mo, 11 Feb 2008) $
+ * $Revision: 101 $, $Date: 2009-11-27 11:48:20 +0100 (Fr, 27 Nov 2009) $
  *
  * reads lines from sfdfile and creates commands to insert into sfdb database
@@ -58 +58 @@
         TSyBoolean invhdr;                  /* invert header info in sfd entry */
         TSyBoolean baynet;                  /* convert SH to BH for Bayernnetz */
+    TSyBoolean modgec2;                 /* modify gec2a and gec2b to gec2 */
         TSyBoolean go;                      /* end tmpfile with insert statements with \g */
 
@@ -77 +78 @@
         baynet = pa_qspecified( "-baynet" );
         go = pa_qspecified( "-go" );
+        modgec2 = 1;
 
         if  (noignore)  {
@@ -268 +270 @@
                         if  (strncmp(descr.stream,"rotz-sh",7) == 0)  descr.stream[5] = 'b';
                 } /*endif*/
+                if  (modgec2)  {
+                        char tmpstr[cBcLineLth+1];
+                        if  (strncmp(descr.stream,"gec2a",5) == 0
+                                || strncmp(descr.stream,"gec2b",5) == 0)  {
+                                strcpy( tmpstr, descr.stream+5 );
+                                strcpy( descr.stream+4, tmpstr );
+                        } /*endif*/
+                } /*endif*/
 
                 /* parse stream string */