Subversion Repositories Kolibri OS

Rev

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

Rev Author Line No. Line
5598 pavelyakov 1
#ifndef INCLUDE_FILESYSTEM_H
2
#define INCLUDE_FILESYSTEM_H
5676 pavelyakov 3
#print "[include ]\n"
5598 pavelyakov 4
 
5640 pavelyakov 5
#ifndef INCLUDE_DATE_H
6
#include "../lib/date.h"
5598 pavelyakov 7
#endif
8
 
5487 leency 9
:struct f70{
3067 leency 10
	dword	func;
11
	dword	param1;
12
	dword	param2;
13
	dword	param3;
14
	dword	param4;
15
	char	rezerv;
16
	dword	name;
17
};
18
 
5487 leency 19
:struct BDVK {
20
	dword	readonly:1, hidden:1, system:1, volume_label:1, isfolder:1, notarchived:1, :0;
3067 leency 21
	byte	type_name;
4898 leency 22
	byte	rez1, rez2, selected;
5487 leency 23
	dword   timecreate;
24
	date 	datecreate;
3067 leency 25
	dword	timelastaccess;
5487 leency 26
	date	datelastaccess;
3067 leency 27
	dword	timelastedit;
5487 leency 28
	date	datelastedit;
3067 leency 29
	dword	sizelo;
30
	dword	sizehi;
31
	char	name[518];
32
};
33
 
34
 
5487 leency 35
 
36
 
5640 pavelyakov 37
 
38
  ///////////////////////////
39
 //   Параметры файла     //
3067 leency 40
///////////////////////////
5472 leency 41
:f70 getinfo_file_70;
3440 leency 42
:dword GetFileInfo(dword file_path, bdvk_struct)
43
{
44
    getinfo_file_70.func = 5;
45
    getinfo_file_70.param1 =
46
    getinfo_file_70.param2 =
47
    getinfo_file_70.param3 = 0;
48
    getinfo_file_70.param4 = bdvk_struct;
49
    getinfo_file_70.rezerv = 0;
50
    getinfo_file_70.name = file_path;
51
    $mov eax,70
52
    $mov ebx,#getinfo_file_70.func
3444 leency 53
    $int 0x40
3440 leency 54
}
55
 
5640 pavelyakov 56
  /////////////////////////////////////
57
 //   Изменение параметров файла    //
58
/////////////////////////////////////
5554 punk_joker 59
:f70 setinfo_file_70;
60
:dword SetFileInfo(dword file_path, bdvk_struct)
61
{
62
    setinfo_file_70.func = 6;
63
    setinfo_file_70.param1 =
64
    setinfo_file_70.param2 =
65
    setinfo_file_70.param3 = 0;
66
    setinfo_file_70.param4 = bdvk_struct;
67
    setinfo_file_70.rezerv = 0;
68
    setinfo_file_70.name = file_path;
69
    $mov eax,70
70
    $mov ebx,#setinfo_file_70.func
71
    $int 0x40
72
}
73
 
5640 pavelyakov 74
  ///////////////////////////
75
 //   Запуск программы    //
5554 punk_joker 76
///////////////////////////
5472 leency 77
:f70 run_file_70;
78
:signed int RunProgram(dword run_path, run_param)
3067 leency 79
{
80
    run_file_70.func = 7;
81
    run_file_70.param1 =
82
    run_file_70.param3 =
83
    run_file_70.param4 =
84
    run_file_70.rezerv = 0;
85
    run_file_70.param2 = run_param;
86
    run_file_70.name = run_path;
87
    $mov eax,70
88
    $mov ebx,#run_file_70.func
89
    $int 0x40
90
}
91
 
5640 pavelyakov 92
  ///////////////////////////
93
 //    Создание папки     //
3067 leency 94
///////////////////////////
5472 leency 95
:f70 create_dir_70;
3067 leency 96
:int CreateDir(dword new_folder_path)
97
{
98
	create_dir_70.func = 9;
99
	create_dir_70.param1 =
100
	create_dir_70.param2 =
101
	create_dir_70.param3 =
102
	create_dir_70.param4 =
103
	create_dir_70.rezerv = 0;
104
	create_dir_70.name = new_folder_path;
105
	$mov eax,70
106
	$mov ebx,#create_dir_70.func
107
	$int 0x40
108
}
109
 
5640 pavelyakov 110
  ////////////////////////////
111
 //  Удаление файла/папки  //
3067 leency 112
////////////////////////////
5472 leency 113
:f70 del_file_70;
3067 leency 114
:int DeleteFile(dword del_file_path)
115
{
116
	del_file_70.func = 8;
117
	del_file_70.param1 =
118
	del_file_70.param2 =
119
	del_file_70.param3 =
120
	del_file_70.param4 =
121
	del_file_70.rezerv = 0;
122
	del_file_70.name = del_file_path;
123
	$mov eax,70
124
	$mov ebx,#del_file_70.func
125
	$int 0x40
126
}
127
 
