WebSVN – Kolibri OS – Diff – /programs/develop/libraries/box_lib/load_lib.mac

+;13.03.2013 - use @notify
+;08.06.2010 - new macros @use_library_mem
 ;08.05.2009 - bugfix
 ;14.04.2009 - a macros for code load library the box_lib.obj from '/sys/lib/' or current dirrectory.
 ; The macros for load any library/libraries:
 ; Copyright (c) 2009,
 ; All rights reserved.
+;
 ; Redistribution and use in source and binary forms, with or without
 ; modification, are permitted provided that the following conditions are met:
 ;       * Redistributions of source code must retain the above copyright
 ;       notice, this list of conditions and the following disclaimer.
 ;       * Redistributions in binary form must reproduce the above copyright
 ;       notice, this list of conditions and the following disclaimer in the
 ;       documentation and/or other materials provided with the distribution.
 ;       * Neither the name of the  nor the
 ;       names of its contributors may be used to endorse or promote products
 ;       derived from this software without specific prior written permission.
+;
 ; THIS SOFTWARE IS PROVIDED BY Alexey Teplov aka  ''AS IS'' AND ANY
 ; EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
 ; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
 ; DISCLAIMED. IN NO EVENT SHALL  BE LIABLE FOR ANY
 ; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
 ; (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
 ; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
 ; ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 ; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 ; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 ;*****************************************************************************
 ; This macros based on source code:
-;  - Alexey Teplov / Àëåêñåé Òåïëîâ
+;  - Alexey Teplov / «¥ªá¥© ¥¯«®¢
-; Mario79, Mario - Marat Zakiyanov / Ìàðàò Çàêèÿíîâ
+; Mario79, Mario - Marat Zakiyanov /  à â  ª¨ï®¢
-; Diamondz - Evgeny Grechnikov / Åâãåíèé Ãðå÷íèêîâ
+; Diamondz - Evgeny Grechnikov / ¢£¥¨© à¥ç¨ª®¢
 ;------------------------
 ; DESCRIPTION
 ; Macro load_library
 ; Logick of work.
 ; A first time we must to check system path, where I belive find a system library. System path is "/sys/lib/".
 ; If I cannot found my library, i must to check second way. Second way is current dirrectory.
 ; If we cannot load library, we must show the error message:
 ; "I'm sorry,the programm cannot found system library box_lib.obj."
 ; "The find was make on 2 ways: /sys/lib/ and current dirrectory."
+;
+;
 ;---------------------------------------------------------------------
 ; Macro sys_load_library
 ; A first time we must to check own path in current dirrectory the program, where I belive find a system library.
 ; If I cannot found my library, i must to check second way. Second way is system path a "/sys/lib/".
 ; If we cannot load library, we must show the error message:
 ; "I'm sorry,the programm cannot found system library box_lib.obj."
 ; "The find was make on 2 ways: /sys/lib/ and current dirrectory."
+;
 ;---------------------------------------------------------------------
 ; How can I use it?
 ;---------------------------------------------------------------------
 ;-Example using single load library
 ;-universal load library/librarys
 ;load_library  library_name__, cur_dir_path__, library_path__, system_path__, \
 ;err_message_found_lib__, head_f_l__, myimport, err_message_import__, head_f_i__
 ;-if return code =-1 then exit, else normally work
 ;        cmp     eax,-1
 ;        jz      exit
 ;- Well, if you get
+;
 ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
-;DATA äàííûå
+;DATA ¤ ë¥
-;Âñåãäà ñîáëþäàòü ïîñëåäîâàòåëüíîñòü â èìåíè.
+;á¥£¤  á®¡«î¤ âì ¯®á«¥¤®¢ â¥«ì®áâì ¢ ¨¬¥¨.
 ;system_path__      db '/sys/lib/'
 ;library_name__     db 'box_lib.obj',0
-; Åñëè åñòü æåëàíèå ðàçúåäèíèòü, òî íóæíî èñïîëüçîâàòü ñëåäóþùèþ êîíñòðóêöèþ
+; á«¨ ¥áâì ¦¥« ¨¥ à §ê¥¤¨¨âì, â® ã¦® ¨á¯®«ì§®¢ âì á«¥¤ãîé¨î ª®áâàãªæ¨î
 ;system_path__      db '/sys/lib/box_lib.obj',0
-;... ëþáàÿ ïîñëåäîâàòåëüíîñòü äðóãèõ êîìàíä è îïðåäåëåíèé.
+;... «î¡ ï ¯®á«¥¤®¢ â¥«ì®áâì ¤àã£¨å ª®¬ ¤ ¨ ®¯à¥¤¥«¥¨©.
 ;library_name__     db 'box_lib.obj',0
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;err_message_found_lib__   db 'Sorry I cannot found library box_lib.obj',0
 ;head_f_i__:
 ;head_f_l__        db 'System error',0
 ;err_message_import__      db 'Error on load import library box_lib.obj',0
 ;myimport:
+;
 ;edit_box_draw   dd      aEdit_box_draw
 ;edit_box_key    dd      aEdit_box_key
 ;edit_box_mouse  dd      aEdit_box_mouse
 ;version_ed      dd      aVersion_ed
+;
 ;check_box_draw  dd      aCheck_box_draw
 ;check_box_mouse dd      aCheck_box_mouse
 ;version_ch      dd      aVersion_ch
+;
 ;option_box_draw  dd      aOption_box_draw
 ;option_box_mouse dd      aOption_box_mouse
 ;version_op       dd      aVersion_op
 ;                dd      0
 ;                dd      0
+;
 ;aEdit_box_draw  db 'edit_box',0
 ;aEdit_box_key   db 'edit_box_key',0
 ;aEdit_box_mouse db 'edit_box_mouse',0
 ;aVersion_ed     db 'version_ed',0
 ;aCheck_box_draw  db 'check_box_draw',0
 ;aCheck_box_mouse db 'check_box_mouse',0
 ;aVersion_ch      db 'version_ch',0
 ;aOption_box_draw  db 'option_box_draw',0
 ;aOption_box_mouse db 'option_box_mouse',0
 ;aVersion_op       db 'version_op',0
 ;---------------------------------------------------------------------
 macro @use_library
+{
 local __sc
 local lp
 local lp1
-local correction
-local exit_
+local file_name
-library_fun_memory_alloc equ 0 ;íå èñïîëüçîâàòü â ìàêðîñàõ ïðîâåðêó íà ôóíêöèè 'lib_init'
-err_message1     equ    dword [esp+8]
-head1            equ    dword [esp+4]
-__sc.frame                equ  dword [__sc+0]
-__sc.grab                 equ  dword [__sc+4]
-__sc.grab_button          equ  dword [__sc+8]
-__sc.grab_button_text     equ  dword [__sc+12]
-__sc.grab_text            equ  dword [__sc+16]
-__sc.work                 equ  dword [__sc+20]
-__sc.work_button          equ  dword [__sc+24]
-__sc.work_button_text     equ  dword [__sc+28]
-__sc.work_text            equ  dword [__sc+32]
-__sc.work_graph           equ  dword [__sc+36]
-;;;;;;;;;;;CALC WIDTH & HIGHT WINDOW & CENTER MONITOR POSITION;;;;;;;;;;
-show_err_:
-;check memory
-        push    dword [arrea_xx]
-        pop     eax
-        test    eax,eax
-        jnz     @f
-        mcall   68,11
-        mcall   68,12,4096
-        push    eax
-        pop     dword [arrea_xx]
-        push    head1
-        pop     dword[eax]
-        push    0x0
-        pop     dword[eax+4]
-@@:
-        mov     eax,48             ;get system color
-        mov     ebx,3
-        mov     ecx,__sc
-        mov     edx,sizeof.system_colors
-        mcall
-;-----------------------------------
         xor     eax,eax
-        mov     esi,err_message1
-        mov     ecx,30
+library_fun_memory_alloc equ 0 ;¥ ¨á¯®«ì§®¢ âì ¢ ¬ ªà®á å ¯à®¢¥àªã   äãªæ¨¨ 'lib_init'
-align 4
-lp:     add     ecx,7
-        lodsb
-        test    eax,eax
-        jnz     lp
 align 4
-        push    dword [arrea_xx]
-        pop     ebp
-align 4
-@@:     add     ebp,4
+arrea_xx dd 0
-        mov     eax,dword [ebp]
-        test    eax,eax
-        jnz     @b
-        push    err_message1
-        pop     dword[ebp]
-        mov     dword [ebp+4],eax
-        mcall   48,5    ;get system window
-        cmp     word[on_x],cx
-        jae     @f; íå íóæíî îáíîâëÿòü
-        sub     eax,ecx
-        shl     eax,15
-        mov     ax,cx
-        mov     dword [on_x],eax
-@@:
-        add     word [on_y],12
-        sub     bx,word [on_y]
-        shl     ebx,15
-        mov     bx,word [on_y]
-        mov     dword [on_y],ebx
-        ret
-;;;;;;;;;;;DRAW WINDOW;;;;;;;;;;;;;;
-align 4
+file_name db '/rd/1/@notify',0
-start__:
-        mcall   40,0x5         ;set mask on events rewraw window and get id button.
-.red_win:
-;draw_window:
-        mcall 12,1
-        xor     eax,eax
-        mov     ebp,dword [arrea_xx]      ; set point
-        mov     ebx,dword [on_x]
-        mov     ecx,dword [on_y]
-        mov     edx,__sc.work
-        or      edx,0x33000000
-        mov     esi,__sc.grab_text
-        xor     edi,edi
-        mov     edi,dword [ebp]         ;head1
-        mcall
-        mov     ebx,(10*65536+25-12)
-        add     ebp,4   ;inc index
-@@:
-        mov     eax,4
-        add     bx,12
-        mov     ecx,__sc.grab_text
-        or      ecx,0x90000000
-        mov     edx,dword [ebp]       ;err_message1
-        mcall
-        add     ebp,4   ;inc index
-        mov     eax,dword [ebp]
-        test    eax,eax
+align 4
-        jnz     @b
-        mcall 12,2
-align 4
-.still:                          ;main loop
-        mcall   10              ;wait event
-        dec  eax
-        jz   .red_win
+run_notify_struct:
-        sub  eax,2
-        jnz  .still   ;go to main loop
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-.button:
-        mcall   17      ;get id button
+	.Function dd 7
-        test    ah,ah      ;if in ah 0, then go to still
-        jz      .still
+	.Position dd 0
-        mcall   -1
-        ret
-align 4
+	.Flags dd ?
-__sc     system_colors
-on_x     dd     0x0
-on_y     dd     0x0000004E
-arrea_xx dd     0x0
+	.Count dd 0
-rb      0x50
+	.Buffer dd 0
-end_tr:
+		db 0
 	.FileName dd file_name
 ;---------------------------------------------------------------------
 @library_name     equ    dword [esp+16]
 @cur_dir_path     equ    dword [esp+12]
 @library_path     equ    dword [esp+8]
 @point_dir_name   equ    dword [esp+4]
 align 4
 @copy_path:
 ;        mov     ebx,@library_name
         mov     esi,@cur_dir_path
         mov     edi,@library_path
         xor     eax,eax
         cld
 align 4
 .lp1:
         lodsb
         stosb
         test    eax,eax
         jnz     .lp1
         mov     esi,edi
         std
 align 4
 .lp2:
         lodsb
         cmp     al,'/'
         jnz     .lp2
         mov     edi,esi
         add     edi,2
         cld
 ;	mov     esi,@library_name
 	mov	esi,@point_dir_name
 	test	esi,esi
 	jz      .str_lp4
 align 4
 .lp3:
         lodsb
         stosb
         test    eax,eax
         jnz     .lp3
 	dec 	edi
 .str_lp4:
 	mov     esi,@library_name
 align 4
 .lp4:
         lodsb
         stosb
         test    eax,eax
         jnz     .lp4
 ;---------------------------------------------------------------------
         ret
+}
 macro @use_library_mem mem_alloc,mem_free,mem_realloc,dll_load
+{
 @use_library
 library_fun_memory_alloc equ mem_alloc
 library_fun_memory_free equ mem_free
 library_fun_memory_realloc equ mem_realloc
 library_fun_dll_load equ dll_load
+}
 macro sys_load_library library_name__, cur_dir_path__, library_path__, system_path__, err_message_found_lib__, head_f_l__, myimport, err_message_import__, head_f_i__,point_dir_name__
+{
 local end_steep
 local exit
 ;---------------------------------------------------------------------
 ; loading Box_Lib library
         mcall   68,19,system_path__   ; load of sys directory
         test    eax,eax
         jnz     end_steep
 if point_dir_name__ eq
   copy_path   library_name__, cur_dir_path__, library_path__,0x0
 else
   copy_path   library_name__, cur_dir_path__, library_path__,point_dir_name__    ;the macros making way /current pach a program/+ name system library
 end if
         mcall   68,19,library_path__ ; load of alternative
         test    eax,eax
         jnz     end_steep
         show_error_window  err_message_found_lib__, head_f_l__    ;show error message /create window
         jmp     exit
 align 4
 end_steep:
         import_boxlib myimport, err_message_import__, head_f_i__  ;import
 exit:
         test    eax,eax
         jz      @f
-        mcall   51,1,start__,end_tr            ; ñîçäàåì íîâûé ïîòîê ïî øàáëîíó
+        notify_window_run [arrea_xx] ; á®§¤ ¥¬ ®ª® @notify
         or      eax,-1
 @@:
 ;---------------------------------------------------------------------
+}
 macro load_library library_name__, cur_dir_path__, library_path__, system_path__, err_message_found_lib__, head_f_l__, myimport, err_message_import__, head_f_i__,point_dir_name__
+{
 local end_steep
 local exit
 ;---------------------------------------------------------------------
 ; loading Box_Lib library
 if point_dir_name__ eq
   copy_path   library_name__, cur_dir_path__, library_path__,0x0
 else
   copy_path   library_name__, cur_dir_path__, library_path__,point_dir_name__    ;the macros making way /current pach a program/+ name system library
 end if
         mcall   68,19,library_path__ ; load of alternative
         test    eax,eax
         jnz     end_steep
         mcall   68,19,system_path__ ; load of sys directory
         test    eax,eax
         jnz     end_steep
         show_error_window  err_message_found_lib__, head_f_l__    ;show error message /create window
         jmp     exit
 align 4
 end_steep:
         import_boxlib myimport, err_message_import__, head_f_i__  ;import
 exit:
         test    eax,eax
         jz      @f
-        mcall   51,1,start__,end_tr            ; ñîçäàåì íîâûé ïîòîê ïî øàáëîíó
+        notify_window_run [arrea_xx] ; á®§¤ ¥¬ ®ª® @notify
         or      eax,-1
 @@:
 ;---------------------------------------------------------------------
+}
 macro sys_load_libraries _start,_end
+{
 local exit_lp2
 local lp2
 local lp
 local end_steep
 local next
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 library_name__            equ [ebp]
 cur_dir_path__            equ [ebp+4]
 library_path__            equ [ebp+8]
 system_path__             equ [ebp+12]
 err_message_found_lib__   equ [ebp+16]
 head_f_l__                equ [ebp+20]
 my_import                 equ [ebp+24]
 err_message_import__      equ [ebp+28]
 head_f_i__                equ [ebp+32]
 point_dir_name__          equ [ebp+36]
 adr_load_lib              equ dword [ebp+40]
 status_lib                equ dword [ebp+44]
         mov     ebp,_start
         mov     ecx,((_end-_start)/ll_struc_size)
 align 4
 lp:     push    ecx
         mcall   68,19,system_path__   ; load of sys directory
         test    eax,eax
         jnz     end_steep
         copy_path  library_name__, cur_dir_path__, library_path__,point_dir_name__     ;the macros making way /current pach a program/+ name system library
         mcall   68,19,library_path__ ; load of alternative
         test    eax,eax
         jnz     end_steep
         or      status_lib,0x1          ; status of code - enable error - not found library
         show_error_window  err_message_found_lib__, head_f_l__,    ;show error message /create window
         jmp      next
 align 4
 end_steep:
         mov     adr_load_lib,eax        ;save adr lib in memory
         import_boxlib my_import, err_message_import__, head_f_i__  ;import
         test    eax,eax
         jz      next
         or      status_lib,0x2          ; status of code - enable error - import error
 next:
         pop     ecx
         add     ebp,ll_struc_size
         dec     ecx
         jnz     lp
 ;----------------------------------
         mov     ebp,_start
         mov     ecx,((_end-_start)/ll_struc_size)
 align 4
 lp2:
         mov     eax,status_lib
         test    eax,eax
         jz      @f
-        mcall   51,1,start__,end_tr            ; ñîçäàåì íîâûé ïîòîê ïî øàáëîíó
+        notify_window_run [arrea_xx] ; á®§¤ ¥¬ ®ª® @notify
         or      eax,-1
         jmp     exit_lp2
 @@:
         add     ebp,ll_struc_size
         dec     ecx
         jnz     lp2
 exit_lp2:
+}
 macro load_libraries _start,_end
+{
 local lp2
 local exit_lp2
 local lp
 local end_steep
 local next
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 library_name__            equ [ebp]
 cur_dir_path__            equ [ebp+4]
 library_path__            equ [ebp+8]
 system_path__             equ [ebp+12]
 err_message_found_lib__   equ [ebp+16]
 head_f_l__                equ [ebp+20]
 my_import                 equ [ebp+24]
 err_message_import__      equ [ebp+28]
 head_f_i__                equ [ebp+32]
 point_dir_name__          equ [ebp+36]
 adr_load_lib              equ dword [ebp+40]
 status_lib                equ dword [ebp+44]
         mov     ebp,_start
         mov     ecx,((_end-_start)/ll_struc_size)
 align 4
 lp:     push    ecx
         copy_path    library_name__, cur_dir_path__, library_path__,point_dir_name__   ;the macros making way /current pach a program/+ name system library
         mcall   68,19,library_path__  ; load of alternative
         test    eax,eax
         jnz     end_steep
         mcall   68,19,system_path__   ; load of sys directory
         test    eax,eax
         jnz     end_steep
         or      status_lib,0x1          ; status of code - enable error - not found library
         show_error_window  err_message_found_lib__, head_f_l__    ;show error message /create window
         jmp      next
 align 4
 end_steep:
         mov     adr_load_lib,eax        ;save adr lib in memory
         import_boxlib my_import, err_message_import__, head_f_i__  ;import
         test    eax,eax
         jz      next
         or      status_lib,0x2          ; status of code - enable error - import error
 next:
         pop     ecx
         add     ebp,ll_struc_size
         dec     ecx
         jnz     lp
 ;-----------------------------------------------
         mov     ebp,_start
         mov     ecx,((_end-_start)/ll_struc_size)
 align 4
 lp2:
         mov     eax,status_lib
         test    eax,eax
         jz      @f
-        mcall   51,1,start__,end_tr            ; ñîçäàåì íîâûé ïîòîê ïî øàáëîíó
+        notify_window_run [arrea_xx] ; á®§¤ ¥¬ ®ª® @notify
         or      eax,-1
         jmp     exit_lp2
 @@:
         add     ebp,ll_struc_size
         dec     ecx
         jnz     lp2
 exit_lp2:
+}
 macro copy_path lib_name,dir_path,lib_path,point_dir_name
+{
         pushad  ;save all registers
         push    dword lib_name
         push    dword dir_path
         push    dword lib_path
         push	dword point_dir_name
         call    @copy_path
         add     esp,16
         popad   ;restore all registers
+}
+; £®â®¢¨¬ â¥ªáâ ¤«ï ¯®ª §  ç¥à¥§ @notify:
+; 1) ¢ë¤¥«ï¥¬ ¯ ¬ïâì ¢ [arrea_xx]
 ; 2) ª®¯¨àã¥¬ err_message ¨ head ¢ [arrea_xx]
