Changeset 68

Timestamp:

10/30/2008 11:09:34 PM (14 years ago)

Author:

marcus

Message:

r53 | svn | 2008-10-21 09:13:49 +0200 (Di, 21 Okt 2008) | 1 line

implemented special channels (++) with translation tables

Location:

SH_SHM/trunk

Files:

• errors/ERR_5900.MSG (modified) (2 diffs)
• inputs/chantrans.txt (added)
• source/globalparams.c (modified) (4 diffs)
• source/globalparams.h (modified) (2 diffs)
• source/motif/mfexec.c (modified) (3 diffs)
• source/seed_io/seed_lib.c (modified) (2 diffs)
• source/seed_io/seed_lib.h (modified) (2 diffs)
• source/shmenuio.c (modified) (3 diffs)

SH_SHM/trunk/errors/ERR_5900.MSG

@@ -2 +2 @@
 !      ============
 !
-! version 2, 24-Aug-94
+! version 3, 20-Oct-2008
 !
 ! error messages of module cblib4.h
@@ -11 +11 @@
 *** CL4-03 negative phase difference ***
 *** CL4-04 no phase pairs found ***
+*** CL4-05 no reference location ***
+*** CL4-06 error in get_geo ***
+*** CL4-07 string overflow ***
+*** CL4-08 error opening output file ***
+*** CL4-09 error opening input file ***
+*** CL4-10 illegal reference station number ***
+*** CL4-11 filter mismatch ***
+*** CL4-12 no dummy phase allowed ***
+*** CL4-13 illegal sample index ***
+*** CL4-14 illegal order of markers ***
+*** CL4-15 no drag window ***
+*** CL4-16 unfiltered traces required ***
+*** CL4-17 no beam trace found ***
+*** CL4-18 too less traces ***
+*** CL4-19 no environment defined ***
+*** CL4-20 illegal DRM id ***
+*** CL4-21 no private AutoDRM setup ***
+*** CL4-22 illegal read length ***

SH_SHM/trunk/source/globalparams.c

@@ -3 +3 @@
  *      ==============
  *
- * $Revision: 49 $, $Date: 2008-10-14 22:36:40 +0200 (Di, 14 Okt 2008) $
+ * $Revision: 53 $, $Date: 2008-10-21 09:13:49 +0200 (Di, 21 Okt 2008) $
  *
  * Management of global parameters
@@ -425 +425 @@
         "filter_lookup_table",
         "sensitivity_file",
+        "channel_translation",
         "defpath_filter",
         "defpath_command",
@@ -435 +436 @@
         {NULL,"default",7},            /* filter_lookup_table */
         {NULL,"default",7},            /* sensitivity_file */
+        {NULL,"default",7},            /* channel_translation */
         {NULL,"default",7},            /* defpath_filter */
         {NULL,"default",7},            /* defpath_command */
@@ -618 +620 @@
                         strcat( gpv_l_glob[cGpL_sensitivity_file].string, "sensitivities.txt" );
                         gpv_l_glob[cGpL_sensitivity_file].strlth = i+17;
+                } /*endif*/
+        } /*endif*/
+        if  (strcmp(gpv_l_glob[cGpL_channel_translation].string,"default") == 0)  {
+                cptr = (char *)getenv( "SH_INPUTS" );
+                if  (cptr != NULL)  {
+                        i = strlen( cptr );
+                        /*free( gpv_l_glob[cGpL_channel_translation].string );*/
+                        gpv_l_glob[cGpL_channel_translation].string =
+                                (char *)malloc( (int)sizeof(char)*(i+14) );
+                        strcpy( gpv_l_glob[cGpL_channel_translation].string, cptr );
+                        strcat( gpv_l_glob[cGpL_channel_translation].string, "chantrans.txt" );
+                        gpv_l_glob[cGpL_channel_translation].strlth = i+13;
                 } /*endif*/
         } /*endif*/

SH_SHM/trunk/source/globalparams.h

@@ -3 +3 @@
  *      ==============
  *
- * $Revision: 49 $, $Date: 2008-10-14 22:36:40 +0200 (Di, 14 Okt 2008) $
+ * $Revision: 53 $, $Date: 2008-10-21 09:13:49 +0200 (Di, 21 Okt 2008) $
  *
  * Management of global parameters
@@ -252 +252 @@
         cGpL_filter_lookup_table,
         cGpL_sensitivity_file,
+        cGpL_channel_translation,
         cGpL_defpath_filter,
         cGpL_defpath_command,

SH_SHM/trunk/source/motif/mfexec.c

@@ -3 +3 @@
  *      ========
  *
- * $Revision: 52 $, $Date: 2008-10-17 12:57:15 +0200 (Fr, 17 Okt 2008) $
+ * $Revision: 53 $, $Date: 2008-10-21 09:13:49 +0200 (Di, 21 Okt 2008) $
  *
  * execution of SH commands
@@ -207 +207 @@
                 exit( 1 );
         } /*endif*/
