Sweetbread/kolibrios
1
0
Fork 0
forked from KolibriOS/kolibrios
Code Issues Pull Requests Actions Activity

KFar 0.42, KFar_Arc 0.12

Browse Source 
git-svn-id: svn://kolibrios.org@644 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Evgeny Grechnikov (Diamond) 2007-10-06 15:34:14 +00:00
parent ec5962d52e
commit d372427ef3
2 changed files with 25 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
programs/fs/kfar/trunk/kfar.asm
View File

@ -7,8 +7,8 @@ memsize dd mem
dd stacktop dd stacktop
dd 0, app_path dd 0, app_path
version equ '0.41' version equ '0.42'
version_dword equ 0*10000h + 41 version_dword equ 0*10000h + 42
include 'lang.inc' include 'lang.inc'
include 'font.inc' include 'font.inc'
@ -1882,7 +1882,9 @@ panels_OnKey:
ret ret
@@: @@:
push eax push eax
push edx
call close_plugin_panels call close_plugin_panels
pop edx
lea edi, [ebp + panel1_dir - panel1_data] lea edi, [ebp + panel1_dir - panel1_data]
push edi push edi
mov esi, edi mov esi, edi

25
programs/fs/kfar/trunk/kfar_arc/kfar_arc.asm
View File

@ -2,8 +2,8 @@
; project name: KFar_Arc - plugin for KFar, which supports various archives ; project name: KFar_Arc - plugin for KFar, which supports various archives
; target platform: KolibriOS ; target platform: KolibriOS
; compiler: FASM 1.67.14 ; compiler: FASM 1.67.14
; version: 0.11 ; version: 0.12
; last update: 2007-09-20 (Sep 20, 2007) ; last update: 2007-10-06 (Oct 06, 2007)
; minimal KFar version: 0.41 ; minimal KFar version: 0.41
; minimal kernel: no limit ; minimal kernel: no limit
; ;
@ -392,6 +392,11 @@ GetFiles:
@@: @@:
mov [edx+file_common.stamp], eax mov [edx+file_common.stamp], eax
push esi push esi
mov ecx, [edx+file_common.name]
add ecx, [edx+file_common.namelen]
xor eax, eax
xchg al, [ecx]
push eax ecx
mov eax, edx mov eax, edx
mov edi, tmp_bdfe mov edi, tmp_bdfe
push edi push edi
@ -400,8 +405,10 @@ GetFiles:
push esi push esi
mov ecx, [ebp] mov ecx, [ebp]
call dword [getattrTable+(ecx-1)*4] call dword [getattrTable+(ecx-1)*4]
mov eax, [esp+16+20] mov eax, [esp+24+20]
call eax call eax
pop ecx edx
mov [ecx], dl
pop esi pop esi
test al, al test al, al
jz .forced_exit jz .forced_exit
@ -413,6 +420,11 @@ GetFiles:
cmp [ebx+file_common.stamp], eax cmp [ebx+file_common.stamp], eax
jz .cont jz .cont
mov [ebx+file_common.stamp], eax mov [ebx+file_common.stamp], eax
mov ecx, [ebx+file_common.name]
add ecx, [ebx+file_common.namelen]
xor eax, eax
xchg al, [ecx]
push eax ecx
push esi push esi
mov eax, ebx mov eax, ebx
mov edi, tmp_bdfe mov edi, tmp_bdfe
@ -420,8 +432,10 @@ GetFiles:
push esi push esi
mov ecx, [ebp] mov ecx, [ebp]
call dword [getattrTable+(ecx-1)*4] call dword [getattrTable+(ecx-1)*4]
mov eax, [esp+16+20] mov eax, [esp+24+20]
call eax call eax
pop ecx edx
mov [ecx], dl
pop esi pop esi
test al, al test al, al
jz .forced_exit jz .forced_exit
@ -854,6 +868,9 @@ endg
mov [eax+file_common.bPseudoFolder], 1 mov [eax+file_common.bPseudoFolder], 1
.newitem: .newitem:
mov [eax+file_common.namelen], ecx mov [eax+file_common.namelen], ecx
; !!! in this case .fullname is not null-terminated !!!
mov ecx, [edx+file_common.fullname]
mov [eax+file_common.fullname], ecx
pop ecx pop ecx
pop esi pop esi
; ecx = parent item, eax = current item ; ecx = parent item, eax = current item