diff options
Diffstat (limited to 'mcon/U/Getfile.U')
-rw-r--r-- | mcon/U/Getfile.U | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/mcon/U/Getfile.U b/mcon/U/Getfile.U index 260c386..f5cf49b 100644 --- a/mcon/U/Getfile.U +++ b/mcon/U/Getfile.U @@ -1,13 +1,13 @@ -?RCS: $Id: Getfile.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 ?RCS: that same Artistic License; a copy of which may be found at the root ?RCS: of the source tree for dist 4.0. -?RCS: +?RCS: ?RCS: $Log: Getfile.U,v $ ?RCS: Revision 3.0.1.7 1997/02/28 15:01:06 ram ?RCS: patch61: getfile script now begins with "startsh" @@ -36,11 +36,11 @@ ?RCS: Revision 3.0 1993/08/18 12:04:56 ram ?RCS: Baseline for dist 3.0 netwide release. ?RCS: -?X: +?X: ?X: This unit produces a bit of shell code that must be dotted in in order ?X: to get a file name and make some sanity checks. Optionally, a ~name ?X: expansion is performed. -?X: +?X: ?X: To use this unit, $rp and $dflt must hold the question and the ?X: default answer, which will be passed as-is to the myread script. ?X: The $fn variable must hold the file type (f or d, for file/directory). @@ -70,7 +70,7 @@ ?X: rp='Where is the active file?' ?X: . ./getfile ?X: active="$ans" -?X: +?X: ?X: If the 'p' (path) letter is specified along with 'l', then an answer ?X: without a leading / will be expected to be found in everyone's path. ?X: @@ -218,7 +218,7 @@ while test "$type"; do ?X: is defined, the original un-expanded answer which is stored in value ?X: would lead to "non-existent" error messages whilst ansexp has been ?X: properly expanded. -- Fixed by Jan.Djarv@sa.erisoft.se (Jan Djarv) -?X: Always expand ~user if '/' was requested +?X: Always expand ~user if '/' was requested case "$ansexp" in /*) value="$ansexp" ;; ?X: Allow for c:/some/path and c:\some\path |