src/UnitsAPI/UnitsAPI.cxx

   1 // Copyright (c) 1998-1999 Matra Datavision
   2 // Copyright (c) 1999-2014 OPEN CASCADE SAS
   3 //
   4 // This file is part of Open CASCADE Technology software library.
   5 //
   6 // This library is free software; you can redistribute it and/or modify it under
   7 // the terms of the GNU Lesser General Public License version 2.1 as published
   8 // by the Free Software Foundation, with special exception defined in the file
   9 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
  10 // distribution for complete text of the license and disclaimer of any warranty.
  11 //
  12 // Alternatively, this file may be used under the terms of Open CASCADE
  13 // commercial license or contractual agreement.
  14
  15
  16 #include <OSD_Environment.hxx>
  17 #include <Resource_Manager.hxx>
  18 #include <Standard_NoSuchObject.hxx>
  19 #include <TCollection_AsciiString.hxx>
  20 #include <Units.hxx>
  21 #include <Units_Dimensions.hxx>
  22 #include <Units_Quantity.hxx>
  23 #include <Units_Unit.hxx>
  24 #include <Units_UnitsSystem.hxx>
  25 #include <UnitsAPI.hxx>
  26
  27 static Handle(Resource_Manager) CurrentUnits,SICurrentUnits,MDTVCurrentUnits;
  28 static Units_UnitsSystem LocalSystemUnits,SILocalSystemUnits,MDTVLocalSystemUnits;
  29 static TCollection_AsciiString rstring;
  30 static UnitsAPI_SystemUnits localSystem = UnitsAPI_SI;
  31 static UnitsAPI_SystemUnits currentSystem = UnitsAPI_DEFAULT;
  32
  33 //=======================================================================
  34 //function : CheckLoading
  35 //purpose  :
  36 //=======================================================================
  37
  38 void UnitsAPI::CheckLoading (const UnitsAPI_SystemUnits aSystemUnits)
  39 {
  40   if( currentSystem != aSystemUnits || CurrentUnits.IsNull()) {
  41     OSD_Environment env1("CSF_UnitsLexicon");
  42     TCollection_AsciiString slexiconfile(env1.Value());
  43     if( slexiconfile.Length() > 0 )
  44       Units::LexiconFile(slexiconfile.ToCString());
  45     else {
  46       OSD_Environment CasRootEnv("CASROOT");
  47       TCollection_AsciiString CasRootString(CasRootEnv.Value());
  48       if (CasRootString.Length() > 0 )  {
  49         CasRootString += "/src/UnitsAPI/Lexi_Expr.dat" ;
  50         Units::LexiconFile(CasRootString.ToCString());
  51       }
  52       else {
  53         Standard_NoSuchObject::Raise("environment variable CSF_UnitsLexicon undefined");
  54       }
  55     }
  56     OSD_Environment env2("CSF_UnitsDefinition");
  57     TCollection_AsciiString sunitsfile(env2.Value());
  58     if( sunitsfile.Length() > 0 )
  59       Units::UnitsFile(sunitsfile.ToCString());
  60     else {
  61       OSD_Environment CasRootEnv("CASROOT");
  62       TCollection_AsciiString CasRootString(CasRootEnv.Value());
  63       if (CasRootString.Length() > 0 ) {
  64         CasRootString += "/src/UnitsAPI/Units.dat";
  65         Units::UnitsFile(CasRootString.ToCString());
  66       }
  67       else {
  68         Standard_NoSuchObject::Raise("environment variable CSF_UnitsDefinition undefined");
  69       }
  70     }
  71     switch (aSystemUnits) {
  72       case UnitsAPI_DEFAULT :
  73         if( !CurrentUnits.IsNull() ) break;
  74       case UnitsAPI_SI :
  75         currentSystem = UnitsAPI_SI;
  76         if( SICurrentUnits.IsNull() ) {
  77 #ifdef _WIN32
  78           OSD_Environment env3("CSF_CurrentUnits");
  79           TCollection_AsciiString csfcurrent (env3.Value());
  80           if( csfcurrent.Length() > 0 )
  81                 SICurrentUnits = new Resource_Manager(csfcurrent.ToCString());
  82           else
  83                 SICurrentUnits = new Resource_Manager("CurrentUnits");
  84 #else
  85                 SICurrentUnits = new Resource_Manager("CurrentUnits");
  86 #endif
  87         }
  88         CurrentUnits = SICurrentUnits;
  89         LocalSystemUnits = SILocalSystemUnits;
  90         break;
  91       case UnitsAPI_MDTV :
  92         currentSystem = UnitsAPI_MDTV;
  93         if( MDTVCurrentUnits.IsNull() )  {
  94 #ifdef _WIN32
  95           OSD_Environment env4("CSF_MDTVCurrentUnits");
  96           TCollection_AsciiString csfmdtvcurrent (env4.Value());
  97           if( csfmdtvcurrent.Length() > 0 )
  98                 MDTVCurrentUnits = new Resource_Manager(csfmdtvcurrent.ToCString());
  99           else
 100                 MDTVCurrentUnits = new Resource_Manager("MDTVCurrentUnits");
 101 #else
 102                 MDTVCurrentUnits = new Resource_Manager("MDTVCurrentUnits");
 103 #endif
 104         }
 105         CurrentUnits = MDTVCurrentUnits;
 106         if( MDTVLocalSystemUnits.IsEmpty() ) {
 107           MDTVLocalSystemUnits.Specify("LENGTH","mm");
 108           MDTVLocalSystemUnits.Specify("AREA","mm\xB2");
 109           MDTVLocalSystemUnits.Specify("VOLUME","mm\xB3");
 110           MDTVLocalSystemUnits.Specify("INERTIA","mm**4");
 111           MDTVLocalSystemUnits.Specify("SPEED","mm/s");
 112           MDTVLocalSystemUnits.Specify("ACCELERATION","mm/s\xB2");
 113           MDTVLocalSystemUnits.Specify("VOLUMIC MASS","kg/mm\xB3");
 114           MDTVLocalSystemUnits.Specify("VOLUME FLOW","mm\xB3/s");
 115           MDTVLocalSystemUnits.Specify("CONSUMPTION","mm\xB2");
 116           MDTVLocalSystemUnits.Specify("QUANTITY OF MOVEMENT","kg*mm/s");
 117           MDTVLocalSystemUnits.Specify("KINETIC MOMENT","kg*mm\xB2/s");
 118           MDTVLocalSystemUnits.Specify("MOMENT OF INERTIA","kg*mm\xB2");
 119           MDTVLocalSystemUnits.Specify("FORCE","kg*mm/s\xB2");
 120           MDTVLocalSystemUnits.Specify("LINEIC FORCE","kg/s\xB2");
 121           MDTVLocalSystemUnits.Specify("MOMENT OF A FORCE","kg*mm\xB2/s\xB2");
 122           MDTVLocalSystemUnits.Specify("PRESSURE","kg/(mm*s\xB2)");
 123           MDTVLocalSystemUnits.Specify("DYNAMIC VISCOSITY","kg/(mm*s)");
 124           MDTVLocalSystemUnits.Specify("KINETIC VISCOSITY","mm\xB2/s");
 125           MDTVLocalSystemUnits.Specify("TENSION SUPERFICIELLE","mm/s\xB2");
 126           MDTVLocalSystemUnits.Specify("ENERGY","kg*mm\xB2/s\xB2");
 127           MDTVLocalSystemUnits.Specify("POWER","kg*mm\xB2/s\xB3");
 128           MDTVLocalSystemUnits.Specify("LINEIC POWER","kg*mm/s\xB3");
 129           MDTVLocalSystemUnits.Specify("SURFACIC POWER","kg/s\xB3");
 130           MDTVLocalSystemUnits.Specify("VOLUMIC POWER","kg/(mm*s\xB3)");
 131           MDTVLocalSystemUnits.Specify("THERMICAL CONDUCTIVITY","kg*mm/(s\xB3*\xB0K)");
 132           MDTVLocalSystemUnits.Specify("THERMICAL CONVECTIVITY","kg/(s\xB3*\xB0K)");
 133           MDTVLocalSystemUnits.Specify("THERMICAL MASSIC CAPACITY","mm\xB2/(s\xB2*\xB0K)");
 134           MDTVLocalSystemUnits.Specify("ENTROPY","kg*mm\xB2/(s\xB2*\xB0K)");
 135           MDTVLocalSystemUnits.Specify("ENTHALPY","kg*mm\xB2/s\xB2");
 136           MDTVLocalSystemUnits.Specify("LUMINANCE","cd/mm\xB2");
 137           MDTVLocalSystemUnits.Specify("LUMINOUS EFFICACITY","s\xB3*Lu/(kg*mm\xB2)");
 138           MDTVLocalSystemUnits.Specify("ELECTRIC FIELD","V/mm");
 139           MDTVLocalSystemUnits.Specify("ELECTRIC CAPACITANCE","s**4*A\xB2/(kg*mm\xB2)");
 140           MDTVLocalSystemUnits.Specify("MAGNETIC FIELD","A/mm");
 141           MDTVLocalSystemUnits.Specify("MAGNETIC FLUX","kg*mm\xB2/(s\xB2*A)");
 142           MDTVLocalSystemUnits.Specify("INDUCTANCE","kg*mm\xB2/(s\xB2*A\xB2)");
 143           MDTVLocalSystemUnits.Specify("RELUCTANCE","s\xB2*A\xB2/(kg*mm\xB2)");
 144           MDTVLocalSystemUnits.Specify("RESISTIVITY","O*mm");
 145           MDTVLocalSystemUnits.Specify("CONDUCTIVITY","S/mm");
 146           MDTVLocalSystemUnits.Specify("MOLAR MASS","kg/mol");
 147           MDTVLocalSystemUnits.Specify("MOLAR VOLUME","mm\xB3/mol");
 148           MDTVLocalSystemUnits.Specify("CONCENTRATION","kg/mm\xB3");
 149           MDTVLocalSystemUnits.Specify("MOLAR CONCENTRATION","mol/mm\xB3");
 150           MDTVLocalSystemUnits.Specify("ACCOUSTIC INTENSITY","mm/A\xB2");
 151           MDTVLocalSystemUnits.Specify("DOSE EQUIVALENT","mm\xB2/s\xB2");
 152           MDTVLocalSystemUnits.Specify("ABSORBED DOSE","mm\xB2/s\xB2");
 153           MDTVLocalSystemUnits.Specify("FLUX OF MAGNETIC INDUCTION","kg*mm\xB2/(s\xB2*A)");
 154           MDTVLocalSystemUnits.Specify("ROTATION ACCELERATION","rad/s\xB2");
 155           MDTVLocalSystemUnits.Specify("TRANSLATION STIFFNESS","kg/s\xB2");
 156           MDTVLocalSystemUnits.Specify("ROTATION STIFFNESS","kg*mm\xB2/(s\xB2*rad)");
 157           MDTVLocalSystemUnits.Activates();
 158         }
 159         LocalSystemUnits = MDTVLocalSystemUnits;
 160         break;
 161     }
 162   }
 163 }
 164
 165
 166 //=======================================================================
 167 //function : CurrentToLS
 168 //purpose  :
 169 //=======================================================================
 170
 171 Standard_Real UnitsAPI::CurrentToLS(const Standard_Real aData,
 172                                     const Standard_CString aQuantity)
 173 {
 174   Standard_Real aValue = aData;
 175   CheckLoading (localSystem);
 176   if( CurrentUnits->Find(aQuantity) ) {
 177     TCollection_AsciiString current(CurrentUnits->Value(aQuantity));
 178     aValue = Units::ToSI(aData,current.ToCString());
 179     aValue = LocalSystemUnits.ConvertSIValueToUserSystem(aQuantity,aValue);
 180   }
 181 #ifdef OCCT_DEBUG
 182   else {
 183     cout <<"Warning: UnitsAPI,the quantity '" << aQuantity << "' does not exist in the current units system" << endl;
 184   }
 185 #endif
 186
 187   return aValue;
 188 }
 189
 190
 191 //=======================================================================
 192 //function : CurrentToSI
 193 //purpose  :
 194 //=======================================================================
 195
 196 Standard_Real UnitsAPI::CurrentToSI(const Standard_Real aData,
 197                                     const Standard_CString aQuantity)
 198 {
 199   Standard_Real aValue = aData;
 200   CheckLoading (UnitsAPI_DEFAULT);
 201   if( CurrentUnits->Find(aQuantity) ) {
 202     TCollection_AsciiString current(CurrentUnits->Value(aQuantity));
 203     aValue = Units::ToSI(aData,current.ToCString());
 204   }
 205 #ifdef OCCT_DEBUG
 206   else {
 207     cout<<"Warning: UnitsAPI,the quantity '" << aQuantity << "' does not exist in the current units system" << endl;
 208   }
 209 #endif
 210
 211   return aValue;
 212 }
 213
 214
 215 //=======================================================================
 216 //function : CurrentFromLS
 217 //purpose  :
 218 //=======================================================================
 219
 220 Standard_Real UnitsAPI::CurrentFromLS(const Standard_Real aData,
 221                                       const Standard_CString aQuantity)
 222 {
 223   Standard_Real aValue = aData;
 224   CheckLoading (localSystem);
 225   if( CurrentUnits->Find(aQuantity) ) {
 226     TCollection_AsciiString current(CurrentUnits->Value(aQuantity));
 227     aValue = LocalSystemUnits.ConvertUserSystemValueToSI(aQuantity,aData);
 228     aValue = Units::FromSI(aValue,current.ToCString());
 229   }
 230 #ifdef OCCT_DEBUG
 231   else {
 232     cout<<"Warning: UnitsAPI,the quantity '" << aQuantity << "' does not exist in the current units system" << endl;
 233   }
 234 #endif
 235
 236   return aValue;
 237 }
 238
 239
 240 //=======================================================================
 241 //function : CurrentFromSI
 242 //purpose  :
 243 //=======================================================================
 244
 245 Standard_Real UnitsAPI::CurrentFromSI(const Standard_Real aData,
 246                                       const Standard_CString aQuantity)
 247 {
 248   Standard_Real aValue = aData;
 249   CheckLoading (UnitsAPI_DEFAULT);
 250   if( CurrentUnits->Find(aQuantity) ) {
 251     TCollection_AsciiString current(CurrentUnits->Value(aQuantity));
 252     aValue = Units::FromSI(aData,current.ToCString());
 253   }
 254 #ifdef OCCT_DEBUG
 255   else {
 256     cout<<"Warning: UnitsAPI,the quantity '" << aQuantity << "' does not exist in the current units system" << endl;
 257   }
 258 #endif
 259
 260   return aValue;
 261 }
 262
 263
 264 //=======================================================================
 265 //function : CurrentToAny
 266 //purpose  :
 267 //=======================================================================
 268
 269 Standard_Real UnitsAPI::CurrentToAny(const Standard_Real aData,
 270                                      const Standard_CString aQuantity,
 271                                      const Standard_CString aUnit) {
 272   Standard_Real aValue = aData;
 273   CheckLoading (UnitsAPI_DEFAULT);
 274   if( CurrentUnits->Find(aQuantity) ) {
 275     TCollection_AsciiString current(CurrentUnits->Value(aQuantity));
 276     aValue = AnyToAny(aData,current.ToCString(),aUnit);
 277   }
 278 #ifdef OCCT_DEBUG
 279   else {
 280     cout<<"Warning: UnitsAPI,the quantity '" << aQuantity << "' does not exist in the current units system" << endl;
 281   }
 282 #endif
 283
 284   return aValue;
 285 }
 286
 287
 288 //=======================================================================
 289 //function : CurrentFromAny
 290 //purpose  :
 291 //=======================================================================
 292
 293 Standard_Real UnitsAPI::CurrentFromAny(const Standard_Real aData,
 294                                        const Standard_CString aQuantity,
 295                                        const Standard_CString aUnit)
 296 {
 297   Standard_Real aValue = aData;
 298   CheckLoading (UnitsAPI_DEFAULT);
 299   if( CurrentUnits->Find(aQuantity) ) {
 300     TCollection_AsciiString current(CurrentUnits->Value(aQuantity));
 301     aValue = AnyToAny(aData,aUnit,current.ToCString());
 302   }
 303 #ifdef OCCT_DEBUG
 304   else {
 305     cout<<"Warning: UnitsAPI,the quantity '" << aQuantity << "' does not exist in the current units system" << endl;
 306   }
 307 #endif
 308
 309   return aValue;
 310 }
 311
 312
 313 //=======================================================================
 314 //function : AnyToLS
 315 //purpose  :
 316 //=======================================================================
 317
 318 Standard_Real UnitsAPI::AnyToLS(const Standard_Real aData,
 319                                 const Standard_CString aUnit)
 320 {
 321   Standard_Real aValue = aData;
 322   CheckLoading (localSystem);
 323   Handle(Units_Dimensions) aDim;
 324   aValue = Units::ToSI(aValue,aUnit,aDim);
 325   if(aDim.IsNull())
 326     return aValue;
 327   Standard_CString quantity = aDim->Quantity();
 328   if( quantity ) {
 329     aValue = LocalSystemUnits.ConvertSIValueToUserSystem(quantity,aValue);
 330   }
 331 #ifdef OCCT_DEBUG
 332   else
 333     cout<<"Warning: BAD Quantity returns in UnitsAPI::AnyToLS(" << aData << "," << aUnit << ")" << endl;
 334 #endif
 335   return aValue;
 336 }
 337
 338
 339 //=======================================================================
 340 //function : AnyToLS
 341 //purpose  :
 342 //=======================================================================
 343
 344 Standard_Real UnitsAPI::AnyToLS(const Standard_Real aData,
 345                                 const Standard_CString aUnit,
 346                                 Handle(Units_Dimensions) &aDim)
 347 {
 348   Standard_Real aValue = aData;
 349   CheckLoading (localSystem);
 350   aValue = Units::ToSI(aValue,aUnit,aDim);
 351   Standard_CString quantity = aDim->Quantity();
 352   if(aDim.IsNull())
 353     return aValue;
 354   if( quantity ) {
 355     aValue = LocalSystemUnits.ConvertSIValueToUserSystem(quantity,aValue);
 356   }
 357 #ifdef OCCT_DEBUG
 358   else
 359     cout<<"Warning: BAD Quantity returns in UnitsAPI::AnyToLS(" << aData << "," << aUnit << "," << aDim.get() << ")" << endl;
 360 #endif
 361   return aValue;
 362 }
 363
 364
 365 //=======================================================================
 366 //function : AnyToSI
 367 //purpose  :
 368 //=======================================================================
 369
 370 Standard_Real UnitsAPI::AnyToSI(const Standard_Real aData,
 371                                 const Standard_CString aUnit)
 372 {
 373   Standard_Real aValue;
 374   CheckLoading (UnitsAPI_DEFAULT);
 375   aValue = Units::ToSI(aData,aUnit);
 376   return aValue;
 377 }
 378
 379
 380 //=======================================================================
 381 //function : AnyToSI
 382 //purpose  :
 383 //=======================================================================
 384
 385 Standard_Real UnitsAPI::AnyToSI(const Standard_Real aData,
 386                                 const Standard_CString aUnit,
 387                                 Handle(Units_Dimensions) &aDim)
 388 {
 389   Standard_Real aValue;
 390   CheckLoading (UnitsAPI_DEFAULT);
 391   aValue = Units::ToSI(aData,aUnit,aDim);
 392   return aValue;
 393 }
 394
 395
 396 //=======================================================================
 397 //function : AnyFromLS
 398 //purpose  :
 399 //=======================================================================
 400
 401 Standard_Real UnitsAPI::AnyFromLS(const Standard_Real aData,
 402                                   const Standard_CString aUnit)
 403 {
 404   Standard_Real aValue = aData;
 405   CheckLoading (localSystem);
 406   Handle(Units_Dimensions) aDim;
 407   aValue = Units::FromSI(aValue,aUnit,aDim);
 408   Standard_CString quantity = aDim->Quantity();
 409   if( quantity ) {
 410     aValue = LocalSystemUnits.ConvertUserSystemValueToSI(quantity,aValue);
 411   }
 412 #ifdef OCCT_DEBUG
 413   else
 414     cout<<"Warning: BAD Quantity returns in UnitsAPI::AnyToLS(" << aData << "," << aUnit << ")" << endl;
 415 #endif
 416
 417   return aValue;
 418 }
 419
 420
 421 //=======================================================================
 422 //function : AnyFromSI
 423 //purpose  :
 424 //=======================================================================
 425
 426 Standard_Real UnitsAPI::AnyFromSI(const Standard_Real aData,
 427                                   const Standard_CString aUnit)
 428 {
 429   Standard_Real aValue;
 430   CheckLoading (UnitsAPI_DEFAULT);
 431   aValue = Units::FromSI(aData,aUnit);
 432   return aValue;
 433 }
 434
 435
 436 //=======================================================================
 437 //function : AnyToAny
 438 //purpose  :
 439 //=======================================================================
 440
 441 Standard_Real UnitsAPI::AnyToAny(const Standard_Real aData,
 442                                  const Standard_CString aUnit1,
 443                                  const Standard_CString aUnit2)
 444 {
 445   Standard_Real aValue = aData;
 446   CheckLoading (UnitsAPI_DEFAULT);
 447   aValue = Units::Convert(aValue,aUnit1,aUnit2);
 448   return aValue;
 449 }
 450
 451
 452 //=======================================================================
 453 //function : LSToSI
 454 //purpose  :
 455 //=======================================================================
 456
 457 Standard_Real UnitsAPI::LSToSI(const Standard_Real aData,
 458                                const Standard_CString aQuantity)
 459 {
 460   Standard_Real aValue = aData;
 461   CheckLoading (localSystem);
 462   if( CurrentUnits->Find(aQuantity) ) {
 463     aValue = LocalSystemUnits.ConvertUserSystemValueToSI(aQuantity,aData);
 464   }
 465 #ifdef OCCT_DEBUG
 466   else {
 467     cout<<"Warning: UnitsAPI,the quantity '" << aQuantity << "' does not exist in the current units system" << endl;
 468   }
 469 #endif
 470
 471   return aValue;
 472 }
 473
 474
 475 //=======================================================================
 476 //function : SIToLS
 477 //purpose  :
 478 //=======================================================================
 479
 480 Standard_Real UnitsAPI::SIToLS(const Standard_Real aData,
 481                                const Standard_CString aQuantity)
 482 {
 483   Standard_Real aValue = aData;
 484   CheckLoading (localSystem);
 485   if( CurrentUnits->Find(aQuantity) ) {
 486     aValue = LocalSystemUnits.ConvertSIValueToUserSystem(aQuantity,aValue);
 487   }
 488 #ifdef OCCT_DEBUG
 489   else {
 490     cout<<"Warning: UnitsAPI,the quantity '" << aQuantity << "' does not exist in the current units system" << endl;
 491   }
 492 #endif
 493
 494   return aValue;
 495 }
 496
 497
 498 //=======================================================================
 499 //function : SetLocalSystem
 500 //purpose  :
 501 //=======================================================================
 502
 503 void UnitsAPI::SetLocalSystem(const UnitsAPI_SystemUnits aSystemUnits)
 504 {
 505   CheckLoading (aSystemUnits);
 506   localSystem = currentSystem;
 507 }
 508
 509
 510 //=======================================================================
 511 //function : LocalSystem
 512 //purpose  :
 513 //=======================================================================
 514
 515 UnitsAPI_SystemUnits UnitsAPI::LocalSystem()
 516 {
 517   return localSystem;
 518 }
 519
 520
 521 //=======================================================================
 522 //function : SetCurrentUnit
 523 //purpose  :
 524 //=======================================================================
 525
 526 void UnitsAPI::SetCurrentUnit(const Standard_CString aQuantity,
 527                               const Standard_CString anUnit)
 528 {
 529   CheckLoading(localSystem);
 530   CurrentUnits->SetResource(aQuantity,anUnit);
 531 }
 532
 533
 534 //=======================================================================
 535 //function : Save
 536 //purpose  :
 537 //=======================================================================
 538
 539 void UnitsAPI::Save()
 540 {
 541   CheckLoading(localSystem);
 542   CurrentUnits->Save();
 543 }
 544
 545
 546 //=======================================================================
 547 //function : Reload
 548 //purpose  :
 549 //=======================================================================
 550
 551 void UnitsAPI::Reload()
 552 {
 553   currentSystem = UnitsAPI_DEFAULT;
 554   CheckLoading(localSystem);
 555 }
 556
 557
 558 //=======================================================================
 559 //function : CurrentUnit
 560 //purpose  :
 561 //=======================================================================
 562
 563 static TCollection_AsciiString astring;
 564 Standard_CString UnitsAPI::CurrentUnit(const Standard_CString aQuantity)
 565 {
 566   CheckLoading(localSystem);
 567   astring = CurrentUnits->Value(aQuantity);
 568   return astring.ToCString();
 569 }
 570
 571
 572 //=======================================================================
 573 //function : Dimensions
 574 //purpose  :
 575 //=======================================================================
 576
 577 Handle(Units_Dimensions) UnitsAPI::Dimensions(const Standard_CString aType)
 578 {
 579  return  Units::Dimensions(aType);
 580 }
 581
 582
 583 //=======================================================================
 584 //function : DimensionLess
 585 //purpose  :
 586 //=======================================================================
 587
 588 Handle(Units_Dimensions) UnitsAPI::DimensionLess()
 589 {
 590   return Units_Dimensions::ALess();
 591 }
 592
 593
 594 //=======================================================================
 595 //function : DimensionMass
 596 //purpose  :
 597 //=======================================================================
 598
 599 Handle(Units_Dimensions) UnitsAPI::DimensionMass()
 600 {
 601  return Units_Dimensions::AMass();
 602 }
 603
 604
 605 //=======================================================================
 606 //function : DimensionLength
 607 //purpose  :
 608 //=======================================================================
 609
 610 Handle(Units_Dimensions) UnitsAPI::DimensionLength()
 611 {
 612  return  Units_Dimensions::ALength();
 613 }
 614
 615
 616 //=======================================================================
 617 //function : DimensionTime
 618 //purpose  :
 619 //=======================================================================
 620
 621 Handle(Units_Dimensions) UnitsAPI::DimensionTime()
 622 {
 623  return Units_Dimensions::ATime() ;
 624 }
 625
 626
 627 //=======================================================================
 628 //function : DimensionElectricCurrent
 629 //purpose  :
 630 //=======================================================================
 631
 632 Handle(Units_Dimensions) UnitsAPI::DimensionElectricCurrent()
 633 {
 634  return Units_Dimensions::AElectricCurrent() ;
 635 }
 636
 637
 638 //=======================================================================
 639 //function : DimensionThermodynamicTemperature
 640 //purpose  :
 641 //=======================================================================
 642
 643 Handle(Units_Dimensions) UnitsAPI::DimensionThermodynamicTemperature()
 644 {
 645  return Units_Dimensions::AThermodynamicTemperature();
 646 }
 647
 648
 649 //=======================================================================
 650 //function : DimensionAmountOfSubstance
 651 //purpose  :
 652 //=======================================================================
 653
 654 Handle(Units_Dimensions) UnitsAPI::DimensionAmountOfSubstance()
 655 {
 656  return Units_Dimensions::AAmountOfSubstance();
 657 }
 658
 659
 660 //=======================================================================
 661 //function : DimensionLuminousIntensity
 662 //purpose  :
 663 //=======================================================================
 664
 665 Handle(Units_Dimensions) UnitsAPI::DimensionLuminousIntensity()
 666 {
 667  return Units_Dimensions::ALuminousIntensity();
 668 }
 669
 670
 671 //=======================================================================
 672 //function : DimensionPlaneAngle
 673 //purpose  :
 674 //=======================================================================
 675
 676 Handle(Units_Dimensions) UnitsAPI::DimensionPlaneAngle()
 677 {
 678  return Units_Dimensions::APlaneAngle();
 679 }
 680
 681
 682 //=======================================================================
 683 //function : DimensionSolidAngle
 684 //purpose  :
 685 //=======================================================================
 686
 687 Handle(Units_Dimensions) UnitsAPI::DimensionSolidAngle()
 688 {
 689  return Units_Dimensions::ASolidAngle();
 690 }
 691
 692
 693 //=======================================================================
 694 //function : Check
 695 //purpose  :
 696 //=======================================================================
 697
 698 Standard_Boolean UnitsAPI::Check(const Standard_CString aQuantity,
 699                                  const Standard_CString /*aUnit*/)
 700 {
 701   Standard_Boolean status = Standard_False;
 702   CheckLoading (UnitsAPI_DEFAULT);
 703   if( CurrentUnits->Find(aQuantity) ) {
 704     TCollection_AsciiString current(CurrentUnits->Value(aQuantity));
 705 //    aValue = AnyToAny(aData,current.ToCString(),aUnit);
 706 //    aValue = Units::Convert(aValue,aUnit1,aUnit2);
 707   }
 708
 709   return status;
 710 }