Subversion Repositories Kolibri OS

Rev

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

Rev Author Line No. Line
5640 pavelyakov 1
//IO library
5660 pavelyakov 2
 
3
/*
4
	class IO:
6021 leency 5
		io.count(path)           -     path
6
		io.size(path)            -  (/) path
7
		io.run(path,param)       -   path   param
8
		io.write(size,data,path) -     data   path
9
		io.read(path)            -   path     
10
		io.move(path1,path2)     -  (/)  path1  path2
11
		io.copy(path1,path2)     -  (/)  path1  path2
12
		io.set(path,attribute)   -    (/)
13
		io.del(path)             -  (/)
5660 pavelyakov 14
 
6021 leency 15
		io.dir.load(path)        -      path (    free!!!)
16
		io.dir.position(number)  -       number
17
		io.dir.make(path)        -   path
5660 pavelyakov 18
 
6021 leency 19
		io.dir.buffer            -     - (io.dir.load)
20
		io.dir.count             -    - (io.count)
5660 pavelyakov 21
*/
22
 
5640 pavelyakov 23
#ifndef INCLUDE_IO_H
24
#define INCLUDE_IO_H
5676 pavelyakov 25
#print "[include ]\n"
5640 pavelyakov 26
 
27
#ifndef INCLUDE_DATE_H
28
#include "../lib/date.h"
29
#endif
30
 
31
#ifdef LANG_RUS
32
	#define __T__GB ""
33
	#define __T__MB ""
34
	#define __T__KB ""
35
	#define __T___B ""
36
#else
37
	#define __T__GB "Gb"
38
	#define __T__MB "Mb"
39
	#define __T__KB "Kb"
40
	#define __T___B "B"
41
#endif
42
 
43
#define ATR_READONLY   000001b
44
#define ATR_HIDDEN     000100b
45
#define ATR_SYSTEM     010000b
46
 
47
#define ATR_NOREADONLY 000010b
48
#define ATR_NOHIDDEN   001000b
49
#define ATR_NOSYSTEM   100000b
50
 
51
:enum
52
{
53
	DIR_ALL,
54
	DIR_NOROOT,
55
	DIR_ONLYREAL
56
};
57
 
58
:struct ___f70{
59
	dword	func;
60
	dword	param1;
61
	dword	param2;
62
	dword	param3;
63
	dword	param4;
64
	char	rezerv;
65
	dword	name;
66
}__file_F70;
67
 
68
:int ___ReadDir(dword file_count, read_buffer, dir_path)
69
{
70
	__file_F70.func = 1;
71
	__file_F70.param1 =
72
	__file_F70.param2 =
73
	__file_F70.rezerv = 0;
74
	__file_F70.param3 = file_count;
75
	__file_F70.param4 = read_buffer;
5646 pavelyakov 76
	__file_F70.name = io.path.path(dir_path);
5640 pavelyakov 77
	$mov eax,70
78
	$mov ebx,#__file_F70.func
79
	$int 0x40
80
}
81
 
82
:dword ___GetFileInfo(dword file_path, bdvk_struct)
83
{
84
    __file_F70.func = 5;
85
    __file_F70.param1 =
86
    __file_F70.param2 =
87
    __file_F70.param3 = 0;
88
    __file_F70.param4 = bdvk_struct;
89
    __file_F70.rezerv = 0;
5646 pavelyakov 90
    __file_F70.name = io.path.path(file_path);
5640 pavelyakov 91
    $mov eax,70
92
    $mov ebx,#__file_F70.func
93
    $int 0x40
94
}
95
 
96
:struct ____BDVK {
97
	dword	readonly:1, hidden:1, system:1, volume_label:1, isfolder:1, notarchived:1, :0;
98
	byte	type_name;
99
	byte	rez1, rez2, selected;
100
	dword   timecreate;
101
	date 	datecreate;
102
	dword	timelastaccess;
103
	date	datelastaccess;
104
	dword	timelastedit;
105
	date	datelastedit;
106
	dword	sizelo;
107
	dword	sizehi;
108
	char	name[518];
109
};
110
 
