diff options
Diffstat (limited to 'intl/icu/source/tools/toolutil/writesrc.c')
| -rw-r--r-- | intl/icu/source/tools/toolutil/writesrc.c | 262 |
1 files changed, 262 insertions, 0 deletions
diff --git a/intl/icu/source/tools/toolutil/writesrc.c b/intl/icu/source/tools/toolutil/writesrc.c new file mode 100644 index 0000000..6db9087 --- /dev/null +++ b/intl/icu/source/tools/toolutil/writesrc.c @@ -0,0 +1,262 @@ +/* +******************************************************************************* +* +* Copyright (C) 2005-2012, International Business Machines +* Corporation and others. All Rights Reserved. +* +******************************************************************************* +* file name: writesrc.c +* encoding: US-ASCII +* tab size: 8 (not used) +* indentation:4 +* +* created on: 2005apr23 +* created by: Markus W. Scherer +* +* Helper functions for writing source code for data. +*/ + +#include <stdio.h> +#include <time.h> +#include "unicode/utypes.h" +#include "unicode/putil.h" +#include "utrie2.h" +#include "cstring.h" +#include "writesrc.h" + +static FILE * +usrc_createWithHeader(const char *path, const char *filename, + const char *generator, const char *header) { + char buffer[1024]; + const char *p; + char *q; + FILE *f; + char c; + + if(path==NULL) { + p=filename; + } else { + /* concatenate path and filename, with U_FILE_SEP_CHAR in between if necessary */ + uprv_strcpy(buffer, path); + q=buffer+uprv_strlen(buffer); + if(q>buffer && (c=*(q-1))!=U_FILE_SEP_CHAR && c!=U_FILE_ALT_SEP_CHAR) { + *q++=U_FILE_SEP_CHAR; + } + uprv_strcpy(q, filename); + p=buffer; + } + + f=fopen(p, "w"); + if(f!=NULL) { + char year[8]; + const struct tm *lt; + time_t t; + + time(&t); + lt=localtime(&t); + strftime(year, sizeof(year), "%Y", lt); + if(generator==NULL) { + strftime(buffer, sizeof(buffer), "%Y-%m-%d", lt); + fprintf(f, header, year, filename, buffer); + } else { + fprintf(f, header, year, filename, generator); + } + } else { + fprintf( + stderr, + "usrc_create(%s, %s): unable to create file\n", + path!=NULL ? path : "", filename); + } + return f; +} + +U_CAPI FILE * U_EXPORT2 +usrc_create(const char *path, const char *filename, const char *generator) { + static const char *header= + "/*\n" + " * Copyright (C) 1999-%s, International Business Machines\n" + " * Corporation and others. All Rights Reserved.\n" + " *\n" + " * file name: %s\n" + " *\n" + " * machine-generated by: %s\n" + " */\n\n"; + return usrc_createWithHeader(path, filename, generator, header); +} + +U_CAPI FILE * U_EXPORT2 +usrc_createTextData(const char *path, const char *filename, const char *generator) { + static const char *header= + "# Copyright (C) 1999-%s, International Business Machines\n" + "# Corporation and others. All Rights Reserved.\n" + "#\n" + "# file name: %s\n" + "#\n" + "# machine-generated by: %s\n" + "#\n\n"; + return usrc_createWithHeader(path, filename, generator, header); +} + +U_CAPI void U_EXPORT2 +usrc_writeArray(FILE *f, + const char *prefix, + const void *p, int32_t width, int32_t length, + const char *postfix) { + const uint8_t *p8; + const uint16_t *p16; + const uint32_t *p32; + uint32_t value; + int32_t i, col; + + p8=NULL; + p16=NULL; + p32=NULL; + switch(width) { + case 8: + p8=(const uint8_t *)p; + break; + case 16: + p16=(const uint16_t *)p; + break; + case 32: + p32=(const uint32_t *)p; + break; + default: + fprintf(stderr, "usrc_writeArray(width=%ld) unrecognized width\n", (long)width); + return; + } + if(prefix!=NULL) { + fprintf(f, prefix, (long)length); + } + for(i=col=0; i<length; ++i, ++col) { + if(i>0) { + if(col<16) { + fputc(',', f); + } else { + fputs(",\n", f); + col=0; + } + } + switch(width) { + case 8: + value=p8[i]; + break; + case 16: + value=p16[i]; + break; + case 32: + value=p32[i]; + break; + default: + value=0; /* unreachable */ + break; + } + fprintf(f, value<=9 ? "%lu" : "0x%lx", (unsigned long)value); + } + if(postfix!=NULL) { + fputs(postfix, f); + } +} + +U_CAPI void U_EXPORT2 +usrc_writeUTrie2Arrays(FILE *f, + const char *indexPrefix, const char *data32Prefix, + const UTrie2 *pTrie, + const char *postfix) { + if(pTrie->data32==NULL) { + /* 16-bit trie */ + usrc_writeArray(f, indexPrefix, pTrie->index, 16, pTrie->indexLength+pTrie->dataLength, postfix); + } else { + /* 32-bit trie */ + usrc_writeArray(f, indexPrefix, pTrie->index, 16, pTrie->indexLength, postfix); + usrc_writeArray(f, data32Prefix, pTrie->data32, 32, pTrie->dataLength, postfix); + } +} + +U_CAPI void U_EXPORT2 +usrc_writeUTrie2Struct(FILE *f, + const char *prefix, + const UTrie2 *pTrie, + const char *indexName, const char *data32Name, + const char *postfix) { + if(prefix!=NULL) { + fputs(prefix, f); + } + if(pTrie->data32==NULL) { + /* 16-bit trie */ + fprintf( + f, + " %s,\n" /* index */ + " %s+%ld,\n" /* data16 */ + " NULL,\n", /* data32 */ + indexName, + indexName, + (long)pTrie->indexLength); + } else { + /* 32-bit trie */ + fprintf( + f, + " %s,\n" /* index */ + " NULL,\n" /* data16 */ + " %s,\n", /* data32 */ + indexName, + data32Name); + } + fprintf( + f, + " %ld,\n" /* indexLength */ + " %ld,\n" /* dataLength */ + " 0x%hx,\n" /* index2NullOffset */ + " 0x%hx,\n" /* dataNullOffset */ + " 0x%lx,\n" /* initialValue */ + " 0x%lx,\n" /* errorValue */ + " 0x%lx,\n" /* highStart */ + " 0x%lx,\n" /* highValueIndex */ + " NULL, 0, FALSE, FALSE, 0, NULL\n", + (long)pTrie->indexLength, (long)pTrie->dataLength, + (short)pTrie->index2NullOffset, (short)pTrie->dataNullOffset, + (long)pTrie->initialValue, (long)pTrie->errorValue, + (long)pTrie->highStart, (long)pTrie->highValueIndex); + if(postfix!=NULL) { + fputs(postfix, f); + } +} + +U_CAPI void U_EXPORT2 +usrc_writeArrayOfMostlyInvChars(FILE *f, + const char *prefix, + const char *p, int32_t length, + const char *postfix) { + int32_t i, col; + int prev2, prev, c; + + if(prefix!=NULL) { + fprintf(f, prefix, (long)length); + } + prev2=prev=-1; + for(i=col=0; i<length; ++i, ++col) { + c=(uint8_t)p[i]; + if(i>0) { + /* Break long lines. Try to break at interesting places, to minimize revision diffs. */ + if( + /* Very long line. */ + col>=32 || + /* Long line, break after terminating NUL. */ + (col>=24 && prev2>=0x20 && prev==0) || + /* Medium-long line, break before non-NUL, non-character byte. */ + (col>=16 && (prev==0 || prev>=0x20) && 0<c && c<0x20) + ) { + fputs(",\n", f); + col=0; + } else { + fputc(',', f); + } + } + fprintf(f, c<0x20 ? "%u" : "'%c'", c); + prev2=prev; + prev=c; + } + if(postfix!=NULL) { + fputs(postfix, f); + } +} |