← Back to branch summary

~ubuntu-branches/ubuntu/warty/openafs/warty

« back to all changes in this revision

Viewing changes to src/config/make_vnode.pl

  • Committer: Bazaar Package Importer
  • Author(s): Sam Hartman
  • Date: 2004-01-10 16:37:33 UTC
  • Revision ID: james.westby@ubuntu.com-20040110163733-jvr0n1uahshlb1uu
Tags: upstream-1.2.11
Import upstream version 1.2.11

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/config/make_vnode.pl
 
1
#!/usr/bin/perl
 
2
#
 
3
# Make VNODE structure from INODE structure
 
4
#
 
5
# Created By:   Derek Atkins <warlord@MIT.EDU>
 
6
#
 
7
 
 
8
$linux_header_dir="/usr/src/linux";
 
9
$outdir="./src/afs/LINUX";
 
10
 
 
11
$sepline="/* LINUX VNODE INCLUDED BELOW -- DO NOT MODIFY */\n";
 
12
 
 
13
# makeVfs (fs.h, vfs.hin, vfs.out)
 
14
sub makeVfs {
 
15
    my ($in,$base,$out) = @_;
 
16
    my ($seplinefound);
 
17
 
 
18
    open (IN, "$in") || die "Cannot open $in for reading";
 
19
    open (BASE, "$base" ) || die "Cannot open base file $base";
 
20
    open (OUT, ">$out") || die "Cannot open tempfile $out";
 
21
 
 
22
    while (<BASE>) {
 
23
        print OUT;
 
24
        if ($_ eq $sepline) {
 
25
            $seplinefound = 1;
 
26
            last;
 
27
        }
 
28
    }
 
29
 
 
30
    print OUT $sepline if !$seplinefound;
 
31
 
 
32
    my ($state) = 0;
 
33
    while (<IN>) {
 
34
 
 
35
        # Look for 'struct inode' definition
 
36
        if ($state == 0) {
 
37
            next unless m/^struct\s+inode\s*\{/;
 
38
            $state++;
 
39
            s/inode/vnode/;
 
40
            # Fallthrough
 
41
        }
 
42
 
 
43
        # Look for 'union {' -- print otherwise
 
44
        if ($state == 1) {
 
45
            if (m/^\s*union\s*\{/) {
 
46
                $state++;
 
47
                print OUT "#ifdef notdef\n";
 
48
            }
 
49
            print OUT;
 
50
            next;
 
51
        }
 
52
 
 
53
        # Look for the end of the union -- ignore otherwise
 
54
        if ($state == 2) {
 
55
            print OUT;
 
56
            next unless (m/^\s+\}\s*u;/);
 
57
            $state++;
 
58
            print OUT "#endif /* notdef */\n";
 
59
            next;
 
60
        }
 
61
 
 
62
        # Look for end brace -- print until we find it
 
63
        if ($state == 3) {
 
64
            print OUT;
 
65
            if (m/^\s*\};/) { $state++ }
 
66
        }
 
67
    }
 
68
 
 
69
    while (<BASE>) { print OUT; }
 
70
 
 
71
    close (IN);
 
72
    close (BASE);
 
73
    close (OUT);
 
74
}
 
75
 
 
76
sub usage {
 
77
    print "usage: $0 [-i linux_header_dir] [-o output_dir] [-h]\n";
 
78
    exit 1;
 
79
}
 
80
 
 
81
sub testArg {
 
82
    my ($arg) = @_;
 
83
    return $arg if ($arg && $arg ne "");
 
84
    usage;
 
85
}
 
86
 
 
87
while ($_ = shift @ARGV) {
 
88
    if (m/^-i/) { $linux_header_dir = testArg(shift @ARGV); next; }
 
89
    if (m/^-o/) { $outdir = testArg(shift @ARGV); next; }
 
90
    usage;
 
91
}
 
92
 
 
93
$linux_fs_h="$linux_header_dir/include/linux/fs.h";
 
94
$vfs_h="$outdir/osi_vfs.h";
 
95
$vfs_hin="$outdir/osi_vfs.hin";
 
96
 
 
97
makeVfs ($linux_fs_h, $vfs_hin, "$vfs_h.new");
 
98
 
 
99
system ("cmp", "-s", $vfs_h, "$vfs_h.new");
 
100
$exit_value = $? >> 8;
 
101
$signal_num = $? & 127;
 
102
$core_dump  = $? & 128;
 
103
 
 
104
if ($exit_value == 0 || $signal_num > 0) {
 
105
    unlink "$vfs_h.new";
 
106
    print "nothing to do... $vfs_h not changed.\n"
 
107
} else {
 
108
    unlink "$vfs_h";
 
109
    rename ("$vfs_h.new", $vfs_h);
 
110
    print "wrote $vfs_h\n";
 
111
}
 
112
 
 
113
exit 0;