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

 ;---------------------------------------------------------------------
 ; 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, \
+;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
+;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 äàííûå
 ;Âñåãäà ñîáëþäàòü ïîñëåäîâàòåëüíîñòü â èìåíè.
-;system_path      db '/sys/lib/'
+;system_path__      db '/sys/lib/'
-;library_name     db 'box_lib.obj',0
+;library_name__     db 'box_lib.obj',0
 ; Åñëè åñòü æåëàíèå ðàçúåäèíèòü, òî íóæíî èñïîëüçîâàòü ñëåäóþùèþ êîíñòðóêöèþ
-;system_path      db '/sys/lib/box_lib.obj',0
+;system_path__      db '/sys/lib/box_lib.obj',0
 ;... ëþáàÿ ïîñëåäîâàòåëüíîñòü äðóãèõ êîìàíä è îïðåäåëåíèé.
-;library_name     db '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
+;err_message_found_lib__   db 'Sorry I cannot found library box_lib.obj',0
-;head_f_i:
+;head_f_i__:
-;head_f_l        db 'System error',0
+;head_f_l__        db 'System error',0
-;err_message_import      db 'Error on load import library box_lib.obj',0
+;err_message_import__      db 'Error on load import library box_lib.obj',0
 ;myimport:
+;
 ;aVersion_op       db 'version_op',0
 ;---------------------------------------------------------------------
 macro @use_library
 {
-show_err_:
-local red_win
-local still
 local button
-local __sc
-local start
-local ex_lp
+local __sc
+local lp
-local lp
+local lp1
+local correction
+;local end_tr
-local correction
+local exit_
 ;/equ
 err_message1     equ    dword [esp+8]
 __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]
-;local on_x
-;local on_y
+;;;;;;;;;;;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]
-;;;;;;;;;;;CALC WIDTH & HIGHT WINDOW & CENTER MONITOR POSITION;;;;;;;;;;
+@@:
         mov     eax,48             ;get system color
         mov     ebx,3
         mov     ecx,__sc
         mov     edx,sizeof.system_colors
         mcall
-;---------------------------------------------------------------------
-;get with text imul on 6 pix
+;-----------------------------------
         xor     eax,eax
         mov     esi,err_message1
         mov     ecx,30
+align 4
-align 4
+lp:     add     ecx,7
-lp:     lodsb
+        lodsb
-        test    eax,eax
-        jz      ex_lp
-        add     ecx,7
+        test    eax,eax
-        jmp     lp
-;---------------------------------------------------------------------
-ex_lp:
-        mcall   48,5    ;get system window
-        sub     eax,ecx
-        sub     bx,90
+        jnz     lp
+        push    dword [arrea_xx]
+        pop     ebp
+align 4
-        shl     eax,15
+@@:     add     ebp,4
+        mov     eax,dword [ebp]
-        shl     ebx,15
+        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
-        mov     ax,cx
+@@:
+        add     word [on_y],12
-        mov     bx,90
-        mov     dword [on_x],eax
-        mov     dword [on_y],ebx
-;        mov     eax,dword [esp+4]
-;        mov     dword [header_xx],eax
-;        mov     eax,dword [esp+8]
-;        mov     dword [message_xx],eax
+        sub     bx,word [on_y]
+        shl     ebx,15
+        mov     bx,word [on_y]
-        jmp     start
+        mov     dword [on_y],ebx
-__sc     system_colors
-on_x    dd      ?
+        ret
 on_y    dd      ?
 message_xx      dd      ?
+;;;;;;;;;;;DRAW WINDOW;;;;;;;;;;;;;;
-header_xx       dd      ?
+align 4
-;;;;;;;;;;;DRAW WINDOW;;;;;;;;;;;;;;
+start__:
-start:
+        mcall   40,0x5         ;set mask on events rewraw window and get id button.
-        mcall   40,0x5         ;set mask on events rewraw window and get id button.
+.red_win:
-red_win:
+;draw_window:
-;draw_window:
+        mcall 12,1
-        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
-        xor     eax,eax
+        mov     esi,__sc.grab_text
-        mov     ebx,dword [on_x]
+        xor     edi,edi
-        mov     ecx,dword [on_y]
+        mov     edi,dword [ebp]         ;head1
-        mov     edx,__sc.work
+        mcall
         or      edx,0x33000000
