format coff
use32                                   ; Tell compiler to use 32 bit instructions

section '.init' code			; Keep this line before includes or GCC messes up call addresses

include 'proc32.inc'
include 'macros.inc'
purge section,mov,add,sub
	
include 'dll.inc'
	
public init_proclib as '_init_proclib_asm'
;;; Returns 0 on success. -1 on failure.

proc init_proclib
	
	mcall 68,11
	
	stdcall dll.Load, @IMPORT
        test    eax, eax
        jnz     error
	
	mov eax, 0
	ret
	
error:	
	mov eax, -1
	ret
endp	

@IMPORT:
library lib_boxlib, 	'proc_lib.obj'

import lib_boxlib, \
	OpenDialog_init, 'OpenDialog_init' , \
	OpenDialog_start, 'OpenDialog_start' , \
	ColorDialog_init, 'ColorDialog_init' , \
	ColorDialog_start, 'ColorDialog_start'
	
public OpenDialog_init as '_OpenDialog_init'
public OpenDialog_start as '_OpenDialog_start'

public ColorDialog_init as '_ColorDialog_init'
public ColorDialog_start as '_ColorDialog_start'