| /programs/develop/libraries/qs/compile.bat |
|---|
| 0,0 → 1,2 |
| gcc -c -o qs.obj qs.c |
| pause |
| /programs/develop/libraries/qs/example/compile.bat |
|---|
| 0,0 → 1,4 |
| gcc -c example.c |
| ld -nostdlib -T kolibri.ld -o example.kex start.o kolibri.o stdlib.o string.o example.o |
| objcopy example.kex -O binary |
| pause |
| /programs/develop/libraries/qs/example/console.c |
|---|
| 0,0 → 1,88 |
| ///=========================== |
| #define CON_COLOR_BLUE 1 |
| #define CON_COLOR_GREEN 2 |
| #define CON_COLOR_RED 4 |
| #define CON_COLOR_BRIGHT 8 |
| /* öâåò ôîíà */ |
| #define CON_BGR_BLUE 0x10 |
| #define CON_BGR_GREEN 0x20 |
| #define CON_BGR_RED 0x40 |
| #define CON_BGR_BRIGHT 0x80 |
| ///=========================== |
| void (* _stdcall con_init)(unsigned w_w, unsigned w_h, unsigned s_w, unsigned s_h, const char* t); |
| void (* _cdecl printf)(const char* format,...); |
| void (* _stdcall _exit)(char bCloseWindow); |
| void (* __stdcall gets)(char* str, int n); |
| int (* __stdcall getch)(void); |
| int (* __stdcall con_get_font_height)(void); |
| int (* __stdcall con_set_cursor_height)(int new_height); |
| unsigned (*__stdcall con_get_flags)(void); |
| unsigned (*__stdcall con_set_flags)(unsigned new_flags); |
| void (*__stdcall con_cls)(void); |
| ///=========================== |
| void CONSOLE_INIT(char title[]) |
| { |
| kol_struct_import *imp; |
| imp = kol_cofflib_load("/sys/lib/console.obj"); |
| if (imp == NULL) |
| kol_exit(); |
| con_init = ( _stdcall void (*)(unsigned, unsigned, unsigned, unsigned, const char*)) |
| kol_cofflib_procload (imp, "con_init"); |
| if (con_init == NULL) |
| kol_exit(); |
| printf = ( _cdecl void (*)(const char*,...)) |
| kol_cofflib_procload (imp, "con_printf"); |
| if (printf == NULL) |
| kol_exit(); |
| _exit = ( _stdcall void (*)(char)) |
| kol_cofflib_procload (imp, "con_exit"); |
| if (_exit == NULL) |
| kol_exit(); |
| gets = ( _stdcall void (*)(char*, int)) |
| kol_cofflib_procload (imp, "con_gets"); |
| if (gets == NULL) |
| kol_exit(); |
| getch = ( _stdcall int (*)(void)) |
| kol_cofflib_procload (imp, "con_getch2"); |
| if (getch == NULL) |
| kol_exit(); |
| con_get_font_height = ( _stdcall int (*)(void)) |
| kol_cofflib_procload (imp, "con_get_font_height"); |
| if (con_get_font_height == NULL) |
| kol_exit(); |
| con_set_cursor_height = ( _stdcall int (*)(int)) |
| kol_cofflib_procload (imp, "con_set_cursor_height"); |
| if (con_set_cursor_height == NULL) |
| kol_exit(); |
| con_get_flags = ( _stdcall unsigned (*)(void)) |
| kol_cofflib_procload (imp, "con_get_flags"); |
| if (con_get_flags == NULL) |
| kol_exit(); |
| con_set_flags = ( _stdcall unsigned (*)(unsigned)) |
| kol_cofflib_procload (imp, "con_set_flags"); |
| if (con_set_flags == NULL) |
| kol_exit(); |
| con_cls = ( _stdcall void (*)(void)) |
| kol_cofflib_procload (imp, "con_cls"); |
| if (con_cls == NULL) |
| kol_exit(); |
| con_init(-1, -1, -1, -1, title); |
| } |
| /programs/develop/libraries/qs/example/example.c |
|---|
| 0,0 → 1,61 |
| #include "kolibri.h" |
| #include "stdlib.h" |
| #include "string.h" |
| #include "console.c" |
| void (* __stdcall qsi)(int* d, int n); |
| /// =========================================================== |
| void kol_main() |
| { |
| #define NUM 20000 |
| kol_struct_import *imp_qs; |
| int *a; |
| int i; |
| CONSOLE_INIT("Example"); |
| imp_qs = kol_cofflib_load("/sys/lib/qs.obj"); |
| qsi = ( _stdcall void (*)(int*, int)) |
| kol_cofflib_procload (imp_qs, "qsi"); |
| a = malloc(NUM*sizeof(int)); |
| for (i = 0; i < NUM; i++) |
| *(a+i) = random(10000); |
| for (i = 0; i < 5; i++) |
| printf("%7d", *(a+i)); |
| printf (" ..."); |
| for (i = NUM-5; i < NUM; i++) |
| printf("%7d", *(a+i)); |
| qsi(a, NUM); |
| printf ("\n"); |
| for (i = 0; i < 5; i++) |
| printf("%7d", *(a+i)); |
| printf (" ..."); |
| for (i = NUM-5; i < NUM; i++) |
| printf("%7d", *(a+i)); |
| free(a); |
| _exit(0); |
| kol_exit(); |
| } |
| /// =========================================================== |
| /programs/develop/libraries/qs/example/kolibri.h |
|---|
| 0,0 → 1,90 |
| #define NULL ((void*)0) |
| typedef struct |
| { |
| unsigned p00 __attribute__((packed)); |
| unsigned p04 __attribute__((packed)); |
| unsigned p08 __attribute__((packed)); |
| unsigned p12 __attribute__((packed)); |
| unsigned p16 __attribute__((packed)); |
| char p20 __attribute__((packed)); |
| char *p21 __attribute__((packed)); |
| } kol_struct70 __attribute__((packed)); |
| typedef struct |
| { |
| unsigned p00 __attribute__((packed)); |
| char p04 __attribute__((packed)); |
| char p05[3] __attribute__((packed)); |
| unsigned p08 __attribute__((packed)); |
| unsigned p12 __attribute__((packed)); |
| unsigned p16 __attribute__((packed)); |
| unsigned p20 __attribute__((packed)); |
| unsigned p24 __attribute__((packed)); |
| unsigned p28 __attribute__((packed)); |
| unsigned p32[2] __attribute__((packed)); |
| unsigned p40 __attribute__((packed)); |
| } kol_struct_BDVK __attribute__((packed)); |
| typedef struct |
| { |
| char *name __attribute__((packed)); |
| void *data __attribute__((packed)); |
| } kol_struct_import __attribute__((packed)); |
| void kol_exit(); |
| void kol_sleep(unsigned d); |
| void kol_wnd_define(unsigned x, unsigned y, unsigned w, unsigned h, unsigned c); |
| void kol_wnd_move(unsigned x, unsigned y); |
| void kol_wnd_caption(char *s); |
| void kol_event_mask(unsigned e); |
| unsigned kol_event_wait(); |
| unsigned kol_event_wait_time(unsigned time); |
| unsigned kol_event_check(); |
| void kol_paint_start(); |
| void kol_paint_end(); |
| void kol_paint_pixel(unsigned x, unsigned y, unsigned c); |
| void kol_paint_bar(unsigned x, unsigned y, unsigned w, unsigned h, unsigned c); |
| void kol_paint_line(unsigned x1, unsigned y1, unsigned x2, unsigned y2, unsigned c); |
| void kol_paint_string(unsigned x, unsigned y, char *s, unsigned c); |
| void kol_paint_image(unsigned x, unsigned y, unsigned w, unsigned h, char *d); |
| void kol_paint_image_pal(unsigned x, unsigned y, unsigned w, unsigned h, char *d, unsigned *palette); |
| unsigned kol_key_get(); |
| unsigned kol_key_control(); |
| void kol_key_lang_set(unsigned lang); |
| unsigned kol_key_lang_get(); |
| void kol_key_mode_set(unsigned mode); |
| unsigned kol_key_mode_get(); |
| void kol_btn_define(unsigned x, unsigned y, unsigned w, unsigned h, unsigned d, unsigned c); |
| unsigned kol_btn_get(); |
| void kol_btn_type(unsigned t); |
| unsigned kol_mouse_pos(); |
| unsigned kol_mouse_posw(); |
| unsigned kol_mouse_btn(); |
| void kol_board_putc(char c); |
| void kol_board_puts(char *s); |
| void kol_board_puti(int n); |
| int kol_file_70(kol_struct70 *k); |
| kol_struct_import* kol_cofflib_load(char *name); |
| void* kol_cofflib_procload (kol_struct_import *imp, char *name); |
| unsigned kol_cofflib_procnum (kol_struct_import *imp); |
| void kol_cofflib_procname (kol_struct_import *imp, char *name, unsigned n); |
| unsigned kol_system_end(unsigned param); |
| unsigned kol_system_cpufreq(); |
| unsigned kol_system_mem(); |
| unsigned kol_system_memfree(); |
| unsigned kol_system_time_get(); |
| unsigned kol_system_date_get(); |
| void kol_path_file2dir(char *dir, char *fname); |
| void kol_path_full(char *full, char *fname); |
| void kol_screen_wait_rr(); |
| void kol_screen_get_size(unsigned *w, unsigned *h); |
| unsigned kol_skin_height(); |
| unsigned kol_thread_start(unsigned start, unsigned stack); |
| unsigned kol_time_tick(); |
| unsigned kol_sound_speaker(char data[]); |
| unsigned kol_process_info(unsigned slot, char buf1k[]); |
| int kol_process_kill_pid(unsigned process); |
| /programs/develop/libraries/qs/example/kolibri.ld |
|---|
| 0,0 → 1,20 |
| /*OUTPUT_FORMAT("binary")*/ |
| ENTRY(Start) |
| SECTIONS |
| { |
| .text 0x000000: |
| { |
| *(.text) |
| } |
| .data : { |
| *(.data) |
| hEnd = . ; |
| } |
| .bss : |
| { |
| *(.bss) |
| } |
| Memory = . ; |
| } |
| /programs/develop/libraries/qs/example/stdlib.h |
|---|
| 0,0 → 1,14 |
| #define RAND_MAX 0x7FFFU |
| #define isspace(c) ((c)==' ') |
| #define abs(i) (((i)<0)?(-(i)):(i)) |
| #define random(num) ((rand()*(num))/((RAND_MAX+1))) |
| void* malloc(unsigned size); |
| void free(void *pointer); |
| void* realloc(void* pointer, unsigned size); |
| void srand (unsigned seed); |
| int rand (void); |
| /programs/develop/libraries/qs/example/string.h |
|---|
| 0,0 → 1,12 |
| #define NULL ((void*)0) |
| void* memset(void *mem, int c, unsigned size); |
| void* memcpy(void *dst, const void *src, unsigned size); |
| void strcat(char strDest[], char strSource[]); |
| int strcmp(const char* string1, const char* string2); |
| void strcpy(char strDest[], const char strSource[]); |
| char* strncpy(char *strDest, const char *strSource, unsigned n); |
| int strlen(const char* string); |
| char *strchr(const char* string, int c); |
| /programs/develop/libraries/qs/qs.c |
|---|
| 0,0 → 1,339 |
| ///=========================================== |
| /// |
| /// Áèáëèîòåêà ôóíêöèé áûñòðîé ñîðòèðîâêè |
| /// |
| /// |
| /// Áàçîâûé êîä áûë âçÿò ñ ñàéòà algolist.manual.ru |
| /// |
| /// Ñêîìïîíîâàë À. Áîãîìàç aka Albom (albom85@yandex.ru) |
| ///=========================================== |
| ///=========================================== |
| /// Ñîðòèðîâêà äëÿ ïåðåìåííûõ òèïà int (4 áàéòà) |
| ///=========================================== |
| void qsi(int *a, int n) |
| { |
| int i, j; |
| int temp, p; |
| p = *(a+(n>>1)); |
| i = 0; |
| j = n; |
| do |
| { |
| while ( *(a+i) < p ) i++; |
| while ( *(a+j) > p ) j--; |
| if (i <= j) |
| { |
| temp = *(a+i); |
| *(a+i) = *(a+j); |
| *(a+j) = temp; |
| i++; |
| j--; |
| } |
| } while ( i<=j ); |
| if ( j > 0 ) |
| qsi(a, j); |
| if ( n > i ) |
| qsi(a+i, n-i); |
| } |
| ///=========================================== |
| /// Ñîðòèðîâêà äëÿ ïåðåìåííûõ òèïà short int (2 áàéòà) |
| ///=========================================== |
| void qss(short *a, int n) |
| { |
| int i, j; |
| short temp, p; |
| p = *(a+(n>>1)); |
| i = 0; |
| j = n; |
| do |
| { |
| while ( *(a+i) < p ) i++; |
| while ( *(a+j) > p ) j--; |
| if (i <= j) |
| { |
| temp = *(a+i); |
| *(a+i) = *(a+j); |
| *(a+j) = temp; |
| i++; |
| j--; |
| } |
| } while ( i<=j ); |
| if ( j > 0 ) |
| qss(a, j); |
| if ( n > i ) |
| qss(a+i, n-i); |
| } |
| ///=========================================== |
| /// Ñîðòèðîâêà äëÿ ïåðåìåííûõ òèïà char (1 áàéò) |
| ///=========================================== |
| void qsc(char *a, int n) |
| { |
| int i, j; |
| char temp, p; |
| p = *(a+(n>>1)); |
| i = 0; |
| j = n; |
| do |
| { |
| while ( *(a+i) < p ) i++; |
| while ( *(a+j) > p ) j--; |
| if (i <= j) |
| { |
| temp = *(a+i); |
| *(a+i) = *(a+j); |
| *(a+j) = temp; |
| i++; |
| j--; |
| } |
| } while ( i<=j ); |
| if ( j > 0 ) |
| qsc(a, j); |
| if ( n > i ) |
| qsc(a+i, n-i); |
| } |
| ///=========================================== |
| /// Ñîðòèðîâêà äëÿ ïåðåìåííûõ òèïà unsigned int (4 áàéòà) |
| ///=========================================== |
| void qsui(unsigned *a, int n) |
| { |
| int i, j; |
| unsigned temp, p; |
| p = *(a+(n>>1)); |
| i = 0; |
| j = n; |
| do |
| { |
| while ( *(a+i) < p ) i++; |
| while ( *(a+j) > p ) j--; |
| if (i <= j) |
| { |
| temp = *(a+i); |
| *(a+i) = *(a+j); |
| *(a+j) = temp; |
| i++; |
| j--; |
| } |
| } while ( i<=j ); |
| if ( j > 0 ) |
| qsui(a, j); |
| if ( n > i ) |
| qsui(a+i, n-i); |
| } |
| ///=========================================== |
| /// Ñîðòèðîâêà äëÿ ïåðåìåííûõ òèïà unsigned short int (2 áàéòà) |
| ///=========================================== |
| void qsus(unsigned short *a, int n) |
| { |
| int i, j; |
| unsigned short temp, p; |
| p = *(a+(n>>1)); |
| i = 0; |
| j = n; |
| do |
| { |
| while ( *(a+i) < p ) i++; |
| while ( *(a+j) > p ) j--; |
| if (i <= j) |
| { |
| temp = *(a+i); |
| *(a+i) = *(a+j); |
| *(a+j) = temp; |
| i++; |
| j--; |
| } |
| } while ( i<=j ); |
| if ( j > 0 ) |
| qsus(a, j); |
| if ( n > i ) |
| qsus(a+i, n-i); |
| } |
| ///=========================================== |
| /// Ñîðòèðîâêà äëÿ ïåðåìåííûõ òèïà unsigned char (1 áàéò) |
| ///=========================================== |
| void qsuc(unsigned char *a, int n) |
| { |
| int i, j; |
| unsigned char temp, p; |
| p = *(a+(n>>1)); |
| i = 0; |
| j = n; |
| do |
| { |
| while ( *(a+i) < p ) i++; |
| while ( *(a+j) > p ) j--; |
| if (i <= j) |
| { |
| temp = *(a+i); |
| *(a+i) = *(a+j); |
| *(a+j) = temp; |
| i++; |
| j--; |
| } |
| } while ( i<=j ); |
| if ( j > 0 ) |
| qsuc(a, j); |
| if ( n > i ) |
| qsuc(a+i, n-i); |
| } |
| ///=========================================== |
| /// Ñîðòèðîâêà äëÿ ïåðåìåííûõ òèïà float (4 áàéòà) |
| ///=========================================== |
| void qsf(float *a, int n) |
| { |
| int i, j; |
| float temp, p; |
| p = *(a+(n>>1)); |
| i = 0; |
| j = n; |
| do |
| { |
| while ( *(a+i) < p ) i++; |
| while ( *(a+j) > p ) j--; |
| if (i <= j) |
| { |
| temp = *(a+i); |
| *(a+i) = *(a+j); |
| *(a+j) = temp; |
| i++; |
| j--; |
| } |
| } while ( i<=j ); |
| if ( j > 0 ) |
| qsf(a, j); |
| if ( n > i ) |
| qsf(a+i, n-i); |
| } |
| ///=========================================== |
| /// Ñîðòèðîâêà äëÿ ïåðåìåííûõ òèïà double (8 áàéò) |
| ///=========================================== |
| void qsd(double *a, int n) |
| { |
| int i, j; |
| double temp, p; |
| p = *(a+(n>>1)); |
| i = 0; |
| j = n; |
| do |
| { |
| while ( *(a+i) < p ) i++; |
| while ( *(a+j) > p ) j--; |
| if (i <= j) |
| { |
| temp = *(a+i); |
| *(a+i) = *(a+j); |
| *(a+j) = temp; |
| i++; |
| j--; |
| } |
| } while ( i<=j ); |
| if ( j > 0 ) |
| qsd(a, j); |
| if ( n > i ) |
| qsd(a+i, n-i); |
| } |
| ///=========================================== |
| #define NULL ((void*)0) |
| typedef struct |
| { |
| void *name; |
| void *function; |
| } export_t; |
| char szQsi[] = "qsi"; |
| char szQss[] = "qss"; |
| char szQsc[] = "qsc"; |
| char szQsui[] = "qsui"; |
| char szQsus[] = "qsus"; |
| char szQsuc[] = "qsuc"; |
| char szQsf[] = "qsf"; |
| char szQsd[] = "qsd"; |
| export_t EXPORTS[] = |
| { |
| { szQsi, (void*) qsi }, |
| { szQss, (void*) qss }, |
| { szQsc, (void*) qsc }, |
| { szQsui, (void*) qsui }, |
| { szQsus, (void*) qsus }, |
| { szQsuc, (void*) qsuc }, |
| { szQsf, (void*) qsf }, |
| { szQsd, (void*) qsd }, |
| { NULL, NULL }, |
| }; |
| /programs/develop/libraries/qs/qs.h |
|---|
| 0,0 → 1,51 |
| ///=========================================== |
| /// |
| /// Áèáëèîòåêà ôóíêöèé áûñòðîé ñîðòèðîâêè |
| /// |
| /// |
| /// Áàçîâûé êîä áûë âçÿò ñ ñàéòà algolist.manual.ru |
| /// |
| /// Ñêîìïîíîâàë À. Áîãîìàç aka Albom (albom85@yandex.ru) |
| ///=========================================== |
| ///=========================================== |
| /// Ñîðòèðîâêà äëÿ ïåðåìåííûõ òèïà int (4 áàéòà) |
| ///=========================================== |
| void qsi(int *a, int n); |
| ///=========================================== |
| /// Ñîðòèðîâêà äëÿ ïåðåìåííûõ òèïà short int (2 áàéòà) |
| ///=========================================== |
| void qss(short *a, int n); |
| ///=========================================== |
| /// Ñîðòèðîâêà äëÿ ïåðåìåííûõ òèïà char (1 áàéò) |
| ///=========================================== |
| void qsc(char *a, int n); |
| ///=========================================== |
| /// Ñîðòèðîâêà äëÿ ïåðåìåííûõ òèïà unsigned int (4 áàéòà) |
| ///=========================================== |
| void qsui(unsigned *a, int n); |
| ///=========================================== |
| /// Ñîðòèðîâêà äëÿ ïåðåìåííûõ òèïà unsigned short int (2 áàéòà) |
| ///=========================================== |
| void qsus(unsigned short *a, int n); |
| ///=========================================== |
| /// Ñîðòèðîâêà äëÿ ïåðåìåííûõ òèïà unsigned char (1 áàéò) |
| ///=========================================== |
| void qsuc(unsigned char *a, int n); |
| ///=========================================== |
| /// Ñîðòèðîâêà äëÿ ïåðåìåííûõ òèïà float (4 áàéòà) |
| ///=========================================== |
| void qsf(float *a, int n); |
| ///=========================================== |
| /// Ñîðòèðîâêà äëÿ ïåðåìåííûõ òèïà double (8 áàéò) |
| ///=========================================== |
| void qsd(double *a, int n); |
| /programs/develop/libraries/qs/readme.txt |
|---|
| 0,0 → 1,9 |
| Áèáëèîòåêà ôóíêöèé áûñòðîé ñîðòèðîâêè qs version 0.1 |
| Áàçîâûé êîä áûë âçÿò ñ ñàéòà algolist.manual.ru |
| Ñêîìïîíîâàë À. Áîãîìàç aka Albom (albom85@yandex.ru) |