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