WebSVN – Kolibri OS – Blame – /kernel/branches/Kolibri-acpi/fs/fs_lfn.inc

Rev	Author	Line No.	Line
431	serge	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		2	;; ;;
2465	Serge	3	;; Copyright (C) KolibriOS team 2004-2011. All rights reserved. ;;
431	serge	4	;; Distributed under terms of the GNU General Public License ;;
		5	;; ;;
		6	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		7
593	mikedld	8	$Revision: 3626 $
		9
2987	Serge	10	ERROR_SUCCESS = 0
		11	ERROR_DISK_BASE = 1
		12	ERROR_UNSUPPORTED_FS = 2
		13	ERROR_UNKNOWN_FS = 3
		14	ERROR_PARTITION = 4
		15	ERROR_FILE_NOT_FOUND = 5
		16	ERROR_END_OF_FILE = 6
		17	ERROR_MEMORY_POINTER = 7
		18	ERROR_DISK_FULL = 8
		19	ERROR_FAT_TABLE = 9 ;deprecated
		20	ERROR_FS_FAIL = 9
		21	ERROR_ACCESS_DENIED = 10
		22	ERROR_DEVICE = 11
593	mikedld	23
1491	Lrz	24	image_of_eax EQU esp+32
		25	image_of_ebx EQU esp+20
488	spraid	26
72	diamond	27	; System function 70 - files with long names (LFN)
71	diamond	28	; diamond, 2006
		29
		30	iglobal
		31	; in this table names must be in lowercase
		32	rootdirs:
2434	Serge	33	db 2,'rd'
		34	dd fs_OnRamdisk
		35	dd fs_NextRamdisk
		36	db 7,'ramdisk'
		37	dd fs_OnRamdisk
		38	dd fs_NextRamdisk
		39	db 2,'fd'
		40	dd fs_OnFloppy
		41	dd fs_NextFloppy
		42	db 10,'floppydisk'
		43	dd fs_OnFloppy
		44	dd fs_NextFloppy
		45	db 3,'hd0'
		46	dd fs_OnHd0
		47	dd fs_NextHd0
		48	db 3,'hd1'
		49	dd fs_OnHd1
		50	dd fs_NextHd1
		51	db 3,'hd2'
		52	dd fs_OnHd2
		53	dd fs_NextHd2
		54	db 3,'hd3'
		55	dd fs_OnHd3
		56	dd fs_NextHd3
87	mario79	57	;**********************************************
2434	Serge	58	db 3,'cd0'
		59	dd fs_OnCd0
		60	dd fs_NextCd
		61	db 3,'cd1'
		62	dd fs_OnCd1
		63	dd fs_NextCd
		64	db 3,'cd2'
		65	dd fs_OnCd2
		66	dd fs_NextCd
		67	db 3,'cd3'
		68	dd fs_OnCd3
		69	dd fs_NextCd
237	serge	70	;***********************************************
2434	Serge	71	db 0
75	diamond	72
87	mario79	73
75	diamond	74	virtual_root_query:
2434	Serge	75	dd fs_HasRamdisk
		76	db 'rd',0
		77	dd fs_HasFloppy
		78	db 'fd',0
		79	dd fs_HasHd0
		80	db 'hd0',0
		81	dd fs_HasHd1
		82	db 'hd1',0
		83	dd fs_HasHd2
		84	db 'hd2',0
		85	dd fs_HasHd3
		86	db 'hd3',0
87	mario79	87	;**********************************************
2434	Serge	88	dd fs_HasCd0
		89	db 'cd0',0
		90	dd fs_HasCd1
		91	db 'cd1',0
		92	dd fs_HasCd2
		93	db 'cd2',0
		94	dd fs_HasCd3
		95	db 'cd3',0
87	mario79	96	;**********************************************
2434	Serge	97	dd 0
709	diamond	98
		99	fs_additional_handlers:
		100	dd biosdisk_handler, biosdisk_enum_root
2130	serge	101	dd dyndisk_handler, dyndisk_enum_root
709	diamond	102	; add new handlers here
		103	dd 0
		104
71	diamond	105	endg
3500	Serge	106
		107	file_system_lfn_protected:
		108	pushad
		109	call protect_from_terminate
		110	call file_system_lfn
		111	call unprotect_from_terminate
		112	popad
		113	mov [image_of_eax], eax
		114	mov [image_of_ebx], ebx
		115	ret
		116
71	diamond	117	file_system_lfn:
1491	Lrz	118	; in: ebx->fileinfo block
71	diamond	119	; operation codes:
72	diamond	120	; 0 : read file
75	diamond	121	; 1 : read folder
83	diamond	122	; 2 : create/rewrite file
133	diamond	123	; 3 : write/append to file
		124	; 4 : set end of file
86	diamond	125	; 5 : get file/directory attributes structure
		126	; 6 : set file/directory attributes structure
91	diamond	127	; 7 : start application
171	diamond	128	; 8 : delete file
321	diamond	129	; 9 : create directory
71	diamond	130
1379	turbanoff	131	; parse file name
2434	Serge	132	lea esi, [ebx+20]
		133	lodsb
		134	test al, al
		135	jnz @f
		136	mov esi, [esi]
		137	lodsb
