base/applications/calc/convert.c

   1 #include "calc.h"
   2
   3 /*
   4     The conversion is made by converting the "from" unit
   5     into the I.S. unit and then the I.S. unit is converted
   6     into the "from" one.
   7
   8     The base units for all categories are:
   9
  10     ANGLE..........degrees
  11     AREA...........square meters
  12     CONSUMPTION....kilometers per liter
  13     CURRENCY.......Euro
  14     ENERGY.........joule
  15     LENGTHS........meters
  16     POWER..........Watt
  17     PRESSURE.......Pascal
  18     TEMPERATURE....kelvin
  19     TIME...........seconds
  20     VELOCITY.......meters per second
  21     VOLUME.........liter
  22     WEIGHT.........gram
  23
  24     The '$' character is used as "what you read into the display".
  25 */
  26 typedef struct {
  27     DWORD unit;
  28     const char *formula_from;
  29     const char *formula_to;
  30 } conv_t;
  31
  32 typedef struct {
  33     const DWORD   category;
  34     const conv_t *items;
  35 } conv_category_t;
  36
  37 #define DECLARE_CONV_CAT(_category) \
  38     { IDS_CONV_##_category, conv_##_category },
  39
  40 #define DECLARE_CONV_UNIT(_category, _unit, _from, _to ) \
  41     { IDS_##_category##_##_unit, _from, _to },
  42
  43 #define DECLARE_CONV_END \
  44     { 0, NULL, NULL },
  45
  46 /*
  47     1 gradian = 0.9 deg
  48     1 radian = 57.29577951308233 deg
  49 */
  50 static const conv_t conv_ANGLE[] = {
  51     DECLARE_CONV_UNIT(ANGLE, DEGREES,  "$", "$")
  52     DECLARE_CONV_UNIT(ANGLE, GRADIANS, "$*0.9", "$/0.9")
  53     DECLARE_CONV_UNIT(ANGLE, RADIANS,  "$/P*180", "$*P/180")
  54     DECLARE_CONV_END
  55 };
  56
  57 /*
  58     1 acre ................ = 4840 square yd = 4046,8564224 mq
  59     1 acre brazil ......... =
  60     1 acre france ......... =
  61     1 acre scots .......... = 5000 mq
  62     1 acre us ............. = 4840*(36/39.37)^2 m = 6272640/1549.9969 m
  63     1 are ................. = 100 mq
  64     1 chou ................ = 108000*(10/33)^2 mq
  65     1 danbo ............... =
  66     1 ha .................. = 10000 mq
  67     1 jeongbo ............. =
  68     1 morgen hungary ...... =
  69     1 mu .................. = 2000/3 mq
  70     1 ping ................ =
  71     1 pyeong .............. =
  72     1 pyeongbangja ........ =
  73     1 rai ................. = 1600 mq
  74     1 se .................. = 1080*(10/33)^2 mq
  75     1 square cm ........... = 0.0001 mq
  76     1 square chr .......... =
  77     1 square fathom ....... = 1.8288^2 = 3.34450944 mq
  78     1 square fathom hungary = 1.8964838^2 = 3.59665080366244 mq
  79     1 square ft ........... = 0,09290304 mq
  80     1 square in ........... = 0,00064516 mq
  81     1 square km ........... = 1000000 mq
  82     1 square lar .......... =
  83     1 square mile ......... = 1609.344^2 = 2589988.110336 mq
  84     1 square mm ........... = 0,000001 mq
  85     1 square shaku ........ = (10/33)^2 mq
  86     1 square tsuen ........ =
  87     1 square va ........... =
  88     1 square yard ......... = 0,83612736 mq
  89     1 tan ................. = 10800*(10/33)^2 mq
  90     1 tsubo ............... = 36*(10/33)^2 mq
  91 */
  92 static const conv_t conv_AREA[] = {
  93     DECLARE_CONV_UNIT(AREA, ACRES,                  "$*4046,8564224",    "$/4046,8564224")
  94 //    DECLARE_CONV_UNIT(AREA, ACRES_BRAZIL,           "$", "$")
  95 //    DECLARE_CONV_UNIT(AREA, ACRES_FRANCE,           "$", "$")
  96     DECLARE_CONV_UNIT(AREA, ACRES_US,               "$*627264/154.99969", "$/627264*154.99969")
  97     DECLARE_CONV_UNIT(AREA, ACRES_SCOTS,            "$*5000",            "$/5000")
  98     DECLARE_CONV_UNIT(AREA, ARES,                   "$*100",             "$/100")
  99     DECLARE_CONV_UNIT(AREA, CHOU,                   "$*10800000/1089",   "$*1089/10800000")
 100 //    DECLARE_CONV_UNIT(AREA, DANBO,                  "$", "$")
 101     DECLARE_CONV_UNIT(AREA, HECTARES,               "$*10000",           "$/10000")
 102 //    DECLARE_CONV_UNIT(AREA, JEONGBO,                "$", "$")
 103 //    DECLARE_CONV_UNIT(AREA, MORGEN_HUNGARY,         "$", "$")
 104     DECLARE_CONV_UNIT(AREA, MU,                     "$*(2000/3)", "$/(2000/3)")
 105 //    DECLARE_CONV_UNIT(AREA, PING,                   "$", "$")
 106 //    DECLARE_CONV_UNIT(AREA, PYEONG,                 "$", "$")
 107 //    DECLARE_CONV_UNIT(AREA, PYEONGBANGJA,           "$", "$")
 108     DECLARE_CONV_UNIT(AREA, RAI,                    "$*1600", "$/1600")
 109     DECLARE_CONV_UNIT(AREA, SE,                     "$*108000/1089",     "$*1089/108000")
 110     DECLARE_CONV_UNIT(AREA, SQUARE_CENTIMETERS,     "$*0,0001",          "$/0,0001")
 111 //    DECLARE_CONV_UNIT(AREA, SQUARE_CHR,             "$", "$")
 112     DECLARE_CONV_UNIT(AREA, SQUARE_FATHOMS,         "$*3.34450944",      "$/3.34450944")
 113     DECLARE_CONV_UNIT(AREA, SQUARE_FATHOMS_HUNGARY, "$*3.59665080366244", "$/3.59665080366244")
 114     DECLARE_CONV_UNIT(AREA, SQUARE_FEET,            "$*0,09290304",      "$/0,09290304")
 115     DECLARE_CONV_UNIT(AREA, SQUARE_INCHES,          "$*0,00064516",      "$/0.00064516")
 116     DECLARE_CONV_UNIT(AREA, SQUARE_KILOMETERS,      "$*1000000",         "$/1000000")
 117 //    DECLARE_CONV_UNIT(AREA, SQUARE_LAR,             "$", "$")
 118     DECLARE_CONV_UNIT(AREA, SQUARE_METER,           "$",                 "$")
 119     DECLARE_CONV_UNIT(AREA, SQUARE_MILES,           "$*2589988.110336",  "$/2589988.110336")
 120     DECLARE_CONV_UNIT(AREA, SQUARE_MILLIMETERS,     "$*1000000",         "$/1000000")
 121     DECLARE_CONV_UNIT(AREA, SQUARE_SHAKU,           "$*100/1089",        "$/1089*100")
 122 //    DECLARE_CONV_UNIT(AREA, SQUARE_TSUEN,           "$", "$")
 123 //    DECLARE_CONV_UNIT(AREA, SQUARE_VA,              "$", "$")
 124     DECLARE_CONV_UNIT(AREA, SQUARE_YARD,            "$*0,83612736",      "$/0,83612736")
 125     DECLARE_CONV_UNIT(AREA, TAN,                    "$*1080000/1089",    "$*1089/1080000")
 126     DECLARE_CONV_UNIT(AREA, TSUBO,                  "$*1188/1089",       "$*1089/1188")
 127     DECLARE_CONV_END
 128 };
 129
 130 /*
 131     1 l/100Km = 100 km/l -> y = 100/x
 132     1 miles/gal uk = 1.609344/4.54609 km/l
 133     1 miles/gal us = 1.609344/3.785411784 km/l
 134 */
 135 static const conv_t conv_CONSUMPTION[] = {
 136     DECLARE_CONV_UNIT(CONSUMPTION, KM_PER_L,        "$", "$")
 137     DECLARE_CONV_UNIT(CONSUMPTION, L_PER_100_KM,    "100/$", "100/$")
 138     DECLARE_CONV_UNIT(CONSUMPTION, MILES_GALLON_UK, "$*1.609344/4.54609", "$/1.609344*4.54609")
 139     DECLARE_CONV_UNIT(CONSUMPTION, MILES_GALLON_US, "$*1.609344/3.785411784", "$/1.609344*3.785411784")
 140     DECLARE_CONV_END
 141 };
 142
 143 static const conv_t conv_CURRENCY[] = {
 144     DECLARE_CONV_UNIT(CURRENCY, AUSTRIAN_SCHILLING, "$/13,7603", "$*13,7603")
 145     DECLARE_CONV_UNIT(CURRENCY, BELGIAN_FRANC,      "$/40,3399", "$*40,3399")
 146     DECLARE_CONV_UNIT(CURRENCY, CYPRIOT_POUND,      "$/0,585274","$*0,585274")
 147     DECLARE_CONV_UNIT(CURRENCY, DEUTSCHE_MARK,      "$/1,95583", "$*1,95583")
 148     DECLARE_CONV_UNIT(CURRENCY, DUTCH_GUILDER,      "$/2,20371", "$*2,20371")
 149     DECLARE_CONV_UNIT(CURRENCY, ESTONIAN_KROON,     "$/15,6466", "$*15,6466")
 150     DECLARE_CONV_UNIT(CURRENCY, EURO,               "$",         "$")
 151     DECLARE_CONV_UNIT(CURRENCY, FINNISH_MARKKA,     "$/5,94573", "$*5,94573")
 152     DECLARE_CONV_UNIT(CURRENCY, FRENCH_FRANC,       "$/6,55957", "$*6,55957")
 153     DECLARE_CONV_UNIT(CURRENCY, GREEK_DRACHMA,      "$/340,751", "$*340,751")
 154     DECLARE_CONV_UNIT(CURRENCY, IRISH_POUND,        "$/0,787564","$*0,787564")
 155     DECLARE_CONV_UNIT(CURRENCY, ITALIAN_LIRA,       "$/1936.27", "$*1936.27")
 156     DECLARE_CONV_UNIT(CURRENCY, LATVIAN_LATS,       "$/0,7028",  "$*0,7028")
 157     DECLARE_CONV_UNIT(CURRENCY, LITHUANIAN_LITAS,   "$/3,45280", "$*3,45280")
 158     DECLARE_CONV_UNIT(CURRENCY, LUXEMBOURG_FRANC,   "$/40,3399", "$*40,3399")
 159     DECLARE_CONV_UNIT(CURRENCY, MALTESE_LIRA,       "$/0.42930", "$*0.42930")
 160     DECLARE_CONV_UNIT(CURRENCY, PORTOGUESE_ESCUDO,  "$/200,482", "$*200,482")
 161     DECLARE_CONV_UNIT(CURRENCY, SLOVAK_KORUNA,      "$/30,126",  "$*30,126")
 162     DECLARE_CONV_UNIT(CURRENCY, SLOVENIAN_TOLAR,    "$/239,640", "$*239,640")
 163     DECLARE_CONV_UNIT(CURRENCY, SPANISH_PESETA,     "$/166,386", "$*166,386")
 164     DECLARE_CONV_END
 165 };
 166
 167 /*
 168     1 cal15 .... = 4.1855 J
 169     1 BTU ...... = 1055.056 J
 170     1 ERG ...... = 0.0000001 J
 171     1 EV ....... = 0.000000000000000000160217653 J
 172     1 Foot-Pound = 1.3558179483314004 J
 173     1 IT calorie = 4.1868 J
 174     1 KCa ...... = 4186.8 J
 175     1 KJ ....... = 1000 J
 176     1 KWh ...... = 3600 J
 177     1 IUNS ..... = 4.182 J
 178     1 calth .... = 4.184 J
 179 */
 180 static const conv_t conv_ENERGY[] = {
 181     DECLARE_CONV_UNIT(ENERGY, 15_C_CALORIES,        "$*4.1855",   "$/4.1855")
 182     DECLARE_CONV_UNIT(ENERGY, BTUS,                 "$*1055.056", "$/1055.056")
 183     DECLARE_CONV_UNIT(ENERGY, ERGS,                 "$*.0000001", "$/.0000001")
 184     DECLARE_CONV_UNIT(ENERGY, EVS,                  "$*.000000000000000000160217653", "$/.000000000000000000160217653")
 185     DECLARE_CONV_UNIT(ENERGY, FOOT_POUNDS,          "$*1.3558179483314004",   "$/1.3558179483314004")
 186     DECLARE_CONV_UNIT(ENERGY, IT_CALORIES,          "$*4.1868",   "$/4.1868")
 187     DECLARE_CONV_UNIT(ENERGY, IT_KILOCALORIES,      "$*4186.8",   "$/4186.8")
 188     DECLARE_CONV_UNIT(ENERGY, JOULES,               "$",          "$")
 189     DECLARE_CONV_UNIT(ENERGY, KILOJOULES,           "$*1000",     "$/1000")
 190     DECLARE_CONV_UNIT(ENERGY, KILOWATT_HOURS,       "$*3600",     "$/3600")
 191     DECLARE_CONV_UNIT(ENERGY, NUTRITION_CALORIES,   "$*4.182",    "$/4.182")
 192     DECLARE_CONV_UNIT(ENERGY, TH_CALORIES,          "$*4.184",    "$/4.184")
 193     DECLARE_CONV_END
 194 };
 195
 196 /*
 197     1 angstrom ....... = 0.0000000001 m
 198     1 astronomical unit= 149598000000 m
 199     1 barleycorn ..... = 1/3 inch = 0.9144/108 m
 200     1 cm ............. = 1/100 m
 201     1 chain uk ....... = 22 yards = 22*0.9144 m
 202     1 chi ............ = 1/3 m
 203     1 chou ........... = 3600/33 m
 204     1 chr ............ =
 205     1 cun ............ = 1/10 chi = 1/30 m
 206     1 fathom ......... = 2 yard = 2*0.9144 m
 207     1 fathom ungary .. = 1.8964838 m (fixed)
 208     1 feet ........... = 12 inch = 0.9144/3 m
 209     1 furlong ........ = 10 chains = 220*0.9144 m
 210     1 gan ............ =
 211     1 hand ........... = 4 inches = 0.9144/9 m
 212     1 hunh ........... =
 213     1 inch ........... = yard/36 = 0.9144/36 m
 214     1 ja ............. =
 215     1 jeong .......... =
 216     1 kabiet ......... =
 217     1 ken ............ = 60/33 m
 218     1 keub ........... =
 219     1 km ............. = 1000 m
 220     1 lar ............ =
 221     1 light year ..... = 9460730472580800 m
 222     1 link uk ........ = 0.01 chains = 0.22*0.9144 m
 223     1 micron ......... = 0.000001 m
 224     1 mile ........... = 1760 yards = 1609.344 m
 225     1 millimeter ..... = 1/1000 m
 226     1 nautical mile .. = 1852 m
 227     1 nieu ........... =
 228     1 parsec ......... = 30856800000000000 m
 229     1 pica ........... = yard/216 = 0.9144/216 m
 230     1 ri japan ....... =
 231     1 ri korea ....... =
 232     1 rod ............ = 5.0292 m
 233     1 sawk ........... =
 234     1 sen ............ =
 235     1 shaku .......... = 10/33 m
 236     1 span ........... = 9 inches = 0.9144/4 m
 237     1 sun ............ = 1/33 m
 238     1 tsuen .......... =
 239     1 va ............. =
 240     1 yard ........... = 0.9144 m
 241     1 yote ........... =
 242     1 zhang .......... =
 243 */
 244 static const conv_t conv_LENGTH[] = {
 245     DECLARE_CONV_UNIT(LENGTH, ANGSTROMS,            "$*0.0000000001",   "$/0.0000000001")
 246     DECLARE_CONV_UNIT(LENGTH, ASTRONOMICAL_UNITS,   "$*149598000000",   "$/149598000000")
 247     DECLARE_CONV_UNIT(LENGTH, BARLEYCORNS,          "$*0.9144/108",     "$/0.9144*108")
 248     DECLARE_CONV_UNIT(LENGTH, CENTIMETERS,          "$/100",            "$*100")
 249     DECLARE_CONV_UNIT(LENGTH, CHAINS_UK,            "$*20.1168",        "$/20.1168")
 250     DECLARE_CONV_UNIT(LENGTH, CHI,                  "$/3",              "$*3")
 251     DECLARE_CONV_UNIT(LENGTH, CHOU,                 "$*3600/33",        "$*33/3600")
 252 //    DECLARE_CONV_UNIT(LENGTH, CHR,                  "$", "$")
 253     DECLARE_CONV_UNIT(LENGTH, CUN,                  "$/30",             "$*30")
 254     DECLARE_CONV_UNIT(LENGTH, FATHOMS,              "$*1.8288",         "$/1.8288")
 255     DECLARE_CONV_UNIT(LENGTH, FATHOMS_HUNGARY,      "$*1.8964838",      "$/1.8964838")
 256     DECLARE_CONV_UNIT(LENGTH, FEET,                 "$*0.3048",         "$/0.3048")
 257     DECLARE_CONV_UNIT(LENGTH, FURLONGS,             "$*201.168",        "$/201.168")
 258 //    DECLARE_CONV_UNIT(LENGTH, GAN,                  "$", "$")
 259     DECLARE_CONV_UNIT(LENGTH, HANDS,                "$*0,1016",         "$/0,1016")
 260 //    DECLARE_CONV_UNIT(LENGTH, HUNH,                 "$", "$")
 261     DECLARE_CONV_UNIT(LENGTH, INCHES,               "$*0.0254",         "$/0.0254")
 262 //    DECLARE_CONV_UNIT(LENGTH, JA,                   "$", "$")
 263 //    DECLARE_CONV_UNIT(LENGTH, JEONG,                "$", "$")
 264 //    DECLARE_CONV_UNIT(LENGTH, KABIET,               "$", "$")
 265     DECLARE_CONV_UNIT(LENGTH, KEN,                  "$*60/33",          "$*33/60")
 266 //    DECLARE_CONV_UNIT(LENGTH, KEUB,                 "$", "$")
 267     DECLARE_CONV_UNIT(LENGTH, KILOMETERS,           "$*1000",           "$/1000")
 268 //    DECLARE_CONV_UNIT(LENGTH, LAR,                  "$", "$")
 269     DECLARE_CONV_UNIT(LENGTH, LIGHT_YEARS,          "$*9460730472580800", "$/9460730472580800")
 270     DECLARE_CONV_UNIT(LENGTH, LINKS_UK,             "$*0.201168",       "$/0.201168")
 271     DECLARE_CONV_UNIT(LENGTH, METERS,               "$",                "$")
 272     DECLARE_CONV_UNIT(LENGTH, MICRONS,              "$*0.000001",       "$/0.000001")
 273     DECLARE_CONV_UNIT(LENGTH, MILES,                "$*1609.344",       "$/1609.344")
 274     DECLARE_CONV_UNIT(LENGTH, MILLIMETERS,          "$/1000",           "$*1000")
 275     DECLARE_CONV_UNIT(LENGTH, NAUTICAL_MILES,       "$*1852",           "$/1852")
 276 //    DECLARE_CONV_UNIT(LENGTH, NIEU,                 "$", "$")
 277     DECLARE_CONV_UNIT(LENGTH, PARSECS,              "$*30856800000000000", "$/30856800000000000")
 278     DECLARE_CONV_UNIT(LENGTH, PICAS,                "$*0.9144/216",     "$/0.9144*216")
 279     DECLARE_CONV_UNIT(LENGTH, RODS,                 "$*5.0292",         "$/5.0292")
 280 //    DECLARE_CONV_UNIT(LENGTH, RI_JAPAN,             "$", "$")
 281 //    DECLARE_CONV_UNIT(LENGTH, RI_KOREA,             "$", "$")
 282 //    DECLARE_CONV_UNIT(LENGTH, SAWK,                 "$", "$")
 283 //    DECLARE_CONV_UNIT(LENGTH, SEN,                  "$", "$")
 284     DECLARE_CONV_UNIT(LENGTH, SHAKU,                "$*10/33",          "$*33/10")
 285     DECLARE_CONV_UNIT(LENGTH, SPAN,                 "$*0.9144/4",       "$*4/0.9144")
 286     DECLARE_CONV_UNIT(LENGTH, SUN,                  "$*1/33",            "$*33")
 287 //    DECLARE_CONV_UNIT(LENGTH, TSUEN,                "$", "$")
 288 //    DECLARE_CONV_UNIT(LENGTH, VA,                   "$", "$")
 289     DECLARE_CONV_UNIT(LENGTH, YARDS,                "$*0.9144",         "$/0.9144")
 290 //    DECLARE_CONV_UNIT(LENGTH, YOTE,                 "$", "$")
 291 //    DECLARE_CONV_UNIT(LENGTH, ZHANG,                "$", "$")
 292     DECLARE_CONV_END
 293 };
 294
 295 /*
 296     1 BTU/min = 17.5842642 W
 297     1 Foot-pound/minute = 0.02259696580552333 W
 298     1 hp = 745.69987158227022 W
 299     1 KW = 1000 W
 300     1 MW = 1000000 W
 301 */
 302 static const conv_t conv_POWER[] = {
 303     DECLARE_CONV_UNIT(POWER, BTUS_PER_MINUTE, "$*17.5842642", "$/17.5842642")
 304     DECLARE_CONV_UNIT(POWER, FPS_PER_MINUTE,  "$*0.02259696580552333", "$/0.02259696580552333")
 305     DECLARE_CONV_UNIT(POWER, HORSEPOWER,      "$*745.69987158227022", "$/745.69987158227022")
 306     DECLARE_CONV_UNIT(POWER, KILOWATTS,       "$*1000", "$/1000")
 307     DECLARE_CONV_UNIT(POWER, MEGAWATTS,       "$*1000000", "$/1000000")
 308     DECLARE_CONV_UNIT(POWER, WATTS,           "$", "$")
 309     DECLARE_CONV_END
 310 };
 311
 312 /*
 313     1 ATM   = 101325 Pa
 314     1 BAR   = 100000 Pa
 315     1 hPa   = 100 Pa
 316     1 kPa   = 1000 Pa
 317     1 mm HG = 133.322 Pa
 318     1 psi   = 6894.757 Pa
 319 */
 320 static const conv_t conv_PRESSURE[] = {
 321     DECLARE_CONV_UNIT(PRESSURE, ATMOSPHERES,   "$*101325",   "$/101325")
 322     DECLARE_CONV_UNIT(PRESSURE, BARS,          "$*100000",   "$/100000")
 323     DECLARE_CONV_UNIT(PRESSURE, HECTOPASCALS,  "$*100",      "$/100")
 324     DECLARE_CONV_UNIT(PRESSURE, KILOPASCALS,   "$*1000",     "$/1000")
 325     DECLARE_CONV_UNIT(PRESSURE, MM_OF_MERCURY, "$*133.322",  "$/133.322")
 326     DECLARE_CONV_UNIT(PRESSURE, PASCALS,       "$",          "$")
 327     DECLARE_CONV_UNIT(PRESSURE, PSI,           "$*6894.757", "$/6894.757")
 328     DECLARE_CONV_END
 329 };
 330
 331 /*
 332     1 day ....... = 86400 s
 333     1 hour ...... = 3600 s
 334     1 microsecond = 0.000001 s
 335     1 millisecond = 0.001 s
 336     1 nanosecond. = 0.000000001 s
 337     1 minute .... = 60 s
 338     1 week ...... = 669600 s
 339 */
 340 static const conv_t conv_TIME[] = {
 341     DECLARE_CONV_UNIT(TIME, MINUTES,      "$*60",          "$/60")
 342     DECLARE_CONV_UNIT(TIME, DAYS,         "$*86400",       "$/86400")
 343     DECLARE_CONV_UNIT(TIME, HOURS,        "$*3600",        "$/3600")
 344     DECLARE_CONV_UNIT(TIME, MILLISECONDS, "$*0.001",       "$/0.001")
 345     DECLARE_CONV_UNIT(TIME, MICROSECONDS, "$*0.000001",    "$/0.000001")
 346     DECLARE_CONV_UNIT(TIME, NANOSECONDS,  "$*0.000000001", "$/0.000000001")
 347     DECLARE_CONV_UNIT(TIME, SECONDS,      "$",             "$")
 348     DECLARE_CONV_UNIT(TIME, WEEKS,        "$*604800",      "$/604800")
 349     DECLARE_CONV_UNIT(TIME, YEARS,        "$*31556952",    "$/31556952")
 350     DECLARE_CONV_END
 351 };
 352
 353 /*
 354     C = K - 273.15
 355     F = K * 9/5 - 459.67
 356     R = K * 9/5
 357  */
 358 static const conv_t conv_TEMPERATURE[] = {
 359     DECLARE_CONV_UNIT(TEMPERATURE, CELSIUS,     "$+273.15",       "$-273.15")
 360     DECLARE_CONV_UNIT(TEMPERATURE, FAHRENHEIT,  "($+459.67)*5/9", "$*9/5-459.67")
 361     DECLARE_CONV_UNIT(TEMPERATURE, KELVIN,      "$",              "$")
 362     DECLARE_CONV_UNIT(TEMPERATURE, RANKINE,     "$*5/9",          "$*9/5")
 363     DECLARE_CONV_END
 364 };
 365
 366 /*
 367     1 cm/s = 0.01 m/s
 368     1 f/h  = 0.0000846666667 m/s
 369     1 f/s  = 0.3048 m/s
 370     1 Km/h = 10/36 m/s -> 0.27778 m/s
 371     1 knot = 18.52/36 m/s -> 0.51444444 m/s
 372     1 mach = 340.3 m/s
 373     1 mph  = 0.44704 m/s
 374 */
 375 static const conv_t conv_VELOCITY[] = {
 376     DECLARE_CONV_UNIT(VELOCITY, CMS_SECOND,         "$*.01",      "$/.01")
 377     DECLARE_CONV_UNIT(VELOCITY, FEET_SECOND,        "$*.3048",    "$/.3048")
 378     DECLARE_CONV_UNIT(VELOCITY, FEET_HOUR,          "$*.0000846666667", "$/.0000846666667")
 379     DECLARE_CONV_UNIT(VELOCITY, KILOMETERS_HOUR,    "$*10/36",    "$*36/10")
 380     DECLARE_CONV_UNIT(VELOCITY, KNOTS,              "$*18.52/36", "$*36/18.52")
 381     DECLARE_CONV_UNIT(VELOCITY, MACH,               "$*340.3",    "$/340.3")
 382     DECLARE_CONV_UNIT(VELOCITY, METERS_SECOND,      "$",          "$")
 383     DECLARE_CONV_UNIT(VELOCITY, MILES_HOUR,         "$*.44704",   "$/.44704")
 384     DECLARE_CONV_END
 385 };
 386
 387 /*
 388     1 barrel uk ...... = 163.65924 l
 389     1 barrel oil ..... = 158.987295 l
 390     1 bun ............ =
 391     1 bushel uk ...... = 36.36872 l
 392     1 bushel us ...... = 35.23907017 l
 393     1 cubic cm  ...... = 0.001 l
 394     1 cubic feet ..... = 28.316846 l
 395     1 cubic inch ..... = 0.016387064 l
 396     1 cubic meter .... = 1000 l
 397     1 cubic yard ..... = 764.554857 l
 398     1 doe ............ =
 399     1 fluid ounce uk   = 0.0284130625 l
 400     1 fluid ounce us   = 0.0295735295625 l
 401     1 gallon uk ...... = 4.54609 l
 402     1 gallon dry us .. = 4.40488377086 l
 403     1 gallon liquid us = 3.785411784 l
 404     1 gou ............ = 0.1809 l
 405     1 hop ............ =
 406     1 icce ........... =
 407     1 kwian .......... =
 408     1 mal ............ =
 409     1 milliliter ..... = 0.001 l
 410     1 pint uk ........ = 0.56826125 l
 411     1 pint dry us .... = 0.5506104713575 l
 412     1 pint liquid us   = 0.473176473 l
 413     1 quart uk ....... = 1.1365225 l
 414     1 quart dry us ... = 1.101220942715 l
 415     1 quart liquid us  = 0.946352946 l
 416     1 seki ........... =
 417     1 syou ........... =
 418     1 tananloung ..... =
 419     1 tang ........... =
 420     1 to ............. = 18040 l
 421 */
 422 static const conv_t conv_VOLUME[] = {
 423     DECLARE_CONV_UNIT(VOLUME, BARRELS_UK,           "$*163.65924",       "$/163.65924")
 424     DECLARE_CONV_UNIT(VOLUME, BARRELS_OIL,          "$*158.987295",      "$/158.987295")
 425 //    DECLARE_CONV_UNIT(VOLUME, BUN,                  "$", "$")
 426     DECLARE_CONV_UNIT(VOLUME, BUSHELS_UK,           "$*36.36872",        "$/36.36872")
 427     DECLARE_CONV_UNIT(VOLUME, BUSHELS_US,           "$*35.23907017",     "$/35.23907017")
 428     DECLARE_CONV_UNIT(VOLUME, CUBIC_CENTIMETERS,    "$*0.001",           "$/0.001")
 429     DECLARE_CONV_UNIT(VOLUME, CUBIC_FEET,           "$*28.316846",       "$/28.316846")
 430     DECLARE_CONV_UNIT(VOLUME, CUBIC_INCHES,         "$*0.016387064",     "$/0.016387064")
 431     DECLARE_CONV_UNIT(VOLUME, CUBIC_METERS,         "$*1000",            "$/1000")
 432     DECLARE_CONV_UNIT(VOLUME, CUBIC_YARDS,          "$*764.554857",      "$/764.554857")
 433 //    DECLARE_CONV_UNIT(VOLUME, DOE,                  "$", "$")
 434     DECLARE_CONV_UNIT(VOLUME, FLUID_OUNCES_UK,      "$*0.0284130625",    "$/0.0284130625")
 435     DECLARE_CONV_UNIT(VOLUME, FLUID_OUNCES_US,      "$*0.0295735295625", "$/0.0295735295625")
 436     DECLARE_CONV_UNIT(VOLUME, GALLONS_UK,           "$*4.54609",         "$/4.54609")
 437     DECLARE_CONV_UNIT(VOLUME, GALLONS_DRY_US,       "$*4.40488377086",   "$/4.40488377086")
 438     DECLARE_CONV_UNIT(VOLUME, GALLONS_LIQUID_US,    "$*3.785411784",     "$/3.785411784")
 439     DECLARE_CONV_UNIT(VOLUME, GOU,                  "$*0.1809",          "$/0.1809")
 440 //    DECLARE_CONV_UNIT(VOLUME, HOP,                  "$", "$")
 441 //    DECLARE_CONV_UNIT(VOLUME, ICCE,                 "$", "$")
 442 //    DECLARE_CONV_UNIT(VOLUME, KWIAN,                "$", "$")
 443     DECLARE_CONV_UNIT(VOLUME, LITERS,               "$",                 "$")
 444 //    DECLARE_CONV_UNIT(VOLUME, MAL,                  "$", "$")
 445     DECLARE_CONV_UNIT(VOLUME, MILLILITERS,          "$*0.001",           "$/0.001")
 446     DECLARE_CONV_UNIT(VOLUME, PINTS_UK,             "$*0.56826125",      "$/0.56826125")
 447     DECLARE_CONV_UNIT(VOLUME, PINTS_DRY_US,         "$*0.5506104713575", "$/0.5506104713575")
 448     DECLARE_CONV_UNIT(VOLUME, PINTS_LIQUID_US,      "$*0.473176473",     "$/0.473176473")
 449     DECLARE_CONV_UNIT(VOLUME, QUARTS_UK,            "$*1.1365225",       "$/1.1365225")
 450     DECLARE_CONV_UNIT(VOLUME, QUARTS_DRY_US,        "$*1.101220942715",  "$/1.101220942715")
 451     DECLARE_CONV_UNIT(VOLUME, QUARTS_LIQUID_US,     "$*0.946352946",     "$/0.946352946")
 452 //    DECLARE_CONV_UNIT(VOLUME, SEKI,                 "$", "$")
 453 //    DECLARE_CONV_UNIT(VOLUME, SYOU,                 "$", "$")
 454 //    DECLARE_CONV_UNIT(VOLUME, TANANLOUNG,           "$", "$")
 455 //    DECLARE_CONV_UNIT(VOLUME, TANG,                 "$", "$")
 456     DECLARE_CONV_UNIT(VOLUME, TO,                   "$*18040",           "$/18040")
 457     DECLARE_CONV_END
 458 };
 459
 460 /*
 461     1 baht ............ = 12.244 g
 462     1 carat ........... = 0.2 g
 463     1 chung ........... =
 464     1 don ............. =
 465     1 geun ............ =
 466     1 gwan ............ =
 467     1 harb ............ =
 468     1 jin china ....... =
 469     1 jin taiwan ...... =
 470     1 Kan ............. = 3750 g
 471     1 Kilograms ....... = 1000 g
 472     1 Kin ............. = 600 g
 473     1 Liang China ..... =
 474     1 Liang Taiwan .... =
 475     1 monme ........... = 3.75 g
 476     1 ounce avoirdupois = 28.349523125 g
 477     1 ounce troy ...... = 31.1034768 g
 478     1 pound ........... = 453.59237 g
 479     1 quintal metric .. = 100000 g
 480     1 saloung ......... =
 481     1 stone ........... = 6350.29318 g
 482     1 tamlung ......... =
 483     1 ton ............. = 1000000 g
 484     1 ton uk .......... = 1016046.9088 g  // long ton
 485     1 ton us .......... = 907184.74 g     // short ton
 486 */
 487 static const conv_t conv_WEIGHT[] = {
 488     DECLARE_CONV_UNIT(WEIGHT, BAHT,                 "$*12.244",       "$/12.244")
 489     DECLARE_CONV_UNIT(WEIGHT, CARATS,               "$*0.2",          "$/0.2")
 490 //    DECLARE_CONV_UNIT(WEIGHT, CHUNG,                "$", "$")
 491 //    DECLARE_CONV_UNIT(WEIGHT, DON,                  "$", "$")
 492 //    DECLARE_CONV_UNIT(WEIGHT, GEUN,                 "$", "$")
 493     DECLARE_CONV_UNIT(WEIGHT, GRAMS,                "$",              "$")
 494 //    DECLARE_CONV_UNIT(WEIGHT, GWAN,                 "$", "$")
 495 //    DECLARE_CONV_UNIT(WEIGHT, HARB,                 "$", "$")
 496 //    DECLARE_CONV_UNIT(WEIGHT, JIN_CHINA,            "$", "$")
 497 //    DECLARE_CONV_UNIT(WEIGHT, JIN_TAIWAN,           "$", "$")
 498     DECLARE_CONV_UNIT(WEIGHT, KAN,                  "$*3750",         "$/3750")
 499     DECLARE_CONV_UNIT(WEIGHT, KILOGRAMS,            "$*1000",         "$/1000")
 500     DECLARE_CONV_UNIT(WEIGHT, KIN,                  "$*600",          "$/600")
 501 //    DECLARE_CONV_UNIT(WEIGHT, LIANG_CHINA,          "$", "$")
 502 //    DECLARE_CONV_UNIT(WEIGHT, LIANG_TAIWAN,         "$", "$")
 503     DECLARE_CONV_UNIT(WEIGHT, MONME,                "$*3.75",         "$/3.75")
 504     DECLARE_CONV_UNIT(WEIGHT, OUNCES_AVOIRDUPOIS,   "$*28.349523125", "$/28.349523125")
 505     DECLARE_CONV_UNIT(WEIGHT, OUNCES_TROY,          "$*31.1034768",   "$/31.1034768")
 506     DECLARE_CONV_UNIT(WEIGHT, POUNDS,               "$*453.59237",    "$/453.59237")
 507     DECLARE_CONV_UNIT(WEIGHT, QUINTAL_METRIC,       "$*100000",       "$/100000")
 508 //    DECLARE_CONV_UNIT(WEIGHT, SALOUNG,              "$", "$")
 509     DECLARE_CONV_UNIT(WEIGHT, STONES,               "$*6350.29318",    "$/6350.29318")
 510 //    DECLARE_CONV_UNIT(WEIGHT, TAMLUNG,              "$", "$")
 511     DECLARE_CONV_UNIT(WEIGHT, TONNES,               "$*1000000",       "$/1000000")
 512     DECLARE_CONV_UNIT(WEIGHT, TONS_UK,              "$*1016046.9088",  "$/1016046.9088")
 513     DECLARE_CONV_UNIT(WEIGHT, TONS_US,              "$*907184.74",     "$/907184.74")
 514     DECLARE_CONV_END
 515 };
 516
 517 static const conv_category_t conv_table[] = {
 518     DECLARE_CONV_CAT(ANGLE)
 519     DECLARE_CONV_CAT(AREA)
 520     DECLARE_CONV_CAT(CONSUMPTION)
 521     DECLARE_CONV_CAT(CURRENCY)
 522     DECLARE_CONV_CAT(ENERGY)
 523     DECLARE_CONV_CAT(LENGTH)
 524     DECLARE_CONV_CAT(POWER)
 525     DECLARE_CONV_CAT(PRESSURE)
 526     DECLARE_CONV_CAT(TIME)
 527     DECLARE_CONV_CAT(TEMPERATURE)
 528     DECLARE_CONV_CAT(VELOCITY)
 529     DECLARE_CONV_CAT(VOLUME)
 530     DECLARE_CONV_CAT(WEIGHT)
 531 };
 532
 533 void ConvExecute(HWND hWnd)
 534 {
 535     DWORD         c_cat = (DWORD)SendDlgItemMessage(hWnd, IDC_COMBO_CATEGORY, CB_GETCURSEL, 0, 0);
 536     const conv_t *items = NULL;
 537     DWORD         from  = SendDlgItemMessage(hWnd, IDC_COMBO_FROM, CB_GETCURSEL, 0, 0);
 538     DWORD         to    = SendDlgItemMessage(hWnd, IDC_COMBO_TO,   CB_GETCURSEL, 0, 0);
 539     TCHAR         txt_cb[128];
 540     TCHAR         txt[128];
 541     const conv_t *item;
 542
 543     /* do nothing if the indexes point to the same unit */
 544     if (from == to)
 545         return;
 546
 547     /* Search correct category, since it can be sorted too */
 548     SendDlgItemMessage(hWnd, IDC_COMBO_CATEGORY, CB_GETLBTEXT, c_cat, (LPARAM)txt_cb);
 549     for (c_cat=0; c_cat < SIZEOF(conv_table); c_cat++) {
 550         LoadString(calc.hInstance, conv_table[c_cat].category, txt, SIZEOF(txt));
 551         if (!_tcscmp(txt_cb, txt)) {
 552             items = conv_table[c_cat].items;
 553             break;
 554         }
 555     }
 556
 557     /* The units can be sorted, so I must search the exact match */
 558     item = items;
 559     SendDlgItemMessage(hWnd, IDC_COMBO_FROM, CB_GETLBTEXT, from, (LPARAM)txt_cb);
 560     while (item->unit) {
 561         LoadString(calc.hInstance, item->unit, txt, SIZEOF(txt));
 562         if (!_tcscmp(txt_cb, txt)) {
 563             from = item-items;
 564             break;
 565         }
 566         item++;
 567     }
 568     SendDlgItemMessage(hWnd, IDC_COMBO_TO, CB_GETLBTEXT, to, (LPARAM)txt_cb);
 569     item = items;
 570     while (item->unit) {
 571         LoadString(calc.hInstance, item->unit, txt, SIZEOF(txt));
 572         if (!_tcscmp(txt_cb, txt)) {
 573             to = item-items;
 574             break;
 575         }
 576         item++;
 577     }
 578
 579     calc.Convert[0].data = (char *)items[from].formula_from;
 580     calc.Convert[1].data = (char *)items[to].formula_to;
 581     calc.Convert[0].wm_msg = WM_HANDLE_FROM;
 582     calc.Convert[1].wm_msg = WM_HANDLE_TO;
 583     PostMessage(hWnd, WM_START_CONV, 0, MAKELPARAM(0, WM_HANDLE_FROM));
 584 }
 585
 586 void ConvAdjust(HWND hWnd, int n_cat)
 587 {
 588     TCHAR         txt[128];
 589     TCHAR         txt_cat[128];
 590     HWND          hFromWnd = GetDlgItem(hWnd, IDC_COMBO_FROM);
 591     HWND          hToWnd   = GetDlgItem(hWnd, IDC_COMBO_TO);
 592     const conv_t *item;
 593     unsigned int  n;
 594
 595     SendDlgItemMessage(hWnd, IDC_COMBO_CATEGORY, CB_GETLBTEXT, n_cat, (LPARAM)txt_cat);
 596     for (n=0; n<SIZEOF(conv_table); n++) {
 597         item = conv_table[n].items;
 598         LoadString(calc.hInstance, conv_table[n].category, txt, SIZEOF(txt));
 599         if (!_tcscmp(txt_cat, txt))
 600             break;
 601     }
 602
 603     SendMessage(hFromWnd, CB_RESETCONTENT, 0, 0);
 604     SendMessage(hToWnd,   CB_RESETCONTENT, 0, 0);
 605     while (item->unit) {
 606         LoadString(calc.hInstance, item->unit, txt, SIZEOF(txt));
 607         SendMessage(hFromWnd, CB_ADDSTRING, 0, (LPARAM)txt);
 608         SendMessage(hToWnd,   CB_ADDSTRING, 0, (LPARAM)txt);
 609         item++;
 610     }
 611     SendMessage(hFromWnd, CB_SETCURSEL, 0, 0);
 612     SendMessage(hToWnd,   CB_SETCURSEL, 0, 0);
 613 }
 614
 615 void ConvInit(HWND hWnd)
 616 {
 617     HWND         hCatWnd = GetDlgItem(hWnd, IDC_COMBO_CATEGORY);
 618     TCHAR        txt[128];
 619     unsigned int n;
 620
 621     /* Fill category combo */
 622     for (n=0; n<SIZEOF(conv_table); n++) {
 623         LoadString(calc.hInstance, conv_table[n].category, txt, SIZEOF(txt));
 624         SendMessage(hCatWnd, CB_ADDSTRING, 0, (LPARAM)txt);
 625     }
 626     SendMessage(hCatWnd, CB_SETCURSEL, 0, 0);
 627     ConvAdjust(hWnd, 0);
 628 }
 629