Subversion Repositories Kolibri OS

files_information:

	xor	eax,eax

	mov	[alt_flag],al

	mov	[files_counter],eax

	mov	[directories_counter],eax

	mov	[files_size.low],eax

	mov	[files_size.high],eax

	call	get_files_information

	call	start_files_information_thread

	jmp	still

;------------------------------------------------------------------------------

start_files_information_thread:

	mcall	9,procinfo,-1

	mov	eax,[ebx+46]

	shr	eax,1

	add	eax,[ebx+38]

	sub	eax,150

	mov	[files_information_window_y+2],ax

	mov	eax,[ebx+42]

	shr	eax,1

	add	eax,[ebx+34]

	sub	eax,125

	mov	[files_information_window_x+2],ax

	mcall	51,1,thread_files_information_start,thread_stack

	ret

;------------------------------------------------------------------------------

draw_files_information_window:

	mcall	12,1

	mcall	0,[files_information_window_x],[files_information_window_y],0x03ffffcc

	mov	edx,100 shl 16+50

	mov	ebx,0x800a0000

	mov	esi,0x10000000

	cmp	[inf_marked_yes],1

	je	.continue_4

	cmp	[nesting_direction],1

	je	@f

	add	edx,15

;--------------------------------------

.continue_4:

; show files counter

	mcall	47,,[files_counter]

;--------------------------------------

@@:

	cmp	[inf_marked_yes],1

	je	.continue_2

	cmp	[nesting_direction],0

	je	.continue_2

	cmp	[directories_counter],0

	je	@f

;--------------------------------------

.continue_2:

; show directories counter

	add	edx,15

	mcall	,,[directories_counter]

;--------------------------------------

@@:

; show file or directory size

	add	edx,15

	mcall	47,0x80140001,files_size

;--------------------------------------

	mov	ebp,date.create

	call	show_date_and_time_of_files_information

;--------------------------------------

	mov	ebp,date.change

	call	show_date_and_time_of_files_information

;--------------------------------------

	mov	ebp,date.access

	call	show_date_and_time_of_files_information

;--------------------------------------

	cmp	[select_panel_counter],0

	jne	.right_1

	mov	edx,read_folder_name

	jmp	@f

;--------------------------------------

.right_1:

	mov	edx,read_folder_1_name

;--------------------------------------

@@:

	mcall	4,<75,35>,0x80000000,	;file_name

	mcall	,<10,35>,0x90000000,type_location

	cmp	[inf_marked_yes],1

	je	.continue

	mcall	,<90,50>,0x80000000,type_name

	mov	ecx,0x90000000

	cmp	[nesting_direction],1

	je	@f

	mcall	,<10,50>,,type_dir_name

	jmp	.continue

;--------------------------------------

@@:

	mcall	,<10,50>,,type_file_name

;--------------------------------------

.continue:

	cmp	[inf_marked_yes],1

	je	.continue_3

	cmp	[nesting_direction],1

	je	@f

;--------------------------------------

.continue_3:

	add	ebx,15

	mcall	,,,type_files

;--------------------------------------

@@:

	cmp	[inf_marked_yes],1

	je	.continue_1

	cmp	[nesting_direction],0

	je	.continue_1

	cmp	[directories_counter],0

	je	@f

;--------------------------------------

.continue_1:

	add	ebx,15

	mcall	,,,type_dir

;--------------------------------------

@@:

	add	ebx,15

	mcall	,,,type_size

	add	ebx,15

	mcall	,,,type_create

	add	ebx,15

	mcall	,,,type_change

	add	ebx,15

	mcall	,,,type_access

	sub	ebx,30

	add	ebx,107 shl 16

	mcall	,,0x80000000,type_limiters_data_time

	add	ebx,15

	mcall

	add	ebx,15

	mcall

	mcall	12,2

	ret

;------------------------------------------------------------------------------

show_date_and_time_of_files_information:

