1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
##
## Copyright 2023 The Android Open Source Project
##
## Licensed under the Apache License, Version 2.0 (the "License");
## you may not use this file except in compliance with the License.
## You may obtain a copy of the License at
##
## http://www.apache.org/licenses/LICENSE-2.0
##
## Unless required by applicable law or agreed to in writing, software
## distributed under the License is distributed on an "AS IS" BASIS,
## WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
## See the License for the specific language governing permissions and
## limitations under the License.
use diagnostics;
use strict;
use warnings;
##
## Take a string of parameters in and return the parameter name commented out
##
## e.g.
## int a, char b, std::string c => int /* a */, char /* b */, std::string /* c */
##
sub comment_out_input_vars {
my $input_param_string = shift @_;
my @return_param_string;
my @params = split /,/, $input_param_string;
foreach (@params) {
## Trim leading and trailing space
s/^\s+|\s+$//g;
## Reduce multiple internal spaces to single space
s/\s\+/ /g;
my @w = split /\s+/, $_;
my $s;
if ($#w != 0) {
chomp($w[$#w]);
$w[$#w] = "/* $w[$#w] */";
}
$s .= join " ", @w;
push(@return_param_string, $s);
}
return join(', ', @return_param_string);
}
1;
|