5640 pavelyakov 128
  ////////////////////////////
129
 //     Прочитать файл     //
3067 leency 130
////////////////////////////
5472 leency 131
:f70 read_file_70;
3067 leency 132
:int ReadFile(dword read_pos, read_file_size, read_buffer, read_file_path)
133
{
134
	read_file_70.func = 0;
135
	read_file_70.param1 = read_pos;
136
	read_file_70.param2 = 0;
137
	read_file_70.param3 = read_file_size;
138
	read_file_70.param4 = read_buffer;
139
	read_file_70.rezerv = 0;
140
	read_file_70.name = read_file_path;
141
	$mov eax,70
142
	$mov ebx,#read_file_70.func
143
	$int 0x40
144
}
145
 
5640 pavelyakov 146
  ///////////////////////////
147
 //     Записать файл     //
148
///////////////////////////
5472 leency 149
:f70 write_file_70;
3067 leency 150
:int WriteFile(dword write_file_size, write_buffer, write_file_path)
151
{
152
	write_file_70.func = 2;
153
	write_file_70.param1 = 0;
154
	write_file_70.param2 = 0;
155
	write_file_70.param3 = write_file_size;
156
	write_file_70.param4 = write_buffer;
157
	write_file_70.rezerv = 0;
158
	write_file_70.name = write_file_path;
159
	$mov eax,70
160
	$mov ebx,#write_file_70.func
161
	$int 0x40
5542 leency 162
}
3067 leency 163
 
5640 pavelyakov 164
  ////////////////////////////////////////
165
 //     WriteInFileThatAlredyExists    //
166
////////////////////////////////////////
5542 leency 167
:f70 write_file_offset_70;
168
:int WriteFileWithOffset(dword write_data_size, write_buffer, write_file_path, offset)
169
{
170
	write_file_offset_70.func = 3;
171
	write_file_offset_70.param1 = offset;
172
	write_file_offset_70.param2 = 0;
173
	write_file_offset_70.param3 = write_data_size;
174
	write_file_offset_70.param4 = write_buffer;
175
	write_file_offset_70.rezerv = 0;
176
	write_file_offset_70.name = write_file_path;
177
	$mov eax,70
178
	$mov ebx,#write_file_offset_70.func
179
	$int 0x40
180
}
181
 
5640 pavelyakov 182
  ///////////////////////////
183
 //    Прочитать папку    //
3067 leency 184
///////////////////////////
5472 leency 185
:f70 read_dir_70;
3067 leency 186
:int ReadDir(dword file_count, read_buffer, dir_path)
3363 leency 187
{
3067 leency 188
	read_dir_70.func = 1;
189
	read_dir_70.param1 =
190
	read_dir_70.param2 =
191
	read_dir_70.rezerv = 0;
192
	read_dir_70.param3 = file_count;
193
	read_dir_70.param4 = read_buffer;
194
	read_dir_70.name = dir_path;
195
	$mov eax,70
196
	$mov ebx,#read_dir_70.func
197
	$int 0x40
198
}
199
 