84	diamond	138	@@:
2434	Serge	139	cmp al, '/'
		140	jz .notcurdir
		141	dec esi
		142	mov ebp, esi
		143	test al, al
		144	jnz @f
		145	xor ebp, ebp
521	diamond	146	@@:
2434	Serge	147	mov esi, [current_slot]
		148	mov esi, [esi+APPDATA.cur_dir]
		149	jmp .parse_normal
521	diamond	150	.notcurdir:
2434	Serge	151	cmp byte [esi], 0
		152	jz .rootdir
		153	call process_replace_file_name
521	diamond	154	.parse_normal:
2434	Serge	155	cmp dword [ebx], 7
		156	jne @F
		157	mov edx, [ebx+4]
		158	mov ebx, [ebx+8]
		159	call fs_execute; esi+ebp, ebx, edx
		160	mov [image_of_eax], eax
		161	ret
237	serge	162	@@:
2434	Serge	163	mov edi, rootdirs-8
		164	xor ecx, ecx
		165	push esi
71	diamond	166	.scan1:
2434	Serge	167	pop esi
		168	add edi, ecx
		169	scasd
		170	scasd
		171	mov cl, byte [edi]
		172	test cl, cl
		173	jz .notfound_try
		174	inc edi
		175	push esi
71	diamond	176	@@:
2434	Serge	177	lodsb
		178	or al, 20h
		179	scasb
		180	loopz @b
		181	jnz .scan1
		182	lodsb
		183	cmp al, '/'
		184	jz .found1
		185	test al, al
		186	jnz .scan1
		187	pop eax
71	diamond	188	; directory /xxx
		189	.maindir:
2434	Serge	190	mov esi, [edi+4]
709	diamond	191	.maindir_noesi:
2434	Serge	192	cmp dword [ebx], 1
		193	jnz .access_denied
		194	xor eax, eax
		195	mov ebp, [ebx+12] ;количество блоков для считывания
		196	mov edx, [ebx+16] ;куда записывать рузельтат
465	serge	197	; add edx, std_application_base_address
2434	Serge	198	push dword [ebx+4] ; first block
		199	mov ebx, [ebx+8] ; flags
78	diamond	200	; ebx=flags, [esp]=first block, ebp=number of blocks, edx=return area, esi='Next' handler
2434	Serge	201	mov edi, edx
		202	push ecx
		203	mov ecx, 32/4
		204	rep stosd
		205	pop ecx
		206	mov byte [edx], 1 ; version
75	diamond	207	.maindir_loop:
2434	Serge	208	call esi
		209	jc .maindir_done
		210	inc dword [edx+8]
		211	dec dword [esp]
		212	jns .maindir_loop
		213	dec ebp
		214	js .maindir_loop
		215	inc dword [edx+4]
		216	mov dword [edi], 0x10 ; attributes: folder
		217	mov dword [edi+4], 1 ; name type: UNICODE
		218	push eax
		219	xor eax, eax
		220	add edi, 8
		221	push ecx
		222	mov ecx, 40/4-2
		223	rep stosd
		224	pop ecx
		225	pop eax
		226	push eax edx
75	diamond	227	; convert number in eax to decimal UNICODE string
2434	Serge	228	push edi
		229	push ecx
		230	push -'0'
		231	mov ecx, 10
75	diamond	232	@@:
2434	Serge	233	xor edx, edx
		234	div ecx
		235	push edx
		236	test eax, eax
		237	jnz @b
75	diamond	238	@@:
2434	Serge	239	pop eax
		240	add al, '0'
		241	stosb
		242	test bl, 1 ; UNICODE name?
		243	jz .ansi2
		244	mov byte [edi], 0
		245	inc edi
78	diamond	246	.ansi2:
2434	Serge	247	test al, al
		248	jnz @b
		249	mov byte [edi-1], 0
		250	pop ecx
		251	pop edi
78	diamond	252	; UNICODE name length is 520 bytes, ANSI - 264
2434	Serge	253	add edi, 520
		254	test bl, 1
		255	jnz @f
		256	sub edi, 520-264
78	diamond	257	@@:
2434	Serge	258	pop edx eax
		259	jmp .maindir_loop
75	diamond	260	.maindir_done:
2434	Serge	261	pop eax
		262	mov ebx, [edx+4]
		263	xor eax, eax
		264	dec ebp
		265	js @f
		266	mov al, ERROR_END_OF_FILE
75	diamond	267	@@:
2434	Serge	268	mov [image_of_eax], eax
		269	mov [image_of_ebx], ebx
		270	ret
71	diamond	271	; directory /
		272	.rootdir:
2434	Serge	273	cmp dword [ebx], 1 ; read folder?
		274	jz .readroot
75	diamond	275	.access_denied:
2434	Serge	276	mov dword [image_of_eax], 10 ; access denied
		277	ret
71	diamond	278
75	diamond	279	.readroot:
		280	; virtual root folder - special handler
2434	Serge	281	mov esi, virtual_root_query
		282	mov ebp, [ebx+12]
		283	mov edx, [ebx+16]
465	serge	284	; add edx, std_application_base_address
2434	Serge	285	push dword [ebx+4] ; first block
		286	mov ebx, [ebx+8] ; flags
		287	xor eax, eax
