Subversion Repositories Kolibri OS

Rev

Rev 1668 | Rev 2617 | 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
 
12
	{
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
		}
20
21
 
22
	{
23
	strcpy(temp, file);
24
25
 
26
		{
27
		#if LANG_ENG
2615 Albom 28
			printf ("  File not found!\n\r");
29
		#elif LANG_RUS
30
			printf ("  Файл не найден!\n\r");
31
		#endif
32
		return FALSE;
1665 Nasarus 33
		}
34
	}
35
else
36
	{
37
	strcpy(temp, cur_dir);
38
	if (temp[strlen(temp)-1] != '/')
2615 Albom 39
		strcat(temp, "/"); // add slash
40
	strcat(temp, file);
1665 Nasarus 41
42
 
43
		{
44
		#if LANG_ENG
2615 Albom 45
			printf ("  File not found!\n\r");
46
		#elif LANG_RUS
47
			printf ("  Файл не найден!\n\r");
48
		#endif
49
		return FALSE;
1665 Nasarus 50
		}
51
	}
52
53
 
54
k70.p04 = k70.p08 = k70.p12 = 0;
55
k70.p16 = &bdvk;
56
k70.p20 = 0;
57
k70.p21 = temp;
58
59
 
1668 Nasarus 60
if ( 0 != result )
1665 Nasarus 61
	return FALSE;
62
63
 
1668 Nasarus 64
1665 Nasarus 65
 
66
flags = con_get_flags();
67
68
 
69
	{
70
71
 
72
73
 
74
	k70.p04 = pos;
75
	k70.p08 = 0;
76
	k70.p12 = 80;
77
	k70.p16 = buf;
78
	k70.p20 = 0;
79
	k70.p21 = temp;
80
81
 
1668 Nasarus 82
	for (i=0; i<80; i++)
1665 Nasarus 83
		{
84
85
 
86
			con_set_flags(flags|0x100);
87
		else con_set_flags(flags);
88
89
 
90
		}
91
	if ( 0 != result )
92
		{
93
		con_set_flags(flags);
94
		printf ("\n\r");
95
		return TRUE;
96
		}
97
98
 
99
con_set_flags(flags);
100
printf ("\n\r");
101
return TRUE;
102
}
103
>