← Back to branch summary

~ubuntu-branches/ubuntu/precise/openssl098/precise

« back to all changes in this revision

Viewing changes to util/pl/unix.pl

  • Committer: Bazaar Package Importer
  • Author(s): Kurt Roeckx
  • Date: 2011-03-23 19:50:31 UTC
  • Revision ID: james.westby@ubuntu.com-20110323195031-6h9crj4bymhhr8b8
Tags: upstream-0.9.8o
Import upstream version 0.9.8o

Show diffs side-by-side

added added

removed removed

Lines of Context:
util/pl/unix.pl
 
1
#!/usr/local/bin/perl
 
2
#
 
3
# unix.pl - the standard unix makefile stuff.
 
4
#
 
5
 
 
6
$o='/';
 
7
$cp='/bin/cp';
 
8
$rm='/bin/rm -f';
 
9
 
 
10
# C compiler stuff
 
11
 
 
12
if ($gcc)
 
13
        {
 
14
        $cc='gcc';
 
15
        if ($debug)
 
16
                { $cflags="-g2 -ggdb"; }
 
17
        else
 
18
                { $cflags="-O3 -fomit-frame-pointer"; }
 
19
        }
 
20
else
 
21
        {
 
22
        $cc='cc';
 
23
        if ($debug)
 
24
                { $cflags="-g"; }
 
25
        else
 
26
                { $cflags="-O"; }
 
27
        }
 
28
$obj='.o';
 
29
$ofile='-o ';
 
30
 
 
31
# EXE linking stuff
 
32
$link='${CC}';
 
33
$lflags='${CFLAGS}';
 
34
$efile='-o ';
 
35
$exep='';
 
36
$ex_libs="";
 
37
 
 
38
# static library stuff
 
39
$mklib='ar r';
 
40
$mlflags='';
 
41
$ranlib=&which("ranlib") or $ranlib="true";
 
42
$plib='lib';
 
43
$libp=".a";
 
44
$shlibp=".a";
 
45
$lfile='';
 
46
 
 
47
$asm='as';
 
48
$afile='-o ';
 
49
$bn_asm_obj="";
 
50
$bn_asm_src="";
 
51
$des_enc_obj="";
 
52
$des_enc_src="";
 
53
$bf_enc_obj="";
 
54
$bf_enc_src="";
 
55
 
 
56
sub do_lib_rule
 
57
        {
 
58
        local($obj,$target,$name,$shlib)=@_;
 
59
        local($ret,$_,$Name);
 
60
 
 
61
        $target =~ s/\//$o/g if $o ne '/';
 
62
        $target="$target";
 
63
        ($Name=$name) =~ tr/a-z/A-Z/;
 
64
 
 
65
        $ret.="$target: \$(${Name}OBJ)\n";
 
66
        $ret.="\t\$(RM) $target\n";
 
67
        $ret.="\t\$(MKLIB) $target \$(${Name}OBJ)\n";
 
68
        $ret.="\t\$(RANLIB) $target\n\n";
 
69
        }
 
70
 
 
71
sub do_link_rule
 
72
        {
 
73
        local($target,$files,$dep_libs,$libs)=@_;
 
74
        local($ret,$_);
 
75
        
 
76
        $file =~ s/\//$o/g if $o ne '/';
 
77
        $n=&bname($target);
 
78
        $ret.="$target: $files $dep_libs\n";
 
79
        $ret.="\t\$(LINK) ${efile}$target \$(LFLAGS) $files $libs\n\n";
 
80
        return($ret);
 
81
        }
 
82
 
 
83
sub which
 
84
        {
 
85
        my ($name)=@_;
 
86
        my $path;
 
87
        foreach $path (split /:/, $ENV{PATH})
 
88
                {
 
89
                if (-x "$path/$name")
 
90
                        {
 
91
                        return "$path/$name";
 
92
                        }
 
93
                }
 
94
        }
 
95
 
 
96
1;