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