Re: A89: Re: Re: Folder List

To: <assembly-89@lists.ticalc.org>
Subject: Re: A89: Re: Re: Folder List
From: "Zeljko Juric" <zjuric@utic.net.ba>
Date: Wed, 21 Jun 2000 13:45:12 +0200
Reply-To: assembly-89@lists.ticalc.org


Hi!

You asked me about gap in ShellSort? OK, here is an implementation,
look and see:

void qsort(void *list,int num_items,int size,long(*cmp_func)(void*,void*))
{
  unsigned gap,byte_gap,i,j;
  char *p,*a,*b,temp;
  for (gap=num_items>>1;gap>0;gap>>=1)
    {
      byte_gap=gap*size;
      for(i=byte_gap;i<num_items*size;i+=size)
        for(p=(char*)list+i-byte_gap;p>=(char*)list;p-=byte_gap)
          {
            a=p; b=p+byte_gap;
            if(cmp_func(a,b)<=0) break;
            for(j=size;j;j--) temp=*a,*a++=*b,*b++=temp;
          }
    }
}

Zeljko Juric

Follow-Ups:

A89: Re: Some sorting extras. :)

From: Olle Hedman <oh@hem.passagen.se>

Re: A89: Re: Re: Folder List

From: "Sebastian Reichelt" <SebastianR@gmx.de>