[mirror_frr.git] / vtysh / daemons.pl

#!/usr/bin/perl
# SPDX-License-Identifier: GPL-2.0-or-later
##
## generate daemons list and help strings
##
## Copyright (C) 2020 NFWare Inc.

use strict;

my @daemons_list = ();
my @daemons_str = ();

foreach (@ARGV) {
	push (@daemons_list, $_);
	push (@daemons_str, "For the $_ daemon\\n");
}

print "#define DAEMONS_LIST \"<" . join('|', @daemons_list) . ">\"\n";
print "#define DAEMONS_STR \"" . join('', @daemons_str) . "\"\n";
Commit	Line	Data
d7b86ae4	1	#!/usr/bin/perl
47a3a827	2	# SPDX-License-Identifier: GPL-2.0-or-later
d7b86ae4 IR	3	##
	4	## generate daemons list and help strings
	5	##
	6	## Copyright (C) 2020 NFWare Inc.
d7b86ae4 IR	7
	8	use strict;
	9
	10	my @daemons_list = ();
	11	my @daemons_str = ();
	12
	13	foreach (@ARGV) {
	14	push (@daemons_list, $_);
	15	push (@daemons_str, "For the $_ daemon\\n");
	16	}
	17
	18	print "#define DAEMONS_LIST \"<" . join('\|', @daemons_list) . ">\"\n";
	19	print "#define DAEMONS_STR \"" . join('', @daemons_str) . "\"\n";