+        mov     ebx,(10*65536+25-12)
+        add     ebp,4   ;inc index
+@@:
+        mov     eax,4
+        add     bx,12
+        mov     ecx,__sc.grab_text
-        mov     esi,__sc.grab_text
+        or      ecx,0x90000000
-        mov     edi,head1
+        mov     edx,dword [ebp]       ;err_message1
+        mcall
-        mcall
         add     ebp,4   ;inc index
         mov     eax,4
-        mov     ebx,(10*65536+25)
+        mov     eax,dword [ebp]
-        mov     ecx,__sc.grab_text
+        test    eax,eax
-        or      ecx,0x90000000
+        jnz     @b
         mov     edx,err_message1
-        mcall
+        mcall 12,2
-        mcall 12,2
+align 4
 align 4
-still:                          ;main loop
+.still:                          ;main loop
         mcall   10              ;wait event
         dec  eax
+        jz   .red_win
+        sub  eax,2
+        jnz  .still   ;go to main loop
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+.button:
+        mcall   17      ;get id button
+        test    ah,ah      ;if in ah 0, then go to still
+        jz      .still
-        jz   red_win
+        mcall   -1
-        sub  eax,2
+        ret
         jnz  still   ;go to main loop
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+align 4
-	ret
+        ret
+}
-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
+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__
+{
 local end_steep
 local exit
 ;---------------------------------------------------------------------
 ; loading Box_Lib library
-        mcall   68,19,system_path   ; load of sys directory
+        mcall   68,19,system_path__   ; load of sys directory
         test    eax,eax
         jnz     end_steep
-        copy_path   library_name, cur_dir_path, library_path    ;the macros making way /current pach a program/+ name system library
+        copy_path   library_name__, cur_dir_path__, library_path__    ;the macros making way /current pach a program/+ name system library
-        mcall   68,19,library_path ; load of alternative
+        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:
-        show_error_window  err_message_found_lib, head_f_l    ;show error message /create window
+        import_boxlib myimport, err_message_import__, head_f_i__  ;import
-        jmp     exit
+exit:
+        test    eax,eax
         jz      @f
 align 4
-end_steep:
+        mcall   51,1,start__,end_tr            ; ñîçäàåì íîâûé ïîòîê ïî øàáëîíó
         or      eax,-1
-        import_boxlib myimport, err_message_import, head_f_i  ;import
+@@:
-exit:
 ;---------------------------------------------------------------------
+}
-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
+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__
+{
 local end_steep
 local exit
 ;---------------------------------------------------------------------
 ; loading Box_Lib library
-        copy_path  library_name, cur_dir_path, library_path     ;the macros making way /current pach a program/+ name system library
+        copy_path  library_name__, cur_dir_path__, library_path__     ;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
         mcall   68,19,library_path ; load of alternative
-        test    eax,eax
+        show_error_window  err_message_found_lib__, head_f_l__    ;show error message /create window
-        jnz     end_steep
+        jmp     exit
+align 4
 end_steep:
         mcall   68,19,system_path ; load of sys directory
-        test    eax,eax
+        import_boxlib myimport, err_message_import__, head_f_i__  ;import
-        jnz     end_steep
+exit:
+        test    eax,eax
-        show_error_window  err_message_found_lib, head_f_l    ;show error message /create window
+        jz      @f
-        jmp     exit
+        mcall   51,1,start__,end_tr            ; ñîçäàåì íîâûé ïîòîê ïî øàáëîíó
-align 4
+        or      eax,-1
-end_steep:
+@@:
-        import_boxlib myimport, err_message_import, head_f_i  ;import
+;---------------------------------------------------------------------
-exit:
+}
-;---------------------------------------------------------------------
+macro sys_load_libraries _start,_end
+{
-macro sys_load_libraries _start,_end
-{
-local lp
-local end_steep
+local exit_lp2
-local next
+local lp2
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+local lp
-library_name            equ [ebp]
+local end_steep
-cur_dir_path            equ [ebp+4]
+local next
-library_path            equ [ebp+8]
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-system_path             equ [ebp+12]
+library_name__            equ [ebp]
-err_message_found_lib   equ [ebp+16]
+cur_dir_path__            equ [ebp+4]
-head_f_l                equ [ebp+20]
+library_path__            equ [ebp+8]
-my_import               equ [ebp+24]
+system_path__             equ [ebp+12]
-err_message_import      equ [ebp+28]
+err_message_found_lib__   equ [ebp+16]
-head_f_i                equ [ebp+32]
+head_f_l__                equ [ebp+20]
-adr_load_lib            equ dword [ebp+36]
+my_import               equ [ebp+24]
-status_lib              equ dword [ebp+40]
+err_message_import__      equ [ebp+28]
 head_f_i__                equ [ebp+32]
-;        show_error_window  err_message_found_lib, head_f_l    ;show error message /create window
+adr_load_lib            equ dword [ebp+36]
-;        int 0x40
+status_lib              equ dword [ebp+40]
         mov     ebp,_start
         mov     ecx,((_end-_start)/ll_struc_size)
 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            ; ñîçäàåì íîâûé ïîòîê ïî øàáëîíó
+        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]
+library_name__            equ [ebp]
-cur_dir_path            equ [ebp+4]
+cur_dir_path__            equ [ebp+4]
-library_path            equ [ebp+8]
+library_path__            equ [ebp+8]
-system_path             equ [ebp+12]
+system_path__             equ [ebp+12]
-err_message_found_lib   equ [ebp+16]
+err_message_found_lib__   equ [ebp+16]
-head_f_l                equ [ebp+20]
+head_f_l__                equ [ebp+20]
 my_import               equ [ebp+24]
-err_message_import      equ [ebp+28]
+err_message_import__      equ [ebp+28]
-head_f_i                equ [ebp+32]
+head_f_i__                equ [ebp+32]
 adr_load_lib            equ dword [ebp+36]
 status_lib              equ dword [ebp+40]
         mov     ebp,_start
         mov     ecx,((_end-_start)/ll_struc_size)
 align 4
 lp:     push    ecx
-        copy_path    library_name, cur_dir_path, library_path   ;the macros making way /current pach a program/+ name system library
+        copy_path    library_name__, cur_dir_path__, library_path__   ;the macros making way /current pach a program/+ name system library
-        mcall   68,19,library_path  ; load of alternative
+        mcall   68,19,library_path__  ; load of alternative
         test    eax,eax
         jnz     end_steep
-        mcall   68,19,system_path   ; load of sys directory
+        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
+        show_error_window  err_message_found_lib__, head_f_l__    ;show error message /create window
 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            ; ñîçäàåì íîâûé ïîòîê ïî øàáëîíó
+        or      eax,-1
+        jmp     exit_lp2
+@@:
+        add     ebp,ll_struc_size
+        dec     ecx
+        jnz     lp2
+exit_lp2:
+}
         call    show_err_
