/** \file
 * \brief IupMatrix Expansion Library.
 *
 * Original implementation from Bruno Kassar.
 * See Copyright Notice in "iup.h"
 */

#include <stdio.h>
#include <stdlib.h>
#include <limits.h>
#include <string.h>
#include <math.h>

#include "iup.h"
#include "iupcbs.h"

#include "iup_array.h"
#include "iup_object.h"
#include "iup_attrib.h"
#include "iup_str.h"
#include "iup_matrixex.h"


#ifndef M_PI
#define M_PI       3.14159265358979323846
#endif

/* Source for conversion names, symbols and factors:
   http://en.wikipedia.org/wiki/Conversion_of_units

   This file is in UTF-8 encoding with BOM, so the comments are correctly displayed. 
   Units are written in hex to avoid conversion problems.
*/


#define IMATEX_UNIT_MAXCOUNT 25

typedef struct _ImatExUnit {
  const char* u_name;
  const char* symbol;
  double factor;
  const char* symbol_utf8;
} ImatExUnit;

#define GRAVITY 9.80665

#define IMATEX_LENGTH_COUNT 12
static ImatExUnit IMATEX_LENGTH_UNITS [IMATEX_UNIT_MAXCOUNT] = {
  {"metre"        ,"m" , 1,       NULL},
  {"centimetre"   ,"cm", 0.01,    NULL},
  {"millimetre"   ,"mm", 0.001,   NULL},
  {"kilometre"    ,"km", 1000,    NULL},
  {"nanometre"    ,"nm", 1.0e-9,  NULL},
  {"Angstrom"     ,"\xC5" , 1.0e-10, "\xC3\x85" },  /* Å */ 
  {"micron"       ,"\xB5" , 1.0e-6,  "\xC2\xB5"  }, /* µ */ /* International yard and pound agreement in 1959 */                
  {"inch"         ,"in", 0.0254,   NULL},   /* 0.0254                 (in = 25.4 mm)   */
  {"foot"         ,"ft", 0.3048,   NULL},    /* 0.0254 * 12            (ft = 12 in)     */
  {"yard"         ,"yd", 0.9144,   NULL},     /* 0.0254 * 12 * 3        (yd = 3 ft)      */
  {"mile"         ,"mi", 1609.344, NULL},   /* 0.0254 * 12 * 3 * 1760 (mi = 1760 yd)   */
  {"nautical mile","NM", 1853.184, NULL}};  /* 6080 ft */

#define IMATEX_TIME_COUNT 7                
static ImatExUnit IMATEX_TIME_UNITS [IMATEX_UNIT_MAXCOUNT] = {
  {"second","s"  , 1, NULL},
  {"minute","min", 60, NULL},
  {"hour"  ,"h"  , 3600, NULL},     /* 60 * 60 */
  {"day"   ,"d"  , 86400, NULL},    /* 60 * 60 * 24 */
  {"week"  ,"wk" , 604800, NULL},  /* 60 * 60 * 24 * 7 */
  {"millisecond","ms", 0.001, NULL},                                       
  {"microsecond","\xB5""s", 1.0e-6, "\xC2\xB5s"}};  /* µs */    

#define IMATEX_MASS_COUNT 5               
static ImatExUnit IMATEX_MASS_UNITS [IMATEX_UNIT_MAXCOUNT] = {
  {"kilogram"   ,"kg" , 1, NULL},
  {"gram"       ,"g"  , 0.001          , NULL},
  {"tonne"      ,"t"  , 1000           , NULL},  /*  metric ton */
  {"pound"      ,"lb" , 0.45359237     , NULL},  /* International yard and pound agreement in 1959 */
  {"ounce"      ,"oz" , 0.45359237/16.0, NULL}}; /* (international avoirdupois) */

#define IMATEX_CELSIUS 1
#define IMATEX_FAHRENHEIT 2
#define IMATEX_TEMPERATURE_COUNT 4                       
static ImatExUnit IMATEX_TEMPERATURE_UNITS [IMATEX_UNIT_MAXCOUNT] = {
  {"Kelvin"           ,"K"  , 1, NULL},
  {"degree Celsius"   ,"\xB0""C" , 1,     "\xC2\xBA""C"},   /* °C" */
  {"degree Fahrenheit","\xB0""F" , 5./9., "\xC2\xBA""F"},   /* °F" */
  {"degree Rankine"   ,"\xB0""Ra", 5./9., "\xC2\xBA""Ra"}}; /* °Ra */

#define IMATEX_AREA_COUNT 13
static ImatExUnit IMATEX_AREA_UNITS [IMATEX_UNIT_MAXCOUNT] = {
  {"square metre"     ,"m\xB2"   , 1,       "m\xC2\xB2"},                  /* m²  */
  {"square centimetre","cm\xB2"  , 1.0e-4, "cm\xC2\xB2"},   /* 0.01^2 */   /* cm² */
  {"square millimetre","mm\xB2"  , 1.0e-6, "mm\xC2\xB2"},   /* 0.001^2 */  /* mm² */
  {"square kilometre" ,"km\xB2"  , 1.0e6,  "km\xC2\xB2"},   /* 1000^2 */   /* km² */
  {"square nanometre", "nm\xB2",   1.0e-18, "nm\xC2\xB2" },                /* nm² */
  {"square Angstrom",  "\xC5""\xB2",    1.0e-20, "\xC3\x85\xC2\xB2" },     /* Ų  */
  {"square micron",    "\xB5""\xB2",    1.0e-12, "\xC2\xB5\xC2\xB2" },     /* µ²  */
  {"square inch"      ,"sq in", 6.4516e-4, NULL},       /* 0.0254^2 */
  {"square foot"      ,"sq ft", 9.290304e-2, NULL},      /* 0.3048^2 */   
  {"square yard"      ,"sq yd", 0.83612736, NULL},       /* 0.9144^2 */
  {"square mile"      ,"sq mi", 2.589988110336e6, NULL}, /* 1609.344^2 */
  {"acre"             ,"ac"   , 4046.8564224, NULL},     /* 0.9144^2 * 4840 (4840 sq yd) */
  {"hectare"          ,"ha"   , 1.0e4,      NULL}};