+macro show_error_window  err_message, head
+{
+local lp0
+local lp1
+pushad
-macro show_error_window  err_message, head
+	mcall 68,11
-{       pushad  ;save all registers
+	mcall 68,12,4096
-        push    dword err_message
+	push eax
+	pop dword [arrea_xx]
+	mov edi,eax
+	mov esi,dword head
+	cld
+align 4
+lp0:
+	movsb
+	cmp byte[esi],0
+	jne lp0
-        push    dword head
+	mov word[edi],'. '
+	add edi,2
+	mov esi,dword err_message
+align 4
+lp1:
+	movsb
+	cmp byte[esi],0
+	jne lp1
+	mov byte[edi],0
+popad
+	or eax,-1  ;ã¢ë
+}
+; ¢ª«îç ¥¬ ¯®ª § á®®¡é¥¨ï ç¥à¥§ @notify:
+macro notify_window_run message
-        call    show_err_
+{
+push eax ebx
+	mov eax,message ;¯ à ¬¥âàë ¤«ï ª®¬ ¤®© áâà®ª¨
+	mov [run_notify_struct.Flags], eax
+	mov eax,70 ;run @notify
-        add     esp,8
+	mov ebx,run_notify_struct
-        popad   ;restore all registers
+	int 0x40
-        or      eax,-1  ;óâû
+pop ebx eax
+}
-;âõîäíûå ïàðàìåòðû:
+;¢å®¤ë¥ ¯ à ¬¥âàë:
-;eax - àäðåñ áèáëèîòåêè â ïàìÿòè
+;eax -  ¤à¥á ¡¨¡«¨®â¥ª¨ ¢ ¯ ¬ïâ¨
-;myimport - èìïîðòèðóåìûå ôóíêöèè
+;myimport - ¨¬¯®àâ¨àã¥¬ë¥ äãªæ¨¨
 macro import_boxlib myimport, err_message_import__, head_f_i__
+{
 local import_loop
 local import_find
 local lp
 local import_find_next
 local import_found
 local import_done
 local exit
 local e.exit
 local import_not_found
 ; initialize import
         mov     edx, eax
         mov     esi,myimport
 import_loop:
-        lodsd	;mov eax,dword[esi] ;add esi,4 ;ïîëó÷àåì â eax óêàçàòåëü íà èìÿ èìïîðòèðóåìîé ôóíêöèè
+        lodsd	;mov eax,dword[esi] ;add esi,4 ;¯®«ãç ¥¬ ¢ eax ãª § â¥«ì   ¨¬ï ¨¬¯®àâ¨àã¥¬®© äãªæ¨¨
         test    eax, eax
-        jz      import_done ;åñëè óêàçàòåëü íà èìÿ ôóíêöèè = 0 (â ïîëüçîâàòåëüñêîé ïðîãðàììå)
+        jz      import_done ;¥á«¨ ãª § â¥«ì   ¨¬ï äãªæ¨¨ = 0 (¢ ¯®«ì§®¢ â¥«ìáª®© ¯à®£à ¬¬¥)
-        push    edx ;ñîõðàíÿåì íà÷àëî áèáëèîòå÷íûõ óêàçàòåëåé íà ôóíêöèè
+        push    edx ;á®åà ï¥¬  ç «® ¡¨¡«¨®â¥çëå ãª § â¥«¥©   äãªæ¨¨
 import_find:
         mov     ebx, [ds:edx]
         test    ebx, ebx
-        jz      import_not_found ;åñëè óêàçàòåëü íà èìÿ ôóíêöèè = 0 (â áèáëèîòåêå)
+        jz      import_not_found ;¥á«¨ ãª § â¥«ì   ¨¬ï äãªæ¨¨ = 0 (¢ ¡¨¡«¨®â¥ª¥)
-        push    eax ;eax - óêàçàòåëü íà èìÿ ýêñïîðòèðóåìîé ôóíêöèè (â ïîëüçîâàòåëüñêîé ïðîãðàììå)
+        push    eax ;eax - ãª § â¥«ì   ¨¬ï íªá¯®àâ¨àã¥¬®© äãªæ¨¨ (¢ ¯®«ì§®¢ â¥«ìáª®© ¯à®£à ¬¬¥)
 lp:
         mov     cl, [ds:eax]
-        cmp     cl, [ds:ebx] ;ñðàâíèâàåì èìåíà ôóíêöèé â áèáëèîòåêå è â ïîëüçîâàòåëüñêîé ïðîãðàììå
+        cmp     cl, [ds:ebx] ;áà ¢¨¢ ¥¬ ¨¬¥  äãªæ¨© ¢ ¡¨¡«¨®â¥ª¥ ¨ ¢ ¯®«ì§®¢ â¥«ìáª®© ¯à®£à ¬¬¥
-        jnz     import_find_next ;åñëè íàçâàíèÿ íå ñîâïàëè
+        jnz     import_find_next ;¥á«¨  §¢ ¨ï ¥ á®¢¯ «¨
         test    cl, cl
-        jz      import_found ;åñëè íàçâàíèÿ ñîâïàëè, è óæå êîíåö ñòðîêè (cl=0)
+        jz      import_found ;¥á«¨  §¢ ¨ï á®¢¯ «¨, ¨ ã¦¥ ª®¥æ áâà®ª¨ (cl=0)
         inc     eax
         inc     ebx
         jmp     lp
 import_find_next:
         pop     eax
-        add     edx, 8 ;8 = 4 áàéòà óêàçàòåëü íà íàçâàíèå è 4 áàéòà óêàçàòåëü íà ôóíêöèþ
+        add     edx, 8 ;8 = 4 ¡ ©â  ãª § â¥«ì    §¢ ¨¥ ¨ 4 ¡ ©â  ãª § â¥«ì   äãªæ¨î
         jmp     import_find
 import_found:
-        pop     ebx ;âîñòàíàâëèâàåì óêàçàòåëü íà èìÿ ôóíêöèè (êîòîðûé áûë â eax) è îñâîáîæäàåì ñòåê
+        pop     ebx ;¢®áâ  ¢«¨¢ ¥¬ ãª § â¥«ì   ¨¬ï äãªæ¨¨ (ª®â®àë© ¡ë« ¢ eax) ¨ ®á¢®¡®¦¤ ¥¬ áâ¥ª
-        mov     eax, [ds:edx+4] ;eax = óêàçàòåëü íà ôóíêöèþ (â áèáëèîòåêå)
+        mov     eax, [ds:edx+4] ;eax = ãª § â¥«ì   äãªæ¨î (¢ ¡¨¡«¨®â¥ª¥)
-        mov     [esi-4], eax ;êîïèðóåì óêàçàòåëü (íà ôóíêöèþ) â ïðîãðàììó, -4 ñòàâèì ïîòîìó ÷òî esi áûëî ñäâèíóòî êîìàíäîé lodsd
+        mov     [esi-4], eax ;ª®¯¨àã¥¬ ãª § â¥«ì (  äãªæ¨î) ¢ ¯à®£à ¬¬ã, -4 áâ ¢¨¬ ¯®â®¬ã çâ® esi ¡ë«® á¤¢¨ãâ® ª®¬ ¤®© lodsd
-        pop     edx ;óñòàíàâëèâàåì edx íà íà÷àëî áèáëèîòå÷íûõ ôóíêöèé
+        pop     edx ;ãáâ  ¢«¨¢ ¥¬ edx    ç «® ¡¨¡«¨®â¥çëå äãªæ¨©
-;--- ïðîâåðÿåì ñîâïàäàåò ëè èìÿ ýêñïîðòèðîâàííîé ôóíêöèè ñ 'lib_init'
+;--- ¯à®¢¥àï¥¬ á®¢¯ ¤ ¥â «¨ ¨¬ï íªá¯®àâ¨à®¢ ®© äãªæ¨¨ á 'lib_init'
 if library_fun_memory_alloc eq 0
 else
 		cmp dword[ebx],'lib_'
 		jne		import_loop
 		cmp dword[ebx+4],'init'
 		jne		import_loop
-;--- åñëè èìÿ ôóíêöèè ñîâïàëî ñ 'lib_init' ïîïàäàåì ñþäà
+;--- ¥á«¨ ¨¬ï äãªæ¨¨ á®¢¯ «® á 'lib_init' ¯®¯ ¤ ¥¬ áî¤
-		;ïîäêëþ÷åíèå ôóíêöèé äëÿ ðàáîòû ñ ïàìÿòüþ
+		;¯®¤ª«îç¥¨¥ äãªæ¨© ¤«ï à ¡®âë á ¯ ¬ïâìî
 		;push eax
 		;call dll.Init
 		pushad
 		mov esi,eax
 		mov	eax,library_fun_memory_alloc
 		mov	ebx,library_fun_memory_free
 		mov	ecx,library_fun_memory_realloc
 		mov	edx,library_fun_dll_load
 		call dword esi
 		popad
 end if
         jmp     import_loop
 import_not_found:
         add     esp,4
         show_error_window  err_message_import__, head_f_i__    ;show error message /create window
         jmp     e.exit
 import_done:
-        xor     eax,eax ;=0 âñå çàãðóçèëîñü óäà÷íî
+        xor     eax,eax ;=0 ¢á¥ § £àã§¨«®áì ã¤ ç®
 e.exit:
 ;---------------------------------------------------------------------
+}
 ll_struc_size = 48;($-library_name__)    ; constant   size of struct
 struc l_libs library_name__, cur_dir_path__, library_path__, system_path__, err_message_found_lib__, head_f_l__, my_import, err_message_import__, head_f_i__,point_dir_name; struct for loading libraries
+{
-.library_name__           dd library_name__        ; èìÿ çàãðóæàåìîé áèáëèîòåêè
+.library_name__           dd library_name__        ; ¨¬ï § £àã¦ ¥¬®© ¡¨¡«¨®â¥ª¨
-.cur_dir_path__           dd cur_dir_path__        ; óêàçàòåëü íà áóôåð â êîòîðîì ñîäåðæèòüñÿ ïóòü îò êóäà áûëà çàïóùåíà ïðîãðàììà
+.cur_dir_path__           dd cur_dir_path__        ; ãª § â¥«ì   ¡ãä¥à ¢ ª®â®à®¬ á®¤¥à¦¨âìáï ¯ãâì ®â ªã¤  ¡ë«  § ¯ãé¥  ¯à®£à ¬¬
-.library_path__           dd library_path__        ; óêàçàòåëü íà áóôåð â êîòîðîì áóäåò ñîôîðèìèðîâàí ïóòü ê áèáëèîòåêè, åñëè íóæíî âû÷èñëèòü ïóòü äî ëèáû ñ ìåñòà çàïóñêà ïðîãðàììû, îáû÷íî íóæíî, â ñëó÷àÿõ, åñëè ëèáà ðàñïîëîæåíà â òîé æå ïàïêå
+.library_path__           dd library_path__        ; ãª § â¥«ì   ¡ãä¥à ¢ ª®â®à®¬ ¡ã¤¥â á®ä®à¨¬¨à®¢  ¯ãâì ª ¡¨¡«¨®â¥ª¨, ¥á«¨ ã¦® ¢ëç¨á«¨âì ¯ãâì ¤® «¨¡ë á ¬¥áâ  § ¯ãáª  ¯à®£à ¬¬ë, ®¡ëç® ã¦®, ¢ á«ãç ïå, ¥á«¨ «¨¡  à á¯®«®¦¥  ¢ â®© ¦¥ ¯ ¯ª¥
-.complete_path            dd system_path__         ; ïóòü êîòîðûé ÷åòêî ñîäåðæèò ïóòü
+.complete_path            dd system_path__         ; ¯ãâì ª®â®àë© ç¥âª® á®¤¥à¦¨â ¯ãâì
 .err_message_found_lib__  dd err_message_found_lib__
 .head_f_l__               dd head_f_l__
 .my_import                dd my_import
 .err_message_import__     dd err_message_import__
 .head_f_i__               dd head_f_i__
 if point_dir_name eq
 .point_dir_name__	dd 0x0
 else
-.point_dir_name__	dd point_dir_name	   ; èìÿ âëîæåííîé äèððåêòîðèè â êòîðîé õðàíÿòüñÿ ïîäãðóæàåìûå ìîäóëè.
+.point_dir_name__	dd point_dir_name	   ; ¨¬ï ¢«®¦¥®© ¤¨àà¥ªâ®à¨¨ ¢ ªâ®à®© åà ïâìáï ¯®¤£àã¦ ¥¬ë¥ ¬®¤ã«¨.
 end if
 .adr_load_lib           dd 0x0
 .status_lib             dd 0x0          ;status of load library
+;
+}

Subversion Repositories Kolibri OS

(root)/programs/develop/libraries/box_lib/load_lib.mac – Rev 1488 → 3374