78	diamond	288	; eax=0, [esp]=first block, ebx=flags, ebp=number of blocks, edx=return area
2434	Serge	289	mov edi, edx
		290	mov ecx, 32/4
		291	rep stosd
		292	mov byte [edx], 1 ; version
75	diamond	293	.readroot_loop:
2434	Serge	294	cmp dword [esi], eax
		295	jz .readroot_done_static
		296	call dword [esi]
		297	add esi, 4
		298	test eax, eax
		299	jnz @f
75	diamond	300	.readroot_next:
2434	Serge	301	or ecx, -1
		302	xchg esi, edi
		303	repnz scasb
		304	xchg esi, edi
		305	jmp .readroot_loop
75	diamond	306	@@:
2434	Serge	307	xor eax, eax
		308	inc dword [edx+8]
		309	dec dword [esp]
		310	jns .readroot_next
		311	dec ebp
		312	js .readroot_next
		313	inc dword [edx+4]
		314	mov dword [edi], 0x10 ; attributes: folder
		315	mov dword [edi+4], ebx ; name type: UNICODE
		316	add edi, 8
		317	mov ecx, 40/4-2
		318	rep stosd
		319	push edi
75	diamond	320	@@:
2434	Serge	321	lodsb
		322	stosb
		323	test bl, 1
		324	jz .ansi
		325	mov byte [edi], 0
		326	inc edi
78	diamond	327	.ansi:
2434	Serge	328	test eax, eax
		329	jnz @b
		330	pop edi
		331	add edi, 520
		332	test bl, 1
		333	jnz .readroot_loop
		334	sub edi, 520-264
		335	jmp .readroot_loop
709	diamond	336	.readroot_done_static:
		337	mov esi, fs_additional_handlers-8
		338	sub esp, 16
		339	.readroot_ah_loop:
		340	add esi, 8
		341	cmp dword [esi], 0
		342	jz .readroot_done
		343	xor eax, eax
		344	.readroot_ah_loop2:
		345	push edi
		346	lea edi, [esp+4]
		347	call dword [esi+4]
		348	pop edi
		349	test eax, eax
		350	jz .readroot_ah_loop
		351	inc dword [edx+8]
		352	dec dword [esp+16]
		353	jns .readroot_ah_loop2
		354	dec ebp
		355	js .readroot_ah_loop2
		356	push eax
		357	xor eax, eax
		358	inc dword [edx+4]
		359	mov dword [edi], 0x10 ; attributes: folder
		360	mov dword [edi+4], ebx
		361	add edi, 8
		362	mov ecx, 40/4-2
2434	Serge	363	rep stosd
709	diamond	364	push esi edi
		365	lea esi, [esp+12]
		366	@@:
		367	lodsb
		368	stosb
		369	test bl, 1
		370	jz .ansi3
		371	mov byte [edi], 0
		372	inc edi
		373	.ansi3:
		374	test al, al
		375	jnz @b
		376	pop edi esi eax
		377	add edi, 520
		378	test bl, 1
		379	jnz .readroot_ah_loop2
		380	sub edi, 520-264
		381	jmp .readroot_ah_loop2
75	diamond	382	.readroot_done:
709	diamond	383	add esp, 16
2434	Serge	384	pop eax
		385	mov ebx, [edx+4]
		386	xor eax, eax
		387	dec ebp
		388	js @f
		389	mov al, ERROR_END_OF_FILE
75	diamond	390	@@:
2434	Serge	391	mov [image_of_eax], eax
		392	mov [image_of_ebx], ebx
		393	ret
709	diamond	394	.notfound_try:
		395	mov edi, fs_additional_handlers
		396	@@:
		397	cmp dword [edi], 0
1270	diamond	398	jz .notfound
709	diamond	399	call dword [edi]
		400	scasd
		401	scasd
		402	jmp @b
521	diamond	403	.notfound:
2434	Serge	404	mov dword [image_of_eax], ERROR_FILE_NOT_FOUND
		405	and dword [image_of_ebx], 0
		406	ret
75	diamond	407
709	diamond	408	.notfounda:
		409	cmp edi, esp
		410	jnz .notfound
2130	serge	411	call dword [edi+4]
		412	add esp, 16
709	diamond	413	jmp .notfound
		414
71	diamond	415	.found1:
2434	Serge	416	pop eax
		417	cmp byte [esi], 0
		418	jz .maindir
709	diamond	419	.found2:
71	diamond	420	; read partition number
2434	Serge	421	xor ecx, ecx
		422	xor eax, eax
71	diamond	423	@@:
2434	Serge	424	lodsb
		425	cmp al, '/'
		426	jz .done1
		427	test al, al
		428	jz .done1
		429	sub al, '0'
		430	cmp al, 9
		431	ja .notfounda
		432	lea ecx, [ecx*5]
		433	lea ecx, [ecx*2+eax]
		434	jmp @b
71	diamond	435	.done1:
2434	Serge	436	jecxz .notfounda
		437	test al, al
		438	jnz @f
		439	dec esi
71	diamond	440	@@:
2434	Serge	441	cmp byte [esi], 0
		442	jnz @f
		443	test ebp, ebp
		444	jz @f
		445	mov esi, ebp
		446	xor ebp, ebp
