WebSVN – Kolibri OS – Diff – /programs/fs/kfar/trunk/kfar.asm

         dd      i_end
 memsize dd      mem
         dd      stacktop
         dd      0, app_path
-version equ '0.6'
+version equ '0.61'
-version_dword equ 0*10000h + 60
+version_dword equ 0*10000h + 61
 min_width = 54
 max_width = 255
         mov     [active_screen_vtable], ecx
         mov     [active_screen_keybar], keybar_panels
 ; load libini.obj and kfar.ini
         mov     eax, libini_name
         mov     esi, ini_import
-        push    3
+        push    6
-        pop     ebp     ; we use version 3 of libini
+        pop     ebp     ; we use version 6 of libini
         call    load_dll_and_import
         test    eax, eax
         jnz     .noini
         mov     edi, app_path
         or      ecx, -1
         push    ecx esi
         call    [esi+PluginInfo.unload]
         pop     esi ecx
         jmp     .unload
 .unload_done:
-if 0    ; commented due to bug in libini
+;if 0    ; commented due to bug in libini
         cmp     [ini.set_int], aIniSetInt
         jz      .nosave
         push    [panel1_colmode]
         push    aLeftViewMode
         push    aPanels
         push    aRightViewMode
         push    aPanels
         push    app_path
         call    [ini.set_int]
 .nosave:
-end if
+;end if
 if CHECK_FOR_LEAKS
         mov     ecx, [panel1_files]
         call    pgfree
         mov     ecx, [panel2_files]
         call    pgfree
         cmp     al, 2
         setz    al
         ret
 enum_associations_callback:
-; LongBool __stdcall callback(f_name,sec_name,key_name);
+; LongBool __stdcall callback(f_name,sec_name,key_name,key_value);
-; [esp+4] = f_name, [esp+8] = sec_name, [esp+12] = key_name
+; [esp+4] = f_name, [esp+8] = sec_name, [esp+12] = key_name, [esp+16] = key_value
         mov     esi, [esp+12]
         mov     edi, esi
 @@:
         lodsb
         test    al, al
         jnz     @b
-        sub     esi, edi        ; esi = size of key name
-        push    nullstr
-        push    1024
-        push    saved_file_name
-        push    edi
+        sub     esi, edi        ; esi = size of key name
-        push    dword [esp+16+8]
-        push    dword [esp+20+4]
-        call    [ini.get_str]
-        test    eax, eax
-        jnz     .ret
-        mov     eax, saved_file_name
+        mov     eax, [esp+16]
 @@:
         inc     esi
         inc     eax
         cmp     byte [eax-1], 0
 @@:
         lodsb
         stosb
         test    al, al
         jnz     @b
-        mov     esi, saved_file_name
+        mov     esi, [esp+16]
 @@:
         lodsb
         stosb
         test    al, al
         jnz     @b
 .ret:
         mov     al, 1
-        ret     12
+        ret     16
 .err:
         mov     ecx, edx
         call    pgfree
         xor     eax, eax
-        ret     12
+        ret     16
 enum_plugins_callback:
-; LongBool __stdcall callback(f_name,sec_name,key_name);
+; LongBool __stdcall callback(f_name,sec_name,key_name,key_value);
-; [esp+4] = f_name, [esp+8] = sec_name, [esp+12] = key_name
-        push    nullstr
-        push    1024
-        push    saved_file_name
-        push    dword [esp+12+12]
+; [esp+4] = f_name, [esp+8] = sec_name, [esp+12] = key_name, [esp+16] = key_value
-        push    dword [esp+16+8]
-        push    dword [esp+20+4]
-        call    [ini.get_str]
-        test    eax, eax
-        jnz     .ret
-        mov     esi, saved_file_name
+        mov     esi, [esp+16]
         cmp     byte [esi], '/'
         jz      .absolute
 ; convert path to absolute
-        mov     edi, execdata
-        push    esi
+        mov     edi, execdata
+@@:
+        cmp     edi, execdata+1024
-@@:
+        jae     .overflow
         lodsb
         stosb
         test    al, al
