diff options
author | Florian Pelz <pelzflorian@pelzflorian.de> | 2018-02-11 13:59:06 +0100 |
---|---|---|
committer | Florian Pelz <pelzflorian@pelzflorian.de> | 2018-02-11 13:59:06 +0100 |
commit | df1d72037b553cbe2bfd8056d2478512132131f2 (patch) | |
tree | af5b442ce0fc5252e652854f49765ca8e93f3312 | |
parent | aa093191da19baa58feb64ebee3f3a61e910d374 (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.ffi | 4 | ||||
-rw-r--r-- | gettext-po.scm | 927 |
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 --- |