Home | History | Annotate | Line # | Download | only in util 
      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 
     26