263 lines
7.5 KiB
C
263 lines
7.5 KiB
C
/*
|
|
*******************************************************************************
|
|
*
|
|
* 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);
|
|
}
|
|
}
|