diff options
Diffstat (limited to 'mcon/U/Filexp.U')
| -rw-r--r-- | mcon/U/Filexp.U | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/mcon/U/Filexp.U b/mcon/U/Filexp.U index 160a216..31e57a5 100644 --- a/mcon/U/Filexp.U +++ b/mcon/U/Filexp.U @@ -1,7 +1,7 @@ -?RCS: $Id: Filexp.U 167 2013-05-08 17:58:00Z rmanfredi $ +?RCS: $Id$ ?RCS: ?RCS: Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi -?RCS: +?RCS: ?RCS: You may redistribute only under the terms of the Artistic License, ?RCS: as specified in the README file that comes with the distribution. ?RCS: You may reuse parts of this distribution only within the terms of @@ -19,10 +19,10 @@ ?RCS: Revision 3.0 1993/08/18 12:04:53 ram ?RCS: Baseline for dist 3.0 netwide release. ?RCS: -?X: +?X: ?X: This unit produces a shell script which will expand filenames beginning ?X: with tildes. The script is deleted at the end of Configure. -?X: +?X: ?MAKE:Filexp: startsh sed test expr eunicefix ?MAKE: -pick add $@ %< ?F:./filexp @@ -31,11 +31,15 @@ cat >filexp <<EOSS $startsh : expand filename +?X: +?X: The case entries below escape the ~ as some shells have shown expansion +?X: of the ~ during here-doc processing. +?X: case "\$1" in - ~/*|~) + \~/*|\~) echo \$1 | $sed "s|~|\${HOME-\$LOGDIR}|" ;; - ~*) + \~*) if $test -f /bin/csh; then /bin/csh -f -c "glob \$1" failed=\$? |