521	diamond	447	@@:
75	diamond	448	; now [edi] contains handler address, ecx - partition number,
		449	; esi points to ASCIIZ string - rest of name
2434	Serge	450	jmp dword [edi]
71	diamond	451
		452	; handlers for devices
75	diamond	453	; in: ecx = 0 => query virtual directory /xxx
71	diamond	454	; in: ecx = partition number
		455	; esi -> relative (for device) name
		456	; ebx -> fileinfo
521	diamond	457	; ebp = 0 or pointer to rest of name from folder addressed by esi
488	spraid	458	; out: [image_of_eax]=image of eax, [image_of_ebx]=image of ebx
71	diamond	459
		460	fs_OnRamdisk:
2434	Serge	461	cmp ecx, 1
		462	jnz file_system_lfn.notfound
		463	mov eax, [ebx]
		464	cmp eax, fs_NumRamdiskServices
		465	jae .not_impl
		466	mov ecx, [ebx+12]
		467	mov edx, [ebx+16]
465	serge	468	; add edx, std_application_base_address
2434	Serge	469	add ebx, 4
		470	call dword [fs_RamdiskServices + eax*4]
		471	mov [image_of_eax], eax
		472	mov [image_of_ebx], ebx
		473	ret
71	diamond	474	.not_impl:
2434	Serge	475	mov dword [image_of_eax], 2 ; not implemented
		476	ret
71	diamond	477
86	diamond	478	fs_NotImplemented:
2434	Serge	479	mov eax, 2
		480	ret
86	diamond	481
71	diamond	482	fs_RamdiskServices:
2434	Serge	483	dd fs_RamdiskRead
		484	dd fs_RamdiskReadFolder
		485	dd fs_RamdiskRewrite
		486	dd fs_RamdiskWrite
		487	dd fs_RamdiskSetFileEnd
		488	dd fs_RamdiskGetFileInfo
		489	dd fs_RamdiskSetFileInfo
		490	dd 0
		491	dd fs_RamdiskDelete
		492	dd fs_RamdiskCreateFolder
83	diamond	493	fs_NumRamdiskServices = ($ - fs_RamdiskServices)/4
71	diamond	494
		495	fs_OnFloppy:
2434	Serge	496	cmp ecx, 2
		497	ja file_system_lfn.notfound
		498	mov eax, [ebx]
		499	cmp eax, fs_NumFloppyServices
		500	jae fs_OnRamdisk.not_impl
		501	call reserve_flp
		502	mov [flp_number], cl
		503	mov ecx, [ebx+12]
		504	mov edx, [ebx+16]
465	serge	505	; add edx, std_application_base_address
2434	Serge	506	add ebx, 4
		507	call dword [fs_FloppyServices + eax*4]
		508	and [flp_status], 0
		509	mov [image_of_eax], eax
		510	mov [image_of_ebx], ebx
		511	ret
71	diamond	512
		513	fs_FloppyServices:
2434	Serge	514	dd fs_FloppyRead
		515	dd fs_FloppyReadFolder
		516	dd fs_FloppyRewrite
		517	dd fs_FloppyWrite
		518	dd fs_FloppySetFileEnd
		519	dd fs_FloppyGetFileInfo
		520	dd fs_FloppySetFileInfo
		521	dd 0
		522	dd fs_FloppyDelete
		523	dd fs_FloppyCreateFolder
83	diamond	524	fs_NumFloppyServices = ($ - fs_FloppyServices)/4
71	diamond	525
		526	fs_OnHd0:
2434	Serge	527	call reserve_hd1
		528	mov [hdbase], 0x1F0
		529	mov [hdid], 0
		530	push 1
		531	jmp fs_OnHd
71	diamond	532	fs_OnHd1:
2434	Serge	533	call reserve_hd1
		534	mov [hdbase], 0x1F0
		535	mov [hdid], 0x10
		536	push 2
		537	jmp fs_OnHd
71	diamond	538	fs_OnHd2:
2434	Serge	539	call reserve_hd1
		540	mov [hdbase], 0x170
		541	mov [hdid], 0
		542	push 3
		543	jmp fs_OnHd
71	diamond	544	fs_OnHd3:
2434	Serge	545	call reserve_hd1
		546	mov [hdbase], 0x170
		547	mov [hdid], 0x10
		548	push 4
71	diamond	549	fs_OnHd:
2434	Serge	550	call reserve_hd_channel
		551	pop eax
		552	mov [hdpos], eax
		553	cmp ecx, 0x100
		554	jae fs_OnHdAndBd.nf
		555	cmp cl, [DRIVE_DATA+1+eax]
709	diamond	556	fs_OnHdAndBd:
2434	Serge	557	jbe @f
75	diamond	558	.nf:
2434	Serge	559	call free_hd_channel
		560	and [hd1_status], 0
		561	mov dword [image_of_eax], 5 ; not found
		562	ret
71	diamond	563	@@:
2434	Serge	564	mov [known_part], ecx ; mov [fat32part], ecx
		565	push ebx esi
		566	call choice_necessity_partition_1
		567	pop esi ebx
		568	mov ecx, [ebx+12]
		569	mov edx, [ebx+16]
