src/compiler/dmd/typeinfo/ti_Areal.d

   1 /*
   2  *  Copyright (C) 2004-2006 by Digital Mars, www.digitalmars.com
   3  *  Written by Walter Bright
   4  *
   5  *  This software is provided 'as-is', without any express or implied
   6  *  warranty. In no event will the authors be held liable for any damages
   7  *  arising from the use of this software.
   8  *
   9  *  Permission is granted to anyone to use this software for any purpose,
  10  *  including commercial applications, and to alter it and redistribute it
  11  *  freely, in both source and binary form, subject to the following
  12  *  restrictions:
  13  *
  14  *  o  The origin of this software must not be misrepresented; you must not
  15  *     claim that you wrote the original software. If you use this software
  16  *     in a product, an acknowledgment in the product documentation would be
  17  *     appreciated but is not required.
  18  *  o  Altered source versions must be plainly marked as such, and must not
  19  *     be misrepresented as being the original software.
  20  *  o  This notice may not be removed or altered from any source
  21  *     distribution.
  22  */
  23
  24 module rt.typeinfo.ti_Areal;
  25
  26 private import typeinfo.ti_real;
  27
  28 // real[]
  29
  30 class TypeInfo_Ae : TypeInfo
  31 {
  32     string toString() { return "real[]"; }
  33
  34     hash_t getHash(in void* p)
  35     {   real[] s = *cast(real[]*)p;
  36         size_t len = s.length;
  37         auto str = s.ptr;
  38         hash_t hash = 0;
  39
  40         while (len)
  41         {
  42             hash *= 9;
  43             hash += (cast(uint *)str)[0];
  44             hash += (cast(uint *)str)[1];
  45             hash += (cast(ushort *)str)[4];
  46             str++;
  47             len--;
  48         }
  49
  50         return hash;
  51     }
  52
  53     equals_t equals(in void* p1, in void* p2)
  54     {
  55         real[] s1 = *cast(real[]*)p1;
  56         real[] s2 = *cast(real[]*)p2;
  57         size_t len = s1.length;
  58
  59         if (len != s2.length)
  60             return 0;
  61         for (size_t u = 0; u < len; u++)
  62         {
  63             int c = TypeInfo_e._equals(s1[u], s2[u]);
  64             if (c == 0)
  65                 return 0;
  66         }
  67         return 1;
  68     }
  69
  70     int compare(in void* p1, in void* p2)
  71     {
  72         real[] s1 = *cast(real[]*)p1;
  73         real[] s2 = *cast(real[]*)p2;
  74         size_t len = s1.length;
  75
  76         if (s2.length < len)
  77             len = s2.length;
  78         for (size_t u = 0; u < len; u++)
  79         {
  80             int c = TypeInfo_e._compare(s1[u], s2[u]);
  81             if (c)
  82                 return c;
  83         }
  84         if (s1.length < s2.length)
  85             return -1;
  86         else if (s1.length > s2.length)
  87             return 1;
  88         return 0;
  89     }
  90
  91     size_t tsize()
  92     {
  93         return (real[]).sizeof;
  94     }
  95
  96     uint flags()
  97     {
  98         return 1;
  99     }
 100
 101     TypeInfo next()
 102     {
 103         return typeid(real);
 104     }
 105 }
 106
 107 // ireal[]
 108
 109 class TypeInfo_Aj : TypeInfo_Ae
 110 {
 111     string toString() { return "ireal[]"; }
 112
 113     TypeInfo next()
 114     {
 115         return typeid(ireal);
 116     }
 117 }