Subversion Repositories Kolibri OS

Rev

Rev 6494 | 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_rasterworks as '_kolibri_rasterworks_init'
  14.        
  15. ;;; Returns 0 on success. -1 on failure.
  16.  
  17. proc init_rasterworks
  18.         pusha
  19.         mcall 68,11
  20.         stdcall dll.Load, @IMPORT
  21.         popa
  22.         ret
  23. endp   
  24.        
  25. @IMPORT:
  26.  
  27. library lib_rasterworks,     'rasterworks.obj'
  28.  
  29. import  lib_rasterworks, \
  30.                 drawText           , 'drawText'    , \
  31.         countUTF8Z         , 'cntUTF-8'    , \
  32.                 charsFit           , 'charsFit'    , \
  33.                 strWidth           , 'strWidth'
  34.  
  35. public drawText         as  '_drawText'
  36. public countUTF8Z       as  '_countUTF8Z'
  37. public charsFit         as  '_charsFit'
  38. public strWidth         as  '_strWidth'
  39.