Subversion Repositories Kolibri OS

Rev

Blame | Last modification | View Log | Download | RSS feed

  1.  
  2. #include "kolibri.h"
  3. #include "stdlib.h"
  4. #include "string.h"
  5.  
  6. #include "console.c"
  7.  
  8.  
  9. void (* __stdcall qsi)(int* d, int n);
  10.  
  11. /// ===========================================================
  12.  
  13. void kol_main()
  14. {
  15.  
  16. #define NUM 20000
  17.  
  18. kol_struct_import *imp_qs;
  19.  
  20. int     *a;
  21. int     i;
  22.  
  23. CONSOLE_INIT("Example");
  24.  
  25. imp_qs = kol_cofflib_load("/sys/lib/qs.obj");
  26. qsi = ( _stdcall void (*)(int*, int))
  27.                 kol_cofflib_procload (imp_qs, "qsi");
  28.  
  29. a = malloc(NUM*sizeof(int));
  30.  
  31. for (i = 0; i < NUM; i++)
  32.         *(a+i) = random(10000);
  33.  
  34. for (i = 0; i < 5; i++)
  35.         printf("%7d", *(a+i));
  36.  
  37. printf ("    ...");
  38.  
  39. for (i = NUM-5; i < NUM; i++)
  40.         printf("%7d", *(a+i));
  41.  
  42. qsi(a, NUM);
  43.  
  44. printf ("\n");
  45.  
  46. for (i = 0; i < 5; i++)
  47.         printf("%7d", *(a+i));
  48.  
  49. printf ("    ...");
  50.  
  51. for (i = NUM-5; i < NUM; i++)
  52.         printf("%7d", *(a+i));
  53.  
  54.  
  55. free(a);
  56.  
  57. _exit(0);
  58. kol_exit();
  59. }
  60.  
  61. /// ===========================================================
  62.