util/help.pl

   1 #! /usr/bin/env perl
   2 # Copyright 2023 The OpenSSL Project Authors. All Rights Reserved.
   3 #
   4 # Licensed under the Apache License 2.0 (the "License").  You may not use
   5 # this file except in compliance with the License.  You can obtain a copy
   6 # in the file LICENSE in the source distribution or at
   7 # https://www.openssl.org/source/license.html
   8
   9 die "No input files" if scalar @ARGV == 0;
  10 $FS = ':.*##';
  11 printf "\nUsage:\n  make <OPTIONS> \033[36m<target>\033[0m\n";
  12
  13 while (<>) {
  14     chomp;      # strip record separator
  15     @Fld = split($FS, $_, -1);
  16     if (/^[a-zA-Z0-9_\-]+:.*?##/) {
  17         printf "  \033[36m%-15s\033[0m %s\n", $Fld[0], $Fld[1]
  18     }
  19     if (/^##@/) {
  20         printf "\n\033[1m%s\033[0m\n", substr($Fld[$_], (5)-1);
  21     }
  22 }
  23
  24 printf "\nNote: This list is not all-inclusive\n";
  25