465	serge	570	; add edx, std_application_base_address
2434	Serge	571	mov eax, [ebx]
		572	cmp eax, fs_NumHdServices
		573	jae .not_impl
		574	add ebx, 4
		575	call dword [fs_HdServices + eax*4]
		576	call free_hd_channel
		577	and [hd1_status], 0
		578	mov [image_of_eax], eax
		579	mov [image_of_ebx], ebx
		580	ret
75	diamond	581	.not_impl:
2434	Serge	582	call free_hd_channel
		583	and [hd1_status], 0
		584	mov dword [image_of_eax], 2 ; not implemented
		585	ret
71	diamond	586
		587	fs_HdServices:
2434	Serge	588	dd fs_HdRead
		589	dd fs_HdReadFolder
		590	dd fs_HdRewrite
		591	dd fs_HdWrite
		592	dd fs_HdSetFileEnd
		593	dd fs_HdGetFileInfo
		594	dd fs_HdSetFileInfo
		595	dd 0
		596	dd fs_HdDelete
		597	dd fs_HdCreateFolder
83	diamond	598	fs_NumHdServices = ($ - fs_HdServices)/4
75	diamond	599
87	mario79	600	;*******************************************************
		601	fs_OnCd0:
2434	Serge	602	call reserve_cd
		603	mov [ChannelNumber], 1
		604	mov [DiskNumber], 0
		605	push 6
		606	push 1
		607	jmp fs_OnCd
87	mario79	608	fs_OnCd1:
2434	Serge	609	call reserve_cd
		610	mov [ChannelNumber], 1
		611	mov [DiskNumber], 1
		612	push 4
		613	push 2
		614	jmp fs_OnCd
87	mario79	615	fs_OnCd2:
2434	Serge	616	call reserve_cd
		617	mov [ChannelNumber], 2
		618	mov [DiskNumber], 0
		619	push 2
		620	push 3
		621	jmp fs_OnCd
87	mario79	622	fs_OnCd3:
2434	Serge	623	call reserve_cd
		624	mov [ChannelNumber], 2
		625	mov [DiskNumber], 1
		626	push 0
		627	push 4
87	mario79	628	fs_OnCd:
2434	Serge	629	call reserve_cd_channel
		630	pop eax
		631	mov [cdpos], eax
		632	pop eax
		633	cmp ecx, 0x100
		634	jae .nf
		635	push ecx ebx
		636	mov cl, al
		637	mov bl, [DRIVE_DATA+1]
		638	shr bl, cl
		639	test bl, 2
		640	pop ebx ecx
87	mario79	641
2434	Serge	642	jnz @f
87	mario79	643	.nf:
2434	Serge	644	call free_cd_channel
		645	and [cd_status], 0
		646	mov dword [image_of_eax], 5 ; not found
		647	ret
87	mario79	648	@@:
2434	Serge	649	mov ecx, [ebx+12]
		650	mov edx, [ebx+16]
465	serge	651	; add edx, std_application_base_address
2434	Serge	652	mov eax, [ebx]
		653	cmp eax, fs_NumCdServices
		654	jae .not_impl
		655	add ebx, 4
		656	call dword [fs_CdServices + eax*4]
		657	call free_cd_channel
		658	and [cd_status], 0
		659	mov [image_of_eax], eax
		660	mov [image_of_ebx], ebx
		661	ret
87	mario79	662	.not_impl:
2434	Serge	663	call free_cd_channel
		664	and [cd_status], 0
		665	mov dword [image_of_eax], 2 ; not implemented
		666	ret
87	mario79	667
		668	fs_CdServices:
2434	Serge	669	dd fs_CdRead
		670	dd fs_CdReadFolder
		671	dd fs_NotImplemented
		672	dd fs_NotImplemented
		673	dd fs_NotImplemented
		674	dd fs_CdGetFileInfo
		675	dd fs_NotImplemented
		676	dd 0
		677	dd fs_NotImplemented
		678	dd fs_NotImplemented
90	mario79	679	fs_NumCdServices = ($ - fs_CdServices)/4
		680
87	mario79	681	;*******************************************************
		682
75	diamond	683	fs_HasRamdisk:
2434	Serge	684	mov al, 1 ; we always have ramdisk
		685	ret
75	diamond	686	fs_HasFloppy:
2434	Serge	687	cmp byte [DRIVE_DATA], 0
		688	setnz al
		689	ret
75	diamond	690	fs_HasHd0:
3626	Serge	691	test byte [DRIVE_DATA+1], 01000000b
		692	setnz al
2434	Serge	693	ret
75	diamond	694	fs_HasHd1:
3626	Serge	695	test byte [DRIVE_DATA+1], 00010000b
		696	setnz al
2434	Serge	697	ret
75	diamond	698	fs_HasHd2:
3626	Serge	699	test byte [DRIVE_DATA+1], 00000100b
		700	setnz al
2434	Serge	701	ret
75	diamond	702	fs_HasHd3:
3626	Serge	703	test byte [DRIVE_DATA+1], 00000001b
		704	setnz al
2434	Serge	705	ret
75	diamond	706
87	mario79	707	;*******************************************************
		708	fs_HasCd0:
3626	Serge	709	test byte [DRIVE_DATA+1], 10000000b
		710	setnz al
