Subversion Repositories Kolibri OS

Rev

Rev 2615 | 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
kol_struct_BDVK	bdvk;
6
unsigned	result, filesize, pos, i;
7
char		buf[81]; //буфер
1668 Nasarus 8
char		temp[256];
1665 Nasarus 9
unsigned	flags;
10
11
 
2617 Albom 12
	{
1665 Nasarus 13
	#if LANG_ENG
1668 Nasarus 14
		printf ("  more \n\r");
15
	#elif LANG_RUS
16
		printf ("  more <имя файла>\n\r");
17
	#endif
18
	return FALSE;
1665 Nasarus 19
	}
2617 Albom 20
1665 Nasarus 21
 
22
	{
23
	strcpy(temp, file);
24
25
 
26
		{
27
		file_not_found(file);
2617 Albom 28
		return FALSE;
1665 Nasarus 29
		}
30
	}
31
else
32
	{
33
	strcpy(temp, cur_dir);
34
	if (temp[strlen(temp)-1] != '/')
2615 Albom 35
		strcat(temp, "/"); // add slash
36
	strcat(temp, file);
1665 Nasarus 37
38
 
39
		{
40
		file_not_found(file);
2617 Albom 41
		return FALSE;
1665 Nasarus 42
		}
43
	}
44
45
 
46
k70.p04 = k70.p08 = k70.p12 = 0;
47
k70.p16 = &bdvk;
48
k70.p20 = 0;
49
k70.p21 = temp;
50
51
 
1668 Nasarus 52
if ( 0 != result )
1665 Nasarus 53
	return FALSE;
54
55
 
1668 Nasarus 56
1665 Nasarus 57
 
58
flags = con_get_flags();
59
60
 
61
	{
62
63
 
64
65
 
66
	k70.p04 = pos;
67
	k70.p08 = 0;
68
	k70.p12 = 80;
69
	k70.p16 = buf;
70
	k70.p20 = 0;
71
	k70.p21 = temp;
72
73
 
1668 Nasarus 74
	for (i=0; i<80; i++)
1665 Nasarus 75
		{
76
77
 
78
			con_set_flags(flags|0x100);
79
		else con_set_flags(flags);
80
81
 
82
		}
83
	if ( 0 != result )
84
		{
85
		con_set_flags(flags);
86
		printf ("\n\r");
87
		return TRUE;
88
		}
89
90
 
91
con_set_flags(flags);
92
printf ("\n\r");
93
return TRUE;
94
}
95
>