#define IMATEX_VOLUME_COUNT 11
static ImatExUnit IMATEX_VOLUME_UNITS [IMATEX_UNIT_MAXCOUNT] = {
  {"cubic metre"     ,"m\xB3"   , 1,       "m\xC2\xB3"},  /* m³  */
  {"cubic centimetre","cm\xB3"  , 1.0e-6, "cm\xC2\xB3"},  /* cm³ */  /* 0.01^3 */
  {"cubic millimetre","mm\xB3"  , 1.0e-9, "mm\xC2\xB3"},  /* mm³ */  /* 0.001^3 */
  {"cubic kilometre" ,"km\xB3"  , 1.0e9,  "km\xC2\xB3"},  /* km³ */  /* 1000^3 */
  {"cubic inch"      ,"cu in", 16.387064e-6, NULL},          /* 0.0254^3 */
  {"cubic foot"      ,"cu ft", 0.028316846592, NULL},        /* 0.3048^3 */   
  {"cubic yard"      ,"cu yd", 0.764554857984, NULL},        /* 0.9144^3 */
  {"cubic mile"      ,"cu mi", 4168181825.440579584, NULL},  /* 1609.344^3 */
  {"litre"           ,"L"    , 0.001           , NULL},
  {"gallon"          ,"gal"  , 3.785411784e-3, NULL},     /* (US fluid; Wine = 231 cu in) */
  {"barrel"          ,"bl"   , 0.158987294928, NULL}};    /* (petroleum = 42 gal) */

#define IMATEX_SPEED_COUNT 7
static ImatExUnit IMATEX_SPEED_UNITS [IMATEX_UNIT_MAXCOUNT] = {
  {"metre per second"     ,"m/s" , 1, NULL},
  {"inch per second"      ,"in/s" , 0.0254    , NULL},
  {"foot per second"      ,"ft/s" , 0.3048    , NULL},
  {"kilometre per hour"   ,"km/h", 1.0/3.6   , NULL},
  {"centimetre per second","cm/s", 0.01      , NULL},
  {"mile per hour"        ,"mph" , 0.44704   , NULL},    /* 1609.344 / 3600 */
  {"knot"                 ,"kn"  , 1.852/3.6 , NULL}};   /* kn = 1 NM/h = 1.852 km/h */

#define IMATEX_ANGULAR_SPEED_COUNT 6
static ImatExUnit IMATEX_ANGULAR_SPEED_UNITS [IMATEX_UNIT_MAXCOUNT] = {
  {"radian per second"    ,"rad/s"  , 1, NULL},              
  {"radian per minute"    ,"rad/min", 60        , NULL},
  {"degree per second"    ,"deg/s"  , M_PI/180.0, NULL},
  {"degree per minute"    ,"deg/min", M_PI/3.0  , NULL},     /* M_PI/180.0 * 60 */
  {"Hertz"                ,"Hz"     , 2.0*M_PI  , NULL},     /* angular speed = 2*PI * angular frequency */
  {"revolution per minute","rpm"    , 120.0*M_PI, NULL}};

#define IMATEX_ACCELERATION_COUNT 5
static ImatExUnit IMATEX_ACCELERATION_UNITS [IMATEX_UNIT_MAXCOUNT] = {
  {"metre per second squared","m/s\xB2", 1,         "m/s\xC2\xB2"},    /* m/s² */
  {"inch per second squared" ,"in/s\xB2", 0.0254,  "in/s\xC2\xB2"},    /* in/s² */
  {"knot per second"         ,"kn/s", 1.852/3.6 , NULL},               
  {"mile per second squared" ,"mi/s\xB2", 1609.344, "mi/s\xC2\xB2"},   /* mi/s² */
  {"standard gravity"        ,"g"   , GRAVITY  , NULL}};

#define IMATEX_FORCE_COUNT 7
static ImatExUnit IMATEX_FORCE_UNITS [IMATEX_UNIT_MAXCOUNT] = {
  {"Newton"        ,"N"  , 1, NULL},              /* N = kg·m/s^2 */
  {"Kilonewton"    ,"kN" , 1000     , NULL},
  {"dyne"          ,"dyn", 1.0e-5   , NULL},      /* g·cm/s^2 */
  {"kilogram-force","kgf", GRAVITY  , NULL},
  {"pound-force"   ,"lbf", GRAVITY * 0.45359237, NULL},          /* lbf = g × lb */
  {"kip-force"     ,"kip", GRAVITY * 0.45359237 * 1000, NULL},   /* kip = g × 1000 lb */
  {"ton-force"     ,"tnf", GRAVITY * 0.45359237 * 2000, NULL}};  /* tnf = g × 2000 lb */

#define IMATEX_PRESSURE_COUNT 8
static ImatExUnit IMATEX_PRESSURE_UNITS [IMATEX_UNIT_MAXCOUNT] = {
  {"Pascal"               ,"Pa"  , 1, NULL},      /* Pa = N/(m^2) = kg/(m·s^2) */
  {"kilopascal"           ,"kPa" , 1000    , NULL},
  {"atmosphere"           ,"atm" , 101325  , NULL},   /* (standard) */
  {"millimetre of mercury","mmHg", 133.322387415, NULL},    /* 13595.1 kg/m^3 × mm × g = 13595.1 * 0.001 * GRAVITY */
  {"bar"                  ,"bar" , 1.0e5   , NULL},                                                       
  {"torr"                 ,"torr", 101325.0/760.0, NULL},   /* aprox 133.3224 */
  {"pound per square inch","psi" , 4.4482216152605/6.4516e-4, NULL},  /* psi = lbf/(in^2) = GRAVITY*0.45359237/0,0254^2 */
  {"kip per square inch"  ,"ksi" , 4.4482216152605/6.4516e-1, NULL}}; /* ksi = kip/in^2 */          

#define IMATEX_FORCE_PER_LENGTH_COUNT 4            /* same as (Linear Weight) */
static ImatExUnit IMATEX_FORCE_PER_LENGTH_UNITS [IMATEX_UNIT_MAXCOUNT] = {
  {"Newton per metre"         ,"N/m"  , 1,            NULL},      
  {"Kilonewton per metre"     ,"kN/m" , 1000    ,     NULL},
  {"kilogram-force per metre" ,"kgf/m", GRAVITY  ,    NULL},
  {"ton-force per metre"      ,"tnf/m", GRAVITY*1000, NULL}};

#define IMATEX_MOMENT_COUNT 8           /* Torque */
static ImatExUnit IMATEX_MOMENT_UNITS [IMATEX_UNIT_MAXCOUNT] = {
  {"Newton metre"             , "N\xB7""m"   , 1,                "N\xC2\xB7m"},       /* N·m    */
  {"kilogram-force metre"     , "kgf\xB7""m" , GRAVITY,          "kgf\xC2\xB7m"},     /* kgf·m  */
  {"ton-force metre"          , "tnf\xB7""m" , GRAVITY*1000,     "tnf\xC2\xB7m"},     /* tnf·m  */
  {"Newton centimetre"        , "N\xB7""cm"  , 100,              "N\xC2\xB7m"},       /* N·cm   */ 
  {"kilogram-force centimetre", "kgf\xB7""cm", GRAVITY*100,      "kgf\xC2\xB7""cm"},  /* kgf·cm */
  {"ton-force centimetre"     , "tnf\xB7""cm", GRAVITY*1000*100, "tnf\xC2\xB7""cm"},  /* tnf·cm */
  {"Kilonewton-metre"         , "kN\xB7""m"  , 1000,             "kN\xC2\xB7m"},      /* kN·m   */
  {"metre kilogram"           , "m\xB7""kg"  , 1.0/GRAVITY,      "m\xC2\xB7kg"}};     /* m·kg   */ 

#define IMATEX_ANGLE_COUNT 3
static ImatExUnit IMATEX_ANGLE_UNITS [IMATEX_UNIT_MAXCOUNT] = {
  {"radian", "rad", 1,            NULL},
  {"degree", "\xB0", M_PI/180.0,     "\xC2\xBA"}, /* ° */
  {"gradian", "grad", M_PI/200.0, NULL}};

#define IMATEX_SPECIFIC_MASS_COUNT 7
static ImatExUnit IMATEX_SPECIFIC_MASS_UNITS [IMATEX_UNIT_MAXCOUNT] = {
  {"kilogram per cubic metre" ,"kg/m\xB3"  , 1,                         "kg/m\xC2\xB3"},  /* kg/m³ */
  {"gram per cubic centimetre","g/cm\xB3"  , 1000,                      "g/cm\xC2\xB3"},  /* g/cm³ */
  {"gram per millilitre"      ,"g/mL"   , 1000,                      NULL},               
  {"kilogram per litre"       ,"kg/L"   , 1000,                      NULL},               
  {"pound per cubic foot"     ,"lb/ft\xB3" , 0.45359237/16.387064e-6,   "lb/ft\xC2\xB3"}, /* lb/ft³ */
  {"pound per cubic inch"     ,"lb/in\xB3" , 0.45359237/0.028316846592, "lb/in\xC2\xB3"}, /* lb/in³ */
  {"pound per gallon"         ,"lb/gal" , 0.45359237/3.785411784e-3, NULL}};
                                                     
#define IMATEX_SPECIFIC_WEIGHT_COUNT 6
static ImatExUnit IMATEX_SPECIFIC_WEIGHT_UNITS [IMATEX_UNIT_MAXCOUNT] = {
  {"Newton per cubic metre"        ,"N/m\xB3"  , 1,                  "N/m\xC2\xB3"},                          /* N/m³    */  
  {"Kilonewton per cubic metre"    ,"kN/m\xB3" , 1000,               "kN/m\xC2\xB3"},                         /* kN/m³   */ 
  {"kilogram-force per cubic metre","kgf/m\xB3", GRAVITY,            "kgf/m\xC2\xB3"},                        /* kgf/m³  */
  {"ton-force per cubic metre"     ,"tnf/m\xB3", GRAVITY * 1000,     "tnf/m\xC2\xB3"},                        /* tnf/m³  */
  {"pound-force per cubic foot"    ,"lbf/ft\xB3", (GRAVITY * 0.45359237) / 0.028316846592, "lbf/m\xC2\xB3"},  /* lbf/ft³ */
  {"kilogram-force per litre"      ,"kgf/L" , GRAVITY * 0.001,                          NULL}};
                                                              
#define IMATEX_ENERGY_COUNT   7
static ImatExUnit IMATEX_ENERGY_UNITS[IMATEX_UNIT_MAXCOUNT] = {
  {"Joule"          ,"J"   , 1, NULL},                  /* J = m * N */
  {"Kilojoule"      ,"kJ"  , 1000                  , NULL},
  {"calorie"        ,"cal" , 4.1868                , NULL},  /* (International Table) */
  {"kilocalorie"    ,"kcal", 4.1868e3              , NULL},
  {"BTU"            ,"BTU" , 1.05505585262e3       , NULL},  /* (International Table) */
  {"Kilowatt-hour"  ,"kW\xB7""h", 3.6e6                 , "kW\xC2\xB7h"},  /* kW·h */
  {"horsepower-hour","hp\xB7""h", 2.684519537696172792e6, "hp\xC2\xB7h"}}; /* hp·h */  /* hp * 3600 */
                                                               
