scripts/GenerateApplicationHeader.awk

   1 # generat an application header
   2
   3 BEGIN {
   4         NAME_LENGTH = 32
   5         for (i = 0; i < NAME_LENGTH; ++i) {
   6                 padding = padding "\0"
   7         }
   8         name = substr("No Name" padding, 0, NAME_LENGTH)
   9 }
  10
  11 END {
  12         printf "SAMO" name
  13 }
  14
  15 /^[[:space:]]*#[[:space:]]*define[[:space:]]+APPLICATION_TITLE[[:space:]]+/ {
  16         line = gensub("^.*APPLICATION_TITLE[[:space:]]*\"", "", 1, $0)
  17         line = gensub("\".*$", "", 1, line)
  18         if ("" != line) {
  19                 name = substr(line padding, 0, NAME_LENGTH)
  20         }
  21 }