Subversion Repositories Kolibri OS

Rev

Rev 2568 | Go to most recent revision | Blame | Last modification | View Log | Download | RSS feed

  1. //Áûñòðàÿ ñîðòèðîâêà. Leency 2008.
  2.  
  3. void Sort_by_Size(int a, b)   // äëÿ ïåðâîãî âûçîâà: a = 0, b = <ýëåìåíòîâ â ìàññèâå> - 1
  4. {                                        
  5.         int iss = a;
  6.         IF (a >= b) return;
  7.         FOR (j = a; j <= b; j++)
  8.                 IF (ESDWORD[file_mas[j]*304 + buf+64] <= ESDWORD[file_mas[b]*304 + buf+64])     { file_mas[iss] >< file_mas[j];   iss++;}
  9.         Sort_by_Size (a, iss-2);
  10.         Sort_by_Size (iss, b);
  11. }
  12.  
  13.  
  14. void Sort_by_Name(int a, b)   // äëÿ ïåðâîãî âûçîâà: a = 0, b = <ýëåìåíòîâ â ìàññèâå> - 1
  15. {                                        
  16.         int isn = a;
  17.         IF (a >= b) return;
  18.         FOR (j = a; j <= b; j++)
  19.                 IF (strcmp(file_mas[j]*304 + buf+72, file_mas[b]*304 + buf+72)<=0) { file_mas[isn] >< file_mas[j];   isn++;}
  20.         Sort_by_Name(a, isn-2);
  21.         Sort_by_Name(isn, b);
  22. }
  23.  
  24.  
  25. void Sort_by_Type(int a, b)   // äëÿ ïåðâîãî âûçîâà: a = 0, b = <ýëåìåíòîâ â ìàññèâå> - 1
  26. {                                        
  27.         int jst, ist=a;
  28.         int n;
  29.         unsigned char filename1[256], filename2[256];
  30.         unsigned char ext1[256], ext2[256];
  31.        
  32.         IF (a >= b) return;
  33.         for (jst = a; jst <= b; jst++)
  34.         {
  35.                 ext1[0]=ext2[0]=filename1[0]=filename2[0]=NULL;
  36.                 copystr(file_mas[jst]*304 + buf+72, #filename1);
  37.                 copystr(file_mas[b]*304 + buf+72, #filename2);
  38.                 n=strlen(#filename1)-1;
  39.                 WHILE (filename1[n]<>'.') && (n>0) n--;
  40.                 IF (n) copystr(#filename1+n+1, #ext1);
  41.                 n=strlen(#filename2)-1;
  42.                 WHILE (filename2[n]<>'.') && (n>0) n--;
  43.                 IF (n) copystr(#filename2+n+1, #ext2);
  44.  
  45.                 n=strcmp(#ext1, #ext2);
  46.                 IF (n<0) { file_mas[ist] >< file_mas[jst];   ist++;}
  47.                 IF (n==0) && (strcmp(#filename1, #filename2)<=0) { file_mas[ist] >< file_mas[jst];   ist++;}
  48.         }
  49.         Sort_by_Type(a, ist-2);
  50.         Sort_by_Type(ist, b);
  51. }
  52.  
  53.  
  54.  
  55.