; show date

	add	edx,15

	push	edx

	movzx	ecx,byte [ebp+0]

	mcall	,0x00020000

	add	edx,24 shl 16

	movzx	ecx,byte [ebp+1]

	mcall

	add	edx,23 shl 16

	movzx	ecx,word [ebp+2]

	mcall	,0x00040000

	sub	ebp,12

; show time

	add	edx,37 shl 16

	movzx	ecx,byte [ebp+2]

	mcall	,0x00020000

	add	edx,24 shl 16

	movzx	ecx,byte [ebp+1]

	mcall

	add	edx,23 shl 16

	movzx	ecx,byte [ebp+0]

	mcall

	pop	edx

	ret

;------------------------------------------------------------------------------

thread_files_information_start:

.red:

	call	draw_files_information_window

;--------------------------------------

.still:

	mcall	10

	cmp	eax,1

	je	.red

	cmp	eax,2

	je	.key

	cmp	eax,3

	je	.button

	jmp	.still

;--------------------------------------

.key:

	mcall	2

;--------------------------------------

.button:

	mcall	-1

	jmp	.still

;------------------------------------------------------------------------------

; äåëåíèå 64-áèòíîãî ÷èñëà divident íà 16-áèòíîå ÷èñëî divisor.

; ×àñòíîå ïîìåùàåòñÿ â 64-áèòíóþ ïåðåìåííóþ quotent,

; à îñòàòîê - â 16-áèòíóþ ïåðåìåííóþ modulo

Division_64bit:

    	mov	ax,[ebp+6]

    	xor	dx,dx

    	mov	bx,[divisor]

	div	bx

    	mov	[quotent+6],ax

    	mov	ax,[ebp+4]

	div	bx

    	mov	[quotent+4],ax

    	mov	ax,[ebp+2]

	div	bx

    	mov	[quotent+2],ax

    	mov	ax,[ebp]

	div	bx

    	mov	[quotent],ax

;    	mov	[modulo],dx

        ret

;--------------------------------------

;divident:

;      rb 8

divisor:

      rb 2

quotent:

      rb 8

;modulo:

;      rb 2

;------------------------------------------------------------------------------

copy_type_name:

	push	esi

	mov	esi,ebx

	mov	edi,type_name

	cld

;--------------------------------------

@@:

	lodsb

	stosb

	test	al,al

	jnz	@b

	pop	esi

	ret

;------------------------------------------------------------------------------

get_files_information:

	call	get_information_marked_files

	cmp	[inf_marked_yes],1

	je	.end_2

	xor	eax,eax

	xor	edx,edx

	cmp	[select_panel_counter],0

	jne	.right_1

	mov	ax,[left_start_draw_cursor_line]

	mov	ebx,10

	div	ebx

	mov	ebx,[left_start_draw_line]

	add	ebx,eax

	imul	ebx,304

	add	ebx,[left_folder_data]

	call	prepare_data_8

	mov	esi,read_folder_name

	jmp	.end

;--------------------------------------

.right_1:

	mov	ax,[right_start_draw_cursor_line]

	mov	ebx,10

	div	ebx

	mov	ebx,[right_start_draw_line]

	add	ebx,eax

	imul	ebx,304

	add	ebx,[right_folder_data]

	call	prepare_data_8

	mov	esi,read_folder_1_name

;--------------------------------------

.end:

	mov	[error_pointer],ebx

;--------------------------------------

	push	eax ebx

	sub	ebx,40

; âðåìÿ ñîçäàíèÿ ôàéëà

	mov	eax,[ebx+8]

	mov	[time.create],eax

; äàòà ñîçäàíèÿ ôàéëà

	mov	eax,[ebx+12]

	mov	[date.create],eax

; âðåìÿ ïîñëåäíåãî äîñòóïà (÷òåíèå èëè çàïèñü)

	mov	eax,[ebx+16]

	mov	[time.access],eax

; äàòà ïîñëåäíåãî äîñòóïà

	mov	eax,[ebx+20]

	mov	[date.access],eax

