Made sorting more generic, moved it here. Added sort profiling code.
This commit is contained in:
Ryan C. Gordon
parent
94ec115dba
commit
e2eb658d9a
249
physfs.c
249
physfs.c
|
|
@ -12,6 +12,11 @@
|
||||||
# include <config.h>
|
# include <config.h>
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
#if (defined PHYSFS_PROFILING)
|
||||||
|
#include <sys/time.h>
|
||||||
|
#include <unistd.h>
|
||||||
|
#endif
|
||||||
|
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
#include <string.h>
|
#include <string.h>
|
||||||
|
|
@ -121,6 +126,235 @@ static void *stateLock = NULL; /* protects other PhysFS static state. */
|
||||||
|
|
||||||
/* functions ... */
|
/* functions ... */
|
||||||
|
|
||||||
|
void __PHYSFS_bubble_sort(void *a, PHYSFS_uint32 lo, PHYSFS_uint32 hi,
|
||||||
|
int (*cmpfn)(void *, PHYSFS_uint32, PHYSFS_uint32),
|
||||||
|
void (*swapfn)(void *, PHYSFS_uint32, PHYSFS_uint32))
|
||||||
|
{
|
||||||
|
PHYSFS_uint32 i;
|
||||||
|
int sorted;
|
||||||
|
|
||||||
|
do
|
||||||
|
{
|
||||||
|
sorted = 1;
|
||||||
|
for (i = lo; i < hi; i++)
|
||||||
|
{
|
||||||
|
if (cmpfn(a, i, i + 1) > 0)
|
||||||
|
{
|
||||||
|
swapfn(a, i, i + 1);
|
||||||
|
sorted = 0;
|
||||||
|
} /* if */
|
||||||
|
} /* for */
|
||||||
|
} while (!sorted);
|
||||||
|
} /* __PHYSFS_bubble_sort */
|
||||||
|
|
||||||
|
|
||||||
|
void __PHYSFS_quick_sort(void *a, PHYSFS_uint32 lo, PHYSFS_uint32 hi,
|
||||||
|
int (*cmpfn)(void *, PHYSFS_uint32, PHYSFS_uint32),
|
||||||
|
void (*swapfn)(void *, PHYSFS_uint32, PHYSFS_uint32))
|
||||||
|
{
|
||||||
|
PHYSFS_uint32 i;
|
||||||
|
PHYSFS_uint32 j;
|
||||||
|
PHYSFS_uint32 v;
|
||||||
|
|
||||||
|
if ((hi - lo) <= PHYSFS_QUICKSORT_THRESHOLD)
|
||||||
|
__PHYSFS_bubble_sort(a, lo, hi, cmpfn, swapfn);
|
||||||
|
else
|
||||||
|
{
|
||||||
|
i = (hi + lo) / 2;
|
||||||
|
|
||||||
|
if (cmpfn(a, lo, i) > 0) swapfn(a, lo, i);
|
||||||
|
if (cmpfn(a, lo, hi) > 0) swapfn(a, lo, hi);
|
||||||
|
if (cmpfn(a, i, hi) > 0) swapfn(a, i, hi);
|
||||||
|
|
||||||
|
j = hi - 1;
|
||||||
|
swapfn(a, i, j);
|
||||||
|
i = lo;
|
||||||
|
v = j;
|
||||||
|
while (1)
|
||||||
|
{
|
||||||
|
while(cmpfn(a, ++i, v) < 0) { /* do nothing */ }
|
||||||
|
while(cmpfn(a, --j, v) > 0) { /* do nothing */ }
|
||||||
|
if (j < i)
|
||||||
|
break;
|
||||||
|
swapfn(a, i, j);
|
||||||
|
} /* while */
|
||||||
|
swapfn(a, i, hi-1);
|
||||||
|
__PHYSFS_quick_sort(a, lo, j, cmpfn, swapfn);
|
||||||
|
__PHYSFS_quick_sort(a, i+1, hi, cmpfn, swapfn);
|
||||||
|
} /* else */
|
||||||
|
} /* __PHYSFS_quick_sort */
|
||||||
|
|
||||||
|
|
||||||
|
void __PHYSFS_sort(void *entries, PHYSFS_uint32 max,
|
||||||
|
int (*cmpfn)(void *, PHYSFS_uint32, PHYSFS_uint32),
|
||||||
|
void (*swapfn)(void *, PHYSFS_uint32, PHYSFS_uint32))
|
||||||
|
{
|
||||||
|
/*
|
||||||
|
* Quicksort w/ Bubblesort fallback algorithm inspired by code from here:
|
||||||
|
* http://www.cs.ubc.ca/spider/harrison/Java/sorting-demo.html
|
||||||
|
*/
|
||||||
|
__PHYSFS_quick_sort(entries, 0, max - 1, cmpfn, swapfn);
|
||||||
|
} /* __PHYSFS_sort */
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#if (defined PHYSFS_PROFILING)
|
||||||
|
|
||||||
|
#define PHYSFS_TEST_SORT_ITERATIONS 150
|
||||||
|
#define PHYSFS_TEST_SORT_ELEMENTS (64 * 1024)
|
||||||
|
|
||||||
|
static int __PHYSFS_test_sort_cmp(void *_a, PHYSFS_uint32 x, PHYSFS_uint32 y)
|
||||||
|
{
|
||||||
|
PHYSFS_sint32 *a = (PHYSFS_sint32 *) _a;
|
||||||
|
PHYSFS_sint32 one = a[x];
|
||||||
|
PHYSFS_sint32 two = a[y];
|
||||||
|
|
||||||
|
if (one < two)
|
||||||
|
return(-1);
|
||||||
|
else if (one > two)
|
||||||
|
return(1);
|
||||||
|
|
||||||
|
return(0);
|
||||||
|
} /* __PHYSFS_test_sort_cmp */
|
||||||
|
|
||||||
|
|
||||||
|
static void __PHYSFS_test_sort_swap(void *_a, PHYSFS_uint32 x, PHYSFS_uint32 y)
|
||||||
|
{
|
||||||
|
PHYSFS_sint32 *a = (PHYSFS_sint32 *) _a;
|
||||||
|
PHYSFS_sint32 tmp;
|
||||||
|
tmp = a[x];
|
||||||
|
a[x] = a[y];
|
||||||
|
a[y] = tmp;
|
||||||
|
} /* __PHYSFS_test_sort_swap */
|
||||||
|
|
||||||
|
|
||||||
|
static int __PHYSFS_test_sort_do(PHYSFS_uint32 *timer,
|
||||||
|
PHYSFS_sint32 *a, PHYSFS_uint32 max,
|
||||||
|
int (*cmpfn)(void *, PHYSFS_uint32, PHYSFS_uint32),
|
||||||
|
void (*swapfn)(void *, PHYSFS_uint32, PHYSFS_uint32))
|
||||||
|
{
|
||||||
|
PHYSFS_uint32 i;
|
||||||
|
struct timeval starttime, endtime;
|
||||||
|
|
||||||
|
gettimeofday(&starttime, NULL);
|
||||||
|
__PHYSFS_sort(a, max, cmpfn, swapfn);
|
||||||
|
gettimeofday(&endtime, NULL);
|
||||||
|
|
||||||
|
for (i = 1; i < max; i++)
|
||||||
|
{
|
||||||
|
if (a[i] < a[i - 1])
|
||||||
|
return(0);
|
||||||
|
} /* for */
|
||||||
|
|
||||||
|
if (timer != NULL)
|
||||||
|
{
|
||||||
|
*timer = ( ((endtime.tv_sec - starttime.tv_sec) * 1000) +
|
||||||
|
((endtime.tv_usec - starttime.tv_usec) / 1000) );
|
||||||
|
} /* if */
|
||||||
|
|
||||||
|
return(1);
|
||||||
|
} /* __PHYSFS_test_sort_time */
|
||||||
|
|
||||||
|
|
||||||
|
static void __PHYSFS_test_sort(void)
|
||||||
|
{
|
||||||
|
PHYSFS_uint32 elasped[PHYSFS_TEST_SORT_ITERATIONS];
|
||||||
|
PHYSFS_sint32 iter;
|
||||||
|
PHYSFS_sint32 a[PHYSFS_TEST_SORT_ELEMENTS];
|
||||||
|
PHYSFS_sint32 i, x;
|
||||||
|
int success;
|
||||||
|
|
||||||
|
printf("Testing __PHYSFS_sort (linear presorted) ... ");
|
||||||
|
for (iter = 0; iter < PHYSFS_TEST_SORT_ITERATIONS; iter++)
|
||||||
|
{
|
||||||
|
/* set up array to sort. */
|
||||||
|
for (i = 0; i < PHYSFS_TEST_SORT_ELEMENTS; i++)
|
||||||
|
a[i] = i;
|
||||||
|
|
||||||
|
/* sort it. */
|
||||||
|
success = __PHYSFS_test_sort_do(&elasped[iter],
|
||||||
|
a, PHYSFS_TEST_SORT_ELEMENTS,
|
||||||
|
__PHYSFS_test_sort_cmp,
|
||||||
|
__PHYSFS_test_sort_swap);
|
||||||
|
if (!success)
|
||||||
|
break;
|
||||||
|
} /* for */
|
||||||
|
|
||||||
|
if (!success)
|
||||||
|
printf("Failed!\n");
|
||||||
|
else
|
||||||
|
{
|
||||||
|
for (x = 0, iter = 0; iter < PHYSFS_TEST_SORT_ITERATIONS; iter++)
|
||||||
|
x += elasped[iter];
|
||||||
|
|
||||||
|
x /= PHYSFS_TEST_SORT_ITERATIONS;
|
||||||
|
printf("Average run (%lu) ms.\n", (unsigned long) x);
|
||||||
|
} /* else */
|
||||||
|
|
||||||
|
printf("Testing __PHYSFS_sort (linear presorted reverse) ... ");
|
||||||
|
for (iter = 0; iter < PHYSFS_TEST_SORT_ITERATIONS; iter++)
|
||||||
|
{
|
||||||
|
/* set up array to sort. */
|
||||||
|
for (i = 0, x = PHYSFS_TEST_SORT_ELEMENTS;
|
||||||
|
i < PHYSFS_TEST_SORT_ELEMENTS;
|
||||||
|
i++, x--)
|
||||||
|
{
|
||||||
|
a[i] = x;
|
||||||
|
} /* for */
|
||||||
|
|
||||||
|
/* sort it. */
|
||||||
|
success = __PHYSFS_test_sort_do(&elasped[iter],
|
||||||
|
a, PHYSFS_TEST_SORT_ELEMENTS,
|
||||||
|
__PHYSFS_test_sort_cmp,
|
||||||
|
__PHYSFS_test_sort_swap);
|
||||||
|
if (!success)
|
||||||
|
break;
|
||||||
|
} /* for */
|
||||||
|
|
||||||
|
if (!success)
|
||||||
|
printf("Failed!\n");
|
||||||
|
else
|
||||||
|
{
|
||||||
|
for (x = 0, iter = 0; iter < PHYSFS_TEST_SORT_ITERATIONS; iter++)
|
||||||
|
x += elasped[iter];
|
||||||
|
|
||||||
|
x /= PHYSFS_TEST_SORT_ITERATIONS;
|
||||||
|
printf("Average run (%lu) ms.\n", (unsigned long) x);
|
||||||
|
} /* else */
|
||||||
|
|
||||||
|
|
||||||
|
printf("Testing __PHYSFS_sort (randomized) ... ");
|
||||||
|
for (iter = 0; iter < PHYSFS_TEST_SORT_ITERATIONS; iter++)
|
||||||
|
{
|
||||||
|
/* set up array to sort. */
|
||||||
|
for (i = 0; i < PHYSFS_TEST_SORT_ELEMENTS; i++)
|
||||||
|
a[i] = (PHYSFS_uint32) rand();
|
||||||
|
|
||||||
|
/* sort it. */
|
||||||
|
success = __PHYSFS_test_sort_do(&elasped[iter],
|
||||||
|
a, PHYSFS_TEST_SORT_ELEMENTS,
|
||||||
|
__PHYSFS_test_sort_cmp,
|
||||||
|
__PHYSFS_test_sort_swap);
|
||||||
|
if (!success)
|
||||||
|
break;
|
||||||
|
} /* for */
|
||||||
|
|
||||||
|
if (!success)
|
||||||
|
printf("Failed!\n");
|
||||||
|
else
|
||||||
|
{
|
||||||
|
for (x = 0, iter = 0; iter < PHYSFS_TEST_SORT_ITERATIONS; iter++)
|
||||||
|
x += elasped[iter];
|
||||||
|
|
||||||
|
x /= PHYSFS_TEST_SORT_ITERATIONS;
|
||||||
|
printf("Average run (%lu) ms.\n", (unsigned long) x);
|
||||||
|
} /* else */
|
||||||
|
|
||||||
|
printf("__PHYSFS_test_sort() complete.\n\n");
|
||||||
|
} /* __PHYSFS_test_sort */
|
||||||
|
#endif
|
||||||
|
|
||||||
|
|
||||||
static ErrMsg *findErrorForCurrentThread(void)
|
static ErrMsg *findErrorForCurrentThread(void)
|
||||||
{
|
{
|
||||||
ErrMsg *i;
|
ErrMsg *i;
|
||||||
|
|
@ -508,6 +742,19 @@ int PHYSFS_init(const char *argv0)
|
||||||
|
|
||||||
/* This makes sure that the error subsystem is initialized. */
|
/* This makes sure that the error subsystem is initialized. */
|
||||||
__PHYSFS_setError(PHYSFS_getLastError());
|
__PHYSFS_setError(PHYSFS_getLastError());
|
||||||
|
|
||||||
|
#if (defined PHYSFS_PROFILING)
|
||||||
|
srand(time(NULL));
|
||||||
|
setbuf(stdout, NULL);
|
||||||
|
printf("\n");
|
||||||
|
printf("********************************************************\n");
|
||||||
|
printf("Warning! Profiling is built into this copy of PhysicsFS!\n");
|
||||||
|
printf("********************************************************\n");
|
||||||
|
printf("\n");
|
||||||
|
printf("\n");
|
||||||
|
__PHYSFS_test_sort();
|
||||||
|
#endif
|
||||||
|
|
||||||
return(1);
|
return(1);
|
||||||
} /* PHYSFS_init */
|
} /* PHYSFS_init */
|
||||||
|
|
||||||
|
|
@ -1557,7 +1804,5 @@ LinkedStringList *__PHYSFS_addToLinkedStringList(LinkedStringList *retval,
|
||||||
return(retval);
|
return(retval);
|
||||||
} /* __PHYSFS_addToLinkedStringList */
|
} /* __PHYSFS_addToLinkedStringList */
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
/* end of physfs.c ... */
|
/* end of physfs.c ... */
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue