+ support 8.3

rtl/objpas/convutil.inc

@@ -0,0 +1,664 @@
+{
+   $Id$
+   This file is part of the Free Pascal run time library.
+   Copyright (c) 2004 by Marco van de Voort
+   member of the Free Pascal development team.
+
+   An implementation for unit convutils, which converts between
+   units and simple combinations of them.
+
+   Based on a guessed interface derived from some programs on the web. (Like
+   Marco Cantu's EuroConv example), so things can be a bit Delphi
+   incompatible. Also part on Delphibasics.co.uk.
+
+   Quantities are mostly taken from my HP48g/gx or the unix units program
+
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY;without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+**********************************************************************}
+
+unit convutils;
+
+interface
+
+{$ifndef VER1_0}
+{$mode objfpc}
+{$H+}
+
+Type TConvType   = type Integer;
+     TConvFamily = type Integer;
+
+var
+
+{cbArea family}
+
+  auSquareMillimeters,
+  auSquareCentimeters,
+  auSquareDecimeters,
+  auSquareMeters,
+  auSquareDecameters,
+  auSquareHectometers,
+  auSquareKilometers,
+  auSquareInches,
+  auSquareFeet	,
+  auSquareYards	,
+  auSquareMiles,
+  auAcres	,
+  auCentares	,
+  auAres	,
+  auHectares	,
+  auSquareRods 	,
+
+{cbDistance family}
+
+  duMicromicrons,
+  duAngstroms 	,
+  duMillimicrons,
+  duMicrons,
+  duMillimeters,
+  duCentimeters,
+  duDecimeters,
+  duMeters,
+  duDecameters,
+  duHectometers,
+  duKilometers,
+  duMegameters,
+  duGigameters,
+  duInches,
+  duFeet,
+  duYards,
+  duMiles 	,
+  duNauticalMiles,
+  duAstronomicalUnits,
+  duLightYears,
+  duParsecs,
+  duCubits,
+  duFathoms,
+  duFurlongs,
+  duHands,
+  duPaces,
+  duRods,
+  duChains,
+  duLinks,
+  duPicas,
+  duPoints,
+
+{cbMass family}
+
+  muNanograms,
+  muMicrograms,
+  muMilligrams,
+  muCentigrams,
+  muDecigrams,
+  muGrams,
+  muDecagrams,
+  muHectograms,
+  muKilograms,
+  muMetricTons,
+  muDrams,
+  muGrains,
+  muLongTons,
+  muTons,
+  muOunces,
+  muPounds,
+  muStones,
+
+{cbTemperature family}
+
+  tuCelsius,
+  tuKelvin,
+  tuFahrenheit,
+  tuRankine,
+  tuReamur,
+
+{
+cbTime family
+}
+
+  tuMilliSeconds,
+  tuSeconds,
+  tuMinutes,
+  tuHours,
+  tuDays,
+  tuWeeks,
+  tuFortnights,
+  tuMonths,
+  tuYears,
+  tuDecades,
+  tuCenturies,
+  tuMillennia,
+  tuDateTime,
+  tuJulianDate,
+  tuModifiedJulianDate,
+
+{
+cbVolume family
+}
+
+  vuCubicMillimeters,
+  vuCubicCentimeters,
+  vuCubicDecimeters,
+  vuCubicMeters,
+  vuCubicDecameters,
+  vuCubicHectometers,
+  vuCubicKilometers,
+  vuCubicInches,
+  vuCubicFeet,
+  vuCubicYards,
+  vuCubicMiles,
+  vuMilliLiters,
+  vuCentiLiters,
+  vuDeciLiters,
+  vuLiters,
+  vuDecaLiters,
+  vuHectoLiters,
+  vuKiloLiters,
+  vuAcreFeet,
+  vuAcreInches,
+  vuCords,
+  vuCordFeet,
+  vuDecisteres,
+  vuSteres,
+  vuDecasteres,
+  vuFluidGallons,
+  vuFluidQuarts,
+  vuFluidPints,
+  vuFluidCups,
+  vuFluidGills,
+  vuFluidOunces,
+  vuFluidTablespoons,
+  vuFluidTeaspoons,
+  vuDryGallons,
+  vuDryQuarts,
+  vuDryPints,
+  vuDryPecks,
+  vuDryBuckets,
+  vuDryBushels,
+  vuUKGallons,
+  vuUKPottles,
+  vuUKQuarts,
+  vuUKPints,
+  vuUKGills,
+  vuUKOunces,
+  vuUKPecks,
+  vuUKBuckets,
+  vuUKBushels     : TConvType;
+
+var
+    cbArea        : TConvFamily;
+    cbDistance    : TConvFamily;
+    cbMass        : TConvFamily;
+    cbTemperature : TConvFamily;
+    cbTime        : TConvFamily;
+    cbVolume      : TConvFamily;
+
+Type  TConvUtilFloat = double;
+
+Function RegisterConversionFamily(Const S : String):TConvFamily;
+Function RegisterConversionType(Fam:TConvFamily;Const S:String;Value:TConvUtilFloat):TConvType;
+
+function Convert ( const Measurement  : Double; const FromType, ToType  : TConvType ) :TConvUtilFloat;
+function Convert ( const Measurement  : Double; const FromType1, FromType2, ToType1, ToType2  : TConvType ) :TConvUtilFloat;
+
+
+{$endif VER1_0}
+
+Implementation
+
+{$ifndef VER1_0}
+ResourceString  // Note, designations for FFU's are guesses.
+
+  txtauSquareMillimeters   = 'Square millimeters (mm^2)';
+  txtauSquareCentimeters   = 'Square centimeters (cm^2)';
+  txtauSquareDecimeters    = 'Square decimeters (dm^2)';
+  txtauSquareMeters        = 'Square meters (m^2)';
+  txtauSquareDecameters    = 'Square decameters (dam^2)';
+  txtauSquareHectometers   = 'Square hectometers (hm^2)';
+  txtauSquareKilometers    = 'Square kilometers (km^2)';
+  txtauSquareInches        = 'Square inch (in^2)';
+  txtauSquareFeet          = 'Square feet (ft^2)';
+  txtauSquareYards         = 'Square yards (yd^2)';
+  txtauSquareMiles         = 'Square miles  (mi^2)';
+  txtauAcres               = 'Square acres (acre^2)';
+  txtauCentares            = 'Centares (care^2)';
+  txtauAres                = 'Ares (are=dam^2)';  	
+  txtauHectares            = 'Hectares (ha=hm^2)';
+  txtauSquareRods          = 'Square Rods (sqr)';
+  txtduMicromicrons        = 'micro microms (mumum)';
+  txtduAngstroms 	   = 'Aengstroem (ang)';
+  txtduMillimicrons        = 'millimicroms (mmum)';
+  txtduMicrons             = 'microns (um)';
+  txtduMillimeters         = 'millimeters (mm)';
+  txtduCentimeters         = 'centimeters (cm)';
+  txtduDecimeters          = 'decimeters (dm)';
+  txtduMeters              = 'meters (m)';
+  txtduDecameters          = 'decameters (dam)';
+  txtduHectometers         = 'hectometers (hm)';
+  txtduKilometers          = 'kilometers (km)';
+  txtduMegameters          = 'megameters (Mm)';
+  txtduGigameters          = 'gigameters (Gm)';
+  txtduInches              = 'inches (in)';
+  txtduFeet                = 'feet (ft)';
+  txtduYards               = 'yards (yd)';
+  txtduMiles 	           = 'miles (mi)';
+  txtduNauticalMiles       = 'nautical miles (nmi)';
+  txtduAstronomicalUnits   = 'astronomical units (au)';
+  txtduLightYears          = 'light years (ly)';
+  txtduParsecs             = 'Parsec (Ps)';
+  txtduCubits              = 'Cubits (cb)';
+  txtduFathoms             = 'Fathom (Fth)';
+  txtduFurlongs            = 'Furlongs (furl)';
+  txtduHands               = 'Hands (hnd)';
+  txtduPaces               = 'Paces (pc)';
+  txtduRods                = 'Rods (rd)';
+  txtduChains              = 'Chains (ch)';
+  txtduLinks               = 'Links (lnk)';
+  txtduPicas               = 'Pica''s (pc)';
+  txtduPoints              = 'Points (pnts)';		// carat/Karaat 2E-6 gram ?
+  txtmuNanograms           = 'nanograms (ng)';
+  txtmuMicrograms          = 'micrograms (um)';
+  txtmuMilligrams          = 'milligrams (mg)';
+  txtmuCentigrams          = 'centigrams (cg)';
+  txtmuDecigrams           = 'decigrams (dg)';
+  txtmuGrams               = 'grams (g)';
+  txtmuDecagrams           = 'decagrams (dag)';
+  txtmuHectograms          = 'hectograms (hg)';
+  txtmuKilograms           = 'kilograms (kg)';
+  txtmuMetricTons          = 'metric ton (t)';
+  txtmuDrams               = 'dramgs (??)';
+  txtmuGrains              = 'grains (??)';
+  txtmuLongTons            = 'longton (??)';
+  txtmuTons                = 'imperial ton (??)'; // calling metric ton "ton" is normal in metric countries
+  txtmuOunces              = 'ounce (??)';
+  txtmuPounds              = 'pounds (??)';	// what kind? Metric pound =0.5
+  txtmuStones              = 'stones (??)';
+  txttuCelsius             = 'degrees Celsius (degC)';
+  txttuKelvin		   = 'degrees Kelvin (K)';
+  txttuFahrenheit	   = 'degrees Fahrenheit (degF)';
+  txttuRankine             = 'degrees Rankine (degR)';
+  txttuReamur 		   = 'degrees Reamur (degReam)';			
+  txttuMilliSeconds        = 'milli seconds (ms)';
+  txttuSeconds             = 'seconds (s)';
+  txttuMinutes             = 'minutes (min)';
+  txttuHours               = 'hours (hr)';
+  txttuDays                = 'days (days)';
+  txttuWeeks               = 'weeks (weeks)';
+  txttuFortnights          = 'Fortnights (??)';
+  txttuMonths              = 'Months (months)';
+  txttuYears               = 'Years (years)';
+  txttuDecades             = 'Decades (decades)';
+  txttuCenturies           = 'Centuries (centuries)';
+  txttuMillennia           = 'Millennia (millenia)';
+  txttuDateTime            = 'DateTime (??)';
+  txttuJulianDate          = 'JulianDate (??)';
+  txttuModifiedJulianDate  = 'Modified JulianData (??)';
+
+  txtvuCubicMillimeters    = 'cubic millimeters (mm^3)';
+  txtvuCubicCentimeters    = 'cubic centimeters (cm^3)';
+  txtvuCubicDecimeters     = 'cubic decimeters (dm^3)';
+  txtvuCubicMeters         = 'cubic meters (m^3)';
+  txtvuCubicDecameters     = 'cubic decameters (dam^3)';
+  txtvuCubicHectometers    = 'cubic hectometers (hm^3)';
+  txtvuCubicKilometers     = 'cubic kilometers (km^3)';
+  txtvuCubicInches         = 'cubic inches (in^3)';
+  txtvuCubicFeet           = 'cubic feet (ft^3)';
+  txtvuCubicYards          = 'cubic yards (yd^3)';
+  txtvuCubicMiles          = 'cubic miles (mi^3)';
+  txtvuMilliLiters         = 'milliliters (ml)';
+  txtvuCentiLiters         = 'centiliters (cl)';
+  txtvuDeciLiters          = 'deciliters (dl)';
+  txtvuLiters              = 'liters (l)';
+  txtvuDecaLiters          = 'decaliters (dal)';
+  txtvuHectoLiters         = 'hectoliters (hl)';
+  txtvuKiloLiters          = 'kiloliters (kl)';
+  txtvuAcreFeet            = 'acrefeet (acre ft)';
+  txtvuAcreInches          = 'acreinches (acre in)';
+  txtvuCords               = 'cords (??)';
+  txtvuCordFeet            = 'cordfeet (??)';
+  txtvuDecisteres          = 'decisteres (??)';
+  txtvuSteres              = 'steres (??)';
+  txtvuDecasteres          = 'decasteres (??)';
+  txtvuFluidGallons        = 'US fluid gallons (fl gal)';
+  txtvuFluidQuarts         = 'US fluid Quarts (fl Quart)';
+  txtvuFluidPints          = 'US fluid Pints (fl pints)';
+  txtvuFluidCups           = 'US fluid Cups (fl Cups)';
+  txtvuFluidGills          = 'US fluid Gills (fl Quart)';
+  txtvuFluidOunces         = 'US fluid Ounces (fl Ounces)';
+  txtvuFluidTablespoons    = 'US fluid Tablespoons (fl Tablespoons)';
+  txtvuFluidTeaspoons      = 'US fluid teaspoons (fl teaspoon)';
+  txtvuDryGallons          = 'US dry gallons (dr gal)';
+  txtvuDryQuarts           = 'US dry Quarts (dr Quart)';
+  txtvuDryPints            = 'US dry Pints (dr pints)';
+  txtvuDryPecks            = 'US dry pecks (dr pecks)';
+  txtvuDryBuckets          = 'US dry buckets (dr buckets)';
+  txtvuDryBushels          = 'US dry bushels (dr bushels)';
+  txtvuUKGallons           = 'UK gallons (fl gal)';
+  txtvuUKPottles           = 'UK Pottles (fl pttle)';
+  txtvuUKQuarts            = 'UK Quarts (fl Quart)';
+  txtvuUKPints             = 'UK Pints (fl pints)';
+  txtvuUKGills             = 'UK Gills (fl Quart)';
+  txtvuUKOunces            = 'UK Ounces (fl Ounces)';
+  txtvuUKPecks             = 'UK pecks (dr pecks)';
+  txtvuUKBuckets           = 'UK buckets (dr buckets)';
+  txtvuUKBushels           = 'UK bushels (dr bushels)';
+
+Type ResourceData = record
+		      Description : String;
+		      Value       : TConvUtilFloat;
+	              Fam	  : TConvFamily;
+		     end;
+
+
+var TheUnits    : array of ResourceData =nil;
+    TheFamilies : array of string =nil;
+
+Function RegisterConversionFamily(Const S:String):TConvFamily;
+
+var i,l : Longint;
+
+begin
+  l:=Length(TheFamilies);
+  If l=0 Then
+    begin
+      SetLength(TheFamilies,1);
+      TheFamilies[0]:=S;
+      Result:=0;
+    end
+  else
+    begin
+      i:=0;
+      while (i<l) and (s<>TheFamilies[i]) do inc(i);
+      if i=l Then
+         begin
+           SetLength(TheFamilies,l+1);
+           TheFamilies[l]:=s;
+         end;
+       Result:=i;
+    end;
+end;
+
+Function CheckFamily(i:TConvFamily):Boolean;
+
+begin
+  Result:=i<Length(TheFamilies);
+end;
+
+const macheps=1E-9;
+
+Function RegisterConversionType(Fam:TConvFamily;Const S:String;Value:TConvUtilFloat):TConvType;
+
+var i,l1 : Longint;
+
+begin
+  If NOT CheckFamily(Fam) Then exit(-1); // family not registered.
+  if (value+1.0)<macheps then		 // not properly defined yet.
+    exit(-1);
+  l1:=length(theunits);
+  Setlength(theunits,l1+1);
+  theunits[l1].description:=s;
+  theunits[l1].value:=value;
+  theunits[l1].fam:=fam;
+  Result:=l1;	
+end;
+
+function SearchConvert(TheType:TConvType; var r:ResourceData):Boolean;
+
+var i,j,l1,l2 : longint;
+
+begin
+  l1:=length(TheUnits);
+  if thetype>=l1 then
+    exit(false);
+  r:=theunits[thetype];
+  result:=true;
+end;
+
+function Convert ( const Measurement  : Double; const FromType, ToType  : TConvType ) :TConvUtilFloat;
+
+var
+  fromrec,torec :   resourcedata;
+
+begin
+  if not SearchConvert(fromtype,fromrec) then
+   exit(-1.0);					// raise exception?
+  if not SearchConvert(totype,torec) then
+   exit(-1.0);					// raise except?
+  if fromrec.fam<>torec.fam then
+   exit(-1.0);
+  result:=Measurement*fromrec.value/torec.value;
+end;
+
+function Convert ( const Measurement  : Double; const FromType1, FromType2, ToType1, ToType2  : TConvType ) :TConvUtilFloat;
+var
+  fromrec1,fromrec2,torec1 ,
+  torec2 :   resourcedata;
+
+begin
+  if not SearchConvert(fromtype1,fromrec1) then
+   exit(-1.0);					// raise exception?
+  if not SearchConvert(totype1,torec1) then
+   exit(-1.0);					// raise except?
+  if not SearchConvert(fromtype2,fromrec2) then
+   exit(-1.0);					// raise exception?
+  if not SearchConvert(totype2,torec2) then
+   exit(-1.0);					// raise except?
+  if (fromrec1.fam<>torec1.fam) or (fromrec1.fam<>torec1.fam) then
+   exit(-1.0);
+  result:=Measurement*(fromrec1.value/fromrec2.value)/(torec1.value/torec2.value);
+end;
+
+  // initial FFU factors from a HP48g calculator and BSD units program. However after
+  //    a while, the bushels/forthnight got boring, so please check.
+  // undefined/uncertain factors get -1, and convert() functions
+  // should check that and bomb on it.
+
+procedure RegisterArea;
+
+begin
+  auSquareMillimeters := RegisterConversionType(cbArea,txtauSquareMillimeters,1E-6);
+  auSquareCentimeters := RegisterConversionType(cbArea,txtauSquareCentimeters,1E-4);
+  auSquareDecimeters  := RegisterConversionType(cbArea,txtauSquareDecimeters,1E-2);
+  auSquareMeters      := RegisterConversionType(cbArea,txtauSquareMeters,1);
+  auSquareDecameters  := RegisterConversionType(cbArea,txtauSquareDecameters,1E2);
+  auSquareHectometers := RegisterConversionType(cbArea,txtauSquareHectometers,1E4);
+  auSquareKilometers  := RegisterConversionType(cbArea,txtauSquareKilometers,1E6);
+  auSquareInches      := RegisterConversionType(cbArea,txtauSquareInches,0.00064516);
+  auSquareFeet	      := RegisterConversionType(cbArea,txtauSquareFeet,0.092903040);
+  auSquareYards	      := RegisterConversionType(cbArea,txtauSquareYards,0.83612736);
+  auSquareMiles       := RegisterConversionType(cbArea,txtauSquareMiles,2589988.11034);
+  auAcres	      := RegisterConversionType(cbArea,txtauAcres,4046.87260987);
+  auCentares	      := RegisterConversionType(cbArea,txtauCentares,-1);
+  auAres	      := RegisterConversionType(cbArea,txtauAres,100);
+  auHectares	      := RegisterConversionType(cbArea,txtauHectares,10000);
+  auSquareRods 	      := RegisterConversionType(cbArea,txtauSquareRods,25.2929538117);
+end;
+
+procedure RegisterLengths;
+
+begin
+  duMicromicrons      := RegisterConversionType(cbDistance,txtduMicromicrons,1E-12);
+  duAngstroms 	      := RegisterConversionType(cbDistance,txtduAngstroms,1E-10);
+  duMillimicrons      := RegisterConversionType(cbDistance,txtduMillimicrons,1E-9);
+  duMicrons           := RegisterConversionType(cbDistance,txtduMicrons,1E-6);
+  duMillimeters       := RegisterConversionType(cbDistance,txtduMillimeters,1E-3);
+  duCentimeters       := RegisterConversionType(cbDistance,txtduCentimeters,1E-2);
+  duDecimeters        := RegisterConversionType(cbDistance,txtduDecimeters,1E-1);
+  duMeters            := RegisterConversionType(cbDistance,txtduMeters,1);
+  duDecameters        := RegisterConversionType(cbDistance,txtduDecameters,10);
+  duHectometers       := RegisterConversionType(cbDistance,txtduHectometers,100);
+  duKilometers        := RegisterConversionType(cbDistance,txtduKilometers,1000);
+  duMegameters        := RegisterConversionType(cbDistance,txtduMegameters,1E6);
+  duGigameters        := RegisterConversionType(cbDistance,txtduGigameters,1E9);
+  duInches            := RegisterConversionType(cbDistance,txtduInches,0.0254);
+  duFeet              := RegisterConversionType(cbDistance,txtduFeet,0.3048);
+  duYards             := RegisterConversionType(cbDistance,txtduYards,0.9144);
+  duMiles 	      := RegisterConversionType(cbDistance,txtduMiles,1609.344);
+  duNauticalMiles     := RegisterConversionType(cbDistance,txtduNauticalMiles,1852);
+  duAstronomicalUnits := RegisterConversionType(cbDistance,txtduAstronomicalUnits,149597900000.0);
+  duLightYears        := RegisterConversionType(cbDistance,txtduLightYears,9.46052840488E15);
+  duParsecs           := RegisterConversionType(cbDistance,txtduParsecs, 3.08567818585E16);
+  duCubits            := RegisterConversionType(cbDistance,txtduCubits,0.4572);
+  duFathoms           := RegisterConversionType(cbDistance,txtduFathoms,1.8288);
+  duFurlongs          := RegisterConversionType(cbDistance,txtduFurlongs,201.168);
+  duHands             := RegisterConversionType(cbDistance,txtduHands,0.1016);
+  duPaces             := RegisterConversionType(cbDistance,txtduPaces,0.9144);
+  duRods              := RegisterConversionType(cbDistance,txtduRods,5.0292);
+  duChains            := RegisterConversionType(cbDistance,txtduChains,20.1168);
+  duLinks             := RegisterConversionType(cbDistance,txtduLinks,0.201168);
+  duPicas             := RegisterConversionType(cbDistance,txtduPicas,0.0042333333);
+  duPoints            := RegisterConversionType(cbDistance,txtduPoints,0.00035277778);
+end;
+
+procedure Registermass;  // weight? :)
+
+begin
+  muNanograms         := RegisterConversionType(cbMass,txtmuNanograms,1E-12);
+  muMicrograms        := RegisterConversionType(cbMass,txtmuMicrograms,1E-9);
+  muMilligrams        := RegisterConversionType(cbMass,txtmuMilligrams,1E-6);
+  muCentigrams        := RegisterConversionType(cbMass,txtmuCentigrams,1E-5);
+  muDecigrams         := RegisterConversionType(cbMass,txtmuDecigrams,1E-4);
+  muGrams             := RegisterConversionType(cbMass,txtmuGrams,1E-3);
+  muDecagrams         := RegisterConversionType(cbMass,txtmuDecagrams,1E-2);
+  muHectograms        := RegisterConversionType(cbMass,txtmuHectograms,1E-1);
+  muKilograms         := RegisterConversionType(cbMass,txtmuKilograms,1);
+  muMetricTons        := RegisterConversionType(cbMass,txtmuMetricTons,1000);
+  muDrams             := RegisterConversionType(cbMass,txtmuDrams,0.0017718452);
+  muGrains            := RegisterConversionType(cbMass,txtmuGrains,6.479891E-5);
+  muLongTons          := RegisterConversionType(cbMass,txtmuLongTons,1016.0469);
+  muTons              := RegisterConversionType(cbMass,txtmuTons,907.18474);
+  muOunces            := RegisterConversionType(cbMass,txtmuOunces,0.028349523);
+  muPounds            := RegisterConversionType(cbMass,txtmuPounds,0.45359237);
+  muStones            := RegisterConversionType(cbMass,txtmuStones,6.3502932);
+end;
+
+procedure RegisterTemperature;
+begin
+ tuCelsius    := RegisterConversionType(cbTemperature,txttuCelsius,1);
+ tuKelvin     := RegisterConversionType(cbTemperature,txttuKelvin,1);		
+ tuFahrenheit := RegisterConversionType(cbTemperature,txttuFahrenheit,5/9);	
+ tuRankine    := RegisterConversionType(cbTemperature,txttuRankine,0.5555556);
+ tuReamur     := RegisterConversionType(cbTemperature,txttuReamur,10/8);   // Reaumur?
+end;
+
+Const Yearsec=365.24219879*24*3600.0;   // year in seconds;
+
+procedure RegisterTimes;
+
+begin
+  tuMilliSeconds           := RegisterConversionType(cbTime,txttuMilliSeconds,1E-3);
+  tuSeconds                := RegisterConversionType(cbTime,txttuSeconds,1);
+  tuMinutes                := RegisterConversionType(cbTime,txttuMinutes,60.0);
+  tuHours                  := RegisterConversionType(cbTime,txttuHours,3600.0);
+  tuDays                   := RegisterConversionType(cbTime,txttuDays,24*3600.0);
+  tuWeeks                  := RegisterConversionType(cbTime,txttuWeeks,7*24*3600.0);
+  tuFortnights             := RegisterConversionType(cbTime,txttuFortnights,14*24*3600.0);
+  tuMonths                 := RegisterConversionType(cbTime,txttuMonths,1/12*YearSec);
+  tuYears                  := RegisterConversionType(cbTime,txttuYears,YearSec);
+  tuDecades                := RegisterConversionType(cbTime,txttuDecades,10*YearSec);
+  tuCenturies              := RegisterConversionType(cbTime,txttuCenturies,100*yearsec);
+  tuMillennia              := RegisterConversionType(cbTime,txttuMillennia,1000*yearsec);
+  tuDateTime               := RegisterConversionType(cbTime,txttuDateTime,-1);
+  tuJulianDate             := RegisterConversionType(cbTime,txttuJulianDate,-1);
+  tuModifiedJulianDate     := RegisterConversionType(cbTime,txttuModifiedJulianDate,-1);
+end;
+
+const flgal=0.0037854118;
+
+
+procedure RegisterVolumes;
+begin
+  vuCubicMillimeters      := RegisterConversionType(cbVolume,txtvuCubicMillimeters,1E-9);
+  vuCubicCentimeters      := RegisterConversionType(cbVolume,txtvuCubicCentimeters,1E-6);
+  vuCubicDecimeters       := RegisterConversionType(cbVolume,txtvuCubicDecimeters,1E-3);
+  vuCubicMeters           := RegisterConversionType(cbVolume,txtvuCubicMeters,1);
+  vuCubicDecameters       := RegisterConversionType(cbVolume,txtvuCubicDecameters,1E3);
+  vuCubicHectometers      := RegisterConversionType(cbVolume,txtvuCubicHectometers,1E6);
+  vuCubicKilometers       := RegisterConversionType(cbVolume,txtvuCubicKilometers,1E9);
+  vuCubicInches           := RegisterConversionType(cbVolume,txtvuCubicInches,1.6387064E-5);
+  vuCubicFeet             := RegisterConversionType(cbVolume,txtvuCubicFeet,0.028316847);
+  vuCubicYards            := RegisterConversionType(cbVolume,txtvuCubicYards,0.76455486);
+  vuCubicMiles            := RegisterConversionType(cbVolume,txtvuCubicMiles,4.1681818E9);
+  vuMilliLiters           := RegisterConversionType(cbVolume,txtvuMilliLiters,1E-6);
+  vuCentiLiters           := RegisterConversionType(cbVolume,txtvuCentiLiters,1E-5);
+  vuDeciLiters            := RegisterConversionType(cbVolume,txtvuDeciLiters,1E-4);
+  vuLiters                := RegisterConversionType(cbVolume,txtvuLiters,1E-3);
+  vuDecaLiters            := RegisterConversionType(cbVolume,txtvuDecaLiters,1E-2);
+  vuHectoLiters           := RegisterConversionType(cbVolume,txtvuHectoLiters,1E-1);
+  vuKiloLiters            := RegisterConversionType(cbVolume,txtvuKiloLiters,1);
+  vuAcreFeet              := RegisterConversionType(cbVolume,txtvuAcreFeet,          -1);
+  vuAcreInches            := RegisterConversionType(cbVolume,txtvuAcreInches,	     -1);
+  vuCords                 := RegisterConversionType(cbVolume,txtvuCords,128*0.028316847);	
+  vuCordFeet              := RegisterConversionType(cbVolume,txtvuCordFeet,128*0.028316847);
+  vuDecisteres            := RegisterConversionType(cbVolume,txtvuDecisteres,0.1);
+  vuSteres                := RegisterConversionType(cbVolume,txtvuSteres,1);
+  vuDecasteres            := RegisterConversionType(cbVolume,txtvuDecasteres,10);
+  vuFluidGallons          := RegisterConversionType(cbVolume,txtvuFluidGallons,flgal);
+  vuFluidQuarts           := RegisterConversionType(cbVolume,txtvuFluidQuarts,0.25*flgal);
+  vuFluidPints            := RegisterConversionType(cbVolume,txtvuFluidPints,0.5*0.25*flgal);
+  vuFluidCups             := RegisterConversionType(cbVolume,txtvuFluidCups, -1);
+  vuFluidGills            := RegisterConversionType(cbVolume,txtvuFluidGills,-1);
+  vuFluidOunces           := RegisterConversionType(cbVolume,txtvuFluidOunces,1/16*0.5*0.25*flgal);
+  vuFluidTablespoons      := RegisterConversionType(cbVolume,txtvuFluidTablespoons,-1);
+  vuFluidTeaspoons        := RegisterConversionType(cbVolume,txtvuFluidTeaspoons,-1);
+  vuDryGallons            := RegisterConversionType(cbVolume,txtvuDryGallons,-1);
+  vuDryQuarts             := RegisterConversionType(cbVolume,txtvuDryQuarts,-1);
+  vuDryPints              := RegisterConversionType(cbVolume,txtvuDryPints,-1);
+  vuDryPecks              := RegisterConversionType(cbVolume,txtvuDryPecks, 0.0088097675);
+  vuDryBuckets            := RegisterConversionType(cbVolume,txtvuDryBuckets,-1);
+  vuDryBushels            := RegisterConversionType(cbVolume,txtvuDryBushels,0.03523907);
+  vuUKGallons             := RegisterConversionType(cbVolume,txtvuUKGallons,0.0045460993);
+  vuUKPottles             := RegisterConversionType(cbVolume,txtvuUKPottles,-1);
+  vuUKQuarts              := RegisterConversionType(cbVolume,txtvuUKQuarts,0.0011365248);
+  vuUKPints               := RegisterConversionType(cbVolume,txtvuUKPints,-1);
+  vuUKGills               := RegisterConversionType(cbVolume,txtvuUKGills,-1);
+  vuUKOunces              := RegisterConversionType(cbVolume,txtvuUKOunces,2.8413121E-5);
+  vuUKPecks               := RegisterConversionType(cbVolume,txtvuUKPecks,0.0090921986);
+  vuUKBuckets             := RegisterConversionType(cbVolume,txtvuUKBuckets,-1);
+  vuUKBushels             := RegisterConversionType(cbVolume,txtvuUKBushels,0.036368794);
+end;
+
+Procedure RegisterFamilies;
+Begin
+    cbArea        := RegisterConversionFamily('Area');
+    cbDistance    := RegisterConversionFamily('Distance');
+    cbMass        := RegisterConversionFamily('Mass');
+    cbTemperature := RegisterConversionFamily('Temperature');
+    cbTime        := RegisterConversionFamily('Time');
+    cbVolume      := RegisterConversionFamily('Volume');
+End;
+
+
+Procedure RegisterAll;
+begin
+   RegisterFamilies;
+   RegisterVolumes;
+   RegisterTimes;
+   RegisterTemperature;
+   Registermass;
+   RegisterLengths;
+   RegisterArea;
+end;
+
+
+initialization
+ registerall;
+finalization
+  setlength(theunits,0);
+  setlength(thefamilies,0);
+{$endif VER1_0}
+end.
+
+{
+  $Log$
+  Revision 1.1  2004-07-18 21:41:34  hajny
+    + support 8.3
+
+  Revision 1.2  2004/04/27 17:29:04  florian
+    * compilation with 1.0.10 fixed
+
+  Revision 1.1  2004/03/20 23:41:34  marco
+   * Initial version
+
+}

rtl/objpas/convutil.pp

@@ -0,0 +1 @@
+{$I convutil.inc}

rtl/objpas/convutils.pp

@@ -1,661 +1 @@
-{
-   $Id$
-   This file is part of the Free Pascal run time library.
-   Copyright (c) 2004 by Marco van de Voort
-   member of the Free Pascal development team.
-
-   An implementation for unit convutils, which converts between
-   units and simple combinations of them.
-
-   Based on a guessed interface derived from some programs on the web. (Like
-   Marco Cantu's EuroConv example), so things can be a bit Delphi
-   incompatible. Also part on Delphibasics.co.uk.
-
-   Quantities are mostly taken from my HP48g/gx or the unix units program
-
-   This program is distributed in the hope that it will be useful,
-   but WITHOUT ANY WARRANTY;without even the implied warranty of
-   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
-**********************************************************************}
-
-unit convutils;
-
-interface
-
-{$ifndef VER1_0}
-{$mode objfpc}
-{$H+}
-
-Type TConvType   = type Integer;
-     TConvFamily = type Integer;
-
-var
-
-{cbArea family}
-
-  auSquareMillimeters,
-  auSquareCentimeters,
-  auSquareDecimeters,
-  auSquareMeters,
-  auSquareDecameters,
-  auSquareHectometers,
-  auSquareKilometers,
-  auSquareInches,
-  auSquareFeet	,
-  auSquareYards	,
-  auSquareMiles,
-  auAcres	,
-  auCentares	,
-  auAres	,
-  auHectares	,
-  auSquareRods 	,
-
-{cbDistance family}
-
-  duMicromicrons,
-  duAngstroms 	,
-  duMillimicrons,
-  duMicrons,
-  duMillimeters,
-  duCentimeters,
-  duDecimeters,
-  duMeters,
-  duDecameters,
-  duHectometers,
-  duKilometers,
-  duMegameters,
-  duGigameters,
-  duInches,
-  duFeet,
-  duYards,
-  duMiles 	,
-  duNauticalMiles,
-  duAstronomicalUnits,
-  duLightYears,
-  duParsecs,
-  duCubits,
-  duFathoms,
-  duFurlongs,
-  duHands,
-  duPaces,
-  duRods,
-  duChains,
-  duLinks,
-  duPicas,
-  duPoints,
-
-{cbMass family}
-
-  muNanograms,
-  muMicrograms,
-  muMilligrams,
-  muCentigrams,
-  muDecigrams,
-  muGrams,
-  muDecagrams,
-  muHectograms,
-  muKilograms,
-  muMetricTons,
-  muDrams,
-  muGrains,
-  muLongTons,
-  muTons,
-  muOunces,
-  muPounds,
-  muStones,
-
-{cbTemperature family}
-
-  tuCelsius,
-  tuKelvin,
-  tuFahrenheit,
-  tuRankine,
-  tuReamur,
-
-{
-cbTime family
-}
-
-  tuMilliSeconds,
-  tuSeconds,
-  tuMinutes,
-  tuHours,
-  tuDays,
-  tuWeeks,
-  tuFortnights,
-  tuMonths,
-  tuYears,
-  tuDecades,
-  tuCenturies,
-  tuMillennia,
-  tuDateTime,
-  tuJulianDate,
-  tuModifiedJulianDate,
-
-{
-cbVolume family
-}
-
-  vuCubicMillimeters,
-  vuCubicCentimeters,
-  vuCubicDecimeters,
-  vuCubicMeters,
-  vuCubicDecameters,
-  vuCubicHectometers,
-  vuCubicKilometers,
-  vuCubicInches,
-  vuCubicFeet,
-  vuCubicYards,
-  vuCubicMiles,
-  vuMilliLiters,
-  vuCentiLiters,
-  vuDeciLiters,
-  vuLiters,
-  vuDecaLiters,
-  vuHectoLiters,
-  vuKiloLiters,
-  vuAcreFeet,
-  vuAcreInches,
-  vuCords,
-  vuCordFeet,
-  vuDecisteres,
-  vuSteres,
-  vuDecasteres,
-  vuFluidGallons,
-  vuFluidQuarts,
-  vuFluidPints,
-  vuFluidCups,
-  vuFluidGills,
-  vuFluidOunces,
-  vuFluidTablespoons,
-  vuFluidTeaspoons,
-  vuDryGallons,
-  vuDryQuarts,
-  vuDryPints,
-  vuDryPecks,
-  vuDryBuckets,
-  vuDryBushels,
-  vuUKGallons,
-  vuUKPottles,
-  vuUKQuarts,
-  vuUKPints,
-  vuUKGills,
-  vuUKOunces,
-  vuUKPecks,
-  vuUKBuckets,
-  vuUKBushels     : TConvType;
-
-var
-    cbArea        : TConvFamily;
-    cbDistance    : TConvFamily;
-    cbMass        : TConvFamily;
-    cbTemperature : TConvFamily;
-    cbTime        : TConvFamily;
-    cbVolume      : TConvFamily;
-
-Type  TConvUtilFloat = double;
-
-Function RegisterConversionFamily(Const S : String):TConvFamily;
-Function RegisterConversionType(Fam:TConvFamily;Const S:String;Value:TConvUtilFloat):TConvType;
-
-function Convert ( const Measurement  : Double; const FromType, ToType  : TConvType ) :TConvUtilFloat;
-function Convert ( const Measurement  : Double; const FromType1, FromType2, ToType1, ToType2  : TConvType ) :TConvUtilFloat;
-
-
-{$endif VER1_0}
-
-Implementation
-
-{$ifndef VER1_0}
-ResourceString  // Note, designations for FFU's are guesses.
-
-  txtauSquareMillimeters   = 'Square millimeters (mm^2)';
-  txtauSquareCentimeters   = 'Square centimeters (cm^2)';
-  txtauSquareDecimeters    = 'Square decimeters (dm^2)';
-  txtauSquareMeters        = 'Square meters (m^2)';
-  txtauSquareDecameters    = 'Square decameters (dam^2)';
-  txtauSquareHectometers   = 'Square hectometers (hm^2)';
-  txtauSquareKilometers    = 'Square kilometers (km^2)';
-  txtauSquareInches        = 'Square inch (in^2)';
-  txtauSquareFeet          = 'Square feet (ft^2)';
-  txtauSquareYards         = 'Square yards (yd^2)';
-  txtauSquareMiles         = 'Square miles  (mi^2)';
-  txtauAcres               = 'Square acres (acre^2)';
-  txtauCentares            = 'Centares (care^2)';
-  txtauAres                = 'Ares (are=dam^2)';  	
-  txtauHectares            = 'Hectares (ha=hm^2)';
-  txtauSquareRods          = 'Square Rods (sqr)';
-  txtduMicromicrons        = 'micro microms (mumum)';
-  txtduAngstroms 	   = 'Aengstroem (ang)';
-  txtduMillimicrons        = 'millimicroms (mmum)';
-  txtduMicrons             = 'microns (um)';
-  txtduMillimeters         = 'millimeters (mm)';
-  txtduCentimeters         = 'centimeters (cm)';
-  txtduDecimeters          = 'decimeters (dm)';
-  txtduMeters              = 'meters (m)';
-  txtduDecameters          = 'decameters (dam)';
-  txtduHectometers         = 'hectometers (hm)';
-  txtduKilometers          = 'kilometers (km)';
-  txtduMegameters          = 'megameters (Mm)';
-  txtduGigameters          = 'gigameters (Gm)';
-  txtduInches              = 'inches (in)';
-  txtduFeet                = 'feet (ft)';
-  txtduYards               = 'yards (yd)';
-  txtduMiles 	           = 'miles (mi)';
-  txtduNauticalMiles       = 'nautical miles (nmi)';
-  txtduAstronomicalUnits   = 'astronomical units (au)';
-  txtduLightYears          = 'light years (ly)';
-  txtduParsecs             = 'Parsec (Ps)';
-  txtduCubits              = 'Cubits (cb)';
-  txtduFathoms             = 'Fathom (Fth)';
-  txtduFurlongs            = 'Furlongs (furl)';
-  txtduHands               = 'Hands (hnd)';
-  txtduPaces               = 'Paces (pc)';
-  txtduRods                = 'Rods (rd)';
-  txtduChains              = 'Chains (ch)';
-  txtduLinks               = 'Links (lnk)';
-  txtduPicas               = 'Pica''s (pc)';
-  txtduPoints              = 'Points (pnts)';		// carat/Karaat 2E-6 gram ?
-  txtmuNanograms           = 'nanograms (ng)';
-  txtmuMicrograms          = 'micrograms (um)';
-  txtmuMilligrams          = 'milligrams (mg)';
-  txtmuCentigrams          = 'centigrams (cg)';
-  txtmuDecigrams           = 'decigrams (dg)';
-  txtmuGrams               = 'grams (g)';
-  txtmuDecagrams           = 'decagrams (dag)';
-  txtmuHectograms          = 'hectograms (hg)';
-  txtmuKilograms           = 'kilograms (kg)';
-  txtmuMetricTons          = 'metric ton (t)';
-  txtmuDrams               = 'dramgs (??)';
-  txtmuGrains              = 'grains (??)';
-  txtmuLongTons            = 'longton (??)';
-  txtmuTons                = 'imperial ton (??)'; // calling metric ton "ton" is normal in metric countries
-  txtmuOunces              = 'ounce (??)';
-  txtmuPounds              = 'pounds (??)';	// what kind? Metric pound =0.5
-  txtmuStones              = 'stones (??)';
-  txttuCelsius             = 'degrees Celsius (degC)';
-  txttuKelvin		   = 'degrees Kelvin (K)';
-  txttuFahrenheit	   = 'degrees Fahrenheit (degF)';
-  txttuRankine             = 'degrees Rankine (degR)';
-  txttuReamur 		   = 'degrees Reamur (degReam)';			
-  txttuMilliSeconds        = 'milli seconds (ms)';
-  txttuSeconds             = 'seconds (s)';
-  txttuMinutes             = 'minutes (min)';
-  txttuHours               = 'hours (hr)';
-  txttuDays                = 'days (days)';
-  txttuWeeks               = 'weeks (weeks)';
-  txttuFortnights          = 'Fortnights (??)';
-  txttuMonths              = 'Months (months)';
-  txttuYears               = 'Years (years)';
-  txttuDecades             = 'Decades (decades)';
-  txttuCenturies           = 'Centuries (centuries)';
-  txttuMillennia           = 'Millennia (millenia)';
-  txttuDateTime            = 'DateTime (??)';
-  txttuJulianDate          = 'JulianDate (??)';
-  txttuModifiedJulianDate  = 'Modified JulianData (??)';
-
-  txtvuCubicMillimeters    = 'cubic millimeters (mm^3)';
-  txtvuCubicCentimeters    = 'cubic centimeters (cm^3)';
-  txtvuCubicDecimeters     = 'cubic decimeters (dm^3)';
-  txtvuCubicMeters         = 'cubic meters (m^3)';
-  txtvuCubicDecameters     = 'cubic decameters (dam^3)';
-  txtvuCubicHectometers    = 'cubic hectometers (hm^3)';
-  txtvuCubicKilometers     = 'cubic kilometers (km^3)';
-  txtvuCubicInches         = 'cubic inches (in^3)';
-  txtvuCubicFeet           = 'cubic feet (ft^3)';
-  txtvuCubicYards          = 'cubic yards (yd^3)';
-  txtvuCubicMiles          = 'cubic miles (mi^3)';
-  txtvuMilliLiters         = 'milliliters (ml)';
-  txtvuCentiLiters         = 'centiliters (cl)';
-  txtvuDeciLiters          = 'deciliters (dl)';
-  txtvuLiters              = 'liters (l)';
-  txtvuDecaLiters          = 'decaliters (dal)';
-  txtvuHectoLiters         = 'hectoliters (hl)';
-  txtvuKiloLiters          = 'kiloliters (kl)';
-  txtvuAcreFeet            = 'acrefeet (acre ft)';
-  txtvuAcreInches          = 'acreinches (acre in)';
-  txtvuCords               = 'cords (??)';
-  txtvuCordFeet            = 'cordfeet (??)';
-  txtvuDecisteres          = 'decisteres (??)';
-  txtvuSteres              = 'steres (??)';
-  txtvuDecasteres          = 'decasteres (??)';
-  txtvuFluidGallons        = 'US fluid gallons (fl gal)';
-  txtvuFluidQuarts         = 'US fluid Quarts (fl Quart)';
-  txtvuFluidPints          = 'US fluid Pints (fl pints)';
-  txtvuFluidCups           = 'US fluid Cups (fl Cups)';
-  txtvuFluidGills          = 'US fluid Gills (fl Quart)';
-  txtvuFluidOunces         = 'US fluid Ounces (fl Ounces)';
-  txtvuFluidTablespoons    = 'US fluid Tablespoons (fl Tablespoons)';
-  txtvuFluidTeaspoons      = 'US fluid teaspoons (fl teaspoon)';
-  txtvuDryGallons          = 'US dry gallons (dr gal)';
-  txtvuDryQuarts           = 'US dry Quarts (dr Quart)';
-  txtvuDryPints            = 'US dry Pints (dr pints)';
-  txtvuDryPecks            = 'US dry pecks (dr pecks)';
-  txtvuDryBuckets          = 'US dry buckets (dr buckets)';
-  txtvuDryBushels          = 'US dry bushels (dr bushels)';
-  txtvuUKGallons           = 'UK gallons (fl gal)';
-  txtvuUKPottles           = 'UK Pottles (fl pttle)';
-  txtvuUKQuarts            = 'UK Quarts (fl Quart)';
-  txtvuUKPints             = 'UK Pints (fl pints)';
-  txtvuUKGills             = 'UK Gills (fl Quart)';
-  txtvuUKOunces            = 'UK Ounces (fl Ounces)';
-  txtvuUKPecks             = 'UK pecks (dr pecks)';
-  txtvuUKBuckets           = 'UK buckets (dr buckets)';
-  txtvuUKBushels           = 'UK bushels (dr bushels)';
-
-Type ResourceData = record
-		      Description : String;
-		      Value       : TConvUtilFloat;
-	              Fam	  : TConvFamily;
-		     end;
-
-
-var TheUnits    : array of ResourceData =nil;
-    TheFamilies : array of string =nil;
-
-Function RegisterConversionFamily(Const S:String):TConvFamily;
-
-var i,l : Longint;
-
-begin
-  l:=Length(TheFamilies);
-  If l=0 Then
-    begin
-      SetLength(TheFamilies,1);
-      TheFamilies[0]:=S;
-      Result:=0;
-    end
-  else
-    begin
-      i:=0;
-      while (i<l) and (s<>TheFamilies[i]) do inc(i);
-      if i=l Then
-         begin
-           SetLength(TheFamilies,l+1);
-           TheFamilies[l]:=s;
-         end;
-       Result:=i;
-    end;
-end;
-
-Function CheckFamily(i:TConvFamily):Boolean;
-
-begin
-  Result:=i<Length(TheFamilies);
-end;
-
-const macheps=1E-9;
-
-Function RegisterConversionType(Fam:TConvFamily;Const S:String;Value:TConvUtilFloat):TConvType;
-
-var i,l1 : Longint;
-
-begin
-  If NOT CheckFamily(Fam) Then exit(-1); // family not registered.
-  if (value+1.0)<macheps then		 // not properly defined yet.
-    exit(-1);
-  l1:=length(theunits);
-  Setlength(theunits,l1+1);
-  theunits[l1].description:=s;
-  theunits[l1].value:=value;
-  theunits[l1].fam:=fam;
-  Result:=l1;	
-end;
-
-function SearchConvert(TheType:TConvType; var r:ResourceData):Boolean;
-
-var i,j,l1,l2 : longint;
-
-begin
-  l1:=length(TheUnits);
-  if thetype>=l1 then
-    exit(false);
-  r:=theunits[thetype];
-  result:=true;
-end;
-
-function Convert ( const Measurement  : Double; const FromType, ToType  : TConvType ) :TConvUtilFloat;
-
-var
-  fromrec,torec :   resourcedata;
-
-begin
-  if not SearchConvert(fromtype,fromrec) then
-   exit(-1.0);					// raise exception?
-  if not SearchConvert(totype,torec) then
-   exit(-1.0);					// raise except?
-  if fromrec.fam<>torec.fam then
-   exit(-1.0);
-  result:=Measurement*fromrec.value/torec.value;
-end;
-
-function Convert ( const Measurement  : Double; const FromType1, FromType2, ToType1, ToType2  : TConvType ) :TConvUtilFloat;
-var
-  fromrec1,fromrec2,torec1 ,
-  torec2 :   resourcedata;
-
-begin
-  if not SearchConvert(fromtype1,fromrec1) then
-   exit(-1.0);					// raise exception?
-  if not SearchConvert(totype1,torec1) then
-   exit(-1.0);					// raise except?
-  if not SearchConvert(fromtype2,fromrec2) then
-   exit(-1.0);					// raise exception?
-  if not SearchConvert(totype2,torec2) then
-   exit(-1.0);					// raise except?
-  if (fromrec1.fam<>torec1.fam) or (fromrec1.fam<>torec1.fam) then
-   exit(-1.0);
-  result:=Measurement*(fromrec1.value/fromrec2.value)/(torec1.value/torec2.value);
-end;
-
-  // initial FFU factors from a HP48g calculator and BSD units program. However after
-  //    a while, the bushels/forthnight got boring, so please check.
-  // undefined/uncertain factors get -1, and convert() functions
-  // should check that and bomb on it.
-
-procedure RegisterArea;
-
-begin
-  auSquareMillimeters := RegisterConversionType(cbArea,txtauSquareMillimeters,1E-6);
-  auSquareCentimeters := RegisterConversionType(cbArea,txtauSquareCentimeters,1E-4);
-  auSquareDecimeters  := RegisterConversionType(cbArea,txtauSquareDecimeters,1E-2);
-  auSquareMeters      := RegisterConversionType(cbArea,txtauSquareMeters,1);
-  auSquareDecameters  := RegisterConversionType(cbArea,txtauSquareDecameters,1E2);
-  auSquareHectometers := RegisterConversionType(cbArea,txtauSquareHectometers,1E4);
-  auSquareKilometers  := RegisterConversionType(cbArea,txtauSquareKilometers,1E6);
-  auSquareInches      := RegisterConversionType(cbArea,txtauSquareInches,0.00064516);
-  auSquareFeet	      := RegisterConversionType(cbArea,txtauSquareFeet,0.092903040);
-  auSquareYards	      := RegisterConversionType(cbArea,txtauSquareYards,0.83612736);
-  auSquareMiles       := RegisterConversionType(cbArea,txtauSquareMiles,2589988.11034);
-  auAcres	      := RegisterConversionType(cbArea,txtauAcres,4046.87260987);
-  auCentares	      := RegisterConversionType(cbArea,txtauCentares,-1);
-  auAres	      := RegisterConversionType(cbArea,txtauAres,100);
-  auHectares	      := RegisterConversionType(cbArea,txtauHectares,10000);
-  auSquareRods 	      := RegisterConversionType(cbArea,txtauSquareRods,25.2929538117);
-end;
-
-procedure RegisterLengths;
-
-begin
-  duMicromicrons      := RegisterConversionType(cbDistance,txtduMicromicrons,1E-12);
-  duAngstroms 	      := RegisterConversionType(cbDistance,txtduAngstroms,1E-10);
-  duMillimicrons      := RegisterConversionType(cbDistance,txtduMillimicrons,1E-9);
-  duMicrons           := RegisterConversionType(cbDistance,txtduMicrons,1E-6);
-  duMillimeters       := RegisterConversionType(cbDistance,txtduMillimeters,1E-3);
-  duCentimeters       := RegisterConversionType(cbDistance,txtduCentimeters,1E-2);
-  duDecimeters        := RegisterConversionType(cbDistance,txtduDecimeters,1E-1);
-  duMeters            := RegisterConversionType(cbDistance,txtduMeters,1);
-  duDecameters        := RegisterConversionType(cbDistance,txtduDecameters,10);
-  duHectometers       := RegisterConversionType(cbDistance,txtduHectometers,100);
-  duKilometers        := RegisterConversionType(cbDistance,txtduKilometers,1000);
-  duMegameters        := RegisterConversionType(cbDistance,txtduMegameters,1E6);
-  duGigameters        := RegisterConversionType(cbDistance,txtduGigameters,1E9);
-  duInches            := RegisterConversionType(cbDistance,txtduInches,0.0254);
-  duFeet              := RegisterConversionType(cbDistance,txtduFeet,0.3048);
-  duYards             := RegisterConversionType(cbDistance,txtduYards,0.9144);
-  duMiles 	      := RegisterConversionType(cbDistance,txtduMiles,1609.344);
-  duNauticalMiles     := RegisterConversionType(cbDistance,txtduNauticalMiles,1852);
-  duAstronomicalUnits := RegisterConversionType(cbDistance,txtduAstronomicalUnits,149597900000.0);
-  duLightYears        := RegisterConversionType(cbDistance,txtduLightYears,9.46052840488E15);
-  duParsecs           := RegisterConversionType(cbDistance,txtduParsecs, 3.08567818585E16);
-  duCubits            := RegisterConversionType(cbDistance,txtduCubits,0.4572);
-  duFathoms           := RegisterConversionType(cbDistance,txtduFathoms,1.8288);
-  duFurlongs          := RegisterConversionType(cbDistance,txtduFurlongs,201.168);
-  duHands             := RegisterConversionType(cbDistance,txtduHands,0.1016);
-  duPaces             := RegisterConversionType(cbDistance,txtduPaces,0.9144);
-  duRods              := RegisterConversionType(cbDistance,txtduRods,5.0292);
-  duChains            := RegisterConversionType(cbDistance,txtduChains,20.1168);
-  duLinks             := RegisterConversionType(cbDistance,txtduLinks,0.201168);
-  duPicas             := RegisterConversionType(cbDistance,txtduPicas,0.0042333333);
-  duPoints            := RegisterConversionType(cbDistance,txtduPoints,0.00035277778);
-end;
-
-procedure Registermass;  // weight? :)
-
-begin
-  muNanograms         := RegisterConversionType(cbMass,txtmuNanograms,1E-12);
-  muMicrograms        := RegisterConversionType(cbMass,txtmuMicrograms,1E-9);
-  muMilligrams        := RegisterConversionType(cbMass,txtmuMilligrams,1E-6);
-  muCentigrams        := RegisterConversionType(cbMass,txtmuCentigrams,1E-5);
-  muDecigrams         := RegisterConversionType(cbMass,txtmuDecigrams,1E-4);
-  muGrams             := RegisterConversionType(cbMass,txtmuGrams,1E-3);
-  muDecagrams         := RegisterConversionType(cbMass,txtmuDecagrams,1E-2);
-  muHectograms        := RegisterConversionType(cbMass,txtmuHectograms,1E-1);
-  muKilograms         := RegisterConversionType(cbMass,txtmuKilograms,1);
-  muMetricTons        := RegisterConversionType(cbMass,txtmuMetricTons,1000);
-  muDrams             := RegisterConversionType(cbMass,txtmuDrams,0.0017718452);
-  muGrains            := RegisterConversionType(cbMass,txtmuGrains,6.479891E-5);
-  muLongTons          := RegisterConversionType(cbMass,txtmuLongTons,1016.0469);
-  muTons              := RegisterConversionType(cbMass,txtmuTons,907.18474);
-  muOunces            := RegisterConversionType(cbMass,txtmuOunces,0.028349523);
-  muPounds            := RegisterConversionType(cbMass,txtmuPounds,0.45359237);
-  muStones            := RegisterConversionType(cbMass,txtmuStones,6.3502932);
-end;
-
-procedure RegisterTemperature;
-begin
- tuCelsius    := RegisterConversionType(cbTemperature,txttuCelsius,1);
- tuKelvin     := RegisterConversionType(cbTemperature,txttuKelvin,1);		
- tuFahrenheit := RegisterConversionType(cbTemperature,txttuFahrenheit,5/9);	
- tuRankine    := RegisterConversionType(cbTemperature,txttuRankine,0.5555556);
- tuReamur     := RegisterConversionType(cbTemperature,txttuReamur,10/8);   // Reaumur?
-end;
-
-Const Yearsec=365.24219879*24*3600.0;   // year in seconds;
-
-procedure RegisterTimes;
-
-begin
-  tuMilliSeconds           := RegisterConversionType(cbTime,txttuMilliSeconds,1E-3);
-  tuSeconds                := RegisterConversionType(cbTime,txttuSeconds,1);
-  tuMinutes                := RegisterConversionType(cbTime,txttuMinutes,60.0);
-  tuHours                  := RegisterConversionType(cbTime,txttuHours,3600.0);
-  tuDays                   := RegisterConversionType(cbTime,txttuDays,24*3600.0);
-  tuWeeks                  := RegisterConversionType(cbTime,txttuWeeks,7*24*3600.0);
-  tuFortnights             := RegisterConversionType(cbTime,txttuFortnights,14*24*3600.0);
-  tuMonths                 := RegisterConversionType(cbTime,txttuMonths,1/12*YearSec);
-  tuYears                  := RegisterConversionType(cbTime,txttuYears,YearSec);
-  tuDecades                := RegisterConversionType(cbTime,txttuDecades,10*YearSec);
-  tuCenturies              := RegisterConversionType(cbTime,txttuCenturies,100*yearsec);
-  tuMillennia              := RegisterConversionType(cbTime,txttuMillennia,1000*yearsec);
-  tuDateTime               := RegisterConversionType(cbTime,txttuDateTime,-1);
-  tuJulianDate             := RegisterConversionType(cbTime,txttuJulianDate,-1);
-  tuModifiedJulianDate     := RegisterConversionType(cbTime,txttuModifiedJulianDate,-1);
-end;
-
-const flgal=0.0037854118;
-
-
-procedure RegisterVolumes;
-begin
-  vuCubicMillimeters      := RegisterConversionType(cbVolume,txtvuCubicMillimeters,1E-9);
-  vuCubicCentimeters      := RegisterConversionType(cbVolume,txtvuCubicCentimeters,1E-6);
-  vuCubicDecimeters       := RegisterConversionType(cbVolume,txtvuCubicDecimeters,1E-3);
-  vuCubicMeters           := RegisterConversionType(cbVolume,txtvuCubicMeters,1);
-  vuCubicDecameters       := RegisterConversionType(cbVolume,txtvuCubicDecameters,1E3);
-  vuCubicHectometers      := RegisterConversionType(cbVolume,txtvuCubicHectometers,1E6);
-  vuCubicKilometers       := RegisterConversionType(cbVolume,txtvuCubicKilometers,1E9);
-  vuCubicInches           := RegisterConversionType(cbVolume,txtvuCubicInches,1.6387064E-5);
-  vuCubicFeet             := RegisterConversionType(cbVolume,txtvuCubicFeet,0.028316847);
-  vuCubicYards            := RegisterConversionType(cbVolume,txtvuCubicYards,0.76455486);
-  vuCubicMiles            := RegisterConversionType(cbVolume,txtvuCubicMiles,4.1681818E9);
-  vuMilliLiters           := RegisterConversionType(cbVolume,txtvuMilliLiters,1E-6);
-  vuCentiLiters           := RegisterConversionType(cbVolume,txtvuCentiLiters,1E-5);
-  vuDeciLiters            := RegisterConversionType(cbVolume,txtvuDeciLiters,1E-4);
-  vuLiters                := RegisterConversionType(cbVolume,txtvuLiters,1E-3);
-  vuDecaLiters            := RegisterConversionType(cbVolume,txtvuDecaLiters,1E-2);
-  vuHectoLiters           := RegisterConversionType(cbVolume,txtvuHectoLiters,1E-1);
-  vuKiloLiters            := RegisterConversionType(cbVolume,txtvuKiloLiters,1);
-  vuAcreFeet              := RegisterConversionType(cbVolume,txtvuAcreFeet,          -1);
-  vuAcreInches            := RegisterConversionType(cbVolume,txtvuAcreInches,	     -1);
-  vuCords                 := RegisterConversionType(cbVolume,txtvuCords,128*0.028316847);	
-  vuCordFeet              := RegisterConversionType(cbVolume,txtvuCordFeet,128*0.028316847);
-  vuDecisteres            := RegisterConversionType(cbVolume,txtvuDecisteres,0.1);
-  vuSteres                := RegisterConversionType(cbVolume,txtvuSteres,1);
-  vuDecasteres            := RegisterConversionType(cbVolume,txtvuDecasteres,10);
-  vuFluidGallons          := RegisterConversionType(cbVolume,txtvuFluidGallons,flgal);
-  vuFluidQuarts           := RegisterConversionType(cbVolume,txtvuFluidQuarts,0.25*flgal);
-  vuFluidPints            := RegisterConversionType(cbVolume,txtvuFluidPints,0.5*0.25*flgal);
-  vuFluidCups             := RegisterConversionType(cbVolume,txtvuFluidCups, -1);
-  vuFluidGills            := RegisterConversionType(cbVolume,txtvuFluidGills,-1);
-  vuFluidOunces           := RegisterConversionType(cbVolume,txtvuFluidOunces,1/16*0.5*0.25*flgal);
-  vuFluidTablespoons      := RegisterConversionType(cbVolume,txtvuFluidTablespoons,-1);
-  vuFluidTeaspoons        := RegisterConversionType(cbVolume,txtvuFluidTeaspoons,-1);
-  vuDryGallons            := RegisterConversionType(cbVolume,txtvuDryGallons,-1);
-  vuDryQuarts             := RegisterConversionType(cbVolume,txtvuDryQuarts,-1);
-  vuDryPints              := RegisterConversionType(cbVolume,txtvuDryPints,-1);
-  vuDryPecks              := RegisterConversionType(cbVolume,txtvuDryPecks, 0.0088097675);
-  vuDryBuckets            := RegisterConversionType(cbVolume,txtvuDryBuckets,-1);
-  vuDryBushels            := RegisterConversionType(cbVolume,txtvuDryBushels,0.03523907);
-  vuUKGallons             := RegisterConversionType(cbVolume,txtvuUKGallons,0.0045460993);
-  vuUKPottles             := RegisterConversionType(cbVolume,txtvuUKPottles,-1);
-  vuUKQuarts              := RegisterConversionType(cbVolume,txtvuUKQuarts,0.0011365248);
-  vuUKPints               := RegisterConversionType(cbVolume,txtvuUKPints,-1);
-  vuUKGills               := RegisterConversionType(cbVolume,txtvuUKGills,-1);
-  vuUKOunces              := RegisterConversionType(cbVolume,txtvuUKOunces,2.8413121E-5);
-  vuUKPecks               := RegisterConversionType(cbVolume,txtvuUKPecks,0.0090921986);
-  vuUKBuckets             := RegisterConversionType(cbVolume,txtvuUKBuckets,-1);
-  vuUKBushels             := RegisterConversionType(cbVolume,txtvuUKBushels,0.036368794);
-end;
-
-Procedure RegisterFamilies;
-Begin
-    cbArea        := RegisterConversionFamily('Area');
-    cbDistance    := RegisterConversionFamily('Distance');
-    cbMass        := RegisterConversionFamily('Mass');
-    cbTemperature := RegisterConversionFamily('Temperature');
-    cbTime        := RegisterConversionFamily('Time');
-    cbVolume      := RegisterConversionFamily('Volume');
-End;
-
-
-Procedure RegisterAll;
-begin
-   RegisterFamilies;
-   RegisterVolumes;
-   RegisterTimes;
-   RegisterTemperature;
-   Registermass;
-   RegisterLengths;
-   RegisterArea;
-end;
-
-
-initialization
- registerall;
-finalization
-  setlength(theunits,0);
-  setlength(thefamilies,0);
-{$endif VER1_0}
-end.
-
-{
-  $Log$
-  Revision 1.2  2004-04-27 17:29:04  florian
-    * compilation with 1.0.10 fixed
-
-  Revision 1.1  2004/03/20 23:41:34  marco
-   * Initial version
-
-}
+{$I convutil.inc}