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
 ;aEdit_box_mouse db 'edit_box_mouse',0
 ;aVersion_ed     db 'version_ed',0
-macro @use_library
+macro @use_library mem_alloc,mem_free,mem_realloc,dll_load
+{
 local lp1
 local lp2
 local lp3
 local lp4
+local lp5
+local lp6
-local lp5
+local file_name
-local lp6
+library_fun_memory_alloc equ mem_alloc
-local file_name
+library_fun_memory_free equ mem_free
 library_fun_memory_realloc equ mem_realloc
+}
 ;---------------------------------------------------------------------
 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
+@use_library mem_alloc,mem_free,mem_realloc,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__
 	mcall	68,19,system_path__   ; load of sys directory
 	test	eax,eax
 	jnz		i_begin
 if point_dir_name__ eq
-		copy_path   library_name__, cur_dir_path__, library_path__,0
+		copy_path   library_name__, [32], library_path__,0
 else
 		;the macros making way /current path a program/ + name system library
-		copy_path   library_name__, cur_dir_path__, library_path__,point_dir_name__
+		copy_path   library_name__, [32], library_path__,point_dir_name__
 end if
 		mcall	68,19,library_path__ ; load of alternative
 		test	eax,eax
 		jnz		i_begin
 local i_begin
 local i_error
 local i_exit
 if point_dir_name__ eq
-		copy_path   library_name__, cur_dir_path__, library_path__,0
+		copy_path   library_name__, [32], library_path__,0
 else
 		;the macros making way /current path a program/ + name system library
-		copy_path   library_name__, cur_dir_path__, library_path__,point_dir_name__
+		copy_path   library_name__, [32], library_path__,point_dir_name__
 end if
 		mcall	68,19,library_path__ ; load of alternative
 		test	eax,eax
 local cycle1
 local cycle1n
 local cycle1e
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 library_name__            equ [ebp]
-cur_dir_path__            equ [ebp+4]
-library_path__            equ [ebp+8]
+library_path__            equ [ebp+4]
-system_path__             equ [ebp+12]
+system_path__             equ [ebp+8]
-err_message_found_lib__   equ [ebp+16]
+err_message_found_lib__   equ [ebp+12]
-head_f_l__                equ [ebp+20]
+head_f_l__                equ [ebp+16]
-my_import                 equ [ebp+24]
+my_import                 equ [ebp+20]
-err_message_import__      equ [ebp+28]
+err_message_import__      equ [ebp+24]
-head_f_i__                equ [ebp+32]
+head_f_i__                equ [ebp+28]
-point_dir_name__          equ [ebp+36]
+point_dir_name__          equ [ebp+32]
-adr_load_lib              equ dword [ebp+40]
+adr_load_lib              equ dword [ebp+36]
-status_lib                equ dword [ebp+44]
+status_lib                equ dword [ebp+40]
 	mov	ebp,_start
 	mov	ecx,(_end-_start)/ll_struc_size
 align 4
         mcall   68,19,system_path__   ; load of sys directory
         test    eax,eax
         jnz     end_steep
         ;the macros making way /current path a program/ + name system library
-		copy_path  library_name__, cur_dir_path__, library_path__,point_dir_name__
+		copy_path  library_name__, [32], library_path__,point_dir_name__
         mcall   68,19,library_path__ ; load of alternative
         test    eax,eax
 local cycle1
 local cycle1n
 local cycle1e
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 library_name__            equ [ebp]
-cur_dir_path__            equ [ebp+4]
-library_path__            equ [ebp+8]
+library_path__            equ [ebp+4]
-system_path__             equ [ebp+12]
+system_path__             equ [ebp+8]
-err_message_found_lib__   equ [ebp+16]
+err_message_found_lib__   equ [ebp+12]
-head_f_l__                equ [ebp+20]
+head_f_l__                equ [ebp+16]
-my_import                 equ [ebp+24]
+my_import                 equ [ebp+20]
-err_message_import__      equ [ebp+28]
+err_message_import__      equ [ebp+24]
-head_f_i__                equ [ebp+32]
+head_f_i__                equ [ebp+28]
-point_dir_name__          equ [ebp+36]
+point_dir_name__          equ [ebp+32]
-adr_load_lib              equ dword [ebp+40]
+adr_load_lib              equ dword [ebp+36]
-status_lib                equ dword [ebp+44]
+status_lib                equ dword [ebp+40]
 	mov	ebp,_start
 	mov	ecx,(_end-_start)/ll_struc_size
 align 4
 	cycle0:
 		push	ecx
 		;the macros making way /current path a program/ + name system library