+        jnz     @b
-        jnz     @b
+        mov     edi, saved_file_name
-        pop     edi
+        mov     [esp+16], edi
         mov     esi, app_path
         push    esi
         xor     ecx, ecx
 @@:
         mov     ecx, esi
         jmp     @b
 @@:
         pop     esi
         sub     ecx, esi
+        push    edi
+        add     edi, ecx
+        cmp     edi, saved_file_name+1024
+        pop     edi
+        ja      .overflow
         rep     movsb
         mov     esi, execdata
 .z:
         cmp     word [esi], '.'
         jz      .ret
         jbe     .ret
         cmp     byte [edi-1], '/'
         jnz     @b
         jmp     .z
 .c:
+        cmp     edi, saved_file_name+1024
+        jae     .overflow
         lodsb
         stosb
         test    al, al
-        jz      @f
+        jnz     .c
-        cmp     edi, saved_file_name+1024
+        jmp     .absolute
-        jb      .c
+.overflow:
         mov     esi, execdata
+        mov     byte [esi+1023], 0
         call    load_dll_and_import.big
 .ret:
         mov     al, 1
         ret     12
-@@:
 .absolute:
 ; allocate space for plugin info
         mov     eax, [num_plugins]
         inc     eax
         mov     [num_plugins], eax
 .norealloc:
         mov     esi, [plugins]
         lea     esi, [esi+ecx-PluginInfo.size]
 ; load plugin DLL
         or      ebp, -1
-        mov     eax, saved_file_name
+        mov     eax, [esp+16]
         call    load_dll_and_import.do
         test    eax, eax
         jnz     .dec_ret
 ; find exported functions
         mov     eax, aVersion
         cmp     eax, MAX_INTERFACE_VER
         jbe     .version_ok
 @@:
         push    aIncompatibleVersion
 .cantload:
-        push    saved_file_name
+        push    dword [esp+4+16]
         push    aCannotLoadPlugin
         mov     eax, esp
         push    ContinueBtn
         push    1
         push    eax
         ja      .dec_ret
         push    aInitFailed
         jmp     .cantload
 .ok:
         mov     al, 1
-        ret     12
+        ret     16
 plugin_unload_default:
         ret
         cmp     esi, ecx
         jb      .mask_done
         mov     al, [esi]
         cmp     al, '*'
         jz      .asterisk
-        cmp     al, '?'
-        jz      .quest
-        cmp     al, ']'
-        jz      .list
         dec     edi
         cmp     edi, edx
         jb      .done_fail
+        cmp     al, '?'
+        jz      .mask_symbol
+        cmp     al, ']'
+        jz      .list_check
         cmp     al, [edi]
         jz      .mask_symbol
 .done_fail:
         stc
         pop     eax edi esi
         jnz     .done_fail
 .done_succ:
         clc
         pop     eax edi esi
         ret
-.quest:
-        dec     edi
-        cmp     edi, edx
-        jb      .done_fail
-        jmp     .mask_symbol
-.list:
-        dec     edi
-        cmp     edi, edx
-        jb      .done_fail
 .list_check:
         dec     esi
         cmp     esi, ecx
         jbe     .done_fail
         mov     al, [esi]
         cmp     byte [esi-1], '?'
         jnz     @f
         cmp     edi, edx
         jz      .done_fail
         dec     esi
+        dec     edi
         jmp     .asterisk
 @@:
         cmp     byte [esi-1], ']'
         jz      .asterisk_common
 ; the mask is ...*...
 .asterisk_normal:
         mov     al, [esi-1]
 @@:
+        dec     edi
         cmp     edi, edx
-        jz      .done_fail
+        jb      .done_fail
         cmp     al, [edi]
-        jz      @f
-        dec     edi
-        jmp     @b
+        jnz     @b
 @@:
-        dec     edi
         dec     esi
         call    match_single_mask_rev_lowercase
         jnc     .done_succ
         inc     esi
         jmp     .asterisk_normal

Subversion Repositories Kolibri OS

(root)/programs/fs/kfar/trunk/kfar.asm – Rev 997 → 1000