#define IMATEX_POWER_COUNT    4
static ImatExUnit IMATEX_POWER_UNITS[IMATEX_UNIT_MAXCOUNT] = {
  {"Watt"              ,"W"    , 1, NULL},               /* W = J/s */
  {"Kilowatt"          ,"kW"   , 1000, NULL},
  {"calorie per second","cal/s", 4.1868, NULL},  /* (International Table) */
  {"horsepower"        ,"hp"   , 745.69987158227022 , NULL}};  /* hp = 550 ft lbf/s (imperial mechanical)   */
                                                         /*      550 * 0.3048 *  9.80665 * 0.45359237 */   
#define IMATEX_FRACTION_COUNT 4
static ImatExUnit IMATEX_FRACTION_UNITS[IMATEX_UNIT_MAXCOUNT] = {
  {"percentage"  , "%"    , 1,    NULL},
  {"per one"     , "/1"   , 100 , NULL},
  {"per ten"     , "/10"  , 10  , NULL},
  {"per thousand", "/1000", 0.1 , NULL}};

#define IMATEX_KINEMATIC_VISCOSITY_COUNT 3
static ImatExUnit IMATEX_KINEMATIC_VISCOSITY_UNITS [IMATEX_UNIT_MAXCOUNT] = {
  {"square metre per second", "m\xB2""/s"  , 1,           "m\xC2\xB2/s"},   /* m²/s  */
  {"square foot per second" , "ft\xB2""/s" , 9.290304e-2, "ft\xC2\xB2/s"},  /* ft²/s */   /* 0.3048^2 */
  {"stokes"                 , "St"    , 1.0e-4,      NULL}};

#define IMATEX_DYNAMIC_VISCOSITY_COUNT 4
static ImatExUnit IMATEX_DYNAMIC_VISCOSITY_UNITS [IMATEX_UNIT_MAXCOUNT] = {
  {"Pascal second"        , "Pa\xB7""s"      , 1,                        "Pa\xC2\xB7s"},        /* Pa·s */
  {"poise"                , "P"         , 0.1,                      NULL},                     
  {"pound per foot hour"  , "lb/(ft\xB7""h)" , 0.45359237/(0.3048*3600), "lb/(ft\xC2\xB7h)"},   /* lb/(ft·h) */
  {"pound per foot second", "lb/(ft\xB7""s)" , 0.45359237/0.3048,        "lb/(ft\xC2\xB7s)"}};  /* lb/(ft·s) */
                                                            
#define IMATEX_FLOW_COUNT 3
static ImatExUnit IMATEX_FLOW_UNITS [IMATEX_UNIT_MAXCOUNT] = {
  {"cubic metre per second", "m\xB3""/s",  0.1,            "m\xC2\xB3/s"},   /* m³/s  */
  {"cubic inch per second",  "in\xB3""/s", 16.387064e-6,   "in\xC2\xB3/s"},  /* in³/s */  /* 0.0254^3  */
  {"cubic foot per second",  "ft\xB3""/s", 0.028316846592, "ft\xC2\xB3/s"}}; /* ft³/s */  /* 0.3048^3  */

#define IMATEX_ILLUMINANCE_COUNT 4
static ImatExUnit IMATEX_ILLUMINANCE_UNITS [IMATEX_UNIT_MAXCOUNT] = {
  {"lux",                   "lx",     1,             NULL},
  {"footcandle",            "fc",     10.763910417,  NULL},   /* lumen per square foot  */
  {"lumen per square inch", "lm/in\xB2", 1550.00310001, "lm/in\xC2\xB2"},  /* lm/in² */
  {"phot",                  "ph",     1.0e4,         NULL}};

#define IMATEX_ELECTRIC_CHARGE_COUNT 3
static ImatExUnit IMATEX_ELECTRIC_CHARGE_UNITS [IMATEX_UNIT_MAXCOUNT] = {
  {"Coulomb",               "C",     1,          NULL},   /* A·s */
  {"Faraday",               "F",     96485.3383, NULL},
  {"milliampere hour",      "mA\xB7""h",  3.6,        "mA\xC2\xB7h"}}; /* mA·h */


typedef struct _ImatExQuantity {
  const char* q_name;
  const ImatExUnit* units;
  int units_count;
} ImatExQuantity;