111
:struct __FILE
112
{
113
	dword count;
114
	int del(...);
115
	int read(...);
116
	int write(...);
117
	dword set(...);
118
};
119
:dword __FILE::set(dword file_path)
120
{
121
    __file_F70.func = 6;
122
    __file_F70.param1 =
123
    __file_F70.param2 =
124
    __file_F70.param3 = 0;
125
    __file_F70.param4 = #io.BDVK;
126
    __file_F70.rezerv = 0;
5646 pavelyakov 127
    __file_F70.name = io.path.path(file_path);
5640 pavelyakov 128
    $mov eax,70
129
    $mov ebx,#__file_F70.func
130
    $int 0x40
131
}
132
:int __FILE::del(dword PATH)
133
{
134
	__file_F70.func = 8;
135
	__file_F70.param1 =
136
	__file_F70.param2 =
137
	__file_F70.param3 =
138
	__file_F70.param4 =
139
	__file_F70.rezerv = 0;
5646 pavelyakov 140
	__file_F70.name = io.path.path(PATH);
5640 pavelyakov 141
	$mov eax,70
142
	$mov ebx,#__file_F70.func
143
	$int 0x40
144
}
145
:int __FILE::read(dword read_pos, read_file_size, read_buffer, read_file_path)
146
{
147
	__file_F70.func = 0;
148
	__file_F70.param1 = read_pos;
149
	__file_F70.param2 = 0;
150
	__file_F70.param3 = read_file_size;
151
	__file_F70.param4 = read_buffer;
152
	__file_F70.rezerv = 0;
5646 pavelyakov 153
	__file_F70.name = io.path.path(read_file_path);
5640 pavelyakov 154
	$mov eax,70
155
	$mov ebx,#__file_F70.func
156
	$int 0x40
157
}
158
:int __FILE::write(dword write_file_size, write_buffer, write_file_path)
159
{
160
	__file_F70.func = 2;
161
	__file_F70.param1 = 0;
162
	__file_F70.param2 = 0;
163
	__file_F70.param3 = write_file_size;
164
	__file_F70.param4 = write_buffer;
165
	__file_F70.rezerv = 0;
5646 pavelyakov 166
	__file_F70.name = io.path.path(write_file_path);
5640 pavelyakov 167
	$mov eax,70
168
	$mov ebx,#__file_F70.func
169
	$int 0x40
170
}
171
:struct __DIR
172
{
173
	int make(dword name);
5648 pavelyakov 174
	dword load(...);
5646 pavelyakov 175
	dword position(dword i);
5640 pavelyakov 176
	dword buffer;
177
	signed count;
178
};
5646 pavelyakov 179
:dword __DIR::position(dword i)
180
{
181
	return i*304+buffer+72;
182
}
5640 pavelyakov 183
:int __DIR::make(dword new_folder_path)
184
{
185
	__file_F70.func = 9;
186
	__file_F70.param1 =
187
	__file_F70.param2 =
188
	__file_F70.param3 =
189
	__file_F70.param4 =
190
	__file_F70.rezerv = 0;
5646 pavelyakov 191
	__file_F70.name = io.path.path(new_folder_path);
5640 pavelyakov 192
	$mov eax,70
193
	$mov ebx,#__file_F70.func
194
	$int 0x40
195
}
196
 
5648 pavelyakov 197
:dword __DIR::load(dword PATH;byte options)
198
{
199
	io.count(PATH);
200
	if(count!=-1)
201
	{
202
		buffer = malloc(count+1*304+32);
203
		___ReadDir(count, buffer, PATH);
204
		if (options == DIR_ONLYREAL)
205
		{
206
			if (!strcmp(".",buffer+72)){count--; memmov(buffer,buffer+304,count*304);}
207
			if (!strcmp("..",buffer+72)){count--; memmov(buffer,buffer+304,count*304);}
208
			return buffer;
209
		}
210
		if (options == DIR_NOROOT)
211
		{
212
			if (!strcmp(".",buffer+72)) memmov(buffer,buffer+304,count*304-304);
213
			return buffer;
214
		}
215
		return buffer;
216
	}
217
	return NULL;
218
}
219
 
5640 pavelyakov 220
:struct __PATH
221
{
222
	dword file(...);
223
	dword path(...);
224
};
5646 pavelyakov 225
 