; âðåìÿ ïîñëåäíåé ìîäèôèêàöèè

	mov	eax,[ebx+24]

	mov	[time.change],eax

; äàòà ïîñëåäíåé ìîäèôèêàöèè

	mov	eax,[ebx+28]

	mov	[date.change],eax

	pop	ebx eax

;--------------------------------------

	call	copy_type_name

	mov	edi,file_name

	call	copy_path_1

	test	[ebx-40],byte 0x10

	jz	@f

	push	eax ebx

	call	get_inf_dir

	mov	[nesting_direction],0

	pop	ebx eax

	dec	[directories_counter]

	jmp	.end_2

;--------------------------------------

@@:

	mov	[nesting_direction],1

	call	get_file_size

	test	eax,eax

	jz	.end_1

	call	start_error_window_thread

	add	esp,4

	jmp	reload_dir_all

;--------------------------------------

.end_1:

	mov	eax,[file_features_temp_area+32]

	add	[files_size.low],eax

	mov	eax,[file_features_temp_area+32+4]

	adc	[files_size.high],eax

;--------------------------------------

.end_2:

	ret

;------------------------------------------------------------------------------

get_information_marked_files:

	xor	eax,eax

	mov	[inf_marked_yes],al

	cmp	[select_panel_counter],al

	jne	.right_1

	mov	ebp,[left_folder_block]

;--------------------------------------

.start:

	mov	ebx,ebp

	dec	ebx

	imul	ebx,304

	add	ebx,[left_folder_data]

	add	ebx,32+40

	cmp	[ebx+299-40],byte 0

	je	@f

	cmp	[ebx],word '..'

	jne	.continue

	cmp	[ebx+2],byte 0

	je	.continue_1

;--------------------------------------

.continue:

	mov	esi,read_folder_name

	call	prepare_data_9

;--------------------------------------

.continue_1:

	mov	[inf_marked_yes],1

;--------------------------------------

@@:

	dec	ebp

	jnz	.start

	ret

;--------------------------------------

.right_1:

	mov	ebp,[right_folder_block]

;--------------------------------------

.start_1:

	mov	ebx,ebp

	dec	ebx

	imul	ebx,304

	add	ebx,[right_folder_data]

	add	ebx,32+40

	cmp	[ebx+299-40],byte 0

	je	@f

	cmp	[ebx],word '..'

	jne	.continue_2

	cmp	[ebx+2],byte 0

	je	.continue_3

;--------------------------------------

.continue_2:

	mov	esi,read_folder_1_name

	call	prepare_data_9

;--------------------------------------

.continue_3:

	mov	[inf_marked_yes],1

;--------------------------------------

@@:

	dec	ebp

	jnz	.start_1

	ret

;------------------------------------------------------------------------------

prepare_data_9:

	mov	[error_pointer],ebx

	mov	edi,file_name

	call	copy_path_1

	test	[ebx-40],byte 0x10

	jz	@f

	call	get_inf_dir

	ret

;--------------------------------------

@@:

	inc	[files_counter]

	call	get_file_size

	test	eax,eax

	jz	.continue

	call	start_error_window_thread

	add	esp,8+4

	ret

;--------------------------------------

.continue:

	mov	eax,[file_features_temp_area+32]

	add	[files_size.low],eax

	mov	eax,[file_features_temp_area+32+4]

	adc	[files_size.high],eax

;--------------------------------------

.continue_1:

	ret

;------------------------------------------------------------------------------

prepare_data_8:

	add	ebx,32+40

	cmp	[ebx],word '..'

	jne	.continue

	cmp	[ebx+2],byte 0

	jne	.continue

	add	esp,4+4

	jmp	reload_dir

;--------------------------------------

.continue:

	ret

;------------------------------------------------------------------------------

get_inf_dir:

	mov	[nesting_direction],0

	pusha

	mov	[recursive_pointer],0

	mov	eax,[appl_memory]

	mov	[appl_memory_old],eax

;--------------------------------------