#define IMATEX_TEMPERATURE 1
#define IMATEX_QUANTITY_COUNT 31
#define IMATEX_QUANTITY_CUSTOM 25
static int imatex_quantity_count = IMATEX_QUANTITY_COUNT;
static ImatExQuantity imatex_quantities [IMATEX_QUANTITY_COUNT+IMATEX_QUANTITY_CUSTOM] = {
  { "None"             , NULL                       , 0                             },
  { "Temperature"      , IMATEX_TEMPERATURE_UNITS     , IMATEX_TEMPERATURE_COUNT      },  /* must not be change from here */
  { "Length"           , IMATEX_LENGTH_UNITS          , IMATEX_LENGTH_COUNT           },
  { "Time"             , IMATEX_TIME_UNITS            , IMATEX_TIME_COUNT             },
  { "Mass"             , IMATEX_MASS_UNITS            , IMATEX_MASS_COUNT             },
  { "Area"             , IMATEX_AREA_UNITS            , IMATEX_AREA_COUNT             },
  { "Volume"           , IMATEX_VOLUME_UNITS          , IMATEX_VOLUME_COUNT           },
  { "Speed"            , IMATEX_SPEED_UNITS           , IMATEX_SPEED_COUNT            },
  { "Velocity"         , IMATEX_SPEED_UNITS           , IMATEX_SPEED_COUNT            },
  { "Angular Speed"    , IMATEX_ANGULAR_SPEED_UNITS   , IMATEX_ANGULAR_SPEED_COUNT    },
  { "Acceleration"     , IMATEX_ACCELERATION_UNITS    , IMATEX_ACCELERATION_COUNT     },
  { "Pressure"         , IMATEX_PRESSURE_UNITS        , IMATEX_PRESSURE_COUNT         },
  { "Mechanical Stress", IMATEX_PRESSURE_UNITS        , IMATEX_PRESSURE_COUNT         },
  { "Force"            , IMATEX_FORCE_UNITS           , IMATEX_FORCE_COUNT            },
  { "Force per length" , IMATEX_FORCE_PER_LENGTH_UNITS, IMATEX_FORCE_PER_LENGTH_COUNT },
  { "Linear Weight"    , IMATEX_FORCE_PER_LENGTH_UNITS, IMATEX_FORCE_PER_LENGTH_COUNT },
  { "Torque"           , IMATEX_MOMENT_UNITS          , IMATEX_MOMENT_COUNT           },
  { "Moment of Force"  , IMATEX_MOMENT_UNITS          , IMATEX_MOMENT_COUNT           },
  { "Angle"            , IMATEX_ANGLE_UNITS           , IMATEX_ANGLE_COUNT            },
  { "Specific Mass"    , IMATEX_SPECIFIC_MASS_UNITS   , IMATEX_SPECIFIC_MASS_COUNT    },
  { "Density"          , IMATEX_SPECIFIC_MASS_UNITS   , IMATEX_SPECIFIC_MASS_COUNT    },
  { "Specific Weight"  , IMATEX_SPECIFIC_WEIGHT_UNITS , IMATEX_SPECIFIC_WEIGHT_COUNT  },
  { "Energy"           , IMATEX_ENERGY_UNITS          , IMATEX_ENERGY_COUNT           },
  { "Power"            , IMATEX_POWER_UNITS           , IMATEX_POWER_COUNT            },
  { "Heat Flow Rate"   , IMATEX_POWER_UNITS           , IMATEX_POWER_COUNT            },
  { "Fraction"         , IMATEX_FRACTION_UNITS        , IMATEX_FRACTION_COUNT         },
  { "Flow"             , IMATEX_FLOW_UNITS            , IMATEX_FLOW_COUNT             },
  { "Illuminance"      , IMATEX_ILLUMINANCE_UNITS     , IMATEX_ILLUMINANCE_COUNT      },
  { "Kinematic Viscosity", IMATEX_KINEMATIC_VISCOSITY_UNITS, IMATEX_KINEMATIC_VISCOSITY_COUNT},
  { "Dynamic Viscosity"  , IMATEX_DYNAMIC_VISCOSITY_UNITS  , IMATEX_DYNAMIC_VISCOSITY_COUNT  },
  { "Electric Charge"    , IMATEX_ELECTRIC_CHARGE_UNITS    , IMATEX_ELECTRIC_CHARGE_COUNT    },
};

static ImatExUnit IMATEX_CUSTOM_UNITS[IMATEX_QUANTITY_CUSTOM][IMATEX_UNIT_MAXCOUNT];

static int imatex_unity_spell = 0;
static int imatex_last_addquantity = -1;
static int imatex_last_addunit = -1;


/* Same definition as in IupMatrix */
static double iMatrixConvertFunc(double number, int quantity, int unit_from, int unit_to)
{
  /* this function is called only when unit_from!=unit_to */
  const ImatExUnit* units = imatex_quantities[quantity].units;

  if (quantity == IMATEX_TEMPERATURE)  /* the only quantity that we know that there is an offset for conversion */
  {
    if (unit_from!=0)
    {
      if (unit_from==IMATEX_CELSIUS)
        number = number + 273.15;
      else if (unit_from==IMATEX_FAHRENHEIT)
        number = number + 459.67;

      number = number * units[unit_from].factor;
    }

    if (unit_to!=0)
    {
      number = number / units[unit_to].factor;

      if (unit_from==IMATEX_CELSIUS)
        number = number - 273.15;
      else if (unit_from==IMATEX_FAHRENHEIT)
        number = number - 459.67;
    }
  }
  else
  {
    if (unit_from!=0)
      number = number * units[unit_from].factor;

    if (unit_to!=0)
      number = number / units[unit_to].factor;
  }

  return number;
}

static char* iMatrixExReturnSymbol(const ImatExUnit* units)
{
  if (units->symbol_utf8)
  {
    if (IupGetInt(NULL, "UTF8MODE"))
      return (char*)units->symbol_utf8;
  }
                                                       
  return (char*)units->symbol;
}

static int iMatrixGetUnity(const char* name, char* am_name)
{
  /* Convert to American spelling */
  const char* s = strstr(name, "metre");
  if (s)
  {
    int off = (int)(s - name);
    strcpy(am_name, name);
    strncpy(am_name+off, "meter", 5);
    return 1;
  }
  else
  {
    s = strstr(name, "litre");
    if (s)
    {
      int off = (int)(s - name);
      strcpy(am_name, name);
      strncpy(am_name+off, "liter", 5);   /* don't confuse with litter */
      return 1;
    }
  }

  return 0;
}

static char* iMatrixExReturnUnit(const char* name)
{
  if (imatex_unity_spell)
  {
    char am_name[30];
    if (iMatrixGetUnity(name, am_name))
      return iupStrReturnStr(am_name);
  }

  return (char*)name;
}

static int iMatrixCompareUnity(const char* name, const char* value)
{
  if (imatex_unity_spell)
  {
    char am_name[30];
    if (iMatrixGetUnity(name, am_name))
      return iupStrEqualNoCaseNoSpace(am_name, value);
  }

  return iupStrEqualNoCaseNoSpace(name, value);
}
        
static int iMatrixFindQuantity(const char* value)
{
  int i;
  for (i=0; i<imatex_quantity_count; i++)
  {
    if (iupStrEqualNoCaseNoSpace(imatex_quantities[i].q_name, value))
      return i;
  }

  return -1;
}

static int iMatrixFindUnit(const ImatExUnit* units, int units_count, const char* value)
{
  int i;
  for (i=0; i<units_count; i++)
  {
    if (iMatrixCompareUnity(units[i].u_name, value))
      return i;
  }

  return -1;
}

