Changeset 30
- Timestamp:
- 10/30/2008 10:35:00 PM (15 years ago)
- Location:
- SH_SHM/trunk
- Files:
-
- 2 deleted
- 6 edited
-
doc/html/sfdb.html (modified) (1 diff)
-
doc/html/sfdb_archiving.html (modified) (2 diffs)
-
source/Makefile (modified) (1 diff)
-
source/causrdef.h (deleted)
-
source/cmdargs.c (deleted)
-
source/motif/shm.c (modified) (11 diffs)
-
source/seismhan.c (modified) (2 diffs)
-
source/shexec.c (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
-
SH_SHM/trunk/doc/html/sfdb.html
r16 r30 53 53 </P> 54 54 <P> 55 Based on this concept on (A)-, (B)- and (C)-type fil s an55 Based on this concept on (A)-, (B)- and (C)-type files an 56 56 <a href="sfdb_archiving.html">archiving system</a> is implemented at the SZGRF. 57 57 </P> -
SH_SHM/trunk/doc/html/sfdb_archiving.html
r16 r30 97 97 <h3>Archiving routines</h3> 98 98 The routines for processing the archiving functions are <i>ArchAtoB.py</i> and 99 <i>archiver.py</i>. Both Python scripts are in the directory <i>$ SH_UTIL/sfdb</i>.99 <i>archiver.py</i>. Both Python scripts are in the directory <i>$DPROG/sfdb</i>. 100 100 A typical crontab entry would look like 101 101 </p> 102 102 <p><i> 103 22 3,6,9 * * * / usr/local/SH/shlink/util/sfdb/ArchAtoB.py 12 >>log/ArchAtoB.log 2>&1<br>104 59 15 * * * / usr/local/SH/shlink/util/sfdb/archiver.py >>log/archiver.log 2>&1103 22 3,6,9 * * * /programs/linux/dprog/sfdb/ArchAtoB.py 12 >>log/ArchAtoB.log 2>&1<br> 104 59 15 * * * /programs/linux/dprog/sfdb/archiver.py >>log/archiver.log 2>&1 105 105 </i></p> 106 106 <p> … … 116 116 </p> 117 117 118 <P><small>This page last modified 2 8-Feb-2007</small></P>118 <P><small>This page last modified 21-Jan-2008</small></P> 119 119 </BODY> 120 120 </HTML> -
SH_SHM/trunk/source/Makefile
r20 r30 32 32 33 33 LOCAL_SRCS = \ 34 cmdargs.clogplot.c recfiltr.c shlib.c shmenuio.c timeconv.c \34 logplot.c recfiltr.c shlib.c shmenuio.c timeconv.c \ 35 35 cmdparse.c matrixhd.c shmath.c shmenux.c travtime.c residual.c \ 36 36 cpar.c numres.c shcorr.c shmenu0.c shmidlev.c usrinpw.c \ -
SH_SHM/trunk/source/motif/shm.c
r28 r30 3 3 * ===== 4 4 * 5 * $Revision: 1 3 $, $Date: 2008-01-18 10:01:21 +0100 (Fr, 18Jan 2008) $5 * $Revision: 15 $, $Date: 2008-01-25 11:48:08 +0100 (Fr, 25 Jan 2008) $ 6 6 * 7 7 * main module of shm … … 57 57 #include "shvars.h" 58 58 #include "shdirs.h" 59 #include "c ausrdef.h"59 #include "cpar.h" 60 60 #include "tcusrdef.h" 61 61 #include "earthloc.h" … … 594 594 static TSyBoolean xmv_polar_on=FALSE; /* particle motion switched on */ 595 595 static TSyBoolean xmv_keeptrc_auto=FALSE; /* 'Keep Traces' Button autom. */ 596 static TSyBoolean xmv_onlymainwdw=FALSE; /* open only main window*/596 static char xmv_openwdw[cBcShortStrLth+1]; /* which windows to open */ 597 597 /*static char xmv_filter_name[cBcShortStrLth+1][MAXFILNAME];*/ /* filter names */ 598 598 /* theoretical phases (must be same sequence as in dialog box) */ … … 678 678 /* executable code */ 679 679 680 681 680 printf( "\n" ); 682 681 printf( "SeismicHandler version 2.4i (16-Jan-2008), Copyright (C) 2006\n" ); … … 688 687 printf( "\n" ); 689 688 689 /* for optional parameters; -exec=<proc>, -evt=<evt>, -openwdw=<wdw> */ 690 pa_init( argc, argv ); 691 690 692 /* read global parameters */ 691 693 GpReadParfile(); … … 794 796 } /*endif*/ 795 797 796 { 797 /* check whether to open only main window */ 798 char parval[cBcLineLth+1]; 799 ca_qstr( argc, argv, "wdw", parval ); 800 if (strcmp(parval+1,"m") == 0) 801 xmv_onlymainwdw = TRUE; 802 } 798 /* check which windows to open */ 799 if (pa_qspecified("-openwdw")) { 800 strncpy( xmv_openwdw, pa_qvalue("-openwdw"), cBcShortStrLth ); 801 } else { 802 strcpy( xmv_openwdw, "mspe" ); 803 } /*endif*/ 803 804 804 805 xm_initialize(); … … 810 811 /* take SH script and evt file from command line */ 811 812 { 812 char autoexec[cBcLineLth+1]=""; /* autoexec name */ 813 ca_qstr( argc, argv, "exec", autoexec ); 814 if (*autoexec != '\0') { 815 printf( "--> execute auto .%s.\n", autoexec+1 ); 816 status = cBcNoError; 817 callsh( autoexec+1, &n, &status ); 818 mg_tracedisplay( xmv_w[k_widget_draw], &xmv_dspctrl, &status ); 819 } /*endif*/ 820 ca_qstr( argc, argv, "evt", autoexec ); 821 if (*autoexec != '\0') { 822 printf( "--> execute evt .%s.\n", autoexec+1 ); 823 status = cBcNoError; 824 cl3_restore_from_evt( autoexec+1, xmv_cpar, NULL, &status ); 825 mg_tracedisplay( xmv_w[k_widget_draw], &xmv_dspctrl, &status ); 826 } /*endif*/ 813 char autoexec[cBcLineLth+1]=""; /* autoexec name */ 814 if (pa_qspecified("-exec")) { 815 strncpy( autoexec, pa_qvalue("-exec"), cBcLineLth ); 816 if (GpGetInt(cGpI_debug_level) > 0) 817 printf( "SHM-dbg1: execute auto .%s.\n", autoexec+1 ); 818 status = cBcNoError; 819 callsh( autoexec+1, &n, &status ); 820 mg_tracedisplay( xmv_w[k_widget_draw], &xmv_dspctrl, &status ); 821 } /*endif*/ 822 if (pa_qspecified("-evt")) { 823 strncpy( autoexec, pa_qvalue("-evt"), cBcLineLth ); 824 if (GpGetInt(cGpI_debug_level) > 0) 825 printf( "SHM-dbg1: load evt %s\n", autoexec+1 ); 826 status = cBcNoError; 827 cl3_restore_from_evt( autoexec+1, xmv_cpar, NULL, &status ); 828 mg_tracedisplay( xmv_w[k_widget_draw], &xmv_dspctrl, &status ); 829 } /*endif*/ 827 830 } 828 831 … … 4926 4929 if (XtIsManaged(widget)) XtUnmanageChild( widget ); 4927 4930 if (w > 0 && h > 0) XtConfigureWidget( widget, x, y, w, h, border ); 4928 XtManageChild( widget ); 4929 XtMoveWidget( XtParent(widget), x, y ); 4931 if (strchr(xmv_openwdw,'m') != NULL) { 4932 XtManageChild( widget ); 4933 XtMoveWidget( XtParent(widget), x, y ); 4934 } /*endif*/ 4930 4935 4931 4936 widget = wa[k_widget_single_draw_box]; … … 4937 4942 if (XtIsManaged(widget)) XtUnmanageChild( widget ); 4938 4943 if (w > 0 && h > 0) XtConfigureWidget( widget, x, y, w, h, border ); 4939 if ( !xmv_onlymainwdw) {4944 if (strchr(xmv_openwdw,'s') != NULL) { 4940 4945 XtManageChild( widget ); 4941 4946 XtMoveWidget( XtParent(widget), x, y ); … … 4950 4955 if (XtIsManaged(widget)) XtUnmanageChild( widget ); 4951 4956 if (w > 0 && h > 0) XtConfigureWidget( widget, x, y, w, h, border ); 4952 if ( !xmv_onlymainwdw) {4957 if (strchr(xmv_openwdw,'p') != NULL) { 4953 4958 XtManageChild( widget ); 4954 4959 XtMoveWidget( XtParent(widget), x, y ); … … 4963 4968 if (XtIsManaged(widget)) XtUnmanageChild( widget ); 4964 4969 if (w > 0 && h > 0) XtConfigureWidget( widget, x, y, w, h, border ); 4965 if ( !xmv_onlymainwdw) {4970 if (strchr(xmv_openwdw,'e') != NULL) { 4966 4971 XtManageChild( widget ); 4967 4972 XtMoveWidget( XtParent(widget), x, y ); -
SH_SHM/trunk/source/seismhan.c
r22 r30 3 3 * ========== 4 4 * 5 * $Revision: 7 $, $Date: 2008-01-16 19:12:14 +0100 (Mi, 16Jan 2008) $5 * $Revision: 15 $, $Date: 2008-01-25 11:48:08 +0100 (Fr, 25 Jan 2008) $ 6 6 * 7 7 * main module of seismhandler program, command line version … … 59 59 #endif 60 60 61 /* if parameters to main program are used */62 /*#ifdef BC_MAINARGS*/63 #include "causrdef.h"64 /*#endif*/ /* BC_MAINARGS */65 66 61 /* VAX specific routines (usually FORTRAN subroutines) */ 67 62 #ifdef BC_GRFVAX -
SH_SHM/trunk/source/shexec.c
r16 r30 3 3 * ======== 4 4 * 5 * version 27, 12-Jan-20075 * $Revision: 15 $, $Date: 2008-01-25 11:48:08 +0100 (Fr, 25 Jan 2008) $ 6 6 * 7 7 * main subroutines of SH … … 59 59 #include "ssusrdef.h" 60 60 #include "uiusrdef.h" 61 #include "causrdef.h"62 61 #include "qiusrdef.h" 63 62 #include "qfusrdef.h" … … 108 107 se_get_sh_environment(); 109 108 # endif 110 /* get path names: ... or from input file */111 # ifdef BC_MAINARGS112 ca_prepare( argc, argv );113 ca_qstr( argc, argv, "PATHS=", str );114 if (*str != '\0') {115 se_readshpaths( str, &ok );116 if (!ok)117 printf( "*** error reading path names ***\n" );118 } /*endif*/119 # endif /* BC_MAINARGS */120 109 121 110 /* get session ID string */ … … 176 165 177 166 /* open startup command file */ 178 # ifdef BC_MAINARGS179 ca_qstr( argc, argv, "STARTUP=", str );180 if (*str == '\0')181 ca_qstr( argc, argv, "", str );182 if (*str == '\0')183 strcpy( str, "SHSTRTUP" );184 strcat( str, "/FLAGS+=AF" );185 cp_parse( str, &cmd, status );186 # else187 167 cp_parse( "SHSTRTUP/FLAGS+=AF", &cmd, status ); 188 # endif /* BC_MAINARGS */189 168 mn0_callproc( &cmd, status ); 190 169 if (Severe(status)) {
Note: See TracChangeset
for help on using the changeset viewer.
