Subversion Repositories HelenOS-historic

Rev

Rev 336 | Rev 350 | Go to most recent revision | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 336 Rev 349
1
/*
1
/*
2
 * Copyright (C) 2005 Sergey Bondari
2
 * Copyright (C) 2005 Sergey Bondari
3
 * All rights reserved.
3
 * All rights reserved.
4
 *
4
 *
5
 * Redistribution and use in source and binary forms, with or without
5
 * Redistribution and use in source and binary forms, with or without
6
 * modification, are permitted provided that the following conditions
6
 * modification, are permitted provided that the following conditions
7
 * are met:
7
 * are met:
8
 *
8
 *
9
 * - Redistributions of source code must retain the above copyright
9
 * - Redistributions of source code must retain the above copyright
10
 *   notice, this list of conditions and the following disclaimer.
10
 *   notice, this list of conditions and the following disclaimer.
11
 * - Redistributions in binary form must reproduce the above copyright
11
 * - Redistributions in binary form must reproduce the above copyright
12
 *   notice, this list of conditions and the following disclaimer in the
12
 *   notice, this list of conditions and the following disclaimer in the
13
 *   documentation and/or other materials provided with the distribution.
13
 *   documentation and/or other materials provided with the distribution.
14
 * - The name of the author may not be used to endorse or promote products
14
 * - The name of the author may not be used to endorse or promote products
15
 *   derived from this software without specific prior written permission.
15
 *   derived from this software without specific prior written permission.
16
 *
16
 *
17
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
17
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
18
 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
18
 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
19
 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
19
 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
20
 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
20
 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
21
 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
21
 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
22
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
22
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
23
 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
23
 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
24
 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
24
 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
25
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
25
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
26
 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
26
 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
27
 */
27
 */
28
 
28
 
29
#include <mm/heap.h>
29
#include <mm/heap.h>
30
#include <memstr.h>
30
#include <memstr.h>
31
#include <sort.h>
31
#include <sort.h>
32
#include <panic.h>
32
#include <panic.h>
33
 
33
 
-
 
34
#define EBUFSIZE    32
-
 
35
 
34
static void _qsort(void * data, count_t n, size_t e_size, int (* cmp) (void * a, void * b), void * pivot, void * tmp);
36
static void _qsort(void * data, count_t n, size_t e_size, int (* cmp) (void * a, void * b), void * pivot, void * tmp);
35
 
37
 
36
/*
38
/*
37
 * Wrapper method for quicksort algorithm to decrease amount of allocations
39
 * Wrapper method for quicksort algorithm to decrease amount of allocations
38
 */
40
 */
39
void qsort(void * data, count_t n, size_t e_size, int (* cmp) (void * a, void * b)) {
41
void qsort(void * data, count_t n, size_t e_size, int (* cmp) (void * a, void * b)) {
-
 
42
    __u8 buf_tmp[EBUFSIZE];
-
 
43
    __u8 buf_pivot[EBUFSIZE];
-
 
44
    void * tmp = buf_tmp;
-
 
45
    void * pivot = buf_pivot;
-
 
46
 
-
 
47
    if (e_size > EBUFSIZE) {
40
    void * tmp = (void *) malloc(e_size);
48
        pivot = (void *) malloc(e_size);
41
    void * pivot = (void *) malloc(e_size);
49
        tmp = (void *) malloc(e_size);
42
   
50
   
43
    if (!tmp || !pivot) {
51
        if (!tmp || !pivot) {
44
        panic("Cannot allocate memory\n");
52
            panic("Cannot allocate memory\n");
-
 
53
        }
45
    }
54
    }
46
 
55
 
47
    _qsort(data, n, e_size, cmp, pivot, tmp);
56
    _qsort(data, n, e_size, cmp, pivot, tmp);
48
   
57
   
-
 
58
    if (e_size > EBUFSIZE) {
49
    free(tmp);
59
        free(tmp);
50
    free(pivot);
60
        free(pivot);
-
 
61
    }
51
}
62
}
52
 
63
 
53
 
64
 
54
void bubblesort(void * data, count_t n, size_t e_size, int (* cmp) (void * a, void * b)) {
65
void bubblesort(void * data, count_t n, size_t e_size, int (* cmp) (void * a, void * b)) {
-
 
66
    __u8 buf_slot[EBUFSIZE];
55
    bool done = false;
67
    bool done = false;
56
    void * p;
68
    void * p;
-
 
69
    void * slot = buf_slot;
-
 
70
   
-
 
71
    if (e_size > EBUFSIZE) {
57
    void * slot = (void *) malloc(e_size);
72
        slot = (void *) malloc(e_size);
-
 
73
       
-
 
74
        if (!slot) {
-
 
75
            panic("Cannot allocate memory\n");
-
 
76
        }
-
 
77
    }
58
 
78
 
59
    while (!done) {
79
    while (!done) {
60
        done = true;
80
        done = true;
61
        for (p = data; p < data + e_size * (n - 1); p = p + e_size) {
81
        for (p = data; p < data + e_size * (n - 1); p = p + e_size) {
62
            if (cmp(p, p + e_size) == 1) {
82
            if (cmp(p, p + e_size) == 1) {
63
                memcpy(slot, p, e_size);
83
                memcpy(slot, p, e_size);
64
                memcpy(p, p + e_size, e_size);
84
                memcpy(p, p + e_size, e_size);
65
                memcpy(p + e_size, slot, e_size);
85
                memcpy(p + e_size, slot, e_size);
66
                done = false;
86
                done = false;
67
            }
87
            }
68
        }
88
        }
69
    }
89
    }
70
   
90
   
-
 
91
    if (e_size > EBUFSIZE) {   
71
    free(slot);
92
        free(slot);
-
 
93
    }
72
}
94
}
73
 
