Open64 (mfef90, whirl2f, and IR tools)
TAG: version-openad; SVN changeset: 916
|
Go to the source code of this file.
Defines | |
#define | FALSE_OPTION (0) |
#define | TRUE_OPTION (-1) |
#define | MAX_TRUNCATION_BITS 47 /* max value on -t opt*/ |
#define | MAKE_DEFAULT_NAME(NAME, STR, SUFFIX) |
#define FALSE_OPTION (0) |
Definition at line 42 of file cmd_line.m.
#define MAKE_DEFAULT_NAME | ( | NAME, | |
STR, | |||
SUFFIX | |||
) |
{ char *_nmp, *_stp; \ _nmp = NAME; \ _stp = strrchr (STR, SLASH); \ _stp = (_stp == NULL) ? STR : _stp+1; \ while (*_nmp++ = *_stp++) ; \ _stp = strrchr (NAME, DOT); \ if (_stp != NULL && \ (EQUAL_STRS(_stp, ".f") || EQUAL_STRS(_stp, ".F"))) { \ strcpy (++_stp, SUFFIX); \ } \ else if (_stp != NULL && \ (EQUAL_STRS(_stp, ".f90") || EQUAL_STRS(_stp, ".F90"))) { \ strcpy (++_stp, SUFFIX); \ } \ else if (_stp != NULL && EQUAL_STRS(_stp, ".i")) { \ strcpy (++_stp, SUFFIX); \ } \ else { \ _nmp--; \ *_nmp++ = DOT; \ strcpy (_nmp++, SUFFIX); \ } \ }
Definition at line 69 of file cmd_line.m.
#define MAX_TRUNCATION_BITS 47 /* max value on -t opt*/ |
Definition at line 50 of file cmd_line.m.
#define TRUE_OPTION (-1) |
Definition at line 43 of file cmd_line.m.