Rev 6494 | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 6494 | 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 | |||
| 13 | public init_rasterworks as '_kolibri_rasterworks_init' |
||
| 14 | |||
| 15 | ;;; Returns 0 on success. -1 on failure. |
||
| 16 | |||
| 17 | proc init_rasterworks |
||
| 6535 | siemargl | 18 | pusha |
| 6494 | punk_joker | 19 | mcall 68,11 |
| 20 | stdcall dll.Load, @IMPORT |
||
| 6535 | siemargl | 21 | popa |
| 6494 | punk_joker | 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' |