misc/tools-source/smart_wrapper.awk

   1 #!/usr/bin/gawk -f
   2 # --- T2-COPYRIGHT-NOTE-BEGIN ---
   3 # This copyright note is auto-generated by scripts/Create-CopyPatch.
   4 #
   5 # T2 SDE: misc/tools-source/smart_wrapper.awk
   6 # Copyright (C) 2020 - 2021 The T2 SDE Project
   7 # Copyright (C) 1998 - 2003 ROCK Linux Project
   8 #
   9 # More information can be found in the files COPYING and README.
  10 #
  11 # This program is free software; you can redistribute it and/or modify
  12 # it under the terms of the GNU General Public License as published by
  13 # the Free Software Foundation; version 2 of the License. A copy of the
  14 # GNU General Public License can be found in the file COPYING.
  15 # --- T2-COPYRIGHT-NOTE-END ---
  16
  17 BEGIN {
  18         speedargidx = 0;
  19         sizeargidx = 0;
  20         ishot = 0;
  21 }
  22
  23 # argument 1, read in smart profile db, 2nd form for POSIXLY_CORRECT
  24 ARGIND == 1 || (!ARGIND && FILENAME != "-") {
  25         hotlist[$2] = 1;
  26 }
  27
  28 # argument 2, read command list from stdin, 2nd form for POSIXLY_CORRECT
  29 ARGIND == 2 || (!ARGIND && FILENAME == "-") {
  30         if (gsub("^-HOT", "") == 1)
  31                 speedarg[speedargidx++] = $0;
  32         else {
  33                 speedarg[speedargidx++] = $0;
  34                 sizearg[sizeargidx++] = $0;
  35
  36                 # remove path prefix, and lookup hot file
  37                 if (gsub("^[^-].*/", "") > 0) {
  38                     if (hotlist[$0] == 1) {
  39                         # print("hot file: ", $0) > "/dev/stderr"
  40                         ishot = 1;
  41                     }
  42                 }
  43         }
  44 }
  45
  46 END {
  47         if (ishot)
  48                 for (i = 0; i < speedargidx; i++)
  49                         print speedarg[i];
  50         else
  51                 for (i = 0; i < sizeargidx; i++)
  52                         print sizearg[i];
  53 }