102 lines
3.5 KiB
C
102 lines
3.5 KiB
C
|
#include "geminc.h"
|
||
|
|
#include "gemprm.h"
|
||
|
|
|
||
|
|
void inc_outt ( const char *output, const char *def, int *termflg,
|
||
|
|
int *fileflg, char *filnam, int *iret )
|
||
|
|
/************************************************************************
|
||
|
|
* inc_outt *
|
||
|
|
* *
|
||
|
|
* This subroutine processes the OUTPUT variable. The requested output *
|
||
|
|
* types are determined and appropriate flags are set. Output may be *
|
||
|
|
* directed to the terminal and/or a file. OUTPUT will be searched for *
|
||
|
|
* 'T' and 'F' to determine the output devices. If the output devices *
|
||
|
|
* are followed by a slash and a string, the string will be used as the *
|
||
|
|
* name of the output file. If file output is requested and no file *
|
||
|
|
* name is specified, the default will be used. If no valid devices are *
|
||
|
|
* specified, output will be sent to the terminal. If the output *
|
||
|
|
* request contains an 'N' before the slash, no output will be written. *
|
||
|
|
* *
|
||
|
|
* inc_outt ( output, default, termflg, fileflg, filnam, iret ) *
|
||
|
|
* *
|
||
|
|
* Input parameters: *
|
||
|
|
* *output const char Output variable *
|
||
|
|
* *def const char Default file name *
|
||
|
|
* *
|
||
|
|
* Output parameters: *
|
||
|
|
* *termflg int Flag for terminal output *
|
||
|
|
* *fileflg int Flag for file output *
|
||
|
|
* *filnam char Output file name *
|
||
|
|
* *iret int Return code *
|
||
|
|
* 0 = normal return *
|
||
|
|
* -17 = invald input *
|
||
|
|
** *
|
||
|
|
* Log: *
|
||
|
|
* R. Tian/SAIC 8/06 *
|
||
|
|
* R. Tian/SAIC 1/07 Fixed bug file name has '/' *
|
||
|
|
************************************************************************/
|
||
|
|
{
|
||
|
|
char carr[2][LLMXLN], *cp;
|
||
|
|
int len, ier;
|
||
|
|
/*----------------------------------------------------------------------*/
|
||
|
|
*iret = 0;
|
||
|
|
*termflg = G_FALSE;
|
||
|
|
*fileflg = G_FALSE;
|
||
|
|
carr[0][0] = '\0';
|
||
|
|
carr[1][0] = '\0';
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Break output into two strings separated by /. The string
|
||
|
|
* before the / contains devices; after the / is the file name.
|
||
|
|
*/
|
||
|
|
cp = strchr ( output, '/' );
|
||
|
|
if ( cp ) {
|
||
|
|
len = (int)( cp - output );
|
||
|
|
strncpy ( carr[0], output, len );
|
||
|
|
carr[0][len] = '\0';
|
||
|
|
strcpy ( carr[1], &output[len+1] );
|
||
|
|
cst_rmbl ( carr[1], carr[1], &len, &ier );
|
||
|
|
} else {
|
||
|
|
strcpy ( carr[0], output );
|
||
|
|
}
|
||
|
|
cst_lcuc ( carr[0], carr[0], &ier );
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Check for no output first.
|
||
|
|
*/
|
||
|
|
if ( strchr ( carr[0], 'N' ) ) {
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Check for terminal output.
|
||
|
|
*/
|
||
|
|
if ( strchr ( carr[0], 'T' ) ) {
|
||
|
|
*termflg = G_TRUE;
|
||
|
|
}
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Check for output file requested.
|
||
|
|
*/
|
||
|
|
if ( strchr ( carr[0], 'F' ) ) {
|
||
|
|
*fileflg = G_TRUE;
|
||
|
|
if ( carr[1][0] != '\0' ) {
|
||
|
|
strcpy ( filnam, carr[1] );
|
||
|
|
} else if ( def[0] != '\0' ) {
|
||
|
|
strcpy ( filnam, def );
|
||
|
|
} else {
|
||
|
|
*iret = -17;
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
/*
|
||
|
|
* If no valid devices were selected, send output to terminal.
|
||
|
|
*/
|
||
|
|
if ( *termflg == G_FALSE && *fileflg == G_FALSE ) {
|
||
|
|
*termflg = G_TRUE;
|
||
|
|
}
|
||
|
|
|
||
|
|
return;
|
||
|
|
}
|