Added quantiling UDAFs

[com/gs-lite.git] / bin / pin_processes.pl

diff --git a/bin/pin_processes.pl b/bin/pin_processes.pl
index 4fdbec7..f7f1f47 100755 (executable)
--- a/bin/pin_processes.pl
+++ b/bin/pin_processes.pl
@@ -1,65 +1,65 @@
-#! /usr/bin/perl
-
-# ------------------------------------------------
-#   Copyright 2014 AT&T Intellectual Property
-#   Licensed under the Apache License, Version 2.0 (the "License");
-#   you may not use this file except in compliance with the License.
-#   You may obtain a copy of the License at
-#
-#     http://www.apache.org/licenses/LICENSE-2.0
-#
-#   Unless required by applicable law or agreed to in writing, software
-#   distributed under the License is distributed on an "AS IS" BASIS,
-#   WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-#   See the License for the specific language governing permissions and
-#   limitations under the License.
-# -------------------------------------------
-
-
-$infl = "/var/log/gstrace";
-
-if(scalar(@ARGV)>0){
-       $infl = $ARGV[0];
-}
-
-open I,$infl or die "Can't open input log file $infl\n";
-
-%rts_pids= ();
-%hfta_pids = ();
-while($line=<I>){
-       if($line =~ /rts:\[.*\]: Started Logging/){
-               %rts_pids= ();
-               %hfta_pids = ();
-       }
-       if($line =~ /hfta_(\d+):\[(\d+)\]: Started Logging/){
-               $name = "hfta_" . $1;
-               $hfta_pids{$name} = $2;
-       }
-       if($line =~ /rts:\[(\d+)\]: Init LFTAs for (\w+)/){
-               $name = "rts " . $2;
-               $rts_pids{$name} = $1;
-       }
-}
-
-#foreach $k (keys(%rts_pids)){
-#      print "$k, ",$rts_pids{$k},"\n";
-#}
-#foreach $k (keys(%hfta_pids)){
-#      print "$k, ",$hfta_pids{$k},"\n";
-#}
-               
-open C,"pinning_info.csv" or die "Can't open pinning_info.csv\n";
-
-while($line=<C>){
-       chomp($line);
-       @flds = split /,/,$line;
-       if(exists($rts_pids{$flds[0]})){
-               $pinning_cmd = "taskset -pc $flds[1] ". $rts_pids{$flds[0]};
-       }
-       if(exists($hfta_pids{$flds[0]})){
-               $pinning_cmd = "taskset -pc $flds[1] ". $hfta_pids{$flds[0]};
-       }
-       print "Executing $pinning_cmd\n";
-       system($pinning_cmd);
-}
-
+#! /usr/bin/perl\r
+\r
+# ------------------------------------------------\r
+#   Copyright 2014 AT&T Intellectual Property\r
+#   Licensed under the Apache License, Version 2.0 (the "License");\r
+#   you may not use this file except in compliance with the License.\r
+#   You may obtain a copy of the License at\r
+#\r
+#     http://www.apache.org/licenses/LICENSE-2.0\r
+#\r
+#   Unless required by applicable law or agreed to in writing, software\r
+#   distributed under the License is distributed on an "AS IS" BASIS,\r
+#   WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.\r
+#   See the License for the specific language governing permissions and\r
+#   limitations under the License.\r
+# -------------------------------------------\r
+\r
+\r
+$infl = "/var/log/gstrace";\r
+\r
+if(scalar(@ARGV)>0){\r
+       $infl = $ARGV[0];\r
+}\r
+\r
+open I,$infl or die "Can't open input log file $infl\n";\r
+\r
+%rts_pids= ();\r
+%hfta_pids = ();\r
+while($line=<I>){\r
+       if($line =~ /rts:\[.*\]: Started Logging/){\r
+               %rts_pids= ();\r
+               %hfta_pids = ();\r
+       }\r
+       if($line =~ /hfta_(\d+):\[(\d+)\]: Started Logging/){\r
+               $name = "hfta_" . $1;\r
+               $hfta_pids{$name} = $2;\r
+       }\r
+       if($line =~ /rts:\[(\d+)\]: Init LFTAs for (\w+)/){\r
+               $name = "rts " . $2;\r
+               $rts_pids{$name} = $1;\r
+       }\r
+}\r
+\r
+#foreach $k (keys(%rts_pids)){\r
+#      print "$k, ",$rts_pids{$k},"\n";\r
+#}\r
+#foreach $k (keys(%hfta_pids)){\r
+#      print "$k, ",$hfta_pids{$k},"\n";\r
+#}\r
+               \r
+open C,"pinning_info.csv" or die "Can't open pinning_info.csv\n";\r
+\r
+while($line=<C>){\r
+       chomp($line);\r
+       @flds = split /,/,$line;\r
+       if(exists($rts_pids{$flds[0]})){\r
+               $pinning_cmd = "taskset -pc $flds[1] ". $rts_pids{$flds[0]};\r
+       }\r
+       if(exists($hfta_pids{$flds[0]})){\r
+               $pinning_cmd = "taskset -pc $flds[1] ". $hfta_pids{$flds[0]};\r
+       }\r
+       print "Executing $pinning_cmd\n";\r
+       system($pinning_cmd);\r
+}\r
+\r