summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorFlorian Pelz <pelzflorian@pelzflorian.de>2018-02-11 13:59:06 +0100
committerFlorian Pelz <pelzflorian@pelzflorian.de>2018-02-11 13:59:06 +0100
commitdf1d72037b553cbe2bfd8056d2478512132131f2 (patch)
treeaf5b442ce0fc5252e652854f49765ca8e93f3312
parentaa093191da19baa58feb64ebee3f3a61e910d374 (diff)
Remove unused libgettextpo ffi-help files.
libgettextpo is slower than plain setlocale and thus no longer used since commit 0de6f78.
-rw-r--r--gettext-po.ffi4
-rw-r--r--gettext-po.scm927
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 ---