6251 leency 200
:char dir_exists(dword fpath)
3440 leency 201
{
202
	BDVK fpath_atr;
6930 leency 203
	if (GetFileInfo(fpath, #fpath_atr) != 0) return false;
5487 leency 204
	return fpath_atr.isfolder;
3440 leency 205
}
6251 leency 206
:char file_exists(dword fpath)
207
{
208
	BDVK ReadFile_atr;
209
	if (! GetFileInfo(fpath, #ReadFile_atr)) return true;
210
	return false;
211
}
3877 leency 212
 
6251 leency 213
 
3440 leency 214
:int GetFile(dword buf, filesize, read_path)
215
{
6251 leency 216
	int return_val = 0;
3440 leency 217
	BDVK ReadFile_atr;
218
	dword rBuf;
219
	if (! GetFileInfo(read_path, #ReadFile_atr))
220
	{
221
		rBuf = malloc(ReadFile_atr.sizelo);
222
		if (! ReadFile(0, ReadFile_atr.sizelo, rBuf, read_path))
223
		{
224
			ESDWORD[buf] = rBuf;
225
			ESDWORD[filesize] = ReadFile_atr.sizelo;
6251 leency 226
			return_val = 1;
3440 leency 227
		}
228
	}
229
	free(rBuf);
6251 leency 230
	return return_val;
3440 leency 231
}
3067 leency 232
 
3444 leency 233
enum
3363 leency 234
{
3444 leency 235
	DIRS_ALL,
236
	DIRS_NOROOT,
237
	DIRS_ONLYREAL
238
};
239
:int GetDir(dword dir_buf, file_count, path, doptions)
240
{
3363 leency 241
	dword buf, fcount, error;
242
	buf = malloc(32);
243
	error = ReadDir(0, buf, path);
244
	if (!error)
245
	{
246
		fcount = ESDWORD[buf+8];
247
		buf = realloc(buf, fcount+1*304+32);
248
		ReadDir(fcount, buf, path);
3440 leency 249
		//fcount=EBX;
3444 leency 250
 
251
		if (doptions == DIRS_ONLYREAL)
252
		{
253
			if (!strcmp(".",buf+72)) {fcount--; memmov(buf,buf+304,fcount*304);}
254
			if (!strcmp("..",buf+72)) {fcount--; memmov(buf,buf+304,fcount*304);}
255
		}
256
		if (doptions == DIRS_NOROOT)
257
		{
258
			if (!strcmp(".",buf+72)) {fcount--; memmov(buf,buf+304,fcount*304);}
259
		}
260
 
3363 leency 261
		ESDWORD[dir_buf] = buf;
262
		ESDWORD[file_count] = fcount;
263
	}
3440 leency 264
	else
3067 leency 265
	{
3440 leency 266
		ESDWORD[file_count] = 0;
267
		ESDWORD[dir_buf] = free(buf);
3067 leency 268
	}
3440 leency 269
	return error;
3067 leency 270
}
271
 
3432 leency 272
:dword abspath(dword relative_path) //GetAbsolutePathFromRelative()
273
{
274
	char absolute_path[4096];
4137 leency 275
	if (ESBYTE[relative_path]=='/')
276
	{
277
		strcpy(#absolute_path, relative_path);
278
	}
279
	else
280
	{
6735 leency 281
		strcpy(#absolute_path, I_Path);
4137 leency 282
		absolute_path[strrchr(#absolute_path, '/')] = '\0';
283
		strcat(#absolute_path, relative_path);
284
	}
3432 leency 285
	return #absolute_path;
286
}
5483 leency 287
 
7197 leency 288
:dword GetIni(dword ini_name) //search it on /kolibrios/ then on /sys/
289
{
290
	char absolute_path[4096];
291
	strcpy(#absolute_path, "/kolibrios/settings/");
292
	strcat(#absolute_path, ini_name);
293
	if (!file_exists(#absolute_path)) {
294
		strcpy(#absolute_path, "/sys/settings/");
295
		strcat(#absolute_path, ini_name);
296
	}
297
	return #absolute_path;
298
}
299
 
5591 pavelyakov 300
:byte ConvertSize_size_prefix[8];
5576 pavelyakov 301
:dword ConvertSize(dword bytes)
5483 leency 302
{
5591 pavelyakov 303
  byte size_nm[4];
5803 leency 304
  if (bytes>=1073741824) strlcpy(#size_nm, "Gb",2);
305
  else if (bytes>=1048576) strlcpy(#size_nm, "Mb",2);
306
  else if (bytes>=1024) strlcpy(#size_nm, "Kb",2);
307
  else strlcpy(#size_nm, "b ",2);
6989 leency 308
  while (bytes>1023) bytes >>= 10;
5591 pavelyakov 309
  sprintf(#ConvertSize_size_prefix,"%d %s",bytes,#size_nm);
310
  return #ConvertSize_size_prefix;
5493 leency 311
}
6988 leency 312
:dword ConvertSize64(dword bytes_lo, bytes_hi)
313
{
314
  if (bytes_hi > 0) {
6989 leency 315
	if (bytes_lo>=1073741824) bytes_lo >>= 30; else bytes_lo = 0;
316
	sprintf(#ConvertSize_size_prefix,"%d Gb",bytes_hi<<2 + bytes_lo);
6988 leency 317
	return #ConvertSize_size_prefix;
318
  }
319
  else return ConvertSize(bytes_lo);
320
}
5631 pavelyakov 321
:dword notify(dword notify_param)
322
{
6563 leency 323
	return RunProgram("/sys/@notify", notify_param);
5631 pavelyakov 324
}
6698 leency 325
:void die(dword _last_msg)
326
{
327
	notify(_last_msg);
328
	ExitProcess();
329
}
6969 leency 330
:unsigned char size[25]=0;
5493 leency 331
:dword ConvertSizeToKb(unsigned int bytes)
332
{
333
	unsigned int kb;
334
	dword kb_line;
335
 
6568 leency 336
	if (bytes >= 1024)
337
	{
338
		kb_line = itoa(bytes / 1024);
339
		strcpy(#size, kb_line);
340
		strcat(#size, " Kb");
341
	}
342
	else {
343
		kb_line = itoa(bytes);
344
		strcpy(#size, kb_line);
345
		strcat(#size, " b");
346
	}
5493 leency 347
 
348
	return #size;
5598 pavelyakov 349
}
350
#endif