gettext
d5cd59cb - xgettext: Scheme: #!fold-case and #!no-fold-case directives.

Commit
128 days ago
xgettext: Scheme: #!fold-case and #!no-fold-case directives. Reported by Florent Angly <florent.angly@gmail.com> at <https://savannah.gnu.org/bugs/?61987>. * autogen.sh (GNULIB_MODULES_TOOLS_FOR_SRC): Add unicase/u8-casefold, uninorm/nfc. * gettext-tools/src/x-scheme.c: Include unicase.h, uninorm.h. (SIZEOF): New macro. (phase0_getc): Renamed from do_getc. Remove line_number handling. (phase0_ungetc): Renamed from do_ungetc. Remove line_number handling. (MAX_PHASE1_PUSHBACK): New macro. (phase1_pushback, phase1_pushback_length): New variables. (phase1_getc, phase1_ungetc): New functions. (casefold): New variable. (read_token): Use phase1_getc, phase1_ungetc instead of do_getc, do_ungetc. (read_object): Likewise. If casefold is true, apply Unicode case-folding to symbols before looking them up in the hash table. Recognize all #! directives supported by Guile. (extract_whole_file): Initialize phase1_pushback_length, casefold. * gettext-tools/tests/xgettext-scheme-6: New file. * gettext-tools/tests/Makefile.am (TESTS): Add it.
Author
Committer
Parents
Loading