This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
git => dist
[metaconfig.git] / dist / U / Init.U
1 ?RCS: $Id$
2 ?RCS:
3 ?RCS: Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi
4 ?RCS: 
5 ?RCS: You may redistribute only under the terms of the Artistic License,
6 ?RCS: as specified in the README file that comes with the distribution.
7 ?RCS: You may reuse parts of this distribution only within the terms of
8 ?RCS: that same Artistic License; a copy of which may be found at the root
9 ?RCS: of the source tree for dist 4.0.
10 ?RCS:
11 ?RCS: $Log: Init.U,v $
12 ?RCS: Revision 3.0.1.1  1994/10/31  09:45:59  ram
13 ?RCS: patch44: removed Options from MAKE to prevent Init overrides
14 ?RCS: patch44: option processing now done after Myinit thanks to new Begin.U
15 ?RCS: patch44: moved "Beginning of configuration questions" to Begin.U
16 ?RCS: patch44: moved signal trapping instruction to Begin.U as well
17 ?RCS:
18 ?RCS: Revision 3.0  1993/08/18  12:05:02  ram
19 ?RCS: Baseline for dist 3.0 netwide release.
20 ?RCS:
21 ?X: 
22 ?X: This file initializes certain default variables used by Configure.  They
23 ?X: may be overridden or added to by definitions in Myinit.U.
24 ?X:
25 ?MAKE:Init eunicefix _exe: Null
26 ?MAKE:  -pick add $@ %<
27 ?MAKE:  -pick weed $@ ./Init
28 ?S:eunicefix:
29 ?S:     When running under Eunice this variable contains a command which will
30 ?S:     convert a shell script to the proper form of text file for it to be
31 ?S:     executable by the shell.  On other systems it is a no-op.
32 ?S:.
33 ?S:_exe (exe_ext):
34 ?S:     This variable defines the extension used for executable files.
35 ?S:     For unix it is empty.  Other possible values include '.exe'.
36 ?S:     DJGPP, Cygwin and OS/2 use '.exe'.  Stratus VOS uses '.pm'.
37 ?S:     On operating systems which do not require a specific extension
38 ?S:     for executable files, this variable is empty.
39 ?S:.
40 ?V:define undef smallmach:rmlist
41 ?X:
42 ?X: Throughout the units, one may make use of $define and $undef to reference
43 ?X: a defined symbol or an undefined one. There is no need to add them in
44 ?X: the dependency line since this unit makes them visible via ?V:, and
45 ?X: everyone inherits from those symbols since by convention Init.U is the
46 ?X: root dependency.
47 ?X:
48 ?T: DJGPP
49 : Initialize wide constants
50 define='define'
51 undef='undef'
52 smallmach='pdp11 i8086 z8000 i80286 iAPX286'
53 rmlist=''
54
55 : We must find out about Eunice early
56 eunicefix=':'
57 if test -f /etc/unixtovms; then
58         eunicefix=/etc/unixtovms
59 fi
60 if test -f /etc/unixtovms.exe; then
61         eunicefix=/etc/unixtovms.exe
62 fi
63
64 : Set executable suffix now -- needed before hints available
65 if test -f "/libs/version.library"; then
66         : Amiga OS
67          _exe=""
68 elif test -f "/system/gnu_library/bin/ar.pm"; then
69         : Stratus VOS
70         _exe=".pm"
71 elif test -n "$DJGPP"; then
72         : DOS DJGPP
73          _exe=".exe"
74 elif test -d c:/. ; then
75         : OS/2 or cygwin
76         _exe=".exe"
77 else
78         : All other UNIX systems
79         _exe=""
80 fi
81