X-Git-Url: http://git.indexdata.com/?p=yaz-moved-to-github.git;a=blobdiff_plain;f=src%2Fcharconv.tcl;h=8f8cc9e94b49621254f234a772a7c95836c0261a;hp=d57f2262d7bdab6764c8a7d96ce90194d0979fc4;hb=8cb8947e3a7bff4dbf8f124871cb4905df1adce7;hpb=b2b333d62406d7497da3b8af5fb3a4e8f0a7b505 diff --git a/src/charconv.tcl b/src/charconv.tcl index d57f226..8f8cc9e 100644 --- a/src/charconv.tcl +++ b/src/charconv.tcl @@ -16,6 +16,11 @@ proc preamble_trie {ofilehandle ifiles ofile} { puts $f " Generated automatically by charconv.tcl" puts $f "*/" puts $f "\#include " + + puts $f "\#if HAVE_CONFIG_H" + puts $f "\#include " + puts $f "\#endif" + puts $f " struct yaz_iconv_trie_flat { char from\[6\]; @@ -35,7 +40,7 @@ proc preamble_trie {ofilehandle ifiles ofile} { " puts $f { static unsigned long lookup(struct yaz_iconv_trie **ptrs, int ptr, unsigned char *inp, - size_t inbytesleft, size_t *no_read, int *combining, unsigned mask, int boffset) + size_t inbytesleft, size_t *no_read, int *combining, unsigned mask, unsigned int boffset) { struct yaz_iconv_trie *t = ptrs[ptr-1]; if (inbytesleft < 1) @@ -211,7 +216,7 @@ proc dump_trie {ofilehandle} { set v [lindex $m 3] puts $f "\}, /* $v */" } - puts $f " \{\"\", 0\}" + puts $f " \{\"\", 0, 0\}" puts $f "\};" puts $f "struct yaz_iconv_trie $trie(prefix)page${this} = \{" puts $f " $trie(prefix)page${this}_flat, 0" @@ -264,7 +269,7 @@ proc dump_trie {ofilehandle} { puts $f "" puts $f "unsigned long yaz_$trie(prefix)_conv - (unsigned char *inp, size_t inbytesleft, size_t *no_read, int *combining, unsigned mask, int boffset) + (unsigned char *inp, size_t inbytesleft, size_t *no_read, int *combining, unsigned mask, unsigned int boffset) { unsigned long code;