other/ecfs/transform


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53

#!/usr/bin/perl

# Takes kernel Ext2 headers and rewrites
# them to Ecfs headers in separate files.
# No kernel-headers are touched.

@cp = (
      "cp ".
      "/usr/src/linux/include/linux/ext2_fs.h ".
      "/usr/src/linux/include/linux/ecfs_fs.h",
	
      "cp ".
      "/usr/src/linux/include/linux/ext2_fs_sb.h ".
      "/usr/src/linux/include/linux/ecfs_fs_sb.h",

      "cp ".
      "/usr/src/linux/include/linux/ext2_fs_i.h ".
      "/usr/src/linux/include/linux/ecfs_fs_i.h",

      "cp ".
      "/usr/src/linux/include/linux/fs.h ".
      "/usr/src/linux/include/linux/fs_ecfs.h "
);


@sed = (
      "./repl.pl ".
      "/usr/src/linux/include/linux/ecfs_fs.h",
	
      "./repl.pl ".
      "/usr/src/linux/include/linux/ecfs_fs_sb.h",

      "./repl.pl ".
      "/usr/src/linux/include/linux/ecfs_fs_i.h",

      "./repl.pl ".
      "/usr/src/linux/include/linux/fs_ecfs.h "
);


foreach (@cp) {
	print "$_\n";
	system($_);
}

foreach (@sed) {
	print "$_\n";
	system($_);
}