michael@0: /*
michael@0: *******************************************************************************
michael@0: *
michael@0: *   Copyright (C) 2002-2012, International Business Machines
michael@0: *   Corporation and others.  All Rights Reserved.
michael@0: *
michael@0: *******************************************************************************
michael@0: *
michael@0: * File wrtxml.cpp
michael@0: *
michael@0: * Modification History:
michael@0: *
michael@0: *   Date        Name        Description
michael@0: *   10/01/02    Ram         Creation.
michael@0: *   02/07/08    Spieth      Correct XLIFF generation on EBCDIC platform
michael@0: *
michael@0: *******************************************************************************
michael@0: */
michael@0: #include "reslist.h"
michael@0: #include "unewdata.h"
michael@0: #include "unicode/ures.h"
michael@0: #include "errmsg.h"
michael@0: #include "filestrm.h"
michael@0: #include "cstring.h"
michael@0: #include "unicode/ucnv.h"
michael@0: #include "genrb.h"
michael@0: #include "rle.h"
michael@0: #include "ucol_tok.h"
michael@0: #include "uhash.h"
michael@0: #include "uresimp.h"
michael@0: #include "unicode/ustring.h"
michael@0: #include "unicode/uchar.h"
michael@0: #include "ustr.h"
michael@0: #include "prscmnts.h"
michael@0: #include "unicode/unistr.h"
michael@0: #include "unicode/utf8.h"
michael@0: #include "unicode/utf16.h"
michael@0: #include <time.h>
michael@0: 
michael@0: U_NAMESPACE_USE
michael@0: 
michael@0: static int tabCount = 0;
michael@0: 
michael@0: static FileStream* out=NULL;
michael@0: static struct SRBRoot* srBundle ;
michael@0: static const char* outDir = NULL;
michael@0: static const char* enc ="";
michael@0: static UConverter* conv = NULL;
michael@0: 
michael@0: const char* const* ISOLanguages;
michael@0: const char* const* ISOCountries;
michael@0: const char* textExt = ".txt";
michael@0: const char* xliffExt = ".xlf";
michael@0: 
michael@0: static int32_t write_utf8_file(FileStream* fileStream, UnicodeString outString)
michael@0: {
michael@0:     UErrorCode status = U_ZERO_ERROR;
michael@0:     int32_t len = 0;
michael@0: 
michael@0:     // preflight to get the destination buffer size
michael@0:     u_strToUTF8(NULL,
michael@0:                 0,
michael@0:                 &len,
michael@0:                 outString.getBuffer(),
michael@0:                 outString.length(),
michael@0:                 &status);
michael@0: 
michael@0:     // allocate the buffer
michael@0:     char* dest = (char*)uprv_malloc(len);
michael@0:     status = U_ZERO_ERROR;
michael@0: 
michael@0:     // convert the data
michael@0:     u_strToUTF8(dest,
michael@0:                 len,
michael@0:                 &len,
michael@0:                 outString.getBuffer(),
michael@0:                 outString.length(),
michael@0:                 &status);
michael@0: 
michael@0:     // write data to out file
michael@0:     int32_t ret = T_FileStream_write(fileStream, dest, len);
michael@0:     uprv_free(dest);
michael@0:     return (ret);
michael@0: }
michael@0: 
michael@0: /*write indentation for formatting*/
michael@0: static void write_tabs(FileStream* os){
michael@0:     int i=0;
michael@0:     for(;i<=tabCount;i++){
michael@0:         write_utf8_file(os,UnicodeString("    "));
michael@0:     }
michael@0: }
michael@0: 
michael@0: /*get ID for each element. ID is globally unique.*/
michael@0: static char* getID(const char* id, const char* curKey, char* result) {
michael@0:     if(curKey == NULL) {
michael@0:         result = (char *)uprv_malloc(sizeof(char)*uprv_strlen(id) + 1);
michael@0:         uprv_memset(result, 0, sizeof(char)*uprv_strlen(id) + 1);
michael@0:         uprv_strcpy(result, id);
michael@0:     } else {
michael@0:         result = (char *)uprv_malloc(sizeof(char)*(uprv_strlen(id) + 1 + uprv_strlen(curKey)) + 1);
michael@0:         uprv_memset(result, 0, sizeof(char)*(uprv_strlen(id) + 1 + uprv_strlen(curKey)) + 1);
michael@0:         if(id[0]!='\0'){
michael@0:             uprv_strcpy(result, id);
michael@0:             uprv_strcat(result, "_");
michael@0:         }
michael@0:         uprv_strcat(result, curKey);
michael@0:     }
michael@0:     return result;
michael@0: }
michael@0: 
michael@0: /*compute CRC for binary code*/
michael@0: /* The code is from  http://www.theorem.com/java/CRC32.java
michael@0:  * Calculates the CRC32 - 32 bit Cyclical Redundancy Check
michael@0:  * <P> This check is used in numerous systems to verify the integrity
michael@0:  * of information.  It's also used as a hashing function.  Unlike a regular
michael@0:  * checksum, it's sensitive to the order of the characters.
michael@0:  * It produces a 32 bit
michael@0:  *
michael@0:  * @author Michael Lecuyer (mjl@theorem.com)
michael@0:  * @version 1.1 August 11, 1998
michael@0:  */
michael@0: 
michael@0: /* ICU is not endian portable, because ICU data generated on big endian machines can be
michael@0:  * ported to big endian machines but not to little endian machines and vice versa. The
michael@0:  * conversion is not portable across platforms with different endianess.
michael@0:  */
michael@0: 
michael@0: uint32_t computeCRC(char *ptr, uint32_t len, uint32_t lastcrc){
michael@0:     int32_t crc;
michael@0:     uint32_t temp1;
michael@0:     uint32_t temp2;
michael@0: 
michael@0:     int32_t crc_ta[256];
michael@0:     int i = 0;
michael@0:     int j = 0;
michael@0:     uint32_t crc2 = 0;
michael@0: 
michael@0: #define CRC32_POLYNOMIAL 0xEDB88320
michael@0: 
michael@0:     /*build crc table*/
michael@0:     for (i = 0; i <= 255; i++) {
michael@0:         crc2 = i;
michael@0:         for (j = 8; j > 0; j--) {
michael@0:             if ((crc2 & 1) == 1) {
michael@0:                 crc2 = (crc2 >> 1) ^ CRC32_POLYNOMIAL;
michael@0:             } else {
michael@0:                 crc2 >>= 1;
michael@0:             }
michael@0:         }
michael@0:         crc_ta[i] = crc2;
michael@0:     }
michael@0: 
michael@0:     crc = lastcrc;
michael@0:     while(len--!=0) {
michael@0:         temp1 = (uint32_t)crc>>8;
michael@0:         temp2 = crc_ta[(crc^*ptr) & 0xFF];
michael@0:         crc = temp1^temp2;
michael@0:         ptr++;
michael@0:     }
michael@0:     return(crc);
michael@0: }
michael@0: 
michael@0: static void strnrepchr(char* src, int32_t srcLen, char s, char r){
michael@0:     int32_t i = 0;
michael@0:     for(i=0;i<srcLen;i++){
michael@0:         if(src[i]==s){
michael@0:             src[i]=r;
michael@0:         }
michael@0:     }
michael@0: }
michael@0: /* Parse the filename, and get its language information.
michael@0:  * If it fails to get the language information from the filename,
michael@0:  * use "en" as the default value for language
michael@0:  */
michael@0: static char* parseFilename(const char* id, char* /*lang*/) {
michael@0:     int idLen = (int) uprv_strlen(id);
michael@0:     char* localeID = (char*) uprv_malloc(idLen);
michael@0:     int pos = 0;
michael@0:     int canonCapacity = 0;
michael@0:     char* canon = NULL;
michael@0:     int canonLen = 0;
michael@0:     /*int i;*/
michael@0:     UErrorCode status = U_ZERO_ERROR;
michael@0:     const char *ext = uprv_strchr(id, '.');
michael@0: 
michael@0:     if(ext != NULL){
michael@0:         pos = (int) (ext - id);
michael@0:     } else {
michael@0:         pos = idLen;
michael@0:     }
michael@0:     uprv_memcpy(localeID, id, pos);
michael@0:     localeID[pos]=0; /* NUL terminate the string */
michael@0: 
michael@0:     canonCapacity =pos*3;
michael@0:     canon = (char*) uprv_malloc(canonCapacity);
michael@0:     canonLen = uloc_canonicalize(localeID, canon, canonCapacity, &status);
michael@0: 
michael@0:     if(U_FAILURE(status)){
michael@0:         fprintf(stderr, "Could not canonicalize the locale ID: %s. Error: %s\n", localeID, u_errorName(status));
michael@0:         exit(status);
michael@0:     }
michael@0:     strnrepchr(canon, canonLen, '_', '-');
michael@0:     return canon;
michael@0: }
michael@0: 
michael@0: static const char* xmlHeader = "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n";
michael@0: #if 0
michael@0: static const char* bundleStart = "<xliff version = \"1.2\" "
michael@0:                                         "xmlns='urn:oasis:names:tc:xliff:document:1.2' "
michael@0:                                         "xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' "
michael@0:                                         "xsi:schemaLocation='urn:oasis:names:tc:xliff:document:1.2 xliff-core-1.2-transitional.xsd'>\n";
michael@0: #else
michael@0: static const char* bundleStart = "<xliff version = \"1.1\" "
michael@0:                                         "xmlns='urn:oasis:names:tc:xliff:document:1.1' "
michael@0:                                         "xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' "
michael@0:                                         "xsi:schemaLocation='urn:oasis:names:tc:xliff:document:1.1 http://www.oasis-open.org/committees/xliff/documents/xliff-core-1.1.xsd'>\n";
michael@0: #endif
michael@0: static const char* bundleEnd   = "</xliff>\n";
michael@0: 
michael@0: void res_write_xml(struct SResource *res, const char* id, const char* language, UBool isTopLevel, UErrorCode *status);
michael@0: 
michael@0: static char* convertAndEscape(char** pDest, int32_t destCap, int32_t* destLength,
michael@0:                               const UChar* src, int32_t srcLen, UErrorCode* status){
michael@0:     int32_t srcIndex=0;
michael@0:     char* dest=NULL;
michael@0:     char* temp=NULL;
michael@0:     int32_t destLen=0;
michael@0:     UChar32 c = 0;
michael@0: 
michael@0:     if(status==NULL || U_FAILURE(*status) || pDest==NULL  || srcLen==0 || src == NULL){
michael@0:         return NULL;
michael@0:     }
michael@0:     dest =*pDest;
michael@0:     if(dest==NULL || destCap <=0){
michael@0:         destCap = srcLen * 8;
michael@0:         dest = (char*) uprv_malloc(sizeof(char) * destCap);
michael@0:         if(dest==NULL){
michael@0:             *status=U_MEMORY_ALLOCATION_ERROR;
michael@0:             return NULL;
michael@0:         }
michael@0:     }
michael@0: 
michael@0:     dest[0]=0;
michael@0: 
michael@0:     while(srcIndex<srcLen){
michael@0:         U16_NEXT(src, srcIndex, srcLen, c);
michael@0: 
michael@0:         if (U16_IS_LEAD(c) || U16_IS_TRAIL(c)) {
michael@0:             *status = U_ILLEGAL_CHAR_FOUND;
michael@0:             fprintf(stderr, "Illegal Surrogate! \n");
michael@0:             uprv_free(dest);
michael@0:             return NULL;
michael@0:         }
michael@0: 
michael@0:         if((destLen+U8_LENGTH(c)) < destCap){
michael@0: 
michael@0:             /* ASCII Range */
michael@0:             if(c <=0x007F){
michael@0:                 switch(c) {
michael@0:                 case '\x26':
michael@0:                     uprv_strcpy(dest+( destLen),"\x26\x61\x6d\x70\x3b"); /* &amp;*/
michael@0:                     destLen+=(int32_t)uprv_strlen("\x26\x61\x6d\x70\x3b");
michael@0:                     break;
michael@0:                 case '\x3c':
michael@0:                     uprv_strcpy(dest+(destLen),"\x26\x6c\x74\x3b"); /* &lt;*/
michael@0:                     destLen+=(int32_t)uprv_strlen("\x26\x6c\x74\x3b");
michael@0:                     break;
michael@0:                 case '\x3e':
michael@0:                     uprv_strcpy(dest+(destLen),"\x26\x67\x74\x3b"); /* &gt;*/
michael@0:                     destLen+=(int32_t)uprv_strlen("\x26\x67\x74\x3b");
michael@0:                     break;
michael@0:                 case '\x22':
michael@0:                     uprv_strcpy(dest+(destLen),"\x26\x71\x75\x6f\x74\x3b"); /* &quot;*/
michael@0:                     destLen+=(int32_t)uprv_strlen("\x26\x71\x75\x6f\x74\x3b");
michael@0:                     break;
michael@0:                 case '\x27':
michael@0:                     uprv_strcpy(dest+(destLen),"\x26\x61\x70\x6f\x73\x3b"); /* &apos; */
michael@0:                     destLen+=(int32_t)uprv_strlen("\x26\x61\x70\x6f\x73\x3b");
michael@0:                     break;
michael@0: 
michael@0:                  /* Disallow C0 controls except TAB, CR, LF*/
michael@0:                 case 0x00:
michael@0:                 case 0x01:
michael@0:                 case 0x02:
michael@0:                 case 0x03:
michael@0:                 case 0x04:
michael@0:                 case 0x05:
michael@0:                 case 0x06:
michael@0:                 case 0x07:
michael@0:                 case 0x08:
michael@0:                 /*case 0x09:*/
michael@0:                 /*case 0x0A: */
michael@0:                 case 0x0B:
michael@0:                 case 0x0C:
michael@0:                 /*case 0x0D:*/
michael@0:                 case 0x0E:
michael@0:                 case 0x0F:
michael@0:                 case 0x10:
michael@0:                 case 0x11:
michael@0:                 case 0x12:
michael@0:                 case 0x13:
michael@0:                 case 0x14:
michael@0:                 case 0x15:
michael@0:                 case 0x16:
michael@0:                 case 0x17:
michael@0:                 case 0x18:
michael@0:                 case 0x19:
michael@0:                 case 0x1A:
michael@0:                 case 0x1B:
michael@0:                 case 0x1C:
michael@0:                 case 0x1D:
michael@0:                 case 0x1E:
michael@0:                 case 0x1F:
michael@0:                     *status = U_ILLEGAL_CHAR_FOUND;
michael@0:                     fprintf(stderr, "Illegal Character \\u%04X!\n",(int)c);
michael@0:                     uprv_free(dest);
michael@0:                     return NULL;
michael@0:                 default:
michael@0:                     dest[destLen++]=(char)c;
michael@0:                 }
michael@0:             }else{
michael@0:                 UBool isError = FALSE;
michael@0:                 U8_APPEND((unsigned char*)dest,destLen,destCap,c,isError);
michael@0:                 if(isError){
michael@0:                     *status = U_ILLEGAL_CHAR_FOUND;
michael@0:                     fprintf(stderr, "Illegal Character \\U%08X!\n",(int)c);
michael@0:                     uprv_free(dest);
michael@0:                     return NULL;
michael@0:                 }
michael@0:             }
michael@0:         }else{
michael@0:             destCap += destLen;
michael@0: 
michael@0:             temp = (char*) uprv_malloc(sizeof(char)*destCap);
michael@0:             if(temp==NULL){
michael@0:                 *status=U_MEMORY_ALLOCATION_ERROR;
michael@0:                 uprv_free(dest);
michael@0:                 return NULL;
michael@0:             }
michael@0:             uprv_memmove(temp,dest,destLen);
michael@0:             destLen=0;
michael@0:             uprv_free(dest);
michael@0:             dest=temp;
michael@0:             temp=NULL;
michael@0:         }
michael@0: 
michael@0:     }
michael@0:     *destLength = destLen;
michael@0:     return dest;
michael@0: }
michael@0: 
michael@0: #define ASTERISK 0x002A
michael@0: #define SPACE    0x0020
michael@0: #define CR       0x000A
michael@0: #define LF       0x000D
michael@0: #define AT_SIGN  0x0040
michael@0: 
michael@0: static void
michael@0: trim(char **src, int32_t *len){
michael@0: 
michael@0:     char *s = NULL;
michael@0:     int32_t i = 0;
michael@0:     if(src == NULL || *src == NULL){
michael@0:         return;
michael@0:     }
michael@0:     s = *src;
michael@0:     /* trim from the end */
michael@0:     for( i=(*len-1); i>= 0; i--){
michael@0:         switch(s[i]){
michael@0:         case ASTERISK:
michael@0:         case SPACE:
michael@0:         case CR:
michael@0:         case LF:
michael@0:             s[i] = 0;
michael@0:             continue;
michael@0:         default:
michael@0:             break;
michael@0:         }
michael@0:         break;
michael@0: 
michael@0:     }
michael@0:     *len = i+1;
michael@0: }
michael@0: 
michael@0: static void
michael@0: print(UChar* src, int32_t srcLen,const char *tagStart,const char *tagEnd,  UErrorCode *status){
michael@0:     int32_t bufCapacity   = srcLen*4;
michael@0:     char *buf       = NULL;
michael@0:     int32_t bufLen = 0;
michael@0: 
michael@0:     if(U_FAILURE(*status)){
michael@0:         return;
michael@0:     }
michael@0: 
michael@0:     buf = (char*) (uprv_malloc(bufCapacity));
michael@0:     if(buf==0){
michael@0:         fprintf(stderr, "Could not allocate memory!!");
michael@0:         exit(U_MEMORY_ALLOCATION_ERROR);
michael@0:     }
michael@0:     buf = convertAndEscape(&buf, bufCapacity, &bufLen, src, srcLen,status);
michael@0:     if(U_SUCCESS(*status)){
michael@0:         trim(&buf,&bufLen);
michael@0:         write_utf8_file(out,UnicodeString(tagStart));
michael@0:         write_utf8_file(out,UnicodeString(buf, bufLen, "UTF-8"));
michael@0:         write_utf8_file(out,UnicodeString(tagEnd));
michael@0:         write_utf8_file(out,UnicodeString("\n"));
michael@0: 
michael@0:     }
michael@0: }
michael@0: static void
michael@0: printNoteElements(struct UString *src, UErrorCode *status){
michael@0: 
michael@0: #if UCONFIG_NO_REGULAR_EXPRESSIONS==0 /* donot compile when no RegularExpressions are available */
michael@0: 
michael@0:     int32_t capacity = 0;
michael@0:     UChar* note = NULL;
michael@0:     int32_t noteLen = 0;
michael@0:     int32_t count = 0,i;
michael@0: 
michael@0:     if(src == NULL){
michael@0:         return;
michael@0:     }
michael@0: 
michael@0:     capacity = src->fLength;
michael@0:     note  = (UChar*) uprv_malloc(U_SIZEOF_UCHAR * capacity);
michael@0: 
michael@0:     count = getCount(src->fChars,src->fLength, UPC_NOTE, status);
michael@0:     if(U_FAILURE(*status)){
michael@0:         uprv_free(note);
michael@0:         return;
michael@0:     }
michael@0:     for(i=0; i < count; i++){
michael@0:         noteLen =  getAt(src->fChars,src->fLength, &note, capacity, i, UPC_NOTE, status);
michael@0:         if(U_FAILURE(*status)){
michael@0:             uprv_free(note);
michael@0:             return;
michael@0:         }
michael@0:         if(noteLen > 0){
michael@0:             write_tabs(out);
michael@0:             print(note, noteLen,"<note>", "</note>", status);
michael@0:         }
michael@0:     }
michael@0:     uprv_free(note);
michael@0: #else
michael@0: 
michael@0:     fprintf(stderr, "Warning: Could not output comments to XLIFF file. ICU has been built without RegularExpression support.\n");
michael@0: 
michael@0: #endif /* UCONFIG_NO_REGULAR_EXPRESSIONS */
michael@0: 
michael@0: }
michael@0: 
michael@0: static void printAttribute(const char *name, const char *value, int32_t /*len*/)
michael@0: {
michael@0:     write_utf8_file(out, UnicodeString(" "));
michael@0:     write_utf8_file(out, UnicodeString(name));
michael@0:     write_utf8_file(out, UnicodeString(" = \""));
michael@0:     write_utf8_file(out, UnicodeString(value));
michael@0:     write_utf8_file(out, UnicodeString("\""));
michael@0: }
michael@0: 
michael@0: static void printAttribute(const char *name, const UnicodeString value, int32_t /*len*/)
michael@0: {
michael@0:     write_utf8_file(out, UnicodeString(" "));
michael@0:     write_utf8_file(out, UnicodeString(name));
michael@0:     write_utf8_file(out, UnicodeString(" = \""));
michael@0:     write_utf8_file(out, value);
michael@0:     write_utf8_file(out, UnicodeString("\""));
michael@0: }
michael@0: 
michael@0: static void
michael@0: printComments(struct UString *src, const char *resName, UBool printTranslate, UErrorCode *status){
michael@0: 
michael@0: #if UCONFIG_NO_REGULAR_EXPRESSIONS==0 /* donot compile when no RegularExpressions are available */
michael@0: 
michael@0:     if(status==NULL || U_FAILURE(*status)){
michael@0:         return;
michael@0:     }
michael@0: 
michael@0:     int32_t capacity = src->fLength + 1;
michael@0:     char* buf = NULL;
michael@0:     int32_t bufLen = 0;
michael@0:     UChar* desc  = (UChar*) uprv_malloc(U_SIZEOF_UCHAR * capacity);
michael@0:     UChar* trans = (UChar*) uprv_malloc(U_SIZEOF_UCHAR * capacity);
michael@0: 
michael@0:     int32_t descLen = 0, transLen=0;
michael@0:     if(desc==NULL || trans==NULL){
michael@0:         *status = U_MEMORY_ALLOCATION_ERROR;
michael@0:         uprv_free(desc);
michael@0:         uprv_free(trans);
michael@0:         return;
michael@0:     }
michael@0:     src->fLength = removeCmtText(src->fChars, src->fLength, status);
michael@0:     descLen  = getDescription(src->fChars,src->fLength, &desc, capacity, status);
michael@0:     transLen = getTranslate(src->fChars,src->fLength, &trans, capacity, status);
michael@0: 
michael@0:     /* first print translate attribute */
michael@0:     if(transLen > 0){
michael@0:         if(printTranslate){
michael@0:             /* print translate attribute */
michael@0:             buf = convertAndEscape(&buf, 0, &bufLen, trans, transLen, status);
michael@0:             if(U_SUCCESS(*status)){
michael@0:                 printAttribute("translate", UnicodeString(buf, bufLen, "UTF-8"), bufLen);
michael@0:                 write_utf8_file(out,UnicodeString(">\n"));
michael@0:             }
michael@0:         }else if(getShowWarning()){
michael@0:             fprintf(stderr, "Warning: Tranlate attribute for resource %s cannot be set. XLIFF prohibits it.\n", resName);
michael@0:             /* no translate attribute .. just close the tag */
michael@0:             write_utf8_file(out,UnicodeString(">\n"));
michael@0:         }
michael@0:     }else{
michael@0:         /* no translate attribute .. just close the tag */
michael@0:         write_utf8_file(out,UnicodeString(">\n"));
michael@0:     }
michael@0: 
michael@0:     if(descLen > 0){
michael@0:         write_tabs(out);
michael@0:         print(desc, descLen, "<!--", "-->", status);
michael@0:     }
michael@0: 
michael@0:     uprv_free(desc);
michael@0:     uprv_free(trans);
michael@0: #else
michael@0: 
michael@0:     fprintf(stderr, "Warning: Could not output comments to XLIFF file. ICU has been built without RegularExpression support.\n");
michael@0: 
michael@0: #endif /* UCONFIG_NO_REGULAR_EXPRESSIONS */
michael@0: 
michael@0: }
michael@0: 
michael@0: /*
michael@0:  * Print out a containing element, like:
michael@0:  * <trans-unit id = "blah" resname = "blah" restype = "x-id-alias" translate = "no">
michael@0:  * <group id "calendar_gregorian" resname = "gregorian" restype = "x-icu-array">
michael@0:  */
michael@0: static char *printContainer(struct SResource *res, const char *container, const char *restype, const char *mimetype, const char *id, UErrorCode *status)
michael@0: {
michael@0:     char resKeyBuffer[8];
michael@0:     const char *resname = NULL;
michael@0:     char *sid = NULL;
michael@0: 
michael@0:     write_tabs(out);
michael@0: 
michael@0:     resname = res_getKeyString(srBundle, res, resKeyBuffer);
michael@0:     if (resname != NULL && *resname != 0) {
michael@0:         sid = getID(id, resname, sid);
michael@0:     } else {
michael@0:         sid = getID(id, NULL, sid);
michael@0:     }
michael@0: 
michael@0:     write_utf8_file(out, UnicodeString("<"));
michael@0:     write_utf8_file(out, UnicodeString(container));
michael@0:     printAttribute("id", sid, (int32_t) uprv_strlen(sid));
michael@0: 
michael@0:     if (resname != NULL) {
michael@0:         printAttribute("resname", resname, (int32_t) uprv_strlen(resname));
michael@0:     }
michael@0: 
michael@0:     if (mimetype != NULL) {
michael@0:         printAttribute("mime-type", mimetype, (int32_t) uprv_strlen(mimetype));
michael@0:     }
michael@0: 
michael@0:     if (restype != NULL) {
michael@0:         printAttribute("restype", restype, (int32_t) uprv_strlen(restype));
michael@0:     }
michael@0: 
michael@0:     tabCount += 1;
michael@0:     if (res->fComment.fLength > 0) {
michael@0:         /* printComments will print the closing ">\n" */
michael@0:         printComments(&res->fComment, resname, TRUE, status);
michael@0:     } else {
michael@0:         write_utf8_file(out, UnicodeString(">\n"));
michael@0:     }
michael@0: 
michael@0:     return sid;
michael@0: }
michael@0: 
michael@0: /* Writing Functions */
michael@0: 
michael@0: static const char *trans_unit = "trans-unit";
michael@0: static const char *close_trans_unit = "</trans-unit>\n";
michael@0: static const char *source = "<source>";
michael@0: static const char *close_source = "</source>\n";
michael@0: static const char *group = "group";
michael@0: static const char *close_group = "</group>\n";
michael@0: 
michael@0: static const char *bin_unit = "bin-unit";
michael@0: static const char *close_bin_unit = "</bin-unit>\n";
michael@0: static const char *bin_source = "<bin-source>\n";
michael@0: static const char *close_bin_source = "</bin-source>\n";
michael@0: static const char *external_file = "<external-file";
michael@0: /*static const char *close_external_file = "</external-file>\n";*/
michael@0: static const char *internal_file = "<internal-file";
michael@0: static const char *close_internal_file = "</internal-file>\n";
michael@0: 
michael@0: static const char *application_mimetype = "application"; /* add "/octet-stream"? */
michael@0: 
michael@0: static const char *alias_restype     = "x-icu-alias";
michael@0: static const char *array_restype     = "x-icu-array";
michael@0: static const char *binary_restype    = "x-icu-binary";
michael@0: static const char *integer_restype   = "x-icu-integer";
michael@0: static const char *intvector_restype = "x-icu-intvector";
michael@0: static const char *table_restype     = "x-icu-table";
michael@0: 
michael@0: static void
michael@0: string_write_xml(struct SResource *res, const char* id, const char* /*language*/, UErrorCode *status) {
michael@0: 
michael@0:     char *sid = NULL;
michael@0:     char* buf = NULL;
michael@0:     int32_t bufLen = 0;
michael@0: 
michael@0:     if(status==NULL || U_FAILURE(*status)){
michael@0:         return;
michael@0:     }
michael@0: 
michael@0:     sid = printContainer(res, trans_unit, NULL, NULL, id, status);
michael@0: 
michael@0:     write_tabs(out);
michael@0: 
michael@0:     write_utf8_file(out, UnicodeString(source));
michael@0: 
michael@0:     buf = convertAndEscape(&buf, 0, &bufLen, res->u.fString.fChars, res->u.fString.fLength, status);
michael@0: 
michael@0:     if (U_FAILURE(*status)) {
michael@0:         return;
michael@0:     }
michael@0: 
michael@0:     write_utf8_file(out, UnicodeString(buf, bufLen, "UTF-8"));
michael@0:     write_utf8_file(out, UnicodeString(close_source));
michael@0: 
michael@0:     printNoteElements(&res->fComment, status);
michael@0: 
michael@0:     tabCount -= 1;
michael@0:     write_tabs(out);
michael@0: 
michael@0:     write_utf8_file(out, UnicodeString(close_trans_unit));
michael@0: 
michael@0:     uprv_free(buf);
michael@0:     uprv_free(sid);
michael@0: }
michael@0: 
michael@0: static void
michael@0: alias_write_xml(struct SResource *res, const char* id, const char* /*language*/, UErrorCode *status) {
michael@0:     char *sid = NULL;
michael@0:     char* buf = NULL;
michael@0:     int32_t bufLen=0;
michael@0: 
michael@0:     sid = printContainer(res, trans_unit, alias_restype, NULL, id, status);
michael@0: 
michael@0:     write_tabs(out);
michael@0: 
michael@0:     write_utf8_file(out, UnicodeString(source));
michael@0: 
michael@0:     buf = convertAndEscape(&buf, 0, &bufLen, res->u.fString.fChars, res->u.fString.fLength, status);
michael@0: 
michael@0:     if(U_FAILURE(*status)){
michael@0:         return;
michael@0:     }
michael@0:     write_utf8_file(out, UnicodeString(buf, bufLen, "UTF-8"));
michael@0:     write_utf8_file(out, UnicodeString(close_source));
michael@0: 
michael@0:     printNoteElements(&res->fComment, status);
michael@0: 
michael@0:     tabCount -= 1;
michael@0:     write_tabs(out);
michael@0: 
michael@0:     write_utf8_file(out, UnicodeString(close_trans_unit));
michael@0: 
michael@0:     uprv_free(buf);
michael@0:     uprv_free(sid);
michael@0: }
michael@0: 
michael@0: static void
michael@0: array_write_xml(struct SResource *res, const char* id, const char* language, UErrorCode *status) {
michael@0:     char* sid = NULL;
michael@0:     int index = 0;
michael@0: 
michael@0:     struct SResource *current = NULL;
michael@0: 
michael@0:     sid = printContainer(res, group, array_restype, NULL, id, status);
michael@0: 
michael@0:     current = res->u.fArray.fFirst;
michael@0: 
michael@0:     while (current != NULL) {
michael@0:         char c[256] = {0};
michael@0:         char* subId = NULL;
michael@0: 
michael@0:         itostr(c, index, 10, 0);
michael@0:         index += 1;
michael@0:         subId = getID(sid, c, subId);
michael@0: 
michael@0:         res_write_xml(current, subId, language, FALSE, status);
michael@0:         uprv_free(subId);
michael@0:         subId = NULL;
michael@0: 
michael@0:         if(U_FAILURE(*status)){
michael@0:             return;
michael@0:         }
michael@0: 
michael@0:         current = current->fNext;
michael@0:     }
michael@0: 
michael@0:     tabCount -= 1;
michael@0:     write_tabs(out);
michael@0:     write_utf8_file(out, UnicodeString(close_group));
michael@0: 
michael@0:     uprv_free(sid);
michael@0: }
michael@0: 
michael@0: static void
michael@0: intvector_write_xml(struct SResource *res, const char* id, const char* /*language*/, UErrorCode *status) {
michael@0:     char* sid = NULL;
michael@0:     char* ivd = NULL;
michael@0:     uint32_t i=0;
michael@0:     uint32_t len=0;
michael@0:     char buf[256] = {'0'};
michael@0: 
michael@0:     sid = printContainer(res, group, intvector_restype, NULL, id, status);
michael@0: 
michael@0:     for(i = 0; i < res->u.fIntVector.fCount; i += 1) {
michael@0:         char c[256] = {0};
michael@0: 
michael@0:         itostr(c, i, 10, 0);
michael@0:         ivd = getID(sid, c, ivd);
michael@0:         len = itostr(buf, res->u.fIntVector.fArray[i], 10, 0);
michael@0: 
michael@0:         write_tabs(out);
michael@0:         write_utf8_file(out, UnicodeString("<"));
michael@0:         write_utf8_file(out, UnicodeString(trans_unit));
michael@0: 
michael@0:         printAttribute("id", ivd, (int32_t)uprv_strlen(ivd));
michael@0:         printAttribute("restype", integer_restype, (int32_t) strlen(integer_restype));
michael@0: 
michael@0:         write_utf8_file(out, UnicodeString(">\n"));
michael@0: 
michael@0:         tabCount += 1;
michael@0:         write_tabs(out);
michael@0:         write_utf8_file(out, UnicodeString(source));
michael@0: 
michael@0:         write_utf8_file(out, UnicodeString(buf, len));
michael@0: 
michael@0:         write_utf8_file(out, UnicodeString(close_source));
michael@0:         tabCount -= 1;
michael@0:         write_tabs(out);
michael@0:         write_utf8_file(out, UnicodeString(close_trans_unit));
michael@0: 
michael@0:         uprv_free(ivd);
michael@0:         ivd = NULL;
michael@0:     }
michael@0: 
michael@0:     tabCount -= 1;
michael@0:     write_tabs(out);
michael@0: 
michael@0:     write_utf8_file(out, UnicodeString(close_group));
michael@0:     uprv_free(sid);
michael@0:     sid = NULL;
michael@0: }
michael@0: 
michael@0: static void
michael@0: int_write_xml(struct SResource *res, const char* id, const char* /*language*/, UErrorCode *status) {
michael@0:     char* sid = NULL;
michael@0:     char buf[256] = {0};
michael@0:     uint32_t len = 0;
michael@0: 
michael@0:     sid = printContainer(res, trans_unit, integer_restype, NULL, id, status);
michael@0: 
michael@0:     write_tabs(out);
michael@0: 
michael@0:     write_utf8_file(out, UnicodeString(source));
michael@0: 
michael@0:     len = itostr(buf, res->u.fIntValue.fValue, 10, 0);
michael@0:     write_utf8_file(out, UnicodeString(buf, len));
michael@0: 
michael@0:     write_utf8_file(out, UnicodeString(close_source));
michael@0: 
michael@0:     printNoteElements(&res->fComment, status);
michael@0: 
michael@0:     tabCount -= 1;
michael@0:     write_tabs(out);
michael@0: 
michael@0:     write_utf8_file(out, UnicodeString(close_trans_unit));
michael@0: 
michael@0:     uprv_free(sid);
michael@0:     sid = NULL;
michael@0: }
michael@0: 
michael@0: static void
michael@0: bin_write_xml(struct SResource *res, const char* id, const char* /*language*/, UErrorCode *status) {
michael@0:     const char* m_type = application_mimetype;
michael@0:     char* sid = NULL;
michael@0:     uint32_t crc = 0xFFFFFFFF;
michael@0: 
michael@0:     char fileName[1024] ={0};
michael@0:     int32_t tLen = ( outDir == NULL) ? 0 :(int32_t)uprv_strlen(outDir);
michael@0:     char* fn =  (char*) uprv_malloc(sizeof(char) * (tLen+1024 +
michael@0:                                                     (res->u.fBinaryValue.fFileName !=NULL ?
michael@0:                                                     uprv_strlen(res->u.fBinaryValue.fFileName) :0)));
michael@0:     const char* ext = NULL;
michael@0: 
michael@0:     char* f = NULL;
michael@0: 
michael@0:     fn[0]=0;
michael@0: 
michael@0:     if(res->u.fBinaryValue.fFileName != NULL){
michael@0:         uprv_strcpy(fileName, res->u.fBinaryValue.fFileName);
michael@0:         f = uprv_strrchr(fileName, '\\');
michael@0: 
michael@0:         if (f != NULL) {
michael@0:             f++;
michael@0:         } else {
michael@0:             f = fileName;
michael@0:         }
michael@0: 
michael@0:         ext = uprv_strrchr(fileName, '.');
michael@0: 
michael@0:         if (ext == NULL) {
michael@0:             fprintf(stderr, "Error: %s is an unknown binary filename type.\n", fileName);
michael@0:             exit(U_ILLEGAL_ARGUMENT_ERROR);
michael@0:         }
michael@0: 
michael@0:         if(uprv_strcmp(ext, ".jpg")==0 || uprv_strcmp(ext, ".jpeg")==0 || uprv_strcmp(ext, ".gif")==0 ){
michael@0:             m_type = "image";
michael@0:         } else if(uprv_strcmp(ext, ".wav")==0 || uprv_strcmp(ext, ".au")==0 ){
michael@0:             m_type = "audio";
michael@0:         } else if(uprv_strcmp(ext, ".avi")==0 || uprv_strcmp(ext, ".mpg")==0 || uprv_strcmp(ext, ".mpeg")==0){
michael@0:             m_type = "video";
michael@0:         } else if(uprv_strcmp(ext, ".txt")==0 || uprv_strcmp(ext, ".text")==0){
michael@0:             m_type = "text";
michael@0:         }
michael@0: 
michael@0:         sid = printContainer(res, bin_unit, binary_restype, m_type, id, status);
michael@0: 
michael@0:         write_tabs(out);
michael@0: 
michael@0:         write_utf8_file(out, UnicodeString(bin_source));
michael@0: 
michael@0:         tabCount+= 1;
michael@0:         write_tabs(out);
michael@0: 
michael@0:         write_utf8_file(out, UnicodeString(external_file));
michael@0:         printAttribute("href", f, (int32_t)uprv_strlen(f));
michael@0:         write_utf8_file(out, UnicodeString("/>\n"));
michael@0:         tabCount -= 1;
michael@0:         write_tabs(out);
michael@0: 
michael@0:         write_utf8_file(out, UnicodeString(close_bin_source));
michael@0: 
michael@0:         printNoteElements(&res->fComment, status);
michael@0:         tabCount -= 1;
michael@0:         write_tabs(out);
michael@0:         write_utf8_file(out, UnicodeString(close_bin_unit));
michael@0:     } else {
michael@0:         char temp[256] = {0};
michael@0:         uint32_t i = 0;
michael@0:         int32_t len=0;
michael@0: 
michael@0:         sid = printContainer(res, bin_unit, binary_restype, m_type, id, status);
michael@0: 
michael@0:         write_tabs(out);
michael@0:         write_utf8_file(out, UnicodeString(bin_source));
michael@0: 
michael@0:         tabCount += 1;
michael@0:         write_tabs(out);
michael@0: 
michael@0:         write_utf8_file(out, UnicodeString(internal_file));
michael@0:         printAttribute("form", application_mimetype, (int32_t) uprv_strlen(application_mimetype));
michael@0: 
michael@0:         while(i <res->u.fBinaryValue.fLength){
michael@0:             len = itostr(temp, res->u.fBinaryValue.fData[i], 16, 2);
michael@0:             crc = computeCRC(temp, len, crc);
michael@0:             i++;
michael@0:         }
michael@0: 
michael@0:         len = itostr(temp, crc, 10, 0);
michael@0:         printAttribute("crc", temp, len);
michael@0: 
michael@0:         write_utf8_file(out, UnicodeString(">"));
michael@0: 
michael@0:         i = 0;
michael@0:         while(i <res->u.fBinaryValue.fLength){
michael@0:             len = itostr(temp, res->u.fBinaryValue.fData[i], 16, 2);
michael@0:             write_utf8_file(out, UnicodeString(temp));
michael@0:             i += 1;
michael@0:         }
michael@0: 
michael@0:         write_utf8_file(out, UnicodeString(close_internal_file));
michael@0: 
michael@0:         tabCount -= 2;
michael@0:         write_tabs(out);
michael@0: 
michael@0:         write_utf8_file(out, UnicodeString(close_bin_source));
michael@0:         printNoteElements(&res->fComment, status);
michael@0: 
michael@0:         tabCount -= 1;
michael@0:         write_tabs(out);
michael@0:         write_utf8_file(out, UnicodeString(close_bin_unit));
michael@0: 
michael@0:         uprv_free(sid);
michael@0:         sid = NULL;
michael@0:     }
michael@0: 
michael@0:     uprv_free(fn);
michael@0: }
michael@0: 
michael@0: 
michael@0: 
michael@0: static void
michael@0: table_write_xml(struct SResource *res, const char* id, const char* language, UBool isTopLevel, UErrorCode *status) {
michael@0: 
michael@0:     uint32_t  i         = 0;
michael@0: 
michael@0:     struct SResource *current = NULL;
michael@0:     char* sid = NULL;
michael@0: 
michael@0:     if (U_FAILURE(*status)) {
michael@0:         return ;
michael@0:     }
michael@0: 
michael@0:     sid = printContainer(res, group, table_restype, NULL, id, status);
michael@0: 
michael@0:     if(isTopLevel) {
michael@0:         sid[0] = '\0';
michael@0:     }
michael@0: 
michael@0:     current = res->u.fTable.fFirst;
michael@0:     i = 0;
michael@0: 
michael@0:     while (current != NULL) {
michael@0:         res_write_xml(current, sid, language, FALSE, status);
michael@0: 
michael@0:         if(U_FAILURE(*status)){
michael@0:             return;
michael@0:         }
michael@0: 
michael@0:         i += 1;
michael@0:         current = current->fNext;
michael@0:     }
michael@0: 
michael@0:     tabCount -= 1;
michael@0:     write_tabs(out);
michael@0: 
michael@0:     write_utf8_file(out, UnicodeString(close_group));
michael@0: 
michael@0:     uprv_free(sid);
michael@0:     sid = NULL;
michael@0: }
michael@0: 
michael@0: void
michael@0: res_write_xml(struct SResource *res, const char* id,  const char* language, UBool isTopLevel, UErrorCode *status) {
michael@0: 
michael@0:     if (U_FAILURE(*status)) {
michael@0:         return ;
michael@0:     }
michael@0: 
michael@0:     if (res != NULL) {
michael@0:         switch (res->fType) {
michael@0:         case URES_STRING:
michael@0:              string_write_xml    (res, id, language, status);
michael@0:              return;
michael@0: 
michael@0:         case URES_ALIAS:
michael@0:              alias_write_xml     (res, id, language, status);
michael@0:              return;
michael@0: 
michael@0:         case URES_INT_VECTOR:
michael@0:              intvector_write_xml (res, id, language, status);
michael@0:              return;
michael@0: 
michael@0:         case URES_BINARY:
michael@0:              bin_write_xml       (res, id, language, status);
michael@0:              return;
michael@0: 
michael@0:         case URES_INT:
michael@0:              int_write_xml       (res, id, language, status);
michael@0:              return;
michael@0: 
michael@0:         case URES_ARRAY:
michael@0:              array_write_xml     (res, id, language, status);
michael@0:              return;
michael@0: 
michael@0:         case URES_TABLE:
michael@0:              table_write_xml     (res, id, language, isTopLevel, status);
michael@0:              return;
michael@0: 
michael@0:         default:
michael@0:             break;
michael@0:         }
michael@0:     }
michael@0: 
michael@0:     *status = U_INTERNAL_PROGRAM_ERROR;
michael@0: }
michael@0: 
michael@0: void
michael@0: bundle_write_xml(struct SRBRoot *bundle, const char *outputDir,const char* outputEnc, const char* filename,
michael@0:                   char *writtenFilename, int writtenFilenameLen,
michael@0:                   const char* language, const char* outFileName, UErrorCode *status) {
michael@0: 
michael@0:     char* xmlfileName = NULL;
michael@0:     char* outputFileName = NULL;
michael@0:     char* originalFileName = NULL;
michael@0:     const char* fileStart = "<file xml:space = \"preserve\" source-language = \"";
michael@0:     const char* file1 = "\" datatype = \"x-icu-resource-bundle\" ";
michael@0:     const char* file2 = "original = \"";
michael@0:     const char* file4 = "\" date = \"";
michael@0:     const char* fileEnd = "</file>\n";
michael@0:     const char* headerStart = "<header>\n";
michael@0:     const char* headerEnd = "</header>\n";
michael@0:     const char* bodyStart = "<body>\n";
michael@0:     const char* bodyEnd = "</body>\n";
michael@0: 
michael@0:     const char *tool_start = "<tool";
michael@0:     const char *tool_id = "genrb-" GENRB_VERSION "-icu-" U_ICU_VERSION;
michael@0:     const char *tool_name = "genrb";
michael@0: 
michael@0:     char* temp = NULL;
michael@0:     char* lang = NULL;
michael@0:     const char* pos = NULL;
michael@0:     int32_t first, index;
michael@0:     time_t currTime;
michael@0:     char timeBuf[128];
michael@0: 
michael@0:     outDir = outputDir;
michael@0: 
michael@0:     srBundle = bundle;
michael@0: 
michael@0:     pos = uprv_strrchr(filename, '\\');
michael@0:     if(pos != NULL) {
michael@0:         first = (int32_t)(pos - filename + 1);
michael@0:     } else {
michael@0:         first = 0;
michael@0:     }
michael@0:     index = (int32_t)(uprv_strlen(filename) - uprv_strlen(textExt) - first);
michael@0:     originalFileName = (char *)uprv_malloc(sizeof(char)*index+1);
michael@0:     uprv_memset(originalFileName, 0, sizeof(char)*index+1);
michael@0:     uprv_strncpy(originalFileName, filename + first, index);
michael@0: 
michael@0:     if(uprv_strcmp(originalFileName, srBundle->fLocale) != 0) {
michael@0:         fprintf(stdout, "Warning: The file name is not same as the resource name!\n");
michael@0:     }
michael@0: 
michael@0:     temp = originalFileName;
michael@0:     originalFileName = (char *)uprv_malloc(sizeof(char)* (uprv_strlen(temp)+uprv_strlen(textExt)) + 1);
michael@0:     uprv_memset(originalFileName, 0, sizeof(char)* (uprv_strlen(temp)+uprv_strlen(textExt)) + 1);
michael@0:     uprv_strcat(originalFileName, temp);
michael@0:     uprv_strcat(originalFileName, textExt);
michael@0:     uprv_free(temp);
michael@0:     temp = NULL;
michael@0: 
michael@0: 
michael@0:     if (language == NULL) {
michael@0: /*        lang = parseFilename(filename, lang);
michael@0:         if (lang == NULL) {*/
michael@0:             /* now check if locale name is valid or not
michael@0:              * this is to cater for situation where
michael@0:              * pegasusServer.txt contains
michael@0:              *
michael@0:              * en{
michael@0:              *      ..
michael@0:              * }
michael@0:              */
michael@0:              lang = parseFilename(srBundle->fLocale, lang);
michael@0:              /*
michael@0:               * Neither  the file name nor the table name inside the
michael@0:               * txt file contain a valid country and language codes
michael@0:               * throw an error.
michael@0:               * pegasusServer.txt contains
michael@0:               *
michael@0:               * testelements{
michael@0:               *     ....
michael@0:               * }
michael@0:               */
michael@0:              if(lang==NULL){
michael@0:                  fprintf(stderr, "Error: The file name and table name do not contain a valid language code. Please use -l option to specify it.\n");
michael@0:                  exit(U_ILLEGAL_ARGUMENT_ERROR);
michael@0:              }
michael@0:        /* }*/
michael@0:     } else {
michael@0:         lang = (char *)uprv_malloc(sizeof(char)*uprv_strlen(language) +1);
michael@0:         uprv_memset(lang, 0, sizeof(char)*uprv_strlen(language) +1);
michael@0:         uprv_strcpy(lang, language);
michael@0:     }
michael@0: 
michael@0:     if(outFileName) {
michael@0:         outputFileName = (char *)uprv_malloc(sizeof(char)*uprv_strlen(outFileName) + 1);
michael@0:         uprv_memset(outputFileName, 0, sizeof(char)*uprv_strlen(outFileName) + 1);
michael@0:         uprv_strcpy(outputFileName,outFileName);
michael@0:     } else {
michael@0:         outputFileName = (char *)uprv_malloc(sizeof(char)*uprv_strlen(srBundle->fLocale) + 1);
michael@0:         uprv_memset(outputFileName, 0, sizeof(char)*uprv_strlen(srBundle->fLocale) + 1);
michael@0:         uprv_strcpy(outputFileName,srBundle->fLocale);
michael@0:     }
michael@0: 
michael@0:     if(outputDir) {
michael@0:         xmlfileName = (char *)uprv_malloc(sizeof(char)*(uprv_strlen(outputDir) + uprv_strlen(outputFileName) + uprv_strlen(xliffExt) + 1) +1);
michael@0:         uprv_memset(xmlfileName, 0, sizeof(char)*(uprv_strlen(outputDir)+ uprv_strlen(outputFileName) + uprv_strlen(xliffExt) + 1) +1);
michael@0:     } else {
michael@0:         xmlfileName = (char *)uprv_malloc(sizeof(char)*(uprv_strlen(outputFileName) + uprv_strlen(xliffExt)) +1);
michael@0:         uprv_memset(xmlfileName, 0, sizeof(char)*(uprv_strlen(outputFileName) + uprv_strlen(xliffExt)) +1);
michael@0:     }
michael@0: 
michael@0:     if(outputDir){
michael@0:         uprv_strcpy(xmlfileName, outputDir);
michael@0:         if(outputDir[uprv_strlen(outputDir)-1] !=U_FILE_SEP_CHAR){
michael@0:             uprv_strcat(xmlfileName,U_FILE_SEP_STRING);
michael@0:         }
michael@0:     }
michael@0:     uprv_strcat(xmlfileName,outputFileName);
michael@0:     uprv_strcat(xmlfileName,xliffExt);
michael@0: 
michael@0:     if (writtenFilename) {
michael@0:         uprv_strncpy(writtenFilename, xmlfileName, writtenFilenameLen);
michael@0:     }
michael@0: 
michael@0:     if (U_FAILURE(*status)) {
michael@0:         goto cleanup_bundle_write_xml;
michael@0:     }
michael@0: 
michael@0:     out= T_FileStream_open(xmlfileName,"w");
michael@0: 
michael@0:     if(out==NULL){
michael@0:         *status = U_FILE_ACCESS_ERROR;
michael@0:         goto cleanup_bundle_write_xml;
michael@0:     }
michael@0:     write_utf8_file(out, xmlHeader);
michael@0: 
michael@0:     if(outputEnc && *outputEnc!='\0'){
michael@0:         /* store the output encoding */
michael@0:         enc = outputEnc;
michael@0:         conv=ucnv_open(enc,status);
michael@0:         if(U_FAILURE(*status)){
michael@0:             goto cleanup_bundle_write_xml;
michael@0:         }
michael@0:     }
michael@0:     write_utf8_file(out, bundleStart);
michael@0:     write_tabs(out);
michael@0:     write_utf8_file(out, fileStart);
michael@0:     /* check if lang and language are the same */
michael@0:     if(language != NULL && uprv_strcmp(lang, srBundle->fLocale)!=0){
michael@0:         fprintf(stderr,"Warning: The top level tag in the resource and language specified are not the same. Please check the input.\n");
michael@0:     }
michael@0:     write_utf8_file(out, UnicodeString(lang));
michael@0:     write_utf8_file(out, UnicodeString(file1));
michael@0:     write_utf8_file(out, UnicodeString(file2));
michael@0:     write_utf8_file(out, UnicodeString(originalFileName));
michael@0:     write_utf8_file(out, UnicodeString(file4));
michael@0: 
michael@0:     time(&currTime);
michael@0:     strftime(timeBuf, sizeof(timeBuf), "%Y-%m-%dT%H:%M:%SZ", gmtime(&currTime));
michael@0:     write_utf8_file(out, UnicodeString(timeBuf));
michael@0:     write_utf8_file(out, UnicodeString("\">\n"));
michael@0: 
michael@0:     tabCount += 1;
michael@0:     write_tabs(out);
michael@0:     write_utf8_file(out, headerStart);
michael@0: 
michael@0:     tabCount += 1;
michael@0:     write_tabs(out);
michael@0: 
michael@0:     write_utf8_file(out, tool_start);
michael@0:     printAttribute("tool-id", tool_id, (int32_t) uprv_strlen(tool_id));
michael@0:     printAttribute("tool-name", tool_name, (int32_t) uprv_strlen(tool_name));
michael@0:     write_utf8_file(out, UnicodeString("/>\n"));
michael@0: 
michael@0:     tabCount -= 1;
michael@0:     write_tabs(out);
michael@0: 
michael@0:     write_utf8_file(out, UnicodeString(headerEnd));
michael@0: 
michael@0:     write_tabs(out);
michael@0:     tabCount += 1;
michael@0: 
michael@0:     write_utf8_file(out, UnicodeString(bodyStart));
michael@0: 
michael@0: 
michael@0:     res_write_xml(bundle->fRoot, bundle->fLocale, lang, TRUE, status);
michael@0: 
michael@0:     tabCount -= 1;
michael@0:     write_tabs(out);
michael@0: 
michael@0:     write_utf8_file(out, UnicodeString(bodyEnd));
michael@0:     tabCount--;
michael@0:     write_tabs(out);
michael@0:     write_utf8_file(out, UnicodeString(fileEnd));
michael@0:     tabCount--;
michael@0:     write_tabs(out);
michael@0:     write_utf8_file(out, UnicodeString(bundleEnd));
michael@0:     T_FileStream_close(out);
michael@0: 
michael@0:     ucnv_close(conv);
michael@0: 
michael@0: cleanup_bundle_write_xml:
michael@0:     uprv_free(originalFileName);
michael@0:     uprv_free(lang);
michael@0:     if(xmlfileName != NULL) {
michael@0:         uprv_free(xmlfileName);
michael@0:     }
michael@0:     if(outputFileName != NULL){
michael@0:         uprv_free(outputFileName);
michael@0:     }
michael@0: }