Rev 6495 | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 6448 | punk_joker | 1 | format coff |
| 2 | use32 ; Tell compiler to use 32 bit instructions |
||
| 3 | |||
| 4 | section '.flat' code ; Keep this line before includes or GCC messes up call addresses |
||
| 5 | |||
| 6 | ;include 'struct.inc' |
||
| 7 | include '../../../programs/proc32.inc' |
||
| 8 | include '../../../programs/macros.inc' |
||
| 9 | purge section,mov,add,sub |
||
| 10 | |||
| 11 | include '../../../programs/dll.inc' |
||
| 12 | |||
| 6495 | punk_joker | 13 | public init_libini as '_kolibri_libini_init' |
| 6448 | punk_joker | 14 | |
| 15 | ;;; Returns 0 on success. -1 on failure. |
||
| 16 | |||
| 17 | proc init_libini |
||
| 6535 | siemargl | 18 | pusha |
| 6448 | punk_joker | 19 | mcall 68,11 |
| 20 | stdcall dll.Load, @IMPORT |
||
| 6535 | siemargl | 21 | popa |
| 6448 | punk_joker | 22 | ret |
| 23 | endp |
||
| 24 | |||
| 25 | @IMPORT: |
||
| 26 | |||
| 27 | library lib_libini, 'libini.obj' |
||
| 28 | |||
| 29 | import lib_libini, \ |
||
| 30 | LIBINI_enum_sections , 'ini_enum_sections' , \ |
||
| 31 | LIBINI_enum_keys , 'ini_enum_keys' , \ |
||
| 32 | LIBINI_get_str , 'ini_get_str' , \ |
||
| 33 | LIBINI_get_int , 'ini_get_int' , \ |
||
| 34 | LIBINI_get_color , 'int_get_color' , \ |
||
| 6452 | punk_joker | 35 | LIBINI_get_shortcut , 'int_get_shortcut' , \ |
| 6448 | punk_joker | 36 | LIBINI_set_str , 'ini_set_str' , \ |
| 6452 | punk_joker | 37 | LIBINI_set_int , 'ini_set_int' , \ |
| 38 | LIBINI_set_color , 'ini_set_color' |
||
| 6448 | punk_joker | 39 | |
| 40 | public LIBINI_enum_sections as '_LIBINI_enum_sections' |
||
| 41 | public LIBINI_enum_keys as '_LIBINI_enum_keys' |
||
| 42 | public LIBINI_get_str as '_LIBINI_get_str' |
||
| 43 | public LIBINI_get_int as '_LIBINI_get_int' |
||
| 44 | public LIBINI_get_color as '_LIBINI_get_color' |
||
| 45 | public LIBINI_set_str as '_LIBINI_set_str' |
||
| 46 | public LIBINI_set_int as '_LIBINI_set_int' |