static int iMatrixFindUnitSymbol(const ImatExUnit* units, int units_count, const char* value, int utf8)
{
  int i;
  for (i=0; i<units_count; i++)
  {
    const char* symbol;
    if (utf8 && units[i].symbol_utf8)
      symbol = units[i].symbol_utf8;
    else
      symbol = units[i].symbol;

    if (iupStrEqual(symbol, value))
      return i;
  }

  return -1;
}


/*****************************************************************************/


static int iMatrixExSetNumericUnitSpellAttrib(Ihandle* ih, const char* value)
{
  if (iupStrEqualNoCase(value, "AMERICAN"))
    imatex_unity_spell = 1;
  else
    imatex_unity_spell = 0;

  (void)ih;
  return 0;
}

static int iMatrixExSetNumericAddQuantityAttrib(Ihandle* ih, const char* value)
{
  int quantity = iMatrixFindQuantity(value);
  if (quantity < 0) /* not found */
  {
    /* add new quantity if has space */
    if (imatex_quantity_count < IMATEX_QUANTITY_COUNT+IMATEX_QUANTITY_CUSTOM)
    {
      imatex_quantities[imatex_quantity_count].q_name = value;
      imatex_quantities[imatex_quantity_count].units_count = 0;
      imatex_quantities[imatex_quantity_count].units = IMATEX_CUSTOM_UNITS[imatex_quantity_count - IMATEX_QUANTITY_COUNT];

      imatex_last_addquantity = imatex_quantity_count;
      imatex_quantity_count++;
    }
    else
      imatex_last_addquantity = -1;  /* no space left, return invalid quantity */
  }
  else
  {
    /* prepare to add units to existing quantity */
    imatex_last_addquantity = quantity;
  }

  imatex_last_addunit = -1;

  (void)ih;
  return 0;
}

static int iMatrixExSetNumericAddUnitAttrib(Ihandle* ih, const char* value)
{
  if (imatex_last_addquantity != -1)
  {
    int quantity = imatex_last_addquantity;

    /* add new unit if has space */
    if (imatex_quantities[quantity].units_count < IMATEX_UNIT_MAXCOUNT)
    {
      ImatExUnit* units = (ImatExUnit*)(imatex_quantities[quantity].units);
      int unit = imatex_quantities[quantity].units_count;

      units[unit].u_name = value;
      units[unit].symbol = NULL;
      units[unit].factor = 0;
      units[unit].symbol_utf8 = NULL;

      imatex_last_addunit = unit;
      imatex_quantities[quantity].units_count++;
      return 0;
    }
  }

  imatex_last_addunit = -1;

  (void)ih;
  return 0;
}

static int iMatrixExSetNumericAddUnitSymbolAttrib(Ihandle* ih, const char* value)
{
  if (imatex_last_addquantity != -1 && imatex_last_addunit != -1)
  {
    int quantity = imatex_last_addquantity;
    int unit = imatex_last_addunit;
    ImatExUnit* units = (ImatExUnit*)(imatex_quantities[quantity].units);
    units[unit].symbol = value;
  }

  (void)ih;
  return 0;
}

static int iMatrixExSetNumericAddUnitFactorAttrib(Ihandle* ih, const char* value)
{
  if (imatex_last_addquantity != -1 && imatex_last_addunit != -1)
  {
    double factor = 0;
    if (iupStrToDouble(value, &factor))
    {
      int quantity = imatex_last_addquantity;
      int unit = imatex_last_addunit;
      ImatExUnit* units = (ImatExUnit*)(imatex_quantities[quantity].units);
      units[unit].factor = factor;
    }
  }

  (void)ih;
  return 0;
}


/*****************************************************************************/


static int iMatrixExSetNumericUnitSearchAttrib(Ihandle* ih, const char* value)
{
  int q, u;

  iupAttribSet(ih, "NUMERICFOUNDQUANTITY", NULL);
  iupAttribSet(ih, "NUMERICFOUNDUNIT", NULL);
  iupAttribSet(ih, "NUMERICFOUNDUNITSYMBOL", NULL);

  for (q=0; q<imatex_quantity_count; q++)
  {
    ImatExUnit* units = (ImatExUnit*)(imatex_quantities[q].units);
    int units_count = imatex_quantities[q].units_count;
    for (u=0; u<units_count; u++)
    {
      if (iMatrixCompareUnity(units[u].u_name, value))
      {
        iupAttribSet(ih, "NUMERICFOUNDQUANTITY", imatex_quantities[q].q_name);
        iupAttribSet(ih, "NUMERICFOUNDUNIT", units[u].u_name);
        iupAttribSetStr(ih, "NUMERICFOUNDUNITSYMBOL", iMatrixExReturnSymbol(units + u));
        return 0;
      }
    }
  }

  (void)ih;
  return 0;
}

static int iMatrixExSetNumericUnitSymbolSearchAttrib(Ihandle* ih, const char* value)
{
  int q, u;

  int utf8 = IupGetInt(NULL, "UTF8MODE");

  iupAttribSet(ih, "NUMERICFOUNDQUANTITY", NULL);
  iupAttribSet(ih, "NUMERICFOUNDUNIT", NULL);
  iupAttribSet(ih, "NUMERICFOUNDUNITSYMBOL", NULL);

  for (q=0; q<imatex_quantity_count; q++)
  {
    ImatExUnit* units = (ImatExUnit*)(imatex_quantities[q].units);
    int units_count = imatex_quantities[q].units_count;
    for (u=0; u<units_count; u++)
    {
      const char* symbol;
      if (utf8 && units[u].symbol_utf8)
        symbol = units[u].symbol_utf8;
      else
        symbol = units[u].symbol;

      if (iupStrEqual(symbol, value))
      {
        iupAttribSet(ih, "NUMERICFOUNDQUANTITY", imatex_quantities[q].q_name);
        iupAttribSet(ih, "NUMERICFOUNDUNIT", units[u].u_name);
        iupAttribSetStr(ih, "NUMERICFOUNDUNITSYMBOL", symbol);
        return 0;
      }
    }
  }

  (void)ih;
  return 0;
}


/*****************************************************************************/


