Subversion Repositories Kolibri OS

Rev

Rev 6452 | Rev 6495 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  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.        
  13. public init_libini as '_init_libini_asm'
  14.        
  15. ;;; Returns 0 on success. -1 on failure.
  16.  
  17. proc init_libini
  18.        
  19.         mcall 68,11
  20.        
  21.         stdcall dll.Load, @IMPORT
  22.         test    eax, eax
  23.         jnz     error
  24.        
  25.         mov eax, 0
  26.         ret
  27.        
  28. error: 
  29.         mov eax, -1
  30.         ret
  31. endp   
  32.        
  33. @IMPORT:
  34.  
  35. library lib_libini,               'libini.obj'
  36.  
  37. import  lib_libini, \
  38.                 LIBINI_enum_sections           , 'ini_enum_sections'    , \
  39.         LIBINI_enum_keys               , 'ini_enum_keys'        , \
  40.         LIBINI_get_str                 , 'ini_get_str'          , \
  41.         LIBINI_get_int                             , 'ini_get_int'              , \
  42.         LIBINI_get_color               , 'int_get_color'        , \
  43.         LIBINI_get_shortcut            , 'int_get_shortcut'     , \
  44.         LIBINI_set_str                     , 'ini_set_str'          , \
  45.         LIBINI_set_int                     , 'ini_set_int'          , \          
  46.         LIBINI_set_color                   , 'ini_set_color'
  47.        
  48. public LIBINI_enum_sections         as  '_LIBINI_enum_sections'
  49. public LIBINI_enum_keys             as  '_LIBINI_enum_keys'    
  50. public LIBINI_get_str               as  '_LIBINI_get_str'      
  51. public LIBINI_get_int                       as  '_LIBINI_get_int'              
  52. public LIBINI_get_color             as  '_LIBINI_get_color'    
  53. public LIBINI_set_str                   as  '_LIBINI_set_str'      
  54. public LIBINI_set_int                   as  '_LIBINI_set_int'      
  55.