Subversion Repositories Kolibri OS

	int jst, ist=a;

void Sort_by_Type(int a, b)   // äëÿ ïåðâîãî âûçîâà: a = 0, b = <ýëåìåíòîâ â ìàññèâå> - 1

	int n;

{               

	int n, isn = a;

	{

	for (j = a; j <= b; j++)

		ext1[0]=ext2[0]=filename1[0]=filename2[0]=NULL;

	{

		copystr(file_mas[jst]*304 + buf+72, #filename1);

		filename2 = file_mas[b]*304 + buf+72;

		copystr(file_mas[b]*304 + buf+72, #filename2);

		n=strlen(#filename1)-1;

		n=strlen(filename1)-1;

		WHILE (filename1[n]<>'.') && (n>0) n--;

		WHILE (n>0) && (ESBYTE[filename1+n]<>'.') n--;

		IF (n) copystr(#filename1+n+1, #ext1);

		IF (n) ext1 = filename1+n+1; else ext1=0;

		n=strlen(#filename2)-1;

		n=strlen(filename2)-1;

		WHILE (filename2[n]<>'.') && (n>0) n--;

		WHILE (n>0) && (ESBYTE[filename2+n]<>'.') n--;

		IF (n) copystr(#filename2+n+1, #ext2);

		IF (n) ext2 = filename2+n+1; else ext2=0;

		n=strcmp(#ext1, #ext2);

		n=strcmp(ext1, ext2);

		IF (n==0) && (strcmp(#filename1, #filename2)<=0) { file_mas[ist] >< file_mas[jst];   ist++;}

		IF (n==0) && (strcmp(filename1, filename2)<=0) { file_mas[isn] >< file_mas[j];   isn++;}

	}

	}