mirror of
https://github.com/openssl/openssl.git
synced 2024-11-27 03:54:14 +08:00
26 lines
776 B
Perl
26 lines
776 B
Perl
|
#! /usr/bin/env perl
|
||
|
|
# Copyright 2023 The OpenSSL Project Authors. All Rights Reserved.
|
||
|
|
#
|
||
|
|
# Licensed under the Apache License 2.0 (the "License"). You may not use
|
||
|
|
# this file except in compliance with the License. You can obtain a copy
|
||
|
|
# in the file LICENSE in the source distribution or at
|
||
|
|
# https://www.openssl.org/source/license.html
|
||
|
|
|
||
|
|
die "No input files" if scalar @ARGV == 0;
|
||
|
|
$FS = ':.*##';
|
||
|
|
printf "\nUsage:\n make <OPTIONS> \033[36m<target>\033[0m\n";
|
||
|
|
|
||
|
|
while (<>) {
|
||
|
|
chomp; # strip record separator
|
||
|
|
@Fld = split($FS, $_, -1);
|
||
|
|
if (/^[a-zA-Z0-9_\-]+:.*?##/) {
|
||
|
|
printf " \033[36m%-15s\033[0m %s\n", $Fld[0], $Fld[1]
|
||
|
|
}
|
||
|
|
if (/^##@/) {
|
||
|
|
printf "\n\033[1m%s\033[0m\n", substr($Fld[$_], (5)-1);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
printf "\nNote: This list is not all-inclusive\n";
|
||
|
|
|