Commit | Line | Data |
---|---|---|
5648e28d MB |
1 | ?RCS: $Id: mad.U,v $ |
2 | ?RCS: | |
3 | ?RCS: Copyright (c) 2006 H.Merijn Brand, Nicholas Clark | |
4 | ?RCS: | |
5 | ?RCS: You may distribute under the terms of either the GNU General Public | |
6 | ?RCS: License or the Artistic License, as specified in the README file. | |
7 | ?RCS: | |
8 | ?RCS: $Log: mad.U,v $ | |
9 | ?RCS: | |
8a40640e | 10 | ?MAKE:mad madlyh madlyobj madlysrc: Myread Setvar _o test patchlevel |
5648e28d MB |
11 | ?MAKE: -pick add $@ %< |
12 | ?S:mad: | |
13 | ?S: This variable indicates that the Misc Attribute Definition code is to | |
14 | ?S: be compiled. | |
15 | ?S:. | |
ac53d95c MB |
16 | ?S:madlyh: |
17 | ?S: If the Misc Attribute Decoration is to be compiled, this variable is | |
18 | ?S: set to the name of the extra header files to be used, else it is '' | |
19 | ?S:. | |
20 | ?S:madlyobj: | |
21 | ?S: If the Misc Attribute Decoration is to be compiled, this variable is | |
22 | ?S: set to the name of the extra object files to be used, else it is '' | |
23 | ?S:. | |
24 | ?S:madlysrc: | |
25 | ?S: If the Misc Attribute Decoration is to be compiled, this variable is | |
26 | ?S: set to the name of the extra C source files to be used, else it is '' | |
27 | ?S:. | |
5648e28d MB |
28 | ?C:PERL_MAD: |
29 | ?C: This symbol, if defined, indicates that the Misc Attribution | |
30 | ?C: Declaration code should be conditionally compiled. | |
31 | ?C:. | |
32 | ?H:#$mad PERL_MAD /**/ | |
33 | ?H:. | |
8a40640e | 34 | ?T:ans |
ac53d95c | 35 | ?LINT:set mad madlyh madlyobj madlysrc |
5648e28d | 36 | |
8a40640e MB |
37 | if $test $patchlevel -lt 9; then |
38 | : MAD is not available in 5.8.x or earlier. | |
39 | ans=n; | |
40 | else | |
41 | case "$mad" in | |
42 | $define|true|[yY]*) dflt='y' ;; | |
43 | *) dflt='n' ;; | |
44 | esac | |
45 | cat <<EOM | |
5648e28d MB |
46 | |
47 | Would you like to build with Misc Attribute Decoration? This is development | |
48 | work leading to a Perl 5 to Perl 6 convertor, which imposes a space and speed | |
49 | overhead on the interpreter. | |
50 | ||
51 | If this doesn't make any sense to you, just accept the default '$dflt'. | |
52 | EOM | |
8a40640e MB |
53 | rp='Build Perl with MAD?' |
54 | . ./myread | |
55 | fi | |
5648e28d | 56 | case "$ans" in |
ac53d95c MB |
57 | y|Y) val="$define" |
58 | madlyh='madly.h madly.act madly.tab' | |
59 | madlysrc='madly.c' | |
60 | madlyobj="madly$_o" ;; | |
61 | *) val="$undef" | |
62 | madlyh='' | |
63 | madlysrc='' | |
64 | madlyobj='' ;; | |
5648e28d MB |
65 | esac |
66 | set mad | |
67 | eval $setvar | |
68 |