2434	Serge	711	ret
87	mario79	712	fs_HasCd1:
3626	Serge	713	test byte [DRIVE_DATA+1], 00100000b
		714	setnz al
2434	Serge	715	ret
87	mario79	716	fs_HasCd2:
3626	Serge	717	test byte [DRIVE_DATA+1], 00001000b
		718	setnz al
2434	Serge	719	ret
87	mario79	720	fs_HasCd3:
3626	Serge	721	test byte [DRIVE_DATA+1], 00000010b
		722	setnz al
2434	Serge	723	ret
237	serge	724	;*******************************************************
87	mario79	725
75	diamond	726	; fs_NextXXX functions:
		727	; in: eax = partition number, from which start to scan
		728	; out: CF=1 => no more partitions
		729	; CF=0 => eax=next partition number
		730
		731	fs_NextRamdisk:
		732	; we always have /rd/1
2434	Serge	733	test eax, eax
		734	stc
		735	jnz @f
		736	mov al, 1
		737	clc
75	diamond	738	@@:
2434	Serge	739	ret
75	diamond	740
		741	fs_NextFloppy:
381	serge	742	; we have /fd/1 iff (([DRIVE_DATA] and 0xF0) != 0) and /fd/2 iff (([DRIVE_DATA] and 0x0F) != 0)
2434	Serge	743	test byte [DRIVE_DATA], 0xF0
		744	jz .no1
		745	test eax, eax
		746	jnz .no1
		747	inc eax
		748	ret ; CF cleared
75	diamond	749	.no1:
2434	Serge	750	test byte [DRIVE_DATA], 0x0F
		751	jz .no2
		752	cmp al, 2
		753	jae .no2
		754	mov al, 2
		755	clc
		756	ret
75	diamond	757	.no2:
2434	Serge	758	stc
		759	ret
75	diamond	760
		761	; on hdx, we have partitions from 1 to [0x40002+x]
		762	fs_NextHd0:
2434	Serge	763	push 0
		764	jmp fs_NextHd
75	diamond	765	fs_NextHd1:
2434	Serge	766	push 1
		767	jmp fs_NextHd
75	diamond	768	fs_NextHd2:
2434	Serge	769	push 2
		770	jmp fs_NextHd
75	diamond	771	fs_NextHd3:
2434	Serge	772	push 3
75	diamond	773	fs_NextHd:
2434	Serge	774	pop ecx
		775	movzx ecx, byte [DRIVE_DATA+2+ecx]
		776	cmp eax, ecx
		777	jae fs_NextFloppy.no2
		778	inc eax
		779	clc
		780	ret
237	serge	781
87	mario79	782	;*******************************************************
		783	fs_NextCd:
		784	; we always have /cdX/1
2434	Serge	785	test eax, eax
		786	stc
		787	jnz @f
		788	mov al, 1
		789	clc
87	mario79	790	@@:
2434	Serge	791	ret
87	mario79	792	;*******************************************************
		793
709	diamond	794	; Additional FS handlers.
		795	; This handler gets the control each time when fn 70 is called
		796	; with unknown item of root subdirectory.
		797	; in: esi -> name
		798	; ebp = 0 or rest of name relative to esi
		799	; out: if the handler processes path, he must not return in file_system_lfn,
		800	; but instead pop return address and return directly to the caller
		801	; otherwise simply return
		802
		803	; here we test for /bd/... - BIOS disks
		804	biosdisk_handler:
		805	cmp [NumBiosDisks], 0
		806	jz .ret
		807	mov al, [esi]
		808	or al, 20h
		809	cmp al, 'b'
		810	jnz .ret
		811	mov al, [esi+1]
		812	or al, 20h
		813	cmp al, 'd'
		814	jnz .ret
		815	push esi
		816	inc esi
		817	inc esi
		818	cmp byte [esi], '0'
		819	jb .ret2
		820	cmp byte [esi], '9'
		821	ja .ret2
		822	xor edx, edx
		823	@@:
		824	lodsb
		825	test al, al
		826	jz .ok
		827	cmp al, '/'
		828	jz .ok
		829	sub al, '0'
		830	cmp al, 9
		831	ja .ret2
		832	lea edx, [edx*5]
		833	lea edx, [edx*2+eax]
		834	jmp @b
		835	.ret2:
		836	pop esi
		837	.ret:
		838	ret
		839	.ok:
		840	cmp al, '/'
		841	jz @f
		842	dec esi
		843	@@:
		844	add dl, 80h
		845	xor ecx, ecx
		846	@@:
		847	cmp dl, [BiosDisksData+ecx*4]
		848	jz .ok2
		849	inc ecx
		850	cmp ecx, [NumBiosDisks]
		851	jb @b
		852	jmp .ret2
		853	.ok2:
		854	add esp, 8
		855	test al, al
		856	jnz @f
		857	mov esi, fs_BdNext
		858	jmp file_system_lfn.maindir_noesi
		859	@@:
		860	push ecx
2130	serge	861	push ecx
		862	push biosdisk_cleanup
709	diamond	863	push fs_OnBd
		864	mov edi, esp
		865	jmp file_system_lfn.found2
		866
		867	fs_BdNext:
		868	cmp eax, [BiosDiskPartitions+ecx*4]
2434	Serge	869	inc eax
		870	cmc
