Subversion Repositories Kolibri OS

Rev

Rev 1665 | Rev 3245 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
1665 Nasarus 1
 
2
{
3
4
 
5
unsigned	*n;
6
unsigned	num_of_file;
7
unsigned	*t;
8
unsigned	type_of_file;
9
int		i, result;
2617 Albom 10
1665 Nasarus 11
 
2617 Albom 12
 
1665 Nasarus 13
k70.p04 = 0;
14
k70.p08 = 0;
15
k70.p12 = 10000;
2617 Albom 16
k70.p16 = malloc(32+k70.p12*560);
17
k70.p20 = 0;
1665 Nasarus 18
19
 
20
// Если ls запускается без параметров, просматриваем текущий каталог
21
if ( !strlen(dir) )
22
	k70.p21 = cur_dir;
23
else
24
	k70.p21 = dir;
25
2617 Albom 26
 
27
if ( !((result==0) || (result==6)) ) // проверяем существование каталога
28
	{
1665 Nasarus 29
	free(k70.p16);
30
	return FALSE;
31
	}
32
33
 
34
num_of_file = *n; // число файлов в каталоге
35
36
 
37
	{
38
	printf ("  %s", k70.p16+32+40+(264+40)*i);
39
	t = k70.p16+32+(264+40)*i;
40
	type_of_file = *t;
41
	if ( (0x10 == (type_of_file&0x10)) || (8 == (type_of_file&8)) )
42
		printf ("/");
43
	printf ("\n\r");
44
	}
45
46
 
47
return TRUE;
48
}
49