.1:

	mov	[read_delete_dir_data.size],0

	mov	[read_delete_dir_data.return],delete_dir_data

	call	read_delete_dir

	test	eax,eax

	jz	@f

	mov	[error_pointer],file_name

	call	start_error_window_thread

	popa

	add	esp,8+8

	ret

;--------------------------------------

@@:

	mov	eax,[delete_dir_data+8]

	imul	eax,304

	add	eax,32

	mov	ebx,eax

	add	ebx,[appl_memory_old]

	cmp	ebx,[appl_memory]

	jbe	@f

	mov	ecx,[appl_memory]

	mov	ecx,ebx

	mov	[appl_memory],ecx

	mcall	64,1

;--------------------------------------

@@:

	mov	eax,[delete_dir_data+8]

	mov	[read_delete_dir_data.size],eax

	mov	eax,[appl_memory_old]

	mov	[read_delete_dir_data.return],eax

	call	read_delete_dir

	test	eax,eax

	jz	@f

	mov	[error_pointer],file_name

	call	start_error_window_thread

	popa

	add	esp,8+8

	ret

;--------------------------------------

@@:

	cmp	[nesting_direction],0

	je	@f

	call	get_inf_dir_2

	jnc	.end

	dec	ebp

	push	ebp

	jmp	.1

;--------------------------------------

@@:

	call	get_inf_dir_1

	jnc	.end

	dec	ebp

	push	ebp

	jmp	.1

;--------------------------------------

.end:

	call	return_delete_path

	dec	[recursive_pointer]

	cmp	[recursive_pointer],0

	jge	.1

	mov	ecx,[appl_memory_old]

	cmp	[appl_memory],ecx

	je	@f

	mov	[appl_memory],ecx

	mcall	64,1

;--------------------------------------

@@:

	popa

	ret

;------------------------------------------------------------------------------

get_inf_dir_2:

	pop	eax

	pop	ebp

	push	eax

	jmp	get_inf_dir_1.start

;--------------------------------------

get_inf_dir_1:

	inc	[directories_counter]

	mov	ebp,[appl_memory_old]

	mov	ebp,[ebp+8]

;--------------------------------------

.start:

	mov	ebx,ebp

	dec	ebx

	imul	ebx,304

	add	ebx,[appl_memory_old]

	add	ebx,32+40

	cmp	[ebx],byte '.'

	jne	@f

	cmp	[ebx+1],byte 0

	je	.continue_4

;--------------------------------------

@@:

	cmp	[ebx],word '..'

	jne	.continue

	cmp	[ebx+2],byte 0

	je	.continue_4

;--------------------------------------

.continue:

	mov	esi,file_name

	inc	[recursive_pointer]

	call	copy_path_2

	test	[ebx-40],byte 0x10

	jnz	.continue_3

;--------------------------------------

@@:

	inc	[files_counter]

;--------------------------------------

.continue_1:

	mov	eax,[ebx+32-40]

	add	[files_size.low],eax

	mov	eax,[ebx+32+4-40]

	adc	[files_size.high],eax

	dec	[recursive_pointer]

	call	return_delete_path

	dec	ebp

	jnz	.start

;--------------------------------------

.continue_4:

	clc

	mov	[nesting_direction],1

	ret

;--------------------------------------

.continue_3:

	stc

	mov	[nesting_direction],0

	ret

;------------------------------------------------------------------------------

;type_patch_test:

;	pusha

;	mcall	5,200

;	mcall	13,<290,300>,<3,13>,0x0

;	mcall	4,<300,5>,0x80FFFFFF,file_name  ;[error_pointer]

;	mcall	47,0x160100,[recursive_pointer],<300,5>,0xffffff

;	mcall	47,0x160100,ebp,<300,5>,0xffffff

;	mcall	5,1

;	popa

;	ret

;temp_value_1	db '1',0

;temp_value_2	db '2',0

;temp_value_3	db '3',0

;temp_value_4	db '4',0

;temp_value_5	db '5',0

;------------------------------------------------------------------------------