static int iMatrixExSetNumericQuantityAttrib(Ihandle* ih, int col, const char* value)
{
  if (!value)
  {
    IupSetCallback(ih, "NUMERICCONVERT_FUNC", NULL);
    IupSetAttributeId(ih, "NUMERICQUANTITYINDEX", col, NULL);
  }
  else
  {
    int quantity = iMatrixFindQuantity(value);
    if (quantity < 0)
      quantity = 0;  /* Set to None, this will enable the numeric column, but no unit conversion */

    /* set the callback before setting the attribute */
    IupSetCallback(ih, "NUMERICCONVERT_FUNC", (Icallback)iMatrixConvertFunc);
    IupSetIntId(ih, "NUMERICQUANTITYINDEX", col, quantity);
  }

  return 0;
}

static int iMatrixExCheckQuantity(int quantity)
{
  if (quantity < 0 || quantity >= imatex_quantity_count)
    return 0;
  else
    return 1;
}

static int iMatrixExCheckUnit(int quantity, int unit)
{
  if (unit < 0 || unit >= imatex_quantities[quantity].units_count)
    return 0;
  else
    return 1;
}

static char* iMatrixExGetNumericQuantityAttrib(Ihandle* ih, int col)
{
  if (!IupGetAttributeId(ih, "NUMERICQUANTITYINDEX", col))
    return NULL;
  else
  {
    int quantity = IupGetIntId(ih, "NUMERICQUANTITYINDEX", col);
    if (!iMatrixExCheckQuantity(quantity))
      return NULL;

    return (char*)imatex_quantities[quantity].q_name;
  }
}

static int iMatrixExSetNumericUnitAttrib(Ihandle* ih, int col, const char* value)
{
  int unit;
  int quantity = IupGetIntId(ih, "NUMERICQUANTITYINDEX", col);
  if (quantity == 0) /* NULL or None */
    return 0;
  if (!iMatrixExCheckQuantity(quantity))
    return 0;

  unit = iMatrixFindUnit(imatex_quantities[quantity].units, imatex_quantities[quantity].units_count, value);
  if (unit < 0)
    return 0;

  IupSetIntId(ih, "NUMERICUNITINDEX", col, unit);
  return 0;
}

static char* iMatrixExGetNumericUnitAttrib(Ihandle* ih, int col)
{
  int unit;
  int quantity = IupGetIntId(ih, "NUMERICQUANTITYINDEX", col);
  if (quantity == 0) /* NULL or None */
    return NULL;
  if (!iMatrixExCheckQuantity(quantity))
    return NULL;

  unit = IupGetIntId(ih, "NUMERICUNITINDEX", col);
  if (!iMatrixExCheckUnit(quantity, unit))
    return NULL;

  return iMatrixExReturnUnit(imatex_quantities[quantity].units[unit].u_name);
}

static int iMatrixExSetNumericUnitShownAttrib(Ihandle* ih, int col, const char* value)
{
  int unit;
  int quantity = IupGetIntId(ih, "NUMERICQUANTITYINDEX", col);
  if (quantity == 0) /* NULL or None */
    return 0;
  if (!iMatrixExCheckQuantity(quantity))
    return 0;

  unit = iMatrixFindUnit(imatex_quantities[quantity].units, imatex_quantities[quantity].units_count, value);
  if (unit < 0)
    return 0;

  IupSetIntId(ih, "NUMERICUNITSHOWNINDEX", col, unit);
  return 0;
}

static char* iMatrixExGetNumericUnitShownAttrib(Ihandle* ih, int col)
{
  int unit;
  int quantity = IupGetIntId(ih, "NUMERICQUANTITYINDEX", col);
  if (quantity == 0) /* NULL or None */
    return NULL;
  if (!iMatrixExCheckQuantity(quantity))
    return NULL;

  unit = IupGetIntId(ih, "NUMERICUNITSHOWNINDEX", col);
  if (!iMatrixExCheckUnit(quantity, unit))
    return NULL;

  return iMatrixExReturnUnit(imatex_quantities[quantity].units[unit].u_name);
}

static int iMatrixExSetNumericUnitSymbolShownAttrib(Ihandle* ih, int col, const char* value)
{
  int unit, utf8;
  int quantity = IupGetIntId(ih, "NUMERICQUANTITYINDEX", col);
  if (quantity == 0) /* NULL or None */
    return 0;
  if (!iMatrixExCheckQuantity(quantity))
    return 0;

  utf8 = IupGetInt(NULL, "UTF8MODE");

  unit = iMatrixFindUnitSymbol(imatex_quantities[quantity].units, imatex_quantities[quantity].units_count, value, utf8);
  if (unit < 0)
    return 0;

  IupSetIntId(ih, "NUMERICUNITSHOWNINDEX", col, unit);
  return 0;
}

static char* iMatrixExGetNumericUnitSymbolAttrib(Ihandle* ih, int col)
{
  int unit;
  int quantity = IupGetIntId(ih, "NUMERICQUANTITYINDEX", col);
  if (quantity == 0) /* NULL or None */
    return NULL;
  if (!iMatrixExCheckQuantity(quantity))
    return NULL;

  unit = IupGetIntId(ih, "NUMERICUNITINDEX", col);
  if (!iMatrixExCheckUnit(quantity, unit))
    return NULL;

  return iMatrixExReturnSymbol(&(imatex_quantities[quantity].units[unit]));
}

static int iMatrixExSetNumericUnitSymbolAttrib(Ihandle* ih, int col, const char* value)
{
  int unit, utf8;
  int quantity = IupGetIntId(ih, "NUMERICQUANTITYINDEX", col);
  if (quantity == 0) /* NULL or None */
    return 0;
  if (!iMatrixExCheckQuantity(quantity))
    return 0;

  utf8 = IupGetInt(NULL, "UTF8MODE");

  unit = iMatrixFindUnitSymbol(imatex_quantities[quantity].units, imatex_quantities[quantity].units_count, value, utf8);
  if (unit < 0)
    return 0;

  IupSetIntId(ih, "NUMERICUNITINDEX", col, unit);
  return 0;
}

