psx: New error code to indicate illegal characters found by wordexp

Starlink · Aug 27, 2014 · ea65ff4 · ea65ff4
1 parent a1cc4cb
commit ea65ff4
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/libraries/psx/psx_err.msg b/libraries/psx/psx_err.msg
@@ -13,4 +13,5 @@ ERRNO   <System error during POSIX call>
 TRUNC   <Truncated string>
 BADIT	<Unknown item of file information requested>
 BDWXP   <Error from word expansion>
+BDCHR   <Illegal characters encountered by word expansion>
 .END
diff --git a/libraries/psx/psx_wordexp.c b/libraries/psx/psx_wordexp.c
@@ -141,6 +141,7 @@ F77_SUBROUTINE(psx_wordexp)( CHARACTER(WORDS), INTEGER(CONTEXT),
           *STATUS = PSX__BDWXP;
           switch(retval) {
           case WRDE_BADCHAR:
+            *STATUS = PSX__BDCHR;
             psx1_rep_c( "PSX_WORDEXP_ERR3",
                         "The WORDS argument contains illegal unquoted characters",
                         STATUS );