i386/linux/linux-2.3.21/fs/ntfs/util.c

   1 /*
   2  *  util.c
   3  *  Miscellaneous support
   4  *
   5  *  Copyright (C) 1997,1999 Martin von Löwis
   6  *  Copyright (C) 1997 Régis Duchesne
   7  *
   8  *  The utf8 routines are copied from Python wstrop module.
   9  */
  10
  11 #include "ntfstypes.h"
  12 #include "struct.h"
  13 #include "util.h"
  14
  15 #include <linux/string.h>
  16 #include <linux/errno.h>
  17 /* FreeBSD doesn't seem to have EILSEQ in errno.h */
  18 #ifndef EILSEQ
  19 # define EILSEQ EINVAL
  20 #endif
  21 #include "support.h"
  22
  23 /* Converts a single wide character to a sequence of utf8 bytes.
  24  * The character is represented in host byte order.
  25  * Returns the number of bytes, or 0 on error.
  26  */
  27 static int
  28 to_utf8(ntfs_u16 c,unsigned char* buf)
  29 {
  30         if(c==0)
  31                 return 0; /* No support for embedded 0 runes */
  32         if(c<0x80){
  33                 if(buf)buf[0]=(unsigned char)c;
  34                 return 1;
  35         }
  36         if(c<0x800){
  37                 if(buf){
  38                         buf[0] = 0xc0 | (c>>6);
  39                         buf[1] = 0x80 | (c & 0x3f);
  40                 }
  41                 return 2;
  42         }
  43         if(c<0x10000){
  44                 if(buf){
  45                         buf[0] = 0xe0 | (c>>12);
  46                         buf[1] = 0x80 | ((c>>6) & 0x3f);
  47                         buf[2] = 0x80 | (c & 0x3f);
  48                 }
  49                 return 3;
  50         }
  51         /* We don't support characters above 0xFFFF in NTFS */
  52         return 0;
  53 }
  54
  55 /* Decodes a sequence of utf8 bytes into a single wide character.
  56  * The character is returned in host byte order.
  57  * Returns the number of bytes consumed, or 0 on error.
  58  */
  59 static int
  60 from_utf8(const unsigned char* str,ntfs_u16 *c)
  61 {
  62         int l=0,i;
  63
  64         if(*str<0x80){
  65                 *c = *str;
  66                 return 1;
  67         }
  68         if(*str<0xc0) /* lead byte must not be 10xxxxxx */
  69                 return 0;   /* is c0 a possible lead byte? */
  70         if(*str<0xe0){         /* 110xxxxx */
  71                 *c = *str & 0x1f;
  72                 l=2;
  73         }else if(*str<0xf0){   /* 1110xxxx */
  74                 *c = *str & 0xf;
  75                 l=3;
  76         }else if(*str<0xf8){   /* 11110xxx */
  77                 *c = *str & 7;
  78                 l=4;
  79         }else /* We don't support characters above 0xFFFF in NTFS */
  80                 return 0;
  81
  82
  83         for(i=1;i<l;i++){
  84                 /* all other bytes must be 10xxxxxx */
  85                 if((str[i] & 0xc0) != 0x80)
  86                         return 0;
  87                 *c <<= 6;
  88                 *c |= str[i] & 0x3f;
  89         }
  90         return l;
  91 }
  92
  93 /* Converts wide string to UTF-8. Expects two in- and two out-parameters.
  94  * Returns 0 on success, or error code.
  95  * The caller has to free the result string.
  96  * There is no support for UTF-16, yet
  97  */
  98 static int ntfs_dupuni2utf8(ntfs_u16* in, int in_len,char **out,int *out_len)
  99 {
 100         int i,tmp;
 101         int len8;
 102         unsigned char *result;
 103
 104         ntfs_debug(DEBUG_NAME1,"converting l=%d\n",in_len);
 105         /* count the length of the resulting UTF-8 */
 106         for(i=len8=0;i<in_len;i++){
 107                 tmp=to_utf8(NTFS_GETU16(in+i),0);
 108                 if(!tmp)
 109                         /* invalid character */
 110                         return EILSEQ;
 111                 len8+=tmp;
 112         }
 113         *out=result=ntfs_malloc(len8+1); /* allow for zero-termination */
 114
 115         if(!result)
 116                 return ENOMEM;
 117         result[len8]='\0';
 118         *out_len=len8;
 119         for(i=len8=0;i<in_len;i++)
 120                 len8+=to_utf8(NTFS_GETU16(in+i),result+len8);
 121         ntfs_debug(DEBUG_NAME1,"result %p:%s\n",result,result);
 122         return 0;
 123 }
 124
 125 /* Converts an UTF-8 sequence to a wide string. Same conventions as the
 126  * previous function
 127  */
 128 static int ntfs_duputf82uni(unsigned char* in, int in_len,ntfs_u16** out,int *out_len)
 129 {
 130         int i,tmp;
 131         int len16;
 132
 133         ntfs_u16* result;
 134         ntfs_u16 wtmp;
 135         for(i=len16=0;i<in_len;i+=tmp,len16++){
 136                 tmp=from_utf8(in+i,&wtmp);
 137                 if(!tmp)
 138                         return EILSEQ;
 139         }
 140         *out=result=ntfs_malloc(2*(len16+1));
 141         if(!result)
 142                 return ENOMEM;
 143         result[len16]=0;
 144         *out_len=len16;
 145         for(i=len16=0;i<in_len;i+=tmp,len16++)
 146         {
 147                 tmp=from_utf8(in+i, &wtmp);
 148                 NTFS_PUTU16(result+len16, wtmp);
 149         }
 150         return 0;
 151 }
 152
 153 /* See above. Produces ISO-8859-1 from wide strings */
 154 static int ntfs_dupuni288591(ntfs_u16* in,int in_len,char** out,int *out_len)
 155 {
 156         int i;
 157         char *result;
 158
 159         /* check for characters out of range */
 160         for(i=0;i<in_len;i++)
 161                 if(NTFS_GETU16(in+i)>=256)
 162                         return EILSEQ;
 163         *out=result=ntfs_malloc(in_len+1);
 164         if(!result)
 165                 return ENOMEM;
 166         result[in_len]='\0';
 167         *out_len=in_len;
 168         for(i=0;i<in_len;i++)
 169                 result[i]=(unsigned char)NTFS_GETU16(in+i);
 170         return 0;
 171 }
 172
 173 /* See above */
 174 static int ntfs_dup885912uni(unsigned char* in,int in_len,ntfs_u16 **out,int *out_len)
 175 {
 176         int i;
 177
 178         ntfs_u16* result;
 179         *out=result=ntfs_malloc(2*in_len);
 180         if(!result)
 181                 return ENOMEM;
 182         *out_len=in_len;
 183         for(i=0;i<in_len;i++)
 184                 NTFS_PUTU16(result+i,in[i]);
 185         return 0;
 186 }
 187
 188 /* Encodings dispatcher */
 189 int ntfs_encodeuni(ntfs_volume *vol,ntfs_u16 *in, int in_len,
 190                    char **out, int *out_len)
 191 {
 192         if(vol->nct & nct_utf8)
 193                 return ntfs_dupuni2utf8(in,in_len,out,out_len);
 194         else if(vol->nct & nct_iso8859_1)
 195                 return ntfs_dupuni288591(in,in_len,out,out_len);
 196         else if(vol->nct & (nct_map|nct_uni_xlate))
 197                 /* uni_xlate is handled inside map */
 198                 return ntfs_dupuni2map(vol,in,in_len,out,out_len);
 199         else
 200                 return EINVAL; /* unknown encoding */
 201 }
 202
 203 int ntfs_decodeuni(ntfs_volume *vol,char *in, int in_len,
 204                    ntfs_u16 **out, int *out_len)
 205 {
 206         if(vol->nct & nct_utf8)
 207                 return ntfs_duputf82uni(in,in_len,out,out_len);
 208         else if(vol->nct & nct_iso8859_1)
 209                 return ntfs_dup885912uni(in,in_len,out,out_len);
 210         else if(vol->nct & (nct_map | nct_uni_xlate))
 211                 return ntfs_dupmap2uni(vol,in,in_len,out,out_len);
 212         else
 213                 return EINVAL;
 214 }
 215
 216 /* Same address space copies */
 217 void ntfs_put(ntfs_io *dest,void *src,ntfs_size_t n)
 218 {
 219         ntfs_memcpy(dest->param,src,n);
 220         ((char*)dest->param)+=n;
 221 }
 222
 223 void ntfs_get(void* dest,ntfs_io *src,ntfs_size_t n)
 224 {
 225         ntfs_memcpy(dest,src->param,n);
 226         ((char*)src->param)+=n;
 227 }
 228
 229 void *ntfs_calloc(int size)
 230 {
 231         void *result=ntfs_malloc(size);
 232         if(result)
 233                 ntfs_bzero(result,size);
 234         return result;
 235 }
 236
 237 #if 0
 238 /* copy len unicode characters from from to to :) */
 239 void ntfs_uni2ascii(char *to,char *from,int len)
 240 {
 241         int i;
 242
 243         for(i=0;i<len;i++)
 244                 to[i]=from[2*i];
 245         to[i]='\0';
 246 }
 247 #endif
 248
 249 /* copy len asci characters from from to to :) */
 250 void ntfs_ascii2uni(short int *to,char *from,int len)
 251 {
 252         int i;
 253
 254         for(i=0;i<len;i++)
 255                 to[i]=from[i];
 256         to[i]=0;
 257 }
 258
 259 /* strncmp for Unicode strings */
 260 int ntfs_uni_strncmp(short int* a,short int *b,int n)
 261 {
 262         int i;
 263
 264         for(i=0;i<n;i++)
 265         {
 266                 if(a[i]<b[i])
 267                         return -1;
 268                 if(b[i]<a[i])
 269                         return 1;
 270         }
 271         return 0;
 272 }
 273
 274 /* strncmp between Unicode and ASCII strings */
 275 int ntfs_ua_strncmp(short int* a,char* b,int n)
 276 {
 277         int i;
 278
 279         for(i=0;i<n;i++)
 280         {
 281                 if(NTFS_GETU16(a+i)<b[i])
 282                         return -1;
 283                 if(b[i]<NTFS_GETU16(a+i))
 284                         return 1;
 285         }
 286         return 0;
 287 }
 288
 289 /* Convert the NT UTC (based 1.1.1601, in hundred nanosecond units)
 290  * into Unix UTC (based 1.1.1970, in seconds)
 291  */
 292 ntfs_time_t ntfs_ntutc2unixutc(ntfs_time64_t ntutc)
 293 {
 294 /*
 295  * This is very gross because
 296  * 1: We must do 64-bit division on a 32-bit machine
 297  * 2: We can't use libgcc for long long operations in the kernel
 298  * 3: Floating point math in the kernel would corrupt user data
 299  */
 300         const unsigned int D = 10000000;
 301         unsigned int H = (unsigned int)(ntutc >> 32);
 302         unsigned int L = (unsigned int)ntutc;
 303         unsigned int numerator2;
 304         unsigned int lowseconds;
 305         unsigned int result;
 306
 307         /* It is best to subtract 0x019db1ded53e8000 first. */
 308         /* Then the 1601-based date becomes a 1970-based date. */
 309         if(L < (unsigned)0xd53e8000) H--;
 310         L -= (unsigned)0xd53e8000;
 311         H -= (unsigned)0x019db1de;
 312
 313         /*
 314          * Now divide 64-bit numbers on a 32-bit machine :-)
 315          * With the subtraction already done, the result fits in 32 bits.
 316          * The numerator fits in 56 bits and the denominator fits
 317          * in 24 bits, so we can shift by 8 bits to make this work.
 318          */
 319
 320         numerator2  = (H<<8) | (L>>24);
 321         result      = (numerator2 / D);   /* shifted 24 right!! */
 322         lowseconds  = result << 24;
 323
 324         numerator2  = ((numerator2-result*D)<<8) | ((L>>16)&0xff);
 325         result      = (numerator2 / D);   /* shifted 16 right!! */
 326         lowseconds |= result << 16;
 327
 328         numerator2  = ((numerator2-result*D)<<8) | ((L>>8)&0xff);
 329         result      = (numerator2 / D);   /* shifted 8 right!! */
 330         lowseconds |= result << 8;
 331
 332         numerator2  = ((numerator2-result*D)<<8) | (L&0xff);
 333         result      = (numerator2 / D);   /* not shifted */
 334         lowseconds |= result;
 335
 336         return lowseconds;
 337 }
 338
 339 /* Convert the Unix UTC into NT UTC */
 340 ntfs_time64_t ntfs_unixutc2ntutc(ntfs_time_t t)
 341 {
 342         return ((t + (ntfs_time64_t)(369*365+89)*24*3600) * 10000000);
 343 }
 344
 345 /* Fill index name. */
 346
 347 void
 348 ntfs_indexname(char *buf, int type)
 349 {
 350         char hex[]="0123456789ABCDEF";
 351         int index;
 352         *buf++='$';
 353         *buf++='I';
 354         for (index=24; index>0; index-=4)
 355                 if((0xF << index) & type)
 356                         break;
 357         while(index>=0) {
 358                 *buf++ = hex[(type >> index) & 0xF];
 359                 index-=4;
 360         }
 361         *buf='\0';
 362 }
 363
 364 /*
 365  * Local variables:
 366  * c-file-style: "linux"
 367  * End:
 368  */