Ignore lockmem executable.
[bluesky.git] / TBBT / trace_init / rfs.pl.old
1 #!/usr/bin/perl -w\r
2 \r
3 $Usage =<< ".";\r
4 \r
5 This is the rfs program\r
6 \r
7 After run nfsscan, you will get a file-list file in the output\r
8 \r
9 This perl program do post processing based on this file\r
10 \r
11 \r
12 .\r
13 \r
14 $writebuf = "R" x 8193;\r
15 $writeBlockSize = 8192;\r
16 \r
17 \r
18 main ();\r
19 \r
20 sub  rfsCreateFile()\r
21 {\r
22         my ($path, $pathcnt, $sizeHexStr) = @_;\r
23         $sizeHexStr = "0x".$sizeHexStr;\r
24 \r
25         my $dir = $path;\r
26         my $name = '';\r
27         my $cmdbuf;\r
28 \r
29         $dir =~ /(^.*)\/(.*)/;\r
30         $dir = $1;\r
31         $name = $2;\r
32         if (!$dir) {$dir = ".";}\r
33         die "name is empty\n" if (!$name);\r
34         #print "path($path) dir($dir) name($name)\n";\r
35 \r
36         if (! -e $dir) {\r
37                 $cmdbuf = "mkdir -p $dir";\r
38                 system $cmdbuf;\r
39                 print "RFS: Warning: the directory should be created already: $path\n";\r
40         } else {\r
41                 die "warning: directory name exist but not a directory: $path\n" if (!(-d $dir));\r
42         }\r
43 \r
44         my $size = hex($sizeHexStr);\r
45         my $remSize = $size % $writeBlockSize;\r
46         my $lp = ($size - $remSize) / $writeBlockSize;\r
47         #print "size($sizeHexStr) lp($lp) rem($remSize)\n";\r
48 \r
49         open RFSTMPWRITE, ">$path" || die "RFS: can not open file for write";\r
50 \r
51         my $i = 0;\r
52         for ($i = 0; $i < $lp; $i++) {\r
53                 syswrite(RFSTMPWRITE, $writebuf, $writeBlockSize);\r
54         }\r
55         if ($remSize) {\r
56                 syswrite(RFSTMPWRITE, $writebuf, $remSize);\r
57                 #print "write ($remSize) byte\n";\r
58         }\r
59         close RFSTMPWRITE;\r
60 }\r
61 \r
62 # Useful commands:\r
63 # sort -n -k a,b -c -u \r
64\r
65 #\r
66 \r
67 sub main {\r
68 \r
69         my $cmdbuf;\r
70         \r
71         # skip comment lines\r
72         # if (path_count ($6) == 0 or original_op($9) == "create" or "mkdir") skip the file \r
73 \r
74         $cmdbuf = 'gawk \' !/^[#]/ { if ($6 != "0" && $9 != "create" && $9 != "mkdir") print $0 }\'  test.fil > active.fil';\r
75         print "$cmdbuf\n";\r
76         system $cmdbuf;\r
77         \r
78         # sort the active.fil according to path_count\r
79         $cmdbuf = 'sort -k 5,5 active.fil > active.fil.order';\r
80         print "$cmdbuf\n";\r
81         system $cmdbuf;\r
82         $cmdbuf = 'sort -n -k 6,6 active.fil > active.fil.order-pathcnt';\r
83         print "$cmdbuf\n";\r
84         system $cmdbuf;\r
85 \r
86         # keep the interested field only\r
87         # 2(D/F) 4(FH) 5(path) 6(count) 7(size) 8(mode)\r
88         $cmdbuf = 'gawk \' { print $2, $4, $5, $6, $7, $8 }\'  active.fil.order > active';\r
89         print "$cmdbuf\n";\r
90         system $cmdbuf;\r
91         $cmdbuf = 'gawk \' { print $4, $5 }\'  active.fil.order > fh-path-map';\r
92         print "$cmdbuf\n";\r
93         system $cmdbuf;\r
94         $cmdbuf = 'gawk \' { print $2, $4, $5, $6, $7, $8 }\'  active.fil.order-pathcnt > active-pathcnt';\r
95         print "$cmdbuf\n";\r
96         system $cmdbuf;\r
97         $cmdbuf = 'gawk \' { print $4, $5 }\'  active.fil.order-pathcnt > fh-path-map-pathcnt';\r
98         print "$cmdbuf\n";\r
99         system $cmdbuf;\r
100 \r
101         #exit(0);\r
102         \r
103         # so far, you got the following information\r
104         # in active: all files/dirs active \r
105         # in noattrdir-root: a set of fhs pointing to RFSNN0\r
106         # in rfsinfo: a set of dir fhs refer to RFSNNxxx(>0)\r
107         #                a set of file fhs should be discard due to short of information\r
108 \r
109         # create the active fs\r
110         # 1. BASEDIR/RFSNN0\r
111         # 2. BASEDIR/active\r
112         $cmdbuf = "mkdir -p RFSFS/RFSNN0";\r
113         system $cmdbuf;\r
114         open RFS_ACTIVE, "active";\r
115         while (<RFS_ACTIVE>) {\r
116                 chop;\r
117                 my ($type, $fh, $path, $pathcnt, $sizeHexStr, $mode) = split (' ', $_, 7);\r
118                 if ($type eq "D") {\r
119                         $cmdbuf = "mkdir -p RFSFS$path";\r
120                         system $cmdbuf;\r
121                 }\r
122                 else {\r
123                         &rfsCreateFile("RFSFS$path", $pathcnt, $sizeHexStr);\r
124                 }\r
125                 \r
126         }\r
127 \r
128         # create map table: key (fh), value (path/fn)\r
129 \r
130         # check whether there is fh that is not mapped to any path/fn in the trace\r
131 \r
132         # simulate a replay of trace\r
133 \r
134         return;\r
135         \r
136 }\r
137 \r
138 1;\r