2130	serge	871	biosdisk_cleanup:
2434	Serge	872	ret
709	diamond	873
		874	fs_OnBd:
2130	serge	875	pop edx edx edx edx
709	diamond	876	; edx = disk number, ecx = partition number
		877	; esi+ebp = name
2434	Serge	878	call reserve_hd1
		879	add edx, 0x80
		880	mov [hdpos], edx
		881	cmp ecx, [BiosDiskPartitions+(edx-0x80)*4]
		882	jmp fs_OnHdAndBd
709	diamond	883
		884	; This handler is called when virtual root is enumerated
		885	; and must return all items which can be handled by this.
		886	; It is called several times, first time with eax=0
		887	; in: eax = 0 for first call, previously returned value for subsequent calls
		888	; out: eax = 0 => no more items
		889	; eax != 0 => buffer pointed to by edi contains name of item
		890
		891	; here we enumerate existing BIOS disks /bd
		892	biosdisk_enum_root:
		893	cmp eax, [NumBiosDisks]
		894	jae .end
		895	push eax
		896	movzx eax, byte [BiosDisksData+eax*4]
		897	sub al, 80h
		898	push eax
		899	mov al, 'b'
		900	stosb
		901	mov al, 'd'
		902	stosb
		903	pop eax
		904	cmp al, 10
		905	jae .big
		906	add al, '0'
		907	stosb
		908	mov byte [edi], 0
		909	pop eax
		910	inc eax
		911	ret
		912	.end:
		913	xor eax, eax
		914	ret
		915	.big:
1563	diamond	916	push ecx edx
709	diamond	917	push -'0'
		918	mov ecx, 10
		919	@@:
		920	xor edx, edx
		921	div ecx
		922	push edx
		923	test eax, eax
		924	jnz @b
		925	xchg eax, edx
		926	@@:
		927	pop eax
		928	add al, '0'
		929	stosb
		930	jnz @b
1563	diamond	931	pop edx ecx
709	diamond	932	pop eax
		933	inc eax
		934	ret
		935
521	diamond	936	process_replace_file_name:
2434	Serge	937	mov ebp, [full_file_name_table]
		938	mov edi, [full_file_name_table.size]
		939	dec edi
		940	shl edi, 7
		941	add edi, ebp
521	diamond	942	.loop:
2434	Serge	943	cmp edi, ebp
		944	jb .notfound
		945	push esi edi
521	diamond	946	@@:
2434	Serge	947	cmp byte [edi], 0
		948	jz .dest_done
		949	lodsb
		950	test al, al
		951	jz .cont
		952	or al, 20h
		953	scasb
		954	jz @b
		955	jmp .cont
521	diamond	956	.dest_done:
2434	Serge	957	cmp byte [esi], 0
		958	jz .found
		959	cmp byte [esi], '/'
		960	jnz .cont
		961	inc esi
		962	jmp .found
521	diamond	963	.cont:
2434	Serge	964	pop edi esi
		965	sub edi, 128
		966	jmp .loop
521	diamond	967	.found:
2434	Serge	968	pop edi eax
		969	mov ebp, esi
		970	cmp byte [esi], 0
		971	lea esi, [edi+64]
		972	jnz .ret
521	diamond	973	.notfound:
2434	Serge	974	xor ebp, ebp
521	diamond	975	.ret:
2434	Serge	976	ret
521	diamond	977
		978	sys_current_directory:
2434	Serge	979	; mov esi, [current_slot]
		980	; mov esi, [esi+APPDATA.cur_dir]
		981	; mov edx, esi
1304	Lrz	982
1305	diamond	983	;get length string of appdata.cur_dir
2434	Serge	984	mov eax, [current_slot]
		985	mov edi, [eax+APPDATA.cur_dir]
1304	Lrz	986
2434	Serge	987	dec ebx
		988	jz .set
		989	dec ebx
		990	jz .get
		991	ret
521	diamond	992	.get:
		993	; sysfunction 30.2: [for app] eax=30,ebx=2,ecx->buffer,edx=len
		994	; for our code: ebx->buffer,ecx=len
2434	Serge	995	max_cur_dir equ 0x1000
1304	Lrz	996
2434	Serge	997	mov ebx, edi
1304	Lrz	998
2434	Serge	999	push ecx
		1000	push edi
1304	Lrz	1001
2434	Serge	1002	xor eax, eax
		1003	mov ecx, max_cur_dir
1304	Lrz	1004
2434	Serge	1005	repne scasb ;find zerro at and string
		1006	jnz .error ; no zero in cur_dir: internal error, should not happen
1304	Lrz	1007
2434	Serge	1008	sub edi, ebx ;lenght for copy
		1009	inc edi
		1010	mov [esp+32+8], edi ;return in eax
1304	Lrz	1011
2434	Serge	1012	cmp edx, edi
		1013	jbe @f
		1014	mov edx, edi
1305	diamond	1015	@@:
		1016	;source string
2434	Serge	1017	pop esi
1304	Lrz	1018	;destination string
2434	Serge	1019	pop edi
		1020	cmp edx, 1
		1021	jbe .ret
1304	Lrz	1022
2434	Serge	1023	mov al, '/' ;start string with '/'
		1024	stosb
		1025	mov ecx, edx
		1026	rep movsb ;copy string
		1027	.ret:
		1028	ret
