diff --git a/programs/system/eskin/eskin.asm b/programs/system/eskin/eskin.asm index b173837e8..076f6de17 100644 --- a/programs/system/eskin/eskin.asm +++ b/programs/system/eskin/eskin.asm @@ -1 +1,117 @@ - use32 org 0x0 db 'MENUET01' ; 8 byte id dd 38 ; required os dd STARTAPP ; program start dd I_END ; program image size dd 0x1000000 ; required amount of memory dd 0x1000000 ; stack heap dd 0x0 dd 0x0 include '../../../proc32.inc' include '../../../macros.inc' include '../../../dll.inc' PATH_MAX equ 255 STARTAPP: ; Initialize heap mcall 68, 11 ; Import libraries stdcall dll.Load,importTable ; Set button style: flat or gradient (3D) invoke ini_get_int, aIni, aSection, aButtonStyle, 0 mov ecx, eax mcall 48, 1 ; Set desktop background invoke ini_get_str, aIni, aSection, aBgProgram, sz_app, PATH_MAX, 0 invoke ini_get_str, aIni, aSection, aBgParam, sz_param, PATH_MAX, 0 cmp byte[sz_param], '\' ;detecting KIV param like '\S__/path/to/img' jne @f m2m dword [ReadFile.path], sz_param+4 call check_file_exists @@: mcall 70, RunApp ; Set system skin invoke ini_get_str, aIni, aSection, aSkinPath, sz_param, PATH_MAX, 0 cmp byte [sz_param], 0 ;no need to set skin if it was not specified je @f m2m dword [ReadFile.path], sz_param call check_file_exists mcall 48, 8, sz_param @@: ; Exit app mcall -1 ;---------------------------------------------------------------- ; This is fix for files located at /kolibrios and /usbhd drives ; It checks is the file exists for 5 times with perioud 1 second check_file_exists: mov edi, 0 @@: mcall 70, ReadFile cmp eax,0 je .exit mcall 5, 100 inc edi cmp edi, 5 jle @b .exit: ret ;---------------------------------------------------------------- importTable: library \ libini, 'libini.obj' import libini, \ ini_get_str ,'ini_get_str', \ ini_get_int ,'ini_get_int' RunApp: dd 7 ; subfunction number dd 0 ; position in the file in bytes dd sz_param ; upper part of the position address dd 0 ; number of bytes to read dd 0 ; pointer to the buffer to write data db 0 dd sz_app ; pointer to the filename ReadFile: dd 0 ; subfunction number dd 0 ; position in the file in bytes dd 0 ; upper part of the position address dd 4 ; number of bytes to read dd buf ; pointer to the buffer to write data db 0 .path dd ? ; pointer to the filename buf rb 4 aIni db '/sys/settings/system.ini',0 aSection db 'style',0 aBgProgram db 'bg_program',0 aBgParam db 'bg_param',0 aButtonStyle db 'buttons_gradient',0 aSkinPath db 'skin',0 sz_app: rb PATH_MAX sz_param: rb PATH_MAX I_END: ; End of application code and data marker \ No newline at end of file +; SPDX-License-Identifier: NOASSERTION +; + +use32 + org 0x0 + + db 'MENUET01' ; 8 byte id + dd 38 ; required os + dd STARTAPP ; program start + dd I_END ; program image size + dd 0x1000000 ; required amount of memory + dd 0x1000000 ; stack heap + dd 0x0 + dd 0x0 + +include '../../proc32.inc' +include '../../macros.inc' +include '../../dll.inc' + + +PATH_MAX equ 255 + +STARTAPP: + ; Initialize heap + mcall 68, 11 + ; Import libraries + stdcall dll.Load,importTable + + ; Set button style: flat or gradient (3D) + invoke ini_get_int, aIni, aSection, aButtonStyle, 0 + mov ecx, eax + mcall 48, 1 + + ; Set desktop background + invoke ini_get_str, aIni, aSection, aBgProgram, sz_app, PATH_MAX, 0 + invoke ini_get_str, aIni, aSection, aBgParam, sz_param, PATH_MAX, 0 + + cmp byte[sz_param], '\' ;detecting KIV param like '\S__/path/to/img' + jne @f + + m2m dword [ReadFile.path], sz_param+4 + call check_file_exists + +@@: + mcall 70, RunApp + + ; Set system skin + invoke ini_get_str, aIni, aSection, aSkinPath, sz_param, PATH_MAX, 0 + cmp byte [sz_param], 0 ;no need to set skin if it was not specified + je @f + + m2m dword [ReadFile.path], sz_param + call check_file_exists + + mcall 48, 8, sz_param +@@: + ; Exit app + mcall -1 + +;---------------------------------------------------------------- +; This is fix for files located at /kolibrios and /usbhd drives +; It checks is the file exists for 5 times with period 1 second +check_file_exists: + mov edi, 0 +@@: + mcall 70, ReadFile + cmp eax,0 + je .exit + mcall 5, 100 + inc edi + cmp edi, 5 + jle @b +.exit: + ret +;---------------------------------------------------------------- + +importTable: +library \ + libini, 'libini.obj' + +import libini, \ + ini_get_str ,'ini_get_str', \ + ini_get_int ,'ini_get_int' + +RunApp: + dd 7 ; subfunction number + dd 0 ; position in the file in bytes + dd sz_param ; upper part of the position address + dd 0 ; number of bytes to read + dd 0 ; pointer to the buffer to write data + db 0 + dd sz_app ; pointer to the filename + +ReadFile: + dd 0 ; subfunction number + dd 0 ; position in the file in bytes + dd 0 ; upper part of the position address + dd 4 ; number of bytes to read + dd buf ; pointer to the buffer to write data + db 0 +.path dd ? ; pointer to the filename +buf rb 4 + +aIni db '/sys/settings/system.ini',0 +aSection db 'style',0 + +aBgProgram db 'bg_program',0 +aBgParam db 'bg_param',0 +aButtonStyle db 'buttons_gradient',0 +aSkinPath db 'skin',0 + +sz_app: + rb PATH_MAX +sz_param: + rb PATH_MAX + +I_END: ; End of application code and data marker