+        ut_cap( statlist );
         if  (*statlist != '\0')
                 mx_remove_double_elements( statlist );
@@ -1385 +1386 @@
                 } /*endif*/
         } /*endfor*/
-
-#ifdef XXX
-        /* check buttons */
-        if  (XmToggleButtonGetState(w[k_widget_read_grsn_1hz]))  {
-                strcpy( rg->chanstr[rg->channum], "LH" );
-                (rg->channum)++;
-        } /*endif*/
-        if  (XmToggleButtonGetState(w[k_widget_read_grsn_20hz]))  {
-                strcpy( rg->chanstr[rg->channum], "BH" );
-                (rg->channum)++;
-        } /*endif*/
-        if  (XmToggleButtonGetState(w[k_widget_read_grsn_80hz]))  {
-                strcpy( rg->chanstr[rg->channum], "HH" );
-                (rg->channum)++;
-        } /*endif*/
-        if  (XmToggleButtonGetState(w[k_widget_read_grsn_edit_hz]))  {
-                str = cu_get_string( w[k_widget_read_grsn_hz_text] );
-                if  (strlen(str) <= MXC_CHANLTH && strlen(str) > 0)  {
-                        strcpy( rg->chanstr[rg->channum], str );
-                } else {
-                        printf( "*SHM: illegal channel string %s\n", str );
-                } /*endif*/
-                (rg->channum)++;
-        } /*endif*/
-#endif
 
 } /* end of mx_get_chanlist */

SH_SHM/trunk/source/seed_io/seed_lib.c

@@ -3 +3 @@
  *      ==========
  *
- * $Revision: 33 $, $Date: 2008-05-19 20:03:26 +0200 (Mo, 19 Mai 2008) $
+ * $Revision: 53 $, $Date: 2008-10-21 09:13:49 +0200 (Di, 21 Okt 2008) $
  *
  * SEED library
@@ -4178 +4178 @@
 
 
+void SeedTranslateChan( char station[], char inchan[], char outchan[] )
+
+/* Translates channel name, e.g. '++' depending on station name
+ *
+ * parameters of routine
+ * char       station[];    input; station name, e.g. 'bfo'
+ * char       inchan[];     input; channel name (length 2+term), e.g. '++'
+ * char       outchan[];    output; translated name (length 2 + term)
+ */
+{
+        /* local variables */
+        int      pathcnt;                      /* path counter (to transl. files) */
+        char     *transpath;                   /* name of translation file */
+        FILE     *fp;                          /* pointer to file */
+        char     fstr[cBcLineLth+1];           /* station+chan name */
+        int      fstrlen;                      /* length of fstr */
+        char     dstr[cBcLineLth+1];           /* default station+chan name */
+        int      dstrlen;                      /* length of dstr */
+        char     line[cBcLineLth+1];           /* current line of file */
+        char     *cptr;                        /* moving pointer */
+        char     defchan[cBcShortStrLth+1];    /* default channel */
+        TSyBoolean default_found;              /* default string found */
+
+        /* executable code */
+
+        strcpy( outchan, inchan );
+        default_found = FALSE;
+
+        /* skip this of no special channel given */
+        if  (strcmp(inchan,"++") != 0)
+                return;
+
+        /* prepare search strings */
+        if  (strlen(station)+3 > cBcLineLth)  {
+                printf( "*Seed: station name too long.  Cannot translate chan\n" );
+                return;
+        } /*endif*/
+        /* get string to search in file (station-inchan) */
+        sprintf( fstr, "%s-%s", station, inchan );
+        ut_uncap( fstr );
+        fstrlen = strlen( fstr );
+        /* default setting is also needed (*-inchan) */
+        sprintf( dstr, "*-%s", inchan );
+        ut_uncap( dstr );
+        dstrlen = strlen( dstr );
+
+        for  (pathcnt=0;;pathcnt++)  {
+                transpath = GpGetStringElem( cGpL_channel_translation, pathcnt );
+                if  (transpath == NULL)  break;
+                fp = fopen( transpath, "r" );
+                if  (fp == NULL)
+                        continue;
+                while (fgets(line,cBcLineLth,fp) != NULL)  {
+                        if  (strncmp(line,fstr,fstrlen) == 0)  {
+                                /* found entry for this station, read it and return */
+                                cptr = line+fstrlen;
+                                while  (*cptr == ' ' || *cptr == ':')
+                                        cptr++;
+                                outchan[0] = (cptr[0] > ' ') ? cptr[0] : '\0';
+                                outchan[1] = (cptr[1] > ' ') ? cptr[1] : '\0';
+                                outchan[2] = '\0';
+                                fclose( fp );
+                                return;
+                        }  else if  (strncmp(line,dstr,dstrlen) == 0)  {
+                                /* found at least a default entry, save this */
+                                cptr = line+dstrlen;
+                                while  (*cptr == ' ' || *cptr == ':')
+                                        cptr++;
+                                defchan[0] = (cptr[0] > ' ') ? cptr[0] : '\0';
+                                defchan[1] = (cptr[1] > ' ') ? cptr[1] : '\0';
+                                defchan[2] = '\0';
+                                default_found = TRUE;
+                        } /*endif*/
+                } /*endwhile*/
+                fclose( fp );
+        } /*endif*/
+
+        if  (default_found)
+                strcpy( outchan, defchan );
+
+} /* end of SeedTranslateChan */
+
+
+
+/*---------------------------------------------------------------------*/
+
+
+
 /* FORTRAN interface routine */
 

