diff options
Diffstat (limited to 'src/WriteGF.c')
| -rw-r--r-- | src/WriteGF.c | 24 |
1 files changed, 20 insertions, 4 deletions
diff --git a/src/WriteGF.c b/src/WriteGF.c index d5c7d18..71f7b05 100644 --- a/src/WriteGF.c +++ b/src/WriteGF.c @@ -168,8 +168,16 @@ void IOBasic_WriteGF (cGH *GH, /* build the filename */ if (new_filename_scheme) { - sprintf (filename, "%s/%s_%s%s", myGH->outdirScalar, alias, - reduction_op, file_extension); + /* skip the pathname if output goes into current directory */ + if (strcmp (myGH->outdirScalar, ".")) + { + sprintf (filename, "%s/%s_%s%s", myGH->outdirScalar, alias, + reduction_op, file_extension); + } + else + { + sprintf (filename, "%s_%s%s", alias, reduction_op, file_extension); + } } else { @@ -194,8 +202,16 @@ void IOBasic_WriteGF (cGH *GH, { file_extension = "unknown"; } - sprintf (filename, "%s/%s_%s.tl", myGH->outdirScalar, alias, - file_extension); + /* skip the pathname if output goes into current directory */ + if (strcmp (myGH->outdirScalar, ".")) + { + sprintf (filename, "%s/%s_%s.tl", myGH->outdirScalar, alias, + file_extension); + } + else + { + sprintf (filename, "%s_%s.tl", alias, file_extension); + } } /* see if output files for this alias name were already created */ |