95
 
74
static void _qsort(void * data, count_t n, size_t e_size, int (* cmp) (void * a, void * b), void * pivot, void * tmp) {
96
static void _qsort(void * data, count_t n, size_t e_size, int (* cmp) (void * a, void * b), void * pivot, void * tmp) {
75
    if (n > 4) {
97
    if (n > 4) {
76
        int i = 0, j = n - 1;
98
        int i = 0, j = n - 1;
77
 
99
 
78
        memcpy(pivot, data, e_size);
100
        memcpy(pivot, data, e_size);
79
 
101
 
80
        while (1) {
102
        while (1) {
81
            while ((cmp(data + i * e_size, pivot) < 0) && i < n) i++;
103
            while ((cmp(data + i * e_size, pivot) < 0) && i < n) i++;
82
            while ((cmp(data + j * e_size, pivot) >=0) && j > 0) j--;
104
            while ((cmp(data + j * e_size, pivot) >=0) && j > 0) j--;
83
            if (i<j) {
105
            if (i<j) {
84
                memcpy(tmp, data + i * e_size, e_size);
106
                memcpy(tmp, data + i * e_size, e_size);
85
                memcpy(data + i * e_size, data + j * e_size, e_size);
107
                memcpy(data + i * e_size, data + j * e_size, e_size);
86
                memcpy(data + j * e_size, tmp, e_size);
108
                memcpy(data + j * e_size, tmp, e_size);
87
            } else {
109
            } else {
88
                break;
110
                break;
89
            }
111
            }
90
        }
112
        }
91
 
113
 
92
        qsort(data, j + 1, e_size, cmp);
114
        qsort(data, j + 1, e_size, cmp);
93
        qsort(data + (j + 1) * e_size, n - j - 1, e_size, cmp);
115
        qsort(data + (j + 1) * e_size, n - j - 1, e_size, cmp);
94
    } else {
116
    } else {
95
        bubblesort(data, n, e_size, cmp);
117
        bubblesort(data, n, e_size, cmp);
96
    }
118
    }
97
}
119
}
98
 
120
 
99
 
121
 
100
 
122
 
101
/*
123
/*
102
 * Comparator returns 1 if a > b, 0 if a == b, -1 if a < b
124
 * Comparator returns 1 if a > b, 0 if a == b, -1 if a < b
103
 */
125
 */
104
int int_cmp(void * a, void * b) {
126
int int_cmp(void * a, void * b) {
105
    return (* (int *) a > * (int*)b) ? 1 : (*(int *)a < * (int *)b) ? -1 : 0;
127
    return (* (int *) a > * (int*)b) ? 1 : (*(int *)a < * (int *)b) ? -1 : 0;
106
}
128
}
107
 
129
 
108
int __u8_cmp(void * a, void * b) {
130
int __u8_cmp(void * a, void * b) {
109
    return (* (__u8 *) a > * (__u8 *)b) ? 1 : (*(__u8 *)a < * (__u8 *)b) ? -1 : 0;
131
    return (* (__u8 *) a > * (__u8 *)b) ? 1 : (*(__u8 *)a < * (__u8 *)b) ? -1 : 0;
110
}
132
}
111
 
133
 
112
int __u16_cmp(void * a, void * b) {
134
int __u16_cmp(void * a, void * b) {
113
    return (* (__u16 *) a > * (__u16 *)b) ? 1 : (*(__u16 *)a < * (__u16 *)b) ? -1 : 0;
135
    return (* (__u16 *) a > * (__u16 *)b) ? 1 : (*(__u16 *)a < * (__u16 *)b) ? -1 : 0;
114
}
136
}
115
 
137
 
116
int __u32_cmp(void * a, void * b) {
138
int __u32_cmp(void * a, void * b) {
117
    return (* (__u32 *) a > * (__u32 *)b) ? 1 : (*(__u32 *)a < * (__u32 *)b) ? -1 : 0;
139
    return (* (__u32 *) a > * (__u32 *)b) ? 1 : (*(__u32 *)a < * (__u32 *)b) ? -1 : 0;
118
}
140
}
119
 
141
 
120
 
142