Lines Matching refs:long
71 # get the long name version, return the man page string
76 # quote "bare" minuses in the long name
79 # both short + long
83 # only long
328 my $long;
363 $long=$1;
432 if(!$long) {
481 if(defined($short) && $long) {
482 $opt = "-$short, --$long";
484 elsif($short && !$long) {
487 elsif($long && !$short) {
488 $opt = "--$long";
532 push @extra, "\nIf --$long is provided several times, the last set ".
536 push @extra, "\n--$long can be used several times in a command line\n";
539 my $rev = "no-$long";
542 if($long =~ /^no-/) {
543 $rev = $long;
547 "\nProviding --$long multiple times has no extra effect.\n".
552 "\nProviding --$long multiple times has no extra effect.\n";
589 my $l = manpageify($long);
636 my $long;
653 $long=$1;
673 $optshort{$short}=$long;
675 if($long) {
676 $optlong{$long}=$short;
677 $helplong{$long}=$help;
678 $arglong{$long}=$arg;
679 $protolong{$long}=$protocols;
680 $catlong{$long}=$category;
740 my $long = $f;
741 my $short = $optlong{$long};
742 my @categories = split ' ', $catlong{$long};
746 if(defined($short) && $long) {
747 $opt = "-$short, --$long";
749 elsif($long && !$short) {
750 $opt = " --$long";
760 my $arg = $arglong{$long};
770 print STDERR "WARN: the --$long name is too long\n";
773 print STDERR "WARN: the --$long description is too long\n";
811 my $long;
824 $long=$1;
827 push @globalopts, $long;