Remove unused libgettextpo ffi-help files.

libgettextpo is slower than plain setlocale and thus no longer used
since commit 0de6f78.

2 files changed, 0 insertions, 931 deletions

diff --git a/gettext-po.ffi b/gettext-po.ffi
deleted file mode 100644
index 55962b7..0000000
--- a/gettext-po.ffi
+++ /dev/null
@@ -1,4 +0,0 @@
-(define-ffi-module (gettext-po)
-  #:include '("gettext-po.h")
-  #:library '("libgettextpo"))
-
diff --git a/gettext-po.scm b/gettext-po.scm
deleted file mode 100644
index 590d77c..0000000
--- a/gettext-po.scm
+++ /dev/null
@@ -1,927 +0,0 @@
-;; generated with `guild compile-ffi gettext-po.ffi'
-
-(define-module (gettext-po)
-  #:use-module (system ffi-help-rt)
-  #:use-module ((system foreign) #:prefix ffi:)
-  #:use-module (bytestructures guile)
-  )
-(define link-lib (dynamic-link "libgettextpo"))
-
-;; extern int libgettextpo_version;
-(define libgettextpo_version
-  (let* ((addr #f)
-         (memoize-addr
-           (lambda ()
-             (unless
-               addr
-               (set! addr
-                 (make-bytestructure
-                   (ffi:pointer->bytevector
-                     (dynamic-pointer
-                       "libgettextpo_version"
-                       (dynamic-link))
-                     (ffi:sizeof '*))
-                   0
-                   (bs:pointer int)))))))
-    (case-lambda
-      (() (memoize-addr) (bytestructure-ref addr '*)))))
-(export libgettextpo_version)
-
-;; typedef struct po_file *po_file_t;
-(define-public po_file_t-desc (bs:pointer 'void))
-(define-fh-pointer-type po_file_t po_file_t-desc po_file_t? make-po_file_t)
-(export po_file_t po_file_t? make-po_file_t)
-
-;; typedef struct po_message_iterator *po_message_iterator_t;
-(define-public po_message_iterator_t-desc (bs:pointer 'void))
-(define-fh-pointer-type po_message_iterator_t po_message_iterator_t-desc 
- po_message_iterator_t? make-po_message_iterator_t)
-(export po_message_iterator_t po_message_iterator_t? 
- make-po_message_iterator_t)
-
-;; typedef struct po_message *po_message_t;
-(define-public po_message_t-desc (bs:pointer 'void))
-(define-fh-pointer-type po_message_t po_message_t-desc po_message_t? 
- make-po_message_t)
-(export po_message_t po_message_t? make-po_message_t)
-
-;; typedef struct po_filepos *po_filepos_t;
-(define-public po_filepos_t-desc (bs:pointer 'void))
-(define-fh-pointer-type po_filepos_t po_filepos_t-desc po_filepos_t? 
- make-po_filepos_t)
-(export po_filepos_t po_filepos_t? make-po_filepos_t)
-
-;; struct po_error_handler {
-;;   /* Signal an error.  The error message is built from FORMAT and the following
-;;       
-;;      arguments.  ERRNUM, if nonzero, is an errno value.
-;;      Must increment the error_message_count variable declared in error.h.
-;;      Must not return if STATUS is nonzero.  */
-;;   void (*error)(int status, int errnum, const char *format, ...);
-;;   /* Signal an error.  The error message is built from FORMAT and the following
-;;       
-;;      arguments.  The error location is at FILENAME line LINENO. ERRNUM, if
-;;      nonzero, is an errno value.
-;;      Must increment the error_message_count variable declared in error.h.
-;;      Must not return if STATUS is nonzero.  */
-;;   void (*error_at_line)(int status, int errnum, const char *filename, 
-;;       unsigned int lineno, const char *format, ...);
-;;   /* Signal a multiline warning.  The PREFIX applies to all lines of the
-;;      MESSAGE.  Free the PREFIX and MESSAGE when done.  */
-;;   void (*multiline_warning)(char *prefix, char *message);
-;;   /* Signal a multiline error.  The PREFIX applies to all lines of the
-;;      MESSAGE.  Free the PREFIX and MESSAGE when done.
-;;      Must increment the error_message_count variable declared in error.h if
-;;      PREFIX is non-NULL.  */
-;;   void (*multiline_error)(char *prefix, char *message);
-;; };
-(define-public struct-po_error_handler-desc
-  (bs:struct
-    (list `(error ,(bs:pointer 'void))
-          `(error_at_line ,(bs:pointer 'void))
-          `(multiline_warning ,(bs:pointer 'void))
-          `(multiline_error ,(bs:pointer 'void)))))
-(define-fh-compound-type struct-po_error_handler struct-po_error_handler-desc 
- struct-po_error_handler? make-struct-po_error_handler)
-(export struct-po_error_handler struct-po_error_handler? 
- make-struct-po_error_handler)
-(define-public struct-po_error_handler*-desc
-  (bs:pointer struct-po_error_handler-desc))
-(define-fh-pointer-type struct-po_error_handler* struct-po_error_handler*-desc
- struct-po_error_handler*? make-struct-po_error_handler*)
-(export struct-po_error_handler* struct-po_error_handler*? 
- make-struct-po_error_handler*)
-(ref<->deref!
-  struct-po_error_handler*
-  make-struct-po_error_handler*
-  struct-po_error_handler
-  make-struct-po_error_handler)
-
-;; typedef const struct po_error_handler *po_error_handler_t;
-(define-public po_error_handler_t&-desc 'void)
-(define-public po_error_handler_t-desc (bs:pointer (delay po_error_handler_t&-desc)))
-(define-fh-pointer-type po_error_handler_t po_error_handler_t-desc 
- po_error_handler_t? make-po_error_handler_t)
-(export po_error_handler_t po_error_handler_t? make-po_error_handler_t)
-
-;; struct po_xerror_handler {
-;;   /* Signal a problem of the given severity.
-;;      MESSAGE and/or FILENAME + LINENO indicate where the problem occurred.
-;;      If FILENAME is NULL, FILENAME and LINENO and COLUMN should be ignored.
-;;      If LINENO is (size_t)(-1), LINENO and COLUMN should be ignored.
-;;      If COLUMN is (size_t)(-1), it should be ignored.
-;;      MESSAGE_TEXT is the problem description (if MULTILINE_P is true,
-;;      multiple lines of text, each terminated with a newline, otherwise
-;;      usually a single line).
-;;      Must not return if SEVERITY is PO_SEVERITY_FATAL_ERROR.  */
-;;   void (*xerror)(int severity, po_message_t message, const char *filename, 
-;;       size_t lineno, size_t column, int multiline_p, const char *
-;;       message_text);
-;;   /* Signal a problem that refers to two messages.
-;;      Similar to two calls to xerror.
-;;      If possible, a "..." can be appended to MESSAGE_TEXT1 and prepended to
-;;      MESSAGE_TEXT2.  */
-;;   void (*xerror2)(int severity, po_message_t message1, const char *filename1
-;;       , size_t lineno1, size_t column1, int multiline_p1, const char *
-;;       message_text1, po_message_t message2, const char *filename2, size_t 
-;;       lineno2, size_t column2, int multiline_p2, const char *message_text2)
-;;       ;
-;; };
-(define-public struct-po_xerror_handler-desc
-  (bs:struct
-    (list `(xerror ,(bs:pointer 'void))
-          `(xerror2 ,(bs:pointer 'void)))))
-(define-fh-compound-type struct-po_xerror_handler 
- struct-po_xerror_handler-desc struct-po_xerror_handler? 
- make-struct-po_xerror_handler)
-(export struct-po_xerror_handler struct-po_xerror_handler? 
- make-struct-po_xerror_handler)
-(define-public struct-po_xerror_handler*-desc
-  (bs:pointer struct-po_xerror_handler-desc))
-(define-fh-pointer-type struct-po_xerror_handler* 
- struct-po_xerror_handler*-desc struct-po_xerror_handler*? 
- make-struct-po_xerror_handler*)
-(export struct-po_xerror_handler* struct-po_xerror_handler*? 
- make-struct-po_xerror_handler*)
-(ref<->deref!
-  struct-po_xerror_handler*
-  make-struct-po_xerror_handler*
-  struct-po_xerror_handler
-  make-struct-po_xerror_handler)
-
-;; typedef const struct po_xerror_handler *po_xerror_handler_t;
-(define-public po_xerror_handler_t&-desc 'void)
-(define-public po_xerror_handler_t-desc (bs:pointer (delay po_xerror_handler_t&-desc)))
-(define-fh-pointer-type po_xerror_handler_t po_xerror_handler_t-desc 
- po_xerror_handler_t? make-po_xerror_handler_t)
-(export po_xerror_handler_t po_xerror_handler_t? make-po_xerror_handler_t)
-
-;; extern po_file_t po_file_create(void);
-(define ~po_file_create
-  (delay (fh-link-proc
-           ffi-void*
-           "po_file_create"
-           (list)
-           link-lib)))
-(define (po_file_create)
-  (let ()
-    ((fht-wrap po_file_t) ((force ~po_file_create)))))
-(export po_file_create)
-
-;; extern po_file_t po_file_read_v3(const char *filename, po_xerror_handler_t 
-;;     handler);
-(define ~po_file_read_v3
-  (delay (fh-link-proc
-           ffi-void*
-           "po_file_read_v3"
-           (list ffi-void* ffi-void*)
-           link-lib)))
-(define (po_file_read_v3 filename handler)
-  (let ((~filename (unwrap~pointer filename))
-        (~handler
-          ((fht-unwrap po_xerror_handler_t) handler)))
-    ((fht-wrap po_file_t)
-     ((force ~po_file_read_v3) ~filename ~handler))))
-(export po_file_read_v3)
-
-;; extern po_file_t po_file_write_v2(po_file_t file, const char *filename, 
-;;     po_xerror_handler_t handler);
-(define ~po_file_write_v2
-  (delay (fh-link-proc
-           ffi-void*
-           "po_file_write_v2"
-           (list ffi-void* ffi-void* ffi-void*)
-           link-lib)))
-(define (po_file_write_v2 file filename handler)
-  (let ((~file ((fht-unwrap po_file_t) file))
-        (~filename (unwrap~pointer filename))
-        (~handler
-          ((fht-unwrap po_xerror_handler_t) handler)))
-    ((fht-wrap po_file_t)
-     ((force ~po_file_write_v2)
-      ~file
-      ~filename
-      ~handler))))
-(export po_file_write_v2)
-
-;; extern void po_file_free(po_file_t file);
-(define ~po_file_free
-  (delay (fh-link-proc
-           ffi:void
-           "po_file_free"
-           (list ffi-void*)
-           link-lib)))
-(define (po_file_free file)
-  (let ((~file ((fht-unwrap po_file_t) file)))
-    ((force ~po_file_free) ~file)))
-(export po_file_free)
-
-;; extern const char *const*po_file_domains(po_file_t file);
-(define ~po_file_domains
-  (delay (fh-link-proc
-           ffi-void*
-           "po_file_domains"
-           (list ffi-void*)
-           link-lib)))
-(define (po_file_domains file)
-  (let ((~file ((fht-unwrap po_file_t) file)))
-    ((force ~po_file_domains) ~file)))
-(export po_file_domains)
-
-;; extern const char *po_file_domain_header(po_file_t file, const char *domain)
-;;     ;
-(define ~po_file_domain_header
-  (delay (fh-link-proc
-           ffi-void*
-           "po_file_domain_header"
-           (list ffi-void* ffi-void*)
-           link-lib)))
-(define (po_file_domain_header file domain)
-  (let ((~file ((fht-unwrap po_file_t) file))
-        (~domain (unwrap~pointer domain)))
-    ((force ~po_file_domain_header) ~file ~domain)))
-(export po_file_domain_header)
-
-;; extern char *po_header_field(const char *header, const char *field);
-(define ~po_header_field
-  (delay (fh-link-proc
-           ffi-void*
-           "po_header_field"
-           (list ffi-void* ffi-void*)
-           link-lib)))
-(define (po_header_field header field)
-  (let ((~header (unwrap~pointer header))
-        (~field (unwrap~pointer field)))
-    ((force ~po_header_field) ~header ~field)))
-(export po_header_field)
-
-;; extern char *po_header_set_field(const char *header, const char *field, 
-;;     const char *value);
-(define ~po_header_set_field
-  (delay (fh-link-proc
-           ffi-void*
-           "po_header_set_field"
-           (list ffi-void* ffi-void* ffi-void*)
-           link-lib)))
-(define (po_header_set_field header field value)
-  (let ((~header (unwrap~pointer header))
-        (~field (unwrap~pointer field))
-        (~value (unwrap~pointer value)))
-    ((force ~po_header_set_field)
-     ~header
-     ~field
-     ~value)))
-(export po_header_set_field)
-
-;; extern po_message_iterator_t po_message_iterator(po_file_t file, const char 
-;;     *domain);
-(define ~po_message_iterator
-  (delay (fh-link-proc
-           ffi-void*
-           "po_message_iterator"
-           (list ffi-void* ffi-void*)
-           link-lib)))
-(define (po_message_iterator file domain)
-  (let ((~file ((fht-unwrap po_file_t) file))
-        (~domain (unwrap~pointer domain)))
-    ((fht-wrap po_message_iterator_t)
-     ((force ~po_message_iterator) ~file ~domain))))
-(export po_message_iterator)
-
-;; extern void po_message_iterator_free(po_message_iterator_t iterator);
-(define ~po_message_iterator_free
-  (delay (fh-link-proc
-           ffi:void
-           "po_message_iterator_free"
-           (list ffi-void*)
-           link-lib)))
-(define (po_message_iterator_free iterator)
-  (let ((~iterator
-          ((fht-unwrap po_message_iterator_t) iterator)))
-    ((force ~po_message_iterator_free) ~iterator)))
-(export po_message_iterator_free)
-
-;; extern po_message_t po_next_message(po_message_iterator_t iterator);
-(define ~po_next_message
-  (delay (fh-link-proc
-           ffi-void*
-           "po_next_message"
-           (list ffi-void*)
-           link-lib)))
-(define (po_next_message iterator)
-  (let ((~iterator
-          ((fht-unwrap po_message_iterator_t) iterator)))
-    ((fht-wrap po_message_t)
-     ((force ~po_next_message) ~iterator))))
-(export po_next_message)
-
-;; extern void po_message_insert(po_message_iterator_t iterator, po_message_t 
-;;     message);
-(define ~po_message_insert
-  (delay (fh-link-proc
-           ffi:void
-           "po_message_insert"
-           (list ffi-void* ffi-void*)
-           link-lib)))
-(define (po_message_insert iterator message)
-  (let ((~iterator
-          ((fht-unwrap po_message_iterator_t) iterator))
-        (~message ((fht-unwrap po_message_t) message)))
-    ((force ~po_message_insert) ~iterator ~message)))
-(export po_message_insert)
-
-;; extern po_message_t po_message_create(void);
-(define ~po_message_create
-  (delay (fh-link-proc
-           ffi-void*
-           "po_message_create"
-           (list)
-           link-lib)))
-(define (po_message_create)
-  (let ()
-    ((fht-wrap po_message_t)
-     ((force ~po_message_create)))))
-(export po_message_create)
-
-;; extern const char *po_message_msgctxt(po_message_t message);
-(define ~po_message_msgctxt
-  (delay (fh-link-proc
-           ffi-void*
-           "po_message_msgctxt"
-           (list ffi-void*)
-           link-lib)))
-(define (po_message_msgctxt message)
-  (let ((~message ((fht-unwrap po_message_t) message)))
-    ((force ~po_message_msgctxt) ~message)))
-(export po_message_msgctxt)
-
-;; extern void po_message_set_msgctxt(po_message_t message, const char *msgctxt
-;;     );
-(define ~po_message_set_msgctxt
-  (delay (fh-link-proc
-           ffi:void
-           "po_message_set_msgctxt"
-           (list ffi-void* ffi-void*)
-           link-lib)))
-(define (po_message_set_msgctxt message msgctxt)
-  (let ((~message ((fht-unwrap po_message_t) message))
-        (~msgctxt (unwrap~pointer msgctxt)))
-    ((force ~po_message_set_msgctxt)
-     ~message
-     ~msgctxt)))
-(export po_message_set_msgctxt)
-
-;; extern const char *po_message_msgid(po_message_t message);
-(define ~po_message_msgid
-  (delay (fh-link-proc
-           ffi-void*
-           "po_message_msgid"
-           (list ffi-void*)
-           link-lib)))
-(define (po_message_msgid message)
-  (let ((~message ((fht-unwrap po_message_t) message)))
-    ((force ~po_message_msgid) ~message)))
-(export po_message_msgid)
-
-;; extern void po_message_set_msgid(po_message_t message, const char *msgid);
-(define ~po_message_set_msgid
-  (delay (fh-link-proc
-           ffi:void
-           "po_message_set_msgid"
-           (list ffi-void* ffi-void*)
-           link-lib)))
-(define (po_message_set_msgid message msgid)
-  (let ((~message ((fht-unwrap po_message_t) message))
-        (~msgid (unwrap~pointer msgid)))
-    ((force ~po_message_set_msgid) ~message ~msgid)))
-(export po_message_set_msgid)
-
-;; extern const char *po_message_msgid_plural(po_message_t message);
-(define ~po_message_msgid_plural
-  (delay (fh-link-proc
-           ffi-void*
-           "po_message_msgid_plural"
-           (list ffi-void*)
-           link-lib)))
-(define (po_message_msgid_plural message)
-  (let ((~message ((fht-unwrap po_message_t) message)))
-    ((force ~po_message_msgid_plural) ~message)))
-(export po_message_msgid_plural)
-
-;; extern void po_message_set_msgid_plural(po_message_t message, const char *
-;;     msgid_plural);
-(define ~po_message_set_msgid_plural
-  (delay (fh-link-proc
-           ffi:void
-           "po_message_set_msgid_plural"
-           (list ffi-void* ffi-void*)
-           link-lib)))
-(define (po_message_set_msgid_plural
-         message
-         msgid_plural)
-  (let ((~message ((fht-unwrap po_message_t) message))
-        (~msgid_plural (unwrap~pointer msgid_plural)))
-    ((force ~po_message_set_msgid_plural)
-     ~message
-     ~msgid_plural)))
-(export po_message_set_msgid_plural)
-
-;; extern const char *po_message_msgstr(po_message_t message);
-(define ~po_message_msgstr
-  (delay (fh-link-proc
-           ffi-void*
-           "po_message_msgstr"
-           (list ffi-void*)
-           link-lib)))
-(define (po_message_msgstr message)
-  (let ((~message ((fht-unwrap po_message_t) message)))
-    ((force ~po_message_msgstr) ~message)))
-(export po_message_msgstr)
-
-;; extern void po_message_set_msgstr(po_message_t message, const char *msgstr)
-;;     ;
-(define ~po_message_set_msgstr
-  (delay (fh-link-proc
-           ffi:void
-           "po_message_set_msgstr"
-           (list ffi-void* ffi-void*)
-           link-lib)))
-(define (po_message_set_msgstr message msgstr)
-  (let ((~message ((fht-unwrap po_message_t) message))
-        (~msgstr (unwrap~pointer msgstr)))
-    ((force ~po_message_set_msgstr) ~message ~msgstr)))
-(export po_message_set_msgstr)
-
-;; extern const char *po_message_msgstr_plural(po_message_t message, int index)
-;;     ;
-(define ~po_message_msgstr_plural
-  (delay (fh-link-proc
-           ffi-void*
-           "po_message_msgstr_plural"
-           (list ffi-void* ffi:int)
-           link-lib)))
-(define (po_message_msgstr_plural message index)
-  (let ((~message ((fht-unwrap po_message_t) message))
-        (~index (unwrap~fixed index)))
-    ((force ~po_message_msgstr_plural)
-     ~message
-     ~index)))
-(export po_message_msgstr_plural)
-
-;; extern void po_message_set_msgstr_plural(po_message_t message, int index, 
-;;     const char *msgstr);
-(define ~po_message_set_msgstr_plural
-  (delay (fh-link-proc
-           ffi:void
-           "po_message_set_msgstr_plural"
-           (list ffi-void* ffi:int ffi-void*)
-           link-lib)))
-(define (po_message_set_msgstr_plural
-         message
-         index
-         msgstr)
-  (let ((~message ((fht-unwrap po_message_t) message))
-        (~index (unwrap~fixed index))
-        (~msgstr (unwrap~pointer msgstr)))
-    ((force ~po_message_set_msgstr_plural)
-     ~message
-     ~index
-     ~msgstr)))
-(export po_message_set_msgstr_plural)
-
-;; extern const char *po_message_comments(po_message_t message);
-(define ~po_message_comments
-  (delay (fh-link-proc
-           ffi-void*
-           "po_message_comments"
-           (list ffi-void*)
-           link-lib)))
-(define (po_message_comments message)
-  (let ((~message ((fht-unwrap po_message_t) message)))
-    ((force ~po_message_comments) ~message)))
-(export po_message_comments)
-
-;; extern void po_message_set_comments(po_message_t message, const char *
-;;     comments);
-(define ~po_message_set_comments
-  (delay (fh-link-proc
-           ffi:void
-           "po_message_set_comments"
-           (list ffi-void* ffi-void*)
-           link-lib)))
-(define (po_message_set_comments message comments)
-  (let ((~message ((fht-unwrap po_message_t) message))
-        (~comments (unwrap~pointer comments)))
-    ((force ~po_message_set_comments)
-     ~message
-     ~comments)))
-(export po_message_set_comments)
-
-;; extern const char *po_message_extracted_comments(po_message_t message);
-(define ~po_message_extracted_comments
-  (delay (fh-link-proc
-           ffi-void*
-           "po_message_extracted_comments"
-           (list ffi-void*)
-           link-lib)))
-(define (po_message_extracted_comments message)
-  (let ((~message ((fht-unwrap po_message_t) message)))
-    ((force ~po_message_extracted_comments) ~message)))
-(export po_message_extracted_comments)
-
-;; extern void po_message_set_extracted_comments(po_message_t message, const 
-;;     char *comments);
-(define ~po_message_set_extracted_comments
-  (delay (fh-link-proc
-           ffi:void
-           "po_message_set_extracted_comments"
-           (list ffi-void* ffi-void*)
-           link-lib)))
-(define (po_message_set_extracted_comments
-         message
-         comments)
-  (let ((~message ((fht-unwrap po_message_t) message))
-        (~comments (unwrap~pointer comments)))
-    ((force ~po_message_set_extracted_comments)
-     ~message
-     ~comments)))
-(export po_message_set_extracted_comments)
-
-;; extern po_filepos_t po_message_filepos(po_message_t message, int i);
-(define ~po_message_filepos
-  (delay (fh-link-proc
-           ffi-void*
-           "po_message_filepos"
-           (list ffi-void* ffi:int)
-           link-lib)))
-(define (po_message_filepos message i)
-  (let ((~message ((fht-unwrap po_message_t) message))
-        (~i (unwrap~fixed i)))
-    ((fht-wrap po_filepos_t)
-     ((force ~po_message_filepos) ~message ~i))))
-(export po_message_filepos)
-
-;; extern void po_message_remove_filepos(po_message_t message, int i);
-(define ~po_message_remove_filepos
-  (delay (fh-link-proc
-           ffi:void
-           "po_message_remove_filepos"
-           (list ffi-void* ffi:int)
-           link-lib)))
-(define (po_message_remove_filepos message i)
-  (let ((~message ((fht-unwrap po_message_t) message))
-        (~i (unwrap~fixed i)))
-    ((force ~po_message_remove_filepos) ~message ~i)))
-(export po_message_remove_filepos)
-
-;; extern void po_message_add_filepos(po_message_t message, const char *file, 
-;;     size_t start_line);
-(define ~po_message_add_filepos
-  (delay (fh-link-proc
-           ffi:void
-           "po_message_add_filepos"
-           (list ffi-void* ffi-void* ffi:size_t)
-           link-lib)))
-(define (po_message_add_filepos message file start_line)
-  (let ((~message ((fht-unwrap po_message_t) message))
-        (~file (unwrap~pointer file))
-        (~start_line (unwrap~fixed start_line)))
-    ((force ~po_message_add_filepos)
-     ~message
-     ~file
-     ~start_line)))
-(export po_message_add_filepos)
-
-;; extern const char *po_message_prev_msgctxt(po_message_t message);
-(define ~po_message_prev_msgctxt
-  (delay (fh-link-proc
-           ffi-void*
-           "po_message_prev_msgctxt"
-           (list ffi-void*)
-           link-lib)))
-(define (po_message_prev_msgctxt message)
-  (let ((~message ((fht-unwrap po_message_t) message)))
-    ((force ~po_message_prev_msgctxt) ~message)))
-(export po_message_prev_msgctxt)
-
-;; extern void po_message_set_prev_msgctxt(po_message_t message, const char *
-;;     prev_msgctxt);
-(define ~po_message_set_prev_msgctxt
-  (delay (fh-link-proc
-           ffi:void
-           "po_message_set_prev_msgctxt"
-           (list ffi-void* ffi-void*)
-           link-lib)))
-(define (po_message_set_prev_msgctxt
-         message
-         prev_msgctxt)
-  (let ((~message ((fht-unwrap po_message_t) message))
-        (~prev_msgctxt (unwrap~pointer prev_msgctxt)))
-    ((force ~po_message_set_prev_msgctxt)
-     ~message
-     ~prev_msgctxt)))
-(export po_message_set_prev_msgctxt)
-
-;; extern const char *po_message_prev_msgid(po_message_t message);
-(define ~po_message_prev_msgid
-  (delay (fh-link-proc
-           ffi-void*
-           "po_message_prev_msgid"
-           (list ffi-void*)
-           link-lib)))
-(define (po_message_prev_msgid message)
-  (let ((~message ((fht-unwrap po_message_t) message)))
-    ((force ~po_message_prev_msgid) ~message)))
-(export po_message_prev_msgid)
-
-;; extern void po_message_set_prev_msgid(po_message_t message, const char *
-;;     prev_msgid);
-(define ~po_message_set_prev_msgid
-  (delay (fh-link-proc
-           ffi:void
-           "po_message_set_prev_msgid"
-           (list ffi-void* ffi-void*)
-           link-lib)))
-(define (po_message_set_prev_msgid message prev_msgid)
-  (let ((~message ((fht-unwrap po_message_t) message))
-        (~prev_msgid (unwrap~pointer prev_msgid)))
-    ((force ~po_message_set_prev_msgid)
-     ~message
-     ~prev_msgid)))
-(export po_message_set_prev_msgid)
-
-;; extern const char *po_message_prev_msgid_plural(po_message_t message);
-(define ~po_message_prev_msgid_plural
-  (delay (fh-link-proc
-           ffi-void*
-           "po_message_prev_msgid_plural"
-           (list ffi-void*)
-           link-lib)))
-(define (po_message_prev_msgid_plural message)
-  (let ((~message ((fht-unwrap po_message_t) message)))
-    ((force ~po_message_prev_msgid_plural) ~message)))
-(export po_message_prev_msgid_plural)
-
-;; extern void po_message_set_prev_msgid_plural(po_message_t message, const 
-;;     char *prev_msgid_plural);
-(define ~po_message_set_prev_msgid_plural
-  (delay (fh-link-proc
-           ffi:void
-           "po_message_set_prev_msgid_plural"
-           (list ffi-void* ffi-void*)
-           link-lib)))
-(define (po_message_set_prev_msgid_plural
-         message
-         prev_msgid_plural)
-  (let ((~message ((fht-unwrap po_message_t) message))
-        (~prev_msgid_plural
-          (unwrap~pointer prev_msgid_plural)))
-    ((force ~po_message_set_prev_msgid_plural)
-     ~message
-     ~prev_msgid_plural)))
-(export po_message_set_prev_msgid_plural)
-
-;; extern int po_message_is_obsolete(po_message_t message);
-(define ~po_message_is_obsolete
-  (delay (fh-link-proc
-           ffi:int
-           "po_message_is_obsolete"
-           (list ffi-void*)
-           link-lib)))
-(define (po_message_is_obsolete message)
-  (let ((~message ((fht-unwrap po_message_t) message)))
-    ((force ~po_message_is_obsolete) ~message)))
-(export po_message_is_obsolete)
-
-;; extern void po_message_set_obsolete(po_message_t message, int obsolete);
-(define ~po_message_set_obsolete
-  (delay (fh-link-proc
-           ffi:void
-           "po_message_set_obsolete"
-           (list ffi-void* ffi:int)
-           link-lib)))
-(define (po_message_set_obsolete message obsolete)
-  (let ((~message ((fht-unwrap po_message_t) message))
-        (~obsolete (unwrap~fixed obsolete)))
-    ((force ~po_message_set_obsolete)
-     ~message
-     ~obsolete)))
-(export po_message_set_obsolete)
-
-;; extern int po_message_is_fuzzy(po_message_t message);
-(define ~po_message_is_fuzzy
-  (delay (fh-link-proc
-           ffi:int
-           "po_message_is_fuzzy"
-           (list ffi-void*)
-           link-lib)))
-(define (po_message_is_fuzzy message)
-  (let ((~message ((fht-unwrap po_message_t) message)))
-    ((force ~po_message_is_fuzzy) ~message)))
-(export po_message_is_fuzzy)
-
-;; extern void po_message_set_fuzzy(po_message_t message, int fuzzy);
-(define ~po_message_set_fuzzy
-  (delay (fh-link-proc
-           ffi:void
-           "po_message_set_fuzzy"
-           (list ffi-void* ffi:int)
-           link-lib)))
-(define (po_message_set_fuzzy message fuzzy)
-  (let ((~message ((fht-unwrap po_message_t) message))
-        (~fuzzy (unwrap~fixed fuzzy)))
-    ((force ~po_message_set_fuzzy) ~message ~fuzzy)))
-(export po_message_set_fuzzy)
-
-;; extern int po_message_is_format(po_message_t message, const char *
-;;     format_type);
-(define ~po_message_is_format
-  (delay (fh-link-proc
-           ffi:int
-           "po_message_is_format"
-           (list ffi-void* ffi-void*)
-           link-lib)))
-(define (po_message_is_format message format_type)
-  (let ((~message ((fht-unwrap po_message_t) message))
-        (~format_type (unwrap~pointer format_type)))
-    ((force ~po_message_is_format)
-     ~message
-     ~format_type)))
-(export po_message_is_format)
-
-;; extern void po_message_set_format(po_message_t message, const char *
-;;     format_type, int value);
-(define ~po_message_set_format
-  (delay (fh-link-proc
-           ffi:void
-           "po_message_set_format"
-           (list ffi-void* ffi-void* ffi:int)
-           link-lib)))
-(define (po_message_set_format message format_type value)
-  (let ((~message ((fht-unwrap po_message_t) message))
-        (~format_type (unwrap~pointer format_type))
-        (~value (unwrap~fixed value)))
-    ((force ~po_message_set_format)
-     ~message
-     ~format_type
-     ~value)))
-(export po_message_set_format)
-
-;; extern int po_message_is_range(po_message_t message, int *minp, int *maxp);
-(define ~po_message_is_range
-  (delay (fh-link-proc
-           ffi:int
-           "po_message_is_range"
-           (list ffi-void* ffi-void* ffi-void*)
-           link-lib)))
-(define (po_message_is_range message minp maxp)
-  (let ((~message ((fht-unwrap po_message_t) message))
-        (~minp (unwrap~pointer minp))
-        (~maxp (unwrap~pointer maxp)))
-    ((force ~po_message_is_range)
-     ~message
-     ~minp
-     ~maxp)))
-(export po_message_is_range)
-
-;; extern void po_message_set_range(po_message_t message, int min, int max);
-(define ~po_message_set_range
-  (delay (fh-link-proc
-           ffi:void
-           "po_message_set_range"
-           (list ffi-void* ffi:int ffi:int)
-           link-lib)))
-(define (po_message_set_range message min max)
-  (let ((~message ((fht-unwrap po_message_t) message))
-        (~min (unwrap~fixed min))
-        (~max (unwrap~fixed max)))
-    ((force ~po_message_set_range)
-     ~message
-     ~min
-     ~max)))
-(export po_message_set_range)
-
-;; extern const char *po_filepos_file(po_filepos_t filepos);
-(define ~po_filepos_file
-  (delay (fh-link-proc
-           ffi-void*
-           "po_filepos_file"
-           (list ffi-void*)
-           link-lib)))
-(define (po_filepos_file filepos)
-  (let ((~filepos ((fht-unwrap po_filepos_t) filepos)))
-    ((force ~po_filepos_file) ~filepos)))
-(export po_filepos_file)
-
-;; extern size_t po_filepos_start_line(po_filepos_t filepos);
-(define ~po_filepos_start_line
-  (delay (fh-link-proc
-           ffi:size_t
-           "po_filepos_start_line"
-           (list ffi-void*)
-           link-lib)))
-(define (po_filepos_start_line filepos)
-  (let ((~filepos ((fht-unwrap po_filepos_t) filepos)))
-    ((force ~po_filepos_start_line) ~filepos)))
-(export po_filepos_start_line)
-
-;; extern const char *const*po_format_list(void);
-(define ~po_format_list
-  (delay (fh-link-proc
-           ffi-void*
-           "po_format_list"
-           (list)
-           link-lib)))
-(define (po_format_list)
-  (let () ((force ~po_format_list))))
-(export po_format_list)
-
-;; extern const char *po_format_pretty_name(const char *format_type);
-(define ~po_format_pretty_name
-  (delay (fh-link-proc
-           ffi-void*
-           "po_format_pretty_name"
-           (list ffi-void*)
-           link-lib)))
-(define (po_format_pretty_name format_type)
-  (let ((~format_type (unwrap~pointer format_type)))
-    ((force ~po_format_pretty_name) ~format_type)))
-(export po_format_pretty_name)
-
-;; extern void po_file_check_all(po_file_t file, po_xerror_handler_t handler);
-(define ~po_file_check_all
-  (delay (fh-link-proc
-           ffi:void
-           "po_file_check_all"
-           (list ffi-void* ffi-void*)
-           link-lib)))
-(define (po_file_check_all file handler)
-  (let ((~file ((fht-unwrap po_file_t) file))
-        (~handler
-          ((fht-unwrap po_xerror_handler_t) handler)))
-    ((force ~po_file_check_all) ~file ~handler)))
-(export po_file_check_all)
-
-;; extern void po_message_check_all(po_message_t message, po_message_iterator_t
-;;      iterator, po_xerror_handler_t handler);
-(define ~po_message_check_all
-  (delay (fh-link-proc
-           ffi:void
-           "po_message_check_all"
-           (list ffi-void* ffi-void* ffi-void*)
-           link-lib)))
-(define (po_message_check_all message iterator handler)
-  (let ((~message ((fht-unwrap po_message_t) message))
-        (~iterator
-          ((fht-unwrap po_message_iterator_t) iterator))
-        (~handler
-          ((fht-unwrap po_xerror_handler_t) handler)))
-    ((force ~po_message_check_all)
-     ~message
-     ~iterator
-     ~handler)))
-(export po_message_check_all)
-
-;; extern void po_message_check_format_v2(po_message_t message, 
-;;     po_xerror_handler_t handler);
-(define ~po_message_check_format_v2
-  (delay (fh-link-proc
-           ffi:void
-           "po_message_check_format_v2"
-           (list ffi-void* ffi-void*)
-           link-lib)))
-(define (po_message_check_format_v2 message handler)
-  (let ((~message ((fht-unwrap po_message_t) message))
-        (~handler
-          ((fht-unwrap po_xerror_handler_t) handler)))
-    ((force ~po_message_check_format_v2)
-     ~message
-     ~handler)))
-(export po_message_check_format_v2)
-
-;; access to enum symbols and #define'd constants:
-(define gettext-po-symbol-val
-  (let ((sym-tab
-          '((_GETTEXT_PO_H . 1)
-            (LIBGETTEXTPO_VERSION . 4872)
-            (PO_SEVERITY_WARNING . 0)
-            (PO_SEVERITY_ERROR . 1)
-            (PO_SEVERITY_FATAL_ERROR . 2))))
-    (lambda (k) (or (assq-ref sym-tab k)))))
-(export gettext-po-symbol-val)
-
-(define (unwrap-enum obj)
-  (cond ((number? obj) obj)
-        ((symbol? obj) (gettext-po-symbol-val obj))
-        ((fh-object? obj) (struct-ref obj 0))
-        (else (error "type mismatch"))))
-
-(define gettext-po-types
-  '("po_file_t" "po_message_iterator_t" "po_message_t" "po_filepos_t" (struct 
-    . "po_error_handler") "po_error_handler_t" (struct . "po_xerror_handler") 
-    "po_xerror_handler_t"))
-(export gettext-po-types)
-
-;; TODO: add renamer
-
-;; --- last line ---