5640 pavelyakov 226
:char __PATH_NEW[4096];
227
:dword __PATH::path(dword PATH)
228
{
5648 pavelyakov 229
	dword pos;
230
	if(!PATH) return self.dir;
231
	pos = PATH;
5646 pavelyakov 232
	if(DSBYTE[pos]=='/')
5640 pavelyakov 233
	{
5646 pavelyakov 234
		pos++;
235
		if(!strncmp(pos,"sys/",4)) return PATH;
5718 leency 236
		if(!strncmp(pos,"kolibrios/",10)) return PATH;
5785 leency 237
		if(!strncmp(pos,"rd/",3)) return PATH;
5646 pavelyakov 238
		if(!strncmp(pos,"fd/",3)) return PATH;
5785 leency 239
		if(!strncmp(pos,"cd",2)) return PATH;
240
		if(!strncmp(pos,"hd",2)) return PATH;
241
		if(!strncmp(pos,"bd",2)) return PATH;
242
		if(!strncmp(pos,"tmp",3)) return PATH;
243
		if(!strncmp(pos,"usbhd",5)) return PATH;
5646 pavelyakov 244
		sprintf(#__PATH_NEW,"/sys%s",PATH);
245
		return #__PATH_NEW;
5640 pavelyakov 246
	}
5646 pavelyakov 247
	if(!strncmp(PATH,"./",2)) return PATH;
5648 pavelyakov 248
	sprintf(#__PATH_NEW,"%s/%s",self.dir,PATH);
5646 pavelyakov 249
	return #__PATH_NEW;
5640 pavelyakov 250
}
251
 
252
:dword __PATH::file(dword name)
253
{
254
	dword ret;
255
	ret = name;
256
	while(DSBYTE[name])
257
	{
258
		if(DSBYTE[name]=='/')ret = name+1;
259
		name++;
260
	}
261
	return ret;
262
}
263
 
264
:struct IO
265
{
266
	dword buffer_data;
267
	dword size_dir;
268
	dword count_dirs,count_files;
269
	signed FILES_SIZE;
270
	dword file_name;
271
	double size(...);
272
	dword get_size_dir(dword name);
273
	signed count(dword path);
274
	signed int run(dword path,param);
275
	byte del(...);
276
	dword read(...);
277
	int write(...);
278
	byte copy(...);
279
	byte move(...);
280
	dword set(...);
5730 pavelyakov 281
	dword readKPACK(dword path1);
5640 pavelyakov 282
	dword convert_size();
283
	__DIR dir;
284
	__PATH path;
285
	__FILE file;
286
	____BDVK BDVK;
287
}io;
288
:byte __ConvertSize_size_prefix[8];
289
:dword IO::convert_size()
290
{
291
	byte size_nm[3];
292
	dword bytes;
293
	bytes = FILES_SIZE;
5646 pavelyakov 294
	if (bytes>=1073741824) strlcpy(#size_nm, __T__GB,2);
295
	else if (bytes>=1048576) strlcpy(#size_nm, __T__MB,2);
296
	else if (bytes>=1024) strlcpy(#size_nm, __T__KB,2);
297
	else strlcpy(#size_nm, __T___B,1);
5640 pavelyakov 298
	while (bytes>1023) bytes/=1024;
299
	sprintf(#__ConvertSize_size_prefix,"%d %s",bytes,#size_nm);
300
	return #__ConvertSize_size_prefix;
301
}
5751 leency 302
:dword IO::readKPACK(dword path1)
303
{
304
	EAX = 68;
305
	EBX = 27;
306
	ECX = path1;
307
	$int 0x40;
308
	FILES_SIZE = EDX;
309
	buffer_data = EAX;
310
	return buffer_data;
311
}
5640 pavelyakov 312
:int IO::write(dword PATH,data)
313
{
314
	file.write(0,strlen(data),data,PATH);
315
}
5800 pavelyakov 316
:char BYTE_HEAD_FILE_KPCK[4];
5640 pavelyakov 317
:dword IO::read(dword PATH)
318
{
5745 leency 319
	int result;
5640 pavelyakov 320
	___GetFileInfo(PATH, #BDVK);
5800 pavelyakov 321
	if(BDVK.isfolder)return false;
322
	file.read(0,4,#BYTE_HEAD_FILE_KPCK,PATH);
323
	IF(DSDWORD[#BYTE_HEAD_FILE_KPCK]=='KCPK')return readKPACK(PATH);
5640 pavelyakov 324
	FILES_SIZE = BDVK.sizelo;
325
	buffer_data = malloc(FILES_SIZE+1);
5745 leency 326
	result = file.read(0,FILES_SIZE,buffer_data,PATH);
327
	if (result!=0) buffer_data = free(buffer_data);	//file read failed
5751 leency 328
	return buffer_data;
5640 pavelyakov 329
}
330
 
331
:signed int IO::run(dword rpath,rparam)
332
{
333
	__file_F70.func = 7;
334
    __file_F70.param1 =
335
    __file_F70.param3 =
336
    __file_F70.param4 =
337
    __file_F70.rezerv = 0;
338
    __file_F70.param2 = rparam;
5646 pavelyakov 339
    __file_F70.name = path.path(rpath);
5640 pavelyakov 340
    $mov eax,70
341
    $mov ebx,#__file_F70.func
342
    $int 0x40
343
}
344
:signed IO::count(dword PATH)
345
{
346
	byte buf[32];
347
	if(!___ReadDir(0, #buf, PATH))
348
	{
349
		dir.count = ESDWORD[#buf+8];
350
		return dir.count;
351
	}
352
	return -1;
353
}
5646 pavelyakov 354
 
5640 pavelyakov 355
:double IO::size(dword PATH)
356
{
357
	dword i,tmp_buf,count_dir,count_file;
358
	dword filename;
359
	double size_tmp;
360
	double tmp;
361
	if(!PATH)return 0;
362
	if(___GetFileInfo(PATH, #BDVK))return -1;
363
	if(BDVK.isfolder)
364
	{
5648 pavelyakov 365
		tmp_buf = dir.load(PATH,DIR_ONLYREAL);
5640 pavelyakov 366
		if(dir.count<1)return 0;
367
		count_dir = dir.count;
368
		i = 0;
369
		size_tmp = 0;
370
		count_file = malloc(4096);
371
		while(i
372
		{
373
			filename = i*304+tmp_buf+72;
374
			sprintf(count_file,"%s/%s",PATH,filename);
375
			tmp = size(count_file);
376
			if(tmp==-1)return -1;
377
			size_tmp += tmp;
378
			i++;
379
			if (TestBit(ESDWORD[filename-40], 4))count_dirs++;
380
			else count_files++;
381
		}
382
 
383
		free(tmp_buf);
384
		free(count_file);
385
		FILES_SIZE = size_tmp;
386
		return FILES_SIZE;
387
	}
388
	FILES_SIZE = BDVK.sizelo;
389
	count_files++;
390
	return FILES_SIZE;
391
}
392
:byte IO::del(dword PATH)
393
{
394
	dword i,tmp_buf,count_dir,count_file;
395
	if(!PATH)return 0;
396
	if(___GetFileInfo(PATH, #BDVK))return false;
397
	if(BDVK.isfolder)
398
	{
5648 pavelyakov 399
		tmp_buf = dir.load(PATH,DIR_ONLYREAL);
5640 pavelyakov 400
		count_dir = dir.count;
401
		i = 0;
402
		count_file = malloc(4096);
403
		while(i
404
		{
405
			sprintf(count_file,"%s/%s",PATH,i*304+tmp_buf+72);
406
			if(!del(count_file))return false;
407
			i++;
408
		}
409
		free(tmp_buf);
410
		free(count_file);
411
	}
412
	file.del(PATH);
413
	return true;
414
}
415
:dword IO::set(dword PATH,atr)
416
{
417
	dword i,tmp_buf,count_dir,count_file;
418
	byte cmd_read,cmd_hide,cmd_system;
419
	if(!PATH)return 0;
420
	if(___GetFileInfo(PATH, #BDVK))return false;
421
	cmd_read   = atr&11b;
422
	atr>>=2;
423
	cmd_hide   = atr&11b;
424
	atr>>=2;
425
	cmd_system = atr&11b;
426
	if(BDVK.isfolder)
427
	{
5648 pavelyakov 428
		tmp_buf = dir.load(PATH,DIR_ONLYREAL);
5640 pavelyakov 429
		count_dir = dir.count;
430
		i = 0;
431
		count_file = malloc(4096);
432
		while(i
433
		{
434
			sprintf(count_file,"%s/%s",PATH,i*304+tmp_buf+72);
435
			file.set(PATH,atr);
436
			i++;
437
		}
438
		free(tmp_buf);
439
		free(count_file);
440
		return 0;
441
	}
442
	if(cmd_read)
443
	{
444
		if(cmd_read&01b)BDVK.readonly = true;
445
		else BDVK.readonly = false;
446
	}
447
	if(cmd_hide)
448
	{
449
		if(cmd_hide&01b)BDVK.hidden = true;
450
		else BDVK.hidden = false;
451
	}
452
	if(cmd_system)
453
	{
454
		if(cmd_system&01b)BDVK.system = true;
455
		else BDVK.system = false;
456
	}
457
	file.set(PATH);
458
}
459
:byte IO::copy(dword PATH,PATH1)
460
{
461
	dword i,tmp_buf,count_dir,count_file;
462
	dword _path_;
463
	byte ret;
464
	if(!PATH)return 0;
465
	if(___GetFileInfo(PATH, #BDVK))return false;
466
	_path_ = malloc(4096);
467
	if(BDVK.isfolder)
468
	{
469
		sprintf(_path_,"%s/%s",PATH1,path.file(PATH));
470
		dir.make(_path_);
5648 pavelyakov 471
		tmp_buf = dir.load(PATH,DIR_ONLYREAL);
5640 pavelyakov 472
		count_dir = dir.count;
473
		i = 0;
474
		count_file = malloc(4096);
475
		while(i
476
		{
477
			sprintf(count_file,"%s/%s",PATH,i*304+tmp_buf+72);
478
			if(!copy(count_file,_path_))return false;
479
			i++;
480
		}
481
		free(tmp_buf);
482
		free(count_file);
483
		free(_path_);
484
		return true;
485
	}
486
	read(PATH);
487
	sprintf(_path_,"%s/%s",PATH1,path.file(PATH));
488
	ret = file.write(FILES_SIZE,buffer_data,_path_);
489
	free(_path_);
490
	if(!ret)return true;
491
	return false;
492
}
493
:byte IO::move(dword PATH,PATH1)
494
{
495
	if(copy(PATH,PATH1))if(del(PATH))return true;
496
	return false;
497
}
498
 
499
#endif