-		copy_path    library_name__, cur_dir_path__, library_path__,point_dir_name__
+		copy_path    library_name__, [32], library_path__,point_dir_name__
         pop     ebx ;¢®áâ  ¢«¨¢ ¥¬ ãª § â¥«ì   ¨¬ï äãªæ¨¨ (ª®â®àë© ¡ë« ¢ eax) ¨ ®á¢®¡®¦¤ ¥¬ áâ¥ª
         mov     eax, [edx+4] ;eax = ãª § â¥«ì   äãªæ¨î (¢ ¡¨¡«¨®â¥ª¥)
         mov     [esi-4], eax ;ª®¯¨àã¥¬ ãª § â¥«ì (  äãªæ¨î) ¢ ¯à®£à ¬¬ã, -4 áâ ¢¨¬ ¯®â®¬ã çâ® esi ¡ë«® á¤¢¨ãâ® ª®¬ ¤®© lodsd
         pop     edx ;ãáâ  ¢«¨¢ ¥¬ edx    ç «® ¡¨¡«¨®â¥çëå äãªæ¨©
 ;--- ¯à®¢¥àï¥¬ á®¢¯ ¤ ¥â «¨ ¨¬ï íªá¯®àâ¨à®¢ ®© äãªæ¨¨ á 'lib_init'
-if library_fun_memory_alloc eq 0
+if library_fun_memory_alloc eq
 else
 		cmp dword[ebx],'lib_'
 		jne		import_loop
 		cmp dword[ebx+4],'init'
 		jne		import_loop
         xor     eax,eax ;=0 ¢á¥ § £àã§¨«®áì ã¤ ç®
 exit:
+}
 ;---------------------------------------------------------------------
-ll_struc_size = 48;($-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__,point_dir_name; struct for loading libraries
+{
-.library_name__           dd library_name__        ; ¨¬ï § £àã¦ ¥¬®© ¡¨¡«¨®â¥ª¨
-.cur_dir_path__           dd cur_dir_path__        ; ãª § â¥«ì   ¡ãä¥à ¢ ª®â®à®¬ á®¤¥à¦¨âìáï ¯ãâì ®â ªã¤  ¡ë«  § ¯ãé¥  ¯à®£à ¬¬
+.library_name__           dd library_name__        ; ¨¬ï § £àã¦ ¥¬®© ¡¨¡«¨®â¥ª¨
 .library_path__           dd library_path__        ; ãª § â¥«ì   ¡ãä¥à ¢ ª®â®à®¬ ¡ã¤¥â á®ä®à¨¬¨à®¢  ¯ãâì ª ¡¨¡«¨®â¥ª¨, ¥á«¨ ã¦® ¢ëç¨á«¨âì ¯ãâì ¤® «¨¡ë á ¬¥áâ  § ¯ãáª  ¯à®£à ¬¬ë, ®¡ëç® ã¦®, ¢ á«ãç ïå, ¥á«¨ «¨¡  à á¯®«®¦¥  ¢ â®© ¦¥ ¯ ¯ª¥

Subversion Repositories Kolibri OS

(root)/programs/develop/libraries/box_lib/load_lib.mac – Rev 8088 → 8219