1304	Lrz	1029
2434	Serge	1030	.error:
		1031	add esp, 8
		1032	or dword [esp+32], -1 ;error not found zerro at string ->[eax+APPDATA.cur_dir]
		1033	ret
521	diamond	1034	.set:
		1035	; sysfunction 30.1: [for app] eax=30,ebx=1,ecx->string
		1036	; for our code: ebx->string to set
1289	diamond	1037	; use generic resolver with APPDATA.cur_dir as destination
2434	Serge	1038	push max_cur_dir ;0x1000
		1039	push edi ;destination
		1040	mov ebx, ecx
		1041	call get_full_file_name
		1042	ret
1289	diamond	1043
		1044	; in: ebx = file name, [esp+4] = destination, [esp+8] = sizeof destination
		1045	; destroys all registers except ebp,esp
		1046	get_full_file_name:
2434	Serge	1047	push ebp
		1048	mov esi, [current_slot]
		1049	mov esi, [esi+APPDATA.cur_dir]
		1050	mov edx, esi
521	diamond	1051	@@:
2434	Serge	1052	inc esi
		1053	cmp byte [esi-1], 0
		1054	jnz @b
		1055	dec esi
		1056	cmp byte [ebx], '/'
		1057	jz .set_absolute
521	diamond	1058	; string gives relative path
2434	Serge	1059	mov edi, [esp+8] ; destination
521	diamond	1060	.relative:
2434	Serge	1061	cmp byte [ebx], 0
		1062	jz .set_ok
		1063	cmp word [ebx], '.'
		1064	jz .set_ok
		1065	cmp word [ebx], './'
		1066	jnz @f
		1067	add ebx, 2
		1068	jmp .relative
521	diamond	1069	@@:
2434	Serge	1070	cmp word [ebx], '..'
		1071	jnz .doset_relative
		1072	cmp byte [ebx+2], 0
		1073	jz @f
		1074	cmp byte [ebx+2], '/'
		1075	jnz .doset_relative
521	diamond	1076	@@:
2434	Serge	1077	dec esi
		1078	cmp byte [esi], '/'
		1079	jnz @b
		1080	add ebx, 3
		1081	jmp .relative
1289	diamond	1082	.set_ok:
2434	Serge	1083	cmp edx, edi ; is destination equal to APPDATA.cur_dir?
		1084	jz .set_ok.cur_dir
		1085	sub esi, edx
		1086	cmp esi, [esp+12]
		1087	jb .set_ok.copy
1289	diamond	1088	.fail:
2434	Serge	1089	mov byte [edi], 0
		1090	xor eax, eax ; fail
		1091	pop ebp
		1092	ret 8
1289	diamond	1093	.set_ok.copy:
2434	Serge	1094	mov ecx, esi
		1095	mov esi, edx
		1096	rep movsb
		1097	mov byte [edi], 0
1289	diamond	1098	.ret.ok:
2434	Serge	1099	mov al, 1 ; ok
		1100	pop ebp
		1101	ret 8
1289	diamond	1102	.set_ok.cur_dir:
2434	Serge	1103	mov byte [esi], 0
		1104	jmp .ret.ok
521	diamond	1105	.doset_relative:
2434	Serge	1106	cmp edx, edi
		1107	jz .doset_relative.cur_dir
		1108	sub esi, edx
		1109	cmp esi, [esp+12]
		1110	jae .fail
		1111	mov ecx, esi
		1112	mov esi, edx
		1113	mov edx, edi
		1114	rep movsb
		1115	jmp .doset_relative.copy
1289	diamond	1116	.doset_relative.cur_dir:
2434	Serge	1117	mov edi, esi
1289	diamond	1118	.doset_relative.copy:
2434	Serge	1119	add edx, [esp+12]
		1120	mov byte [edi], '/'
		1121	inc edi
		1122	cmp edi, edx
		1123	jae .overflow
521	diamond	1124	@@:
2434	Serge	1125	mov al, [ebx]
		1126	inc ebx
		1127	stosb
		1128	test al, al
		1129	jz .ret.ok
		1130	cmp edi, edx
		1131	jb @b
1289	diamond	1132	.overflow:
2434	Serge	1133	dec edi
		1134	jmp .fail
521	diamond	1135	.set_absolute:
2434	Serge	1136	lea esi, [ebx+1]
		1137	call process_replace_file_name
		1138	mov edi, [esp+8]
		1139	mov edx, [esp+12]
		1140	add edx, edi
521	diamond	1141	.set_copy:
2434	Serge	1142	lodsb
		1143	stosb
		1144	test al, al
		1145	jz .set_part2
521	diamond	1146	.set_copy_cont:
2434	Serge	1147	cmp edi, edx
		1148	jb .set_copy
		1149	jmp .overflow
521	diamond	1150	.set_part2:
2434	Serge	1151	mov esi, ebp
		1152	xor ebp, ebp
		1153	test esi, esi
		1154	jz .ret.ok
		1155	mov byte [edi-1], '/'
		1156	jmp .set_copy_cont

Subversion Repositories Kolibri OS

(root)/kernel/branches/Kolibri-acpi/fs/fs_lfn.inc – Rev 3626