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>