icuSources/tools/pkgdata/pkgtypes.c

   1 // © 2016 and later: Unicode, Inc. and others.
   2 // License & terms of use: http://www.unicode.org/copyright.html
   3 /**************************************************************************
   4 *
   5 *   Copyright (C) 2000-2016, International Business Machines
   6 *   Corporation and others.  All Rights Reserved.
   7 *
   8 ***************************************************************************
   9 *   file name:  pkgdata.c
  10 *   encoding:   ANSI X3.4 (1968)
  11 *   tab size:   8 (not used)
  12 *   indentation:4
  13 *
  14 *   created on: 2000may16
  15 *   created by: Steven \u24C7 Loomis
  16 *
  17 *  common types for pkgdata
  18 */
  19
  20 #include <stdio.h>
  21 #include <stdlib.h>
  22 #include "unicode/utypes.h"
  23 #include "unicode/putil.h"
  24 #include "cmemory.h"
  25 #include "cstring.h"
  26 #include "pkgtypes.h"
  27 #include "putilimp.h"
  28
  29 const char *pkg_writeCharListWrap(FileStream *s, CharList *l, const char *delim, const char *brk, int32_t quote)
  30 {
  31     int32_t ln = 0;
  32     char buffer[1024];
  33     while(l != NULL)
  34     {
  35         if(l->str)
  36         {
  37             uprv_strncpy(buffer, l->str, 1020);
  38             buffer[1019]=0;
  39
  40             if(quote < 0) { /* remove quotes */
  41                 if(buffer[uprv_strlen(buffer)-1] == '"') {
  42                     buffer[uprv_strlen(buffer)-1] = '\0';
  43                 }
  44                 if(buffer[0] == '"') {
  45                     uprv_strcpy(buffer, buffer+1);
  46                 }
  47             } else if(quote > 0) { /* add quotes */
  48                 if(l->str[0] != '"') {
  49                     uprv_strcpy(buffer, "\"");
  50                     uprv_strncat(buffer, l->str,1020);
  51                 }
  52                 if(l->str[uprv_strlen(l->str)-1] != '"') {
  53                     uprv_strcat(buffer, "\"");
  54                 }
  55             }
  56             T_FileStream_write(s, buffer, (int32_t)uprv_strlen(buffer));
  57
  58             ln += (int32_t)uprv_strlen(l->str);
  59         }
  60
  61         if(l->next && delim)
  62         {
  63             if(ln > 60 && brk) {
  64                 ln  = 0;
  65                 T_FileStream_write(s, brk, (int32_t)uprv_strlen(brk));
  66             }
  67             T_FileStream_write(s, delim, (int32_t)uprv_strlen(delim));
  68         }
  69         l = l->next;
  70     }
  71     return NULL;
  72 }
  73
  74
  75 const char *pkg_writeCharList(FileStream *s, CharList *l, const char *delim, int32_t quote)
  76 {
  77     char buffer[1024];
  78     while(l != NULL)
  79     {
  80         if(l->str)
  81         {
  82             uprv_strncpy(buffer, l->str, 1023);
  83             buffer[1023]=0;
  84             if(uprv_strlen(l->str) >= 1023)
  85             {
  86                 fprintf(stderr, "%s:%d: Internal error, line too long (greater than 1023 chars)\n",
  87                         __FILE__, __LINE__);
  88                 exit(0);
  89             }
  90             if(quote < 0) { /* remove quotes */
  91                 if(buffer[uprv_strlen(buffer)-1] == '"') {
  92                     buffer[uprv_strlen(buffer)-1] = '\0';
  93                 }
  94                 if(buffer[0] == '"') {
  95                     uprv_strcpy(buffer, buffer+1);
  96                 }
  97             } else if(quote > 0) { /* add quotes */
  98                 if(l->str[0] != '"') {
  99                     uprv_strcpy(buffer, "\"");
 100                     uprv_strcat(buffer, l->str);
 101                 }
 102                 if(l->str[uprv_strlen(l->str)-1] != '"') {
 103                     uprv_strcat(buffer, "\"");
 104                 }
 105             }
 106             T_FileStream_write(s, buffer, (int32_t)uprv_strlen(buffer));
 107         }
 108
 109         if(l->next && delim)
 110         {
 111             T_FileStream_write(s, delim, (int32_t)uprv_strlen(delim));
 112         }
 113         l = l->next;
 114     }
 115     return NULL;
 116 }
 117
 118
 119 /*
 120  * Count items . 0 if null
 121  */
 122 uint32_t pkg_countCharList(CharList *l)
 123 {
 124   uint32_t c = 0;
 125   while(l != NULL)
 126   {
 127     c++;
 128     l = l->next;
 129   }
 130
 131   return c;
 132 }
 133
 134 /*
 135  * Prepend string to CharList
 136  */
 137 CharList *pkg_prependToList(CharList *l, const char *str)
 138 {
 139   CharList *newList;
 140   newList = uprv_malloc(sizeof(CharList));
 141
 142   /* test for NULL */
 143   if(newList == NULL) {
 144     return NULL;
 145   }
 146
 147   newList->str = str;
 148   newList->next = l;
 149   return newList;
 150 }
 151
 152 /*
 153  * append string to CharList. *end or even end can be null if you don't
 154  * know it.[slow]
 155  * Str is adopted!
 156  */
 157 CharList *pkg_appendToList(CharList *l, CharList** end, const char *str)
 158 {
 159   CharList *endptr = NULL, *tmp;
 160
 161   if(end == NULL)
 162   {
 163     end = &endptr;
 164   }
 165
 166   /* FIND the end */
 167   if((*end == NULL) && (l != NULL))
 168   {
 169     tmp = l;
 170     while(tmp->next)
 171     {
 172       tmp = tmp->next;
 173     }
 174
 175     *end = tmp;
 176   }
 177
 178   /* Create a new empty list and append it */
 179   if(l == NULL)
 180     {
 181       l = pkg_prependToList(NULL, str);
 182     }
 183   else
 184     {
 185       (*end)->next = pkg_prependToList(NULL, str);
 186     }
 187
 188   /* Move the end pointer. */
 189   if(*end)
 190     {
 191       (*end) = (*end)->next;
 192     }
 193   else
 194     {
 195       *end = l;
 196     }
 197
 198   return l;
 199 }
 200
 201 char * convertToNativePathSeparators(char *path) {
 202 #if defined(U_MAKE_IS_NMAKE)
 203     char *itr;
 204     while ((itr = uprv_strchr(path, U_FILE_ALT_SEP_CHAR))) {
 205         *itr = U_FILE_SEP_CHAR;
 206     }
 207 #endif
 208     return path;
 209 }
 210
 211 CharList *pkg_appendUniqueDirToList(CharList *l, CharList** end, const char *strAlias) {
 212     char aBuf[1024];
 213     char *rPtr;
 214     rPtr = uprv_strrchr(strAlias, U_FILE_SEP_CHAR);
 215 #if (U_FILE_SEP_CHAR != U_FILE_ALT_SEP_CHAR)
 216     {
 217         char *aPtr = uprv_strrchr(strAlias, U_FILE_ALT_SEP_CHAR);
 218         if(!rPtr || /* regular char wasn't found or.. */
 219             (aPtr && (aPtr > rPtr)))
 220         { /* alt ptr exists and is to the right of r ptr */
 221             rPtr = aPtr; /* may copy NULL which is OK */
 222         }
 223     }
 224 #endif
 225     if(!rPtr) {
 226         return l; /* no dir path */
 227     }
 228     if((rPtr-strAlias) >= UPRV_LENGTHOF(aBuf)) {
 229         fprintf(stderr, "## ERR: Path too long [%d chars]: %s\n", (int)sizeof(aBuf), strAlias);
 230         return l;
 231     }
 232     strncpy(aBuf, strAlias,(rPtr-strAlias));
 233     aBuf[rPtr-strAlias]=0;  /* no trailing slash */
 234     convertToNativePathSeparators(aBuf);
 235
 236     if(!pkg_listContains(l, aBuf)) {
 237         return pkg_appendToList(l, end, uprv_strdup(aBuf));
 238     } else {
 239         return l; /* already found */
 240     }
 241 }
 242
 243 #if 0
 244 static CharList *
 245 pkg_appendFromStrings(CharList *l, CharList** end, const char *s, int32_t len)
 246 {
 247   CharList *endptr = NULL;
 248   const char *p;
 249   char *t;
 250   const char *targ;
 251   if(end == NULL) {
 252     end = &endptr;
 253   }
 254
 255   if(len==-1) {
 256     len = uprv_strlen(s);
 257   }
 258   targ = s+len;
 259
 260   while(*s && s<targ) {
 261     while(s<targ&&isspace(*s)) s++;
 262     for(p=s;s<targ&&!isspace(*p);p++);
 263     if(p!=s) {
 264       t = uprv_malloc(p-s+1);
 265       uprv_strncpy(t,s,p-s);
 266       t[p-s]=0;
 267       l=pkg_appendToList(l,end,t);
 268       fprintf(stderr, " P %s\n", t);
 269     }
 270     s=p;
 271   }
 272
 273   return l;
 274 }
 275 #endif
 276
 277
 278 /*
 279  * Delete list
 280  */
 281 void pkg_deleteList(CharList *l)
 282 {
 283   CharList *tmp;
 284   while(l != NULL)
 285   {
 286     uprv_free((void*)l->str);
 287     tmp = l;
 288     l = l->next;
 289     uprv_free(tmp);
 290   }
 291 }
 292
 293 UBool  pkg_listContains(CharList *l, const char *str)
 294 {
 295   for(;l;l=l->next){
 296     if(!uprv_strcmp(l->str, str)) {
 297       return TRUE;
 298     }
 299   }
 300
 301   return FALSE;
 302 }