(define-structures
  ((ldap-generated-types ldap-generated-types-interface)
   (ldap-generated-types-internal ldap-generated-types-internal-interface))
  (open scheme
	external-calls
	define-record-types
	finite-types
	ffi-tools-rts)
  (files const-gen))

(define-structures 
  ((ldap-types			ldap-types-interface)
   (ldap-types-internals	ldap-types-internals-interface))
  (open scheme-with-scsh
	external-calls
	define-record-types
	finite-types
	ffi-tools-rts
	ldap-generated-types-internal)
  (files types))

(define-structure ldap ldap-interface
  (open scheme
	define-record-types
	primitives	
	external-calls
	fluids let-opt
	srfi-13 srfi-34 srfi-35
	ffi-tools-rts

	i/o signals ; remove me
	value-weak-table
	ldap-types-internals
	ldap-conditions)
  (files ldap))

(define-structure ldap-conditions ldap-conditions-interface
  (open scheme
	srfi-34 srfi-35
	ldap-types)
  (files conditions))

(define-structure value-weak-table value-weak-table-interface
  (open scheme
	srfi-9
	tables weak)
  (files weak-table))