Lines Matching refs:long

15         (--[-\w]+)        # $2: $long:  Long option.
21 	my ($short, $long, $opt, $arg) = ($1, $2, $3, $4);
23 	$short = '-d' if $long eq '--defines' && ! $short;
24 	my $dir = '%' . substr($long, 2);
27 	  if ($long eq '--force-define') { $dir = '%define'; }
59 	    $long = "$long$long_arg";
63 	$option{$long} = $short;
64 	$directive{$long} = $dir;
69 foreach my $long (sort keys %option)
74     print '@item @option{', $long, "}\n\@tab";
75     print ' @option{', $option{$long}, '}' if $option{$long};
77     print ' @code{', $directive{$long}, '}' if $directive{$long};