+        add     esp,8
-        add     esp,8
+        popad   ;restore all registers
-        popad   ;restore all registers
+        or      eax,-1  ;óâû
+}
-macro import_boxlib myimport, err_message_import, head_f_i
+macro import_boxlib myimport, err_message_import__, head_f_i__
+{
         mov     [esi-4], eax
         pop     edx
         jmp     import_loop
 import_not_found:
         add     esp,4
-        show_error_window  err_message_import, head_f_i    ;show error message /create window
+        show_error_window  err_message_import__, head_f_i__    ;show error message /create window
         jmp     e.exit
 import_done:
         xor     eax,eax
 e.exit:
 ;---------------------------------------------------------------------
+}
-ll_struc_size = 44;($-library_name)    ; constant   size of struct
+ll_struc_size = 44;($-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; struct for loading libraries
+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__; 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__        ; óêàçàòåëü íà áóôåð â êîòîðîì áóäåò ñîôîðèìèðîâàí ïóòü ê áèáëèîòåêè, åñëè íóæíî âû÷èñëèòü ïóòü äî ëèáû ñ ìåñòà çàïóñêà ïðîãðàììû, îáû÷íî íóæíî, â ñëó÷àÿõ, åñëè ëèáà ðàñïîëîæåíà â òîé æå ïàïêå
-.system_path             dd system_path
+.complete_path          dd system_path__         ; ïóòü êîòîðûé ÷åòêî ñîäåðæèò ïóòü
-.err_message_found_lib   dd err_message_found_lib
+.err_message_found_lib__  dd err_message_found_lib__
-.head_f_l                dd head_f_l
+.head_f_l__               dd head_f_l__
-.my_import               dd my_import
+.my_import              dd my_import
-.err_message_import      dd err_message_import
+.err_message_import__     dd err_message_import__
-.head_f_i                dd head_f_i
+.head_f_i__               dd head_f_i__
-.adr_load_lib            dd 0x0
+.adr_load_lib           dd 0x0
-.status_lib              dd 0x0          ;status of load library
+.status_lib             dd 0x0          ;status of load library
+;
+}

Subversion Repositories Kolibri OS

(root)/programs/develop/libraries/box_lib/load_lib.mac – Rev 1108 → 1127