Re: xsub apidoc ordering RFC

[Marc 'HE' Brockschmidt <gtk-perl-ml marcbrockschmidt de>]

"Ross McFarland" <rwmcfa1 neces com> writes:
> muppet said:
>> On Thursday, February 19, 2004, at 08:05 AM, Ross McFarland wrote:
>>> meant to attach this the first time around
>> could you post someplace a tree of docs generated with the reordering
>> patch so we can compare?  that would allow the people who don't compile
>> from bleeding edge source to get in their opinions.
> http://www.neces.com/gtk2-perl/gtk2-perl-doc/
>
> Gtk2::Window is a good example, as is Gtk2::Button.

Nice, but it would be better if set/get calls are shown next to each
other. This sort should do the job:

 	my ($at, $bt);
 	@$xsubs = sort { 
 		$at = $a->{symname};
 		$bt = $b->{symname};
 		return -1 if ($at =~ /new/); 
 		return 1 if ($bt =~ /new/); 
		s/^(?:.+::)?(?:get|set)_/\xFF_/ for ($at, $bt);
 		$at cmp $bt; 
 	} @$xsubs;

Marc
-- 
$_=')(hBCdzVnS})3..0}_$;//::niam/s~=)]3[))_$(rellac(=_$({pam(esrever })e$.)4/3*
)e$(htgnel+23(rhc,"u"(kcapnu ,""nioj ;|_- |/+9-0z-aZ-A|rt~=e$;_$=e${pam tnirp{y
V2ajFGabus} yV2ajFGa&{gwmclBHIbus}gwmclBHI&{yVGa09mbbus}yVGa09mb&{hBCdzVnSbus';
s/\n//g;s/bus/\nbus/g;eval scalar reverse   # <mailto:marc marcbrockschmidt de>