-
- (defclass dimension-data (struct)
- ((width
- :allocation :alien
- :initarg :width
- :accessor dimension-data-width
- :type int)
- (height
- :allocation :alien
- :initarg :height
- :accessor dimension-data-height
- :type int)
- (em
- :allocation :alien
- :initarg :em
- :accessor dimension-data-em
- :type double-float)
- (ex
- :allocation :alien
- :initarg :ex
- :accessor dimension-data-ex
- :type double-float))
- (:metaclass struct-class))
-
-
- (defclass handle (proxy)
- ((base-uri
- :allocation :virtual
- :getter "rsvg_handle_get_base_uri"
- :setter "rsvg_handle_set_base_uri"
- :accessor handle-base-uri
- :type string)
- (dimensions
- :allocation :virtual
- :getter handle-get-dimensions
- :reader handle-dimensions
- :type dimension-data)
- (title
- :allocation :virtual
- :getter "rsvg_handle_get_title"
- :reader handle-title
- :type string)
- (description
- :allocation :virtual
- :getter "rsvg_handle_get_desc"
- :reader handle-description
- :type string)
- (metadata
- :allocation :virtual
- :getter "rsvg_handle_get_metadata"
- :reader handle-metadata
- :type string))
- (:metaclass proxy-class))
-
-)
+ (init-types-in-library
+ #.(concatenate 'string (pkg-config:pkg-variable "librsvg-2.0" "libdir")
+ "/librsvg-2.so") :prefix "rsvg_")
+
+(define-types-by-introspection "Rsvg"
+ ("RsvgError" :ignore t)))
+