static char* iMatrixExGetNumericUnitSymbolShownAttrib(Ihandle* ih, int col)
{
  int unit;
  int quantity = IupGetIntId(ih, "NUMERICQUANTITYINDEX", col);
  if (quantity == 0) /* NULL or None */
    return NULL;
  if (!iMatrixExCheckQuantity(quantity))
    return NULL;

  unit = IupGetIntId(ih, "NUMERICUNITSHOWNINDEX", col);
  if (!iMatrixExCheckUnit(quantity, unit))
    return NULL;

  return iMatrixExReturnSymbol(&(imatex_quantities[quantity].units[unit]));
}

static char* iMatrixExGetNumericUnitCountAttrib(Ihandle* ih, int col)
{
  int quantity = IupGetIntId(ih, "NUMERICQUANTITYINDEX", col);
  if (quantity == 0) /* NULL or None */
    return NULL;
  if (!iMatrixExCheckQuantity(quantity))
    return NULL;

  return iupStrReturnInt(imatex_quantities[quantity].units_count);
}

void iupMatrixExRegisterUnits(Iclass* ic)
{
  /* Defined in IupMatrix - Internal
    NUMERICQUANTITYINDEX
    NUMERICUNITINDEX
    NUMERICUNITSHOWNINDEX */

  /* Defined in IupMatrix - Exported
    NUMERICFORMAT
    NUMERICFORMATPRECISION
    NUMERICFORMATTITLE
    NUMERICFORMATDEF   */

  iupClassRegisterAttributeId(ic, "NUMERICQUANTITY", iMatrixExGetNumericQuantityAttrib, iMatrixExSetNumericQuantityAttrib, IUPAF_NOT_MAPPED|IUPAF_NO_INHERIT);
  iupClassRegisterAttributeId(ic, "NUMERICUNIT", iMatrixExGetNumericUnitAttrib, iMatrixExSetNumericUnitAttrib, IUPAF_NOT_MAPPED|IUPAF_NO_INHERIT);
  iupClassRegisterAttributeId(ic, "NUMERICUNITSHOWN", iMatrixExGetNumericUnitShownAttrib, iMatrixExSetNumericUnitShownAttrib, IUPAF_NOT_MAPPED|IUPAF_NO_INHERIT);
  iupClassRegisterAttributeId(ic, "NUMERICUNITSYMBOL", iMatrixExGetNumericUnitSymbolAttrib, iMatrixExSetNumericUnitSymbolAttrib, IUPAF_NOT_MAPPED|IUPAF_NO_INHERIT);
  iupClassRegisterAttributeId(ic, "NUMERICUNITSYMBOLSHOWN", iMatrixExGetNumericUnitSymbolShownAttrib, iMatrixExSetNumericUnitSymbolShownAttrib, IUPAF_NOT_MAPPED|IUPAF_NO_INHERIT);
  iupClassRegisterAttributeId(ic, "NUMERICUNITCOUNT", iMatrixExGetNumericUnitCountAttrib, NULL, IUPAF_NOT_MAPPED|IUPAF_READONLY|IUPAF_NO_INHERIT);

  iupClassRegisterAttribute(ic, "NUMERICUNITSPELL", NULL, iMatrixExSetNumericUnitSpellAttrib, IUPAF_SAMEASSYSTEM, "INTERNATIONAL", IUPAF_NOT_MAPPED|IUPAF_NO_INHERIT);
  iupClassRegisterAttribute(ic, "NUMERICADDQUANTITY", NULL, iMatrixExSetNumericAddQuantityAttrib, NULL, NULL, IUPAF_NOT_MAPPED|IUPAF_WRITEONLY|IUPAF_NO_INHERIT);
  iupClassRegisterAttribute(ic, "NUMERICADDUNIT", NULL, iMatrixExSetNumericAddUnitAttrib, NULL, NULL, IUPAF_NOT_MAPPED|IUPAF_WRITEONLY|IUPAF_NO_INHERIT);
  iupClassRegisterAttribute(ic, "NUMERICADDUNITSYMBOL", NULL, iMatrixExSetNumericAddUnitSymbolAttrib, NULL, NULL, IUPAF_NOT_MAPPED|IUPAF_WRITEONLY|IUPAF_NO_INHERIT);
  iupClassRegisterAttribute(ic, "NUMERICADDUNITFACTOR", NULL, iMatrixExSetNumericAddUnitFactorAttrib, NULL, NULL, IUPAF_NOT_MAPPED|IUPAF_WRITEONLY|IUPAF_NO_INHERIT);

  iupClassRegisterAttribute(ic, "NUMERICUNITSEARCH", NULL, iMatrixExSetNumericUnitSearchAttrib, NULL, NULL, IUPAF_NOT_MAPPED|IUPAF_WRITEONLY|IUPAF_NO_INHERIT);
  iupClassRegisterAttribute(ic, "NUMERICUNITSYMBOLSEARCH", NULL, iMatrixExSetNumericUnitSymbolSearchAttrib, NULL, NULL, IUPAF_NOT_MAPPED|IUPAF_WRITEONLY|IUPAF_NO_INHERIT);
  iupClassRegisterAttribute(ic, "NUMERICFOUNDQUANTITY", NULL, NULL, NULL, NULL, IUPAF_NOT_MAPPED|IUPAF_READONLY|IUPAF_NO_INHERIT);
  iupClassRegisterAttribute(ic, "NUMERICFOUNDUNIT", NULL, NULL, NULL, NULL, IUPAF_NOT_MAPPED|IUPAF_READONLY|IUPAF_NO_INHERIT);
  iupClassRegisterAttribute(ic, "NUMERICFOUNDUNITSYMBOL", NULL, NULL, NULL, NULL, IUPAF_NOT_MAPPED|IUPAF_READONLY|IUPAF_NO_INHERIT);
}