perl 5.0 alpha 8
[p5sagit/p5-mst-13.2.git] / cflags
1 case "$0" in
2 */*) cd `expr X$0 : 'X\(.*\)/'` ;;
3 esac
4 case $CONFIG in
5 '')
6     if test ! -f config.sh; then
7         ln ../config.sh . || \
8         ln ../../config.sh . || \
9         ln ../../../config.sh . || \
10         (echo "Can't find config.sh."; exit 1)
11     fi 2>/dev/null
12     . ./config.sh
13     ;;
14 esac
15
16 also=': '
17 case $# in
18 1) also='echo 1>&2 "      CCCMD = "'
19 esac
20
21 case $# in
22 0) set *.c; echo "The current C flags are:" ;;
23 esac
24
25 set `echo "$* " | sed 's/\.[oc] / /g'`
26
27 for file do
28
29     case "$#" in
30     1) ;;
31     *) echo $n "    $file.c     $c" ;;
32     esac
33
34     : allow variables like toke_cflags to be evaluated
35
36     eval 'eval ${'"${file}_cflags"'-""}'
37
38     : or customize here
39
40     case "$file" in
41     NDBM_File) ;;
42     ODBM_File) ;;
43     POSIX) ;;
44     SDBM_File) ;;
45     av) ;;
46     deb) ;;
47     dl) ;;
48     doio) ;;
49     doop) ;;
50     dump) ;;
51     gv) ;;
52     hv) ;;
53     main) ;;
54     malloc) ;;
55     mg) ;;
56     miniperlmain) ;;
57     op) ;;
58     perl) ;;
59     perlmain) ;;
60     perly) ;;
61     pp) ;;
62     regcomp) ;;
63     regexec) ;;
64     run) ;;
65     scope) ;;
66     sv) ;;
67     taint) ;;
68     toke) ;;
69     usersub) ;;
70     util) ;;
71     *) ;;
72     esac
73
74     echo "$cc -c $ccflags $optimize $large $split"
75     eval "$also "'"$cc -c $ccflags $optimize $large $split"'
76
77     . ./config.sh
78
79 done