summaryrefslogtreecommitdiff
path: root/mcon/U/d_csh.U
diff options
context:
space:
mode:
Diffstat (limited to 'mcon/U/d_csh.U')
-rw-r--r--mcon/U/d_csh.U34
1 files changed, 23 insertions, 11 deletions
diff --git a/mcon/U/d_csh.U b/mcon/U/d_csh.U
index 47d64b7..c0a792e 100644
--- a/mcon/U/d_csh.U
+++ b/mcon/U/d_csh.U
@@ -1,12 +1,12 @@
-?RCS: $Id: d_csh.U,v 3.0.1.1 1997/02/28 15:32:18 ram Exp $
+?RCS: $Id$
?RCS:
-?RCS: Copyright (c) 1991-1993, Raphael Manfredi
+?RCS: Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi
?RCS:
?RCS: You may redistribute only under the terms of the Artistic Licence,
?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 Licence; a copy of which may be found at the root
-?RCS: of the source tree for dist 3.0.
+?RCS: of the source tree for dist 4.0.
?RCS:
?RCS: $Log: d_csh.U,v $
?RCS: Revision 3.0.1.1 1997/02/28 15:32:18 ram
@@ -28,15 +28,24 @@
?S: can share this executable will have the same full pathname to
?S: 'csh.'
?S:.
-?X: Yes, I know about the C symbol PORTABLE, but I think csh
-?X: is unlikely to move, and I'm too lazy to add all the
-?X: #ifdef PORTABLE sections to the perl source.
-?X:
-?C:CSH:
+?C:HAS_CSH:
?C: This symbol, if defined, indicates that the C-shell exists.
-?C: If defined, contains the full pathname of csh.
?C:.
-?H:#$d_csh CSH "$full_csh" /**/
+?C:CSH:
+?C: This symbol, if defined, contains the full pathname of csh.
+?C:.
+?X: Previously, I just did $d_csh CSH "$full_csh", but that caused
+?X: problems on VMS where the config.sh extraction program changes
+?X: $undef to a real cpp undef, and they then had #undef CSH ""
+?X: which the compiler didn't like. It's easy to work around this,
+?X: so I did. --AD 3/1998.
+?X: And we don't want to define CSH if !HAS_CSH, but we don't want
+?X: those lines in config.h if they don't need CSH, so protect with ?CSH
+?X: and not ?%<. --RAM, 15/02/2004
+?H:?%<:#$d_csh HAS_CSH /**/
+?H:?CSH:#ifdef HAS_CSH
+?H:?CSH:#define CSH "$full_csh" /**/
+?H:?CSH:#endif
?H:.
?LINT:set d_csh
: get csh whereabouts
@@ -46,5 +55,8 @@ case "$csh" in
esac
set d_csh
eval $setvar
-full_csh=$csh
+: Respect a hint or command line value for full_csh.
+case "$full_csh" in
+'') full_csh=$csh ;;
+esac