SH_SHM/trunk/source/seed_io/seed_lib.h

@@ -3 +3 @@
  *      ==========
  *
- * version 26, 21-Dec-2006
+ * $Revision: 53 $, $Date: 2008-10-21 09:13:49 +0200 (Di, 21 Okt 2008) $
  *
  * header file of module seed_lib.c
@@ -640 +640 @@
 
 /*---------------------------------------------------------------------*/
+
+
+void SeedTranslateChan( char station[], char inchan[], char outchan[] );
+
+/* Translates channel name, e.g. '++' depending on station name
+ *
+ * parameters of routine
+ * char       station[];    input; station name, e.g. 'bfo'
+ * char       inchan[];     input; channel name (length 2+term), e.g. '++'
+ * char       outchan[];    output; translated name (length 2 + term)
+ */
+
+
+/*---------------------------------------------------------------------*/

SH_SHM/trunk/source/shmenuio.c

@@ -1284 +1284 @@
         char     cmpl[BC_SHORTSTRLTH+1];   /* component list */
         char     stream[BC_SHORTSTRLTH+1]; /* stream name */
+        char     tstream[cBcShortStrLth+1];/* translated stream name (from '++') */
         char     stream_str[BC_LINELTH+1]; /* complete stream name */
         float    dt;                       /* sample distance in sec */
@@ -1426 +1427 @@
                 *tstart = '\0';
                 for  (s=0; s<statno; s++)  {
+                        SeedTranslateChan( stations[s], stream, tstream );
                         for  (c=0; c<cmpno; c++)  {
-                                if  (cmpl[c] == 'N' || cmpl[c] == 'E')  {
-                                        /*if  (strcmp(stations[s],"GRA2") == 0)  continue;*/
-                                        /*if  (strcmp(stations[s],"GRA3") == 0)  continue;*/
-                                        /*if  (strcmp(stations[s],"GRA4") == 0)  continue;*/
-                                        /*if  (strcmp(stations[s],"GRB2") == 0)  continue;*/
-                                        /*if  (strcmp(stations[s],"GRB3") == 0)  continue;*/
-                                        /*if  (strcmp(stations[s],"GRB4") == 0)  continue;*/
-                                        /*if  (strcmp(stations[s],"GRB5") == 0)  continue;*/
-                                        /*if  (strcmp(stations[s],"GRC2") == 0)  continue;*/
-                                        /*if  (strcmp(stations[s],"GRC3") == 0)  continue;*/
-                                        /*if  (strcmp(stations[s],"GRC4") == 0)  continue;*/
-                                } /*endif*/
-                                sprintf( stream_str, "%s-%s-%c", stations[s], stream, cmpl[c] );
+                                sprintf( stream_str, "%s-%s-%c", stations[s], tstream, cmpl[c] );
                                 SeedGetTimeSpan( sfdcfile, stream_str, msg, act_start, status );
                                 if  (*act_start == '\0')  {*status = BC_NOERROR; continue;}
@@ -1460 +1450 @@
         last_dt = 0.0;
         for  (s=0; s<statno; s++)  {
+                SeedTranslateChan( stations[s], stream, tstream );
                 for  (c=0; c<cmpno; c++)  {
-                        if  (cmpl[c] == 'N' || cmpl[c] == 'E')  {
-                                /*if  (strcmp(stations[s],"GRA2") == 0)  continue;*/
-                                /*if  (strcmp(stations[s],"GRA3") == 0)  continue;*/
-                                /*if  (strcmp(stations[s],"GRA4") == 0)  continue;*/
-                                /*if  (strcmp(stations[s],"GRB2") == 0)  continue;*/
-                                /*if  (strcmp(stations[s],"GRB3") == 0)  continue;*/
-                                /*if  (strcmp(stations[s],"GRB4") == 0)  continue;*/
-                                /*if  (strcmp(stations[s],"GRB5") == 0)  continue;*/
-                                /*if  (strcmp(stations[s],"GRC2") == 0)  continue;*/
-                                /*if  (strcmp(stations[s],"GRC3") == 0)  continue;*/
-                                /*if  (strcmp(stations[s],"GRC4") == 0)  continue;*/
-                        } /*endif*/
-                        sprintf( stream_str, "%s-%s-%c", stations[s], stream, cmpl[c] );
+                        sprintf( stream_str, "%s-%s-%c", stations[s], tstream, cmpl[c] );
                         /* build sfd-name if reading from jukebox */
                         if  (read_jukebox || autoread)  {