0025418: Debug output to be limited to OCC development environment
[occt.git] / 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 #ifdef OCCT_DEBUG
183   else {
184     cout <<"Warning: UnitsAPI,the quantity '" << aQuantity << "' does not exist in the current units system" << endl;
185   }
186 #endif
187
188   return aValue;
189 }
190
191
192 //=======================================================================
193 //function : CurrentToSI
194 //purpose  :
195 //=======================================================================
196
197 Standard_Real UnitsAPI::CurrentToSI(const Standard_Real aData,
198                                     const Standard_CString aQuantity)
199 {
200   Standard_Real aValue = aData;
201   CheckLoading (UnitsAPI_DEFAULT); 
202   if( CurrentUnits->Find(aQuantity) ) {
203     TCollection_AsciiString current(CurrentUnits->Value(aQuantity));
204     aValue = Units::ToSI(aData,current.ToCString());
205   }
206 #ifdef OCCT_DEBUG
207   else {
208     cout<<"Warning: UnitsAPI,the quantity '" << aQuantity << "' does not exist in the current units system" << endl;
209   }
210 #endif
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 #ifdef OCCT_DEBUG
232   else {
233     cout<<"Warning: UnitsAPI,the quantity '" << aQuantity << "' does not exist in the current units system" << endl;
234   }
235 #endif
236
237   return aValue;
238 }
239
240
241 //=======================================================================
242 //function : CurrentFromSI
243 //purpose  :
244 //=======================================================================
245
246 Standard_Real UnitsAPI::CurrentFromSI(const Standard_Real aData,
247                                       const Standard_CString aQuantity)
248 {
249   Standard_Real aValue = aData;
250   CheckLoading (UnitsAPI_DEFAULT); 
251   if( CurrentUnits->Find(aQuantity) ) {
252     TCollection_AsciiString current(CurrentUnits->Value(aQuantity));
253     aValue = Units::FromSI(aData,current.ToCString());
254   }
255 #ifdef OCCT_DEBUG
256   else {
257     cout<<"Warning: UnitsAPI,the quantity '" << aQuantity << "' does not exist in the current units system" << endl;
258   }
259 #endif
260
261   return aValue;
262 }
263
264
265 //=======================================================================
266 //function : CurrentToAny
267 //purpose  :
268 //=======================================================================
269
270 Standard_Real UnitsAPI::CurrentToAny(const Standard_Real aData,
271                                      const Standard_CString aQuantity,
272                                      const Standard_CString aUnit) {
273   Standard_Real aValue = aData;
274   CheckLoading (UnitsAPI_DEFAULT); 
275   if( CurrentUnits->Find(aQuantity) ) {
276     TCollection_AsciiString current(CurrentUnits->Value(aQuantity));
277     aValue = AnyToAny(aData,current.ToCString(),aUnit);
278   }
279 #ifdef OCCT_DEBUG
280   else {
281     cout<<"Warning: UnitsAPI,the quantity '" << aQuantity << "' does not exist in the current units system" << endl;
282   }
283 #endif
284
285   return aValue;
286 }
287
288
289 //=======================================================================
290 //function : CurrentFromAny
291 //purpose  :
292 //=======================================================================
293
294 Standard_Real UnitsAPI::CurrentFromAny(const Standard_Real aData,
295                                        const Standard_CString aQuantity,
296                                        const Standard_CString aUnit)
297 {
298   Standard_Real aValue = aData;
299   CheckLoading (UnitsAPI_DEFAULT); 
300   if( CurrentUnits->Find(aQuantity) ) {
301     TCollection_AsciiString current(CurrentUnits->Value(aQuantity));
302     aValue = AnyToAny(aData,aUnit,current.ToCString());
303   }
304 #ifdef OCCT_DEBUG
305   else {
306     cout<<"Warning: UnitsAPI,the quantity '" << aQuantity << "' does not exist in the current units system" << endl;
307   }
308 #endif
309
310   return aValue;
311 }
312
313
314 //=======================================================================
315 //function : AnyToLS
316 //purpose  :
317 //=======================================================================
318
319 Standard_Real UnitsAPI::AnyToLS(const Standard_Real aData,
320                                 const Standard_CString aUnit)
321 {
322   Standard_Real aValue = aData;
323   CheckLoading (localSystem); 
324   Handle(Units_Dimensions) aDim;
325   aValue = Units::ToSI(aValue,aUnit,aDim);
326   if(aDim.IsNull())
327     return aValue;
328   Standard_CString quantity = aDim->Quantity();
329   if( quantity ) {
330     aValue = LocalSystemUnits.ConvertSIValueToUserSystem(quantity,aValue);
331   }
332 #ifdef OCCT_DEBUG
333   else
334     cout<<"Warning: BAD Quantity returns in UnitsAPI::AnyToLS(" << aData << "," << aUnit << ")" << endl;
335 #endif
336   return aValue;
337 }
338
339
340 //=======================================================================
341 //function : AnyToLS
342 //purpose  :
343 //=======================================================================
344
345 Standard_Real UnitsAPI::AnyToLS(const Standard_Real aData,
346                                 const Standard_CString aUnit,
347                                 Handle(Units_Dimensions) &aDim)
348 {
349   Standard_Real aValue = aData;
350   CheckLoading (localSystem); 
351   aValue = Units::ToSI(aValue,aUnit,aDim);
352   Standard_CString quantity = aDim->Quantity();
353   if(aDim.IsNull())
354     return aValue;
355   if( quantity ) {
356     aValue = LocalSystemUnits.ConvertSIValueToUserSystem(quantity,aValue);
357   }
358 #ifdef OCCT_DEBUG
359   else
360     cout<<"Warning: BAD Quantity returns in UnitsAPI::AnyToLS(" << aData << "," << aUnit << "," << aDim << ")" << endl;
361 #endif
362   return aValue;
363 }
364
365
366 //=======================================================================
367 //function : AnyToSI
368 //purpose  :
369 //=======================================================================
370
371 Standard_Real UnitsAPI::AnyToSI(const Standard_Real aData,
372                                 const Standard_CString aUnit)
373 {
374   Standard_Real aValue;
375   CheckLoading (UnitsAPI_DEFAULT); 
376   aValue = Units::ToSI(aData,aUnit);
377   return aValue;
378 }
379
380
381 //=======================================================================
382 //function : AnyToSI
383 //purpose  :
384 //=======================================================================
385
386 Standard_Real UnitsAPI::AnyToSI(const Standard_Real aData,
387                                 const Standard_CString aUnit,
388                                 Handle(Units_Dimensions) &aDim)
389 {
390   Standard_Real aValue;
391   CheckLoading (UnitsAPI_DEFAULT);
392   aValue = Units::ToSI(aData,aUnit,aDim);
393   return aValue;
394 }
395
396
397 //=======================================================================
398 //function : AnyFromLS
399 //purpose  :
400 //=======================================================================
401
402 Standard_Real UnitsAPI::AnyFromLS(const Standard_Real aData,
403                                   const Standard_CString aUnit)
404 {
405   Standard_Real aValue = aData;
406   CheckLoading (localSystem); 
407   Handle(Units_Dimensions) aDim;
408   aValue = Units::FromSI(aValue,aUnit,aDim);
409   Standard_CString quantity = aDim->Quantity();
410   if( quantity ) {
411     aValue = LocalSystemUnits.ConvertUserSystemValueToSI(quantity,aValue);
412   }
413 #ifdef OCCT_DEBUG
414   else
415     cout<<"Warning: BAD Quantity returns in UnitsAPI::AnyToLS(" << aData << "," << aUnit << ")" << endl;
416 #endif
417
418   return aValue;
419 }
420
421
422 //=======================================================================
423 //function : AnyFromSI
424 //purpose  :
425 //=======================================================================
426
427 Standard_Real UnitsAPI::AnyFromSI(const Standard_Real aData,
428                                   const Standard_CString aUnit)
429 {
430   Standard_Real aValue;
431   CheckLoading (UnitsAPI_DEFAULT); 
432   aValue = Units::FromSI(aData,aUnit);
433   return aValue;
434 }
435
436
437 //=======================================================================
438 //function : AnyToAny
439 //purpose  :
440 //=======================================================================
441
442 Standard_Real UnitsAPI::AnyToAny(const Standard_Real aData,
443                                  const Standard_CString aUnit1,
444                                  const Standard_CString aUnit2)
445 {
446   Standard_Real aValue = aData;
447   CheckLoading (UnitsAPI_DEFAULT); 
448   aValue = Units::Convert(aValue,aUnit1,aUnit2);
449   return aValue;
450 }
451
452
453 //=======================================================================
454 //function : LSToSI
455 //purpose  :
456 //=======================================================================
457
458 Standard_Real UnitsAPI::LSToSI(const Standard_Real aData,
459                                const Standard_CString aQuantity)
460 {
461   Standard_Real aValue = aData;
462   CheckLoading (localSystem); 
463   if( CurrentUnits->Find(aQuantity) ) {
464     aValue = LocalSystemUnits.ConvertUserSystemValueToSI(aQuantity,aData);
465   }
466 #ifdef OCCT_DEBUG
467   else {
468     cout<<"Warning: UnitsAPI,the quantity '" << aQuantity << "' does not exist in the current units system" << endl;
469   }
470 #endif
471
472   return aValue;
473 }
474
475
476 //=======================================================================
477 //function : SIToLS
478 //purpose  :
479 //=======================================================================
480
481 Standard_Real UnitsAPI::SIToLS(const Standard_Real aData,
482                                const Standard_CString aQuantity)
483 {
484   Standard_Real aValue = aData;
485   CheckLoading (localSystem); 
486   if( CurrentUnits->Find(aQuantity) ) {
487     aValue = LocalSystemUnits.ConvertSIValueToUserSystem(aQuantity,aValue);
488   }
489 #ifdef OCCT_DEBUG
490   else {
491     cout<<"Warning: UnitsAPI,the quantity '" << aQuantity << "' does not exist in the current units system" << endl;
492   }
493 #endif
494
495   return aValue;
496 }
497
498
499 //=======================================================================
500 //function : SetLocalSystem
501 //purpose  :
502 //=======================================================================
503
504 void UnitsAPI::SetLocalSystem(const UnitsAPI_SystemUnits aSystemUnits)
505 {
506   CheckLoading (aSystemUnits); 
507   localSystem = currentSystem; 
508 }
509
510
511 //=======================================================================
512 //function : LocalSystem
513 //purpose  :
514 //=======================================================================
515
516 UnitsAPI_SystemUnits UnitsAPI::LocalSystem()
517 {
518   return localSystem; 
519 }
520
521
522 //=======================================================================
523 //function : SetCurrentUnit
524 //purpose  :
525 //=======================================================================
526
527 void UnitsAPI::SetCurrentUnit(const Standard_CString aQuantity,
528                               const Standard_CString anUnit)
529 {
530   CheckLoading(localSystem);
531   CurrentUnits->SetResource(aQuantity,anUnit);
532 }
533
534
535 //=======================================================================
536 //function : Save
537 //purpose  :
538 //=======================================================================
539
540 void UnitsAPI::Save()
541 {
542   CheckLoading(localSystem);
543   CurrentUnits->Save();
544 }
545
546
547 //=======================================================================
548 //function : Reload
549 //purpose  :
550 //=======================================================================
551
552 void UnitsAPI::Reload()
553 {
554   currentSystem = UnitsAPI_DEFAULT;
555   CheckLoading(localSystem);
556 }
557
558
559 //=======================================================================
560 //function : CurrentUnit
561 //purpose  :
562 //=======================================================================
563
564 static TCollection_AsciiString astring;
565 Standard_CString UnitsAPI::CurrentUnit(const Standard_CString aQuantity)
566 {
567   CheckLoading(localSystem);
568   astring = CurrentUnits->Value(aQuantity);
569   return astring.ToCString();
570 }
571
572
573 //=======================================================================
574 //function : Dimensions
575 //purpose  :
576 //=======================================================================
577
578 Handle(Units_Dimensions) UnitsAPI::Dimensions(const Standard_CString aType)
579 {
580  return  Units::Dimensions(aType);
581 }
582
583
584 //=======================================================================
585 //function : DimensionLess
586 //purpose  :
587 //=======================================================================
588
589 Handle(Units_Dimensions) UnitsAPI::DimensionLess()
590 {
591   return Units_Dimensions::ALess();
592 }
593
594
595 //=======================================================================
596 //function : DimensionMass
597 //purpose  :
598 //=======================================================================
599
600 Handle(Units_Dimensions) UnitsAPI::DimensionMass()
601 {
602  return Units_Dimensions::AMass();
603 }
604
605
606 //=======================================================================
607 //function : DimensionLength
608 //purpose  :
609 //=======================================================================
610
611 Handle(Units_Dimensions) UnitsAPI::DimensionLength()
612 {
613  return  Units_Dimensions::ALength();
614 }
615
616
617 //=======================================================================
618 //function : DimensionTime
619 //purpose  :
620 //=======================================================================
621
622 Handle(Units_Dimensions) UnitsAPI::DimensionTime()
623 {
624  return Units_Dimensions::ATime() ;
625 }
626
627
628 //=======================================================================
629 //function : DimensionElectricCurrent
630 //purpose  :
631 //=======================================================================
632
633 Handle(Units_Dimensions) UnitsAPI::DimensionElectricCurrent()
634 {
635  return Units_Dimensions::AElectricCurrent() ;
636 }
637
638
639 //=======================================================================
640 //function : DimensionThermodynamicTemperature
641 //purpose  :
642 //=======================================================================
643
644 Handle(Units_Dimensions) UnitsAPI::DimensionThermodynamicTemperature()
645 {
646  return Units_Dimensions::AThermodynamicTemperature();
647 }
648
649
650 //=======================================================================
651 //function : DimensionAmountOfSubstance
652 //purpose  :
653 //=======================================================================
654
655 Handle(Units_Dimensions) UnitsAPI::DimensionAmountOfSubstance()
656 {
657  return Units_Dimensions::AAmountOfSubstance();
658 }
659
660
661 //=======================================================================
662 //function : DimensionLuminousIntensity
663 //purpose  :
664 //=======================================================================
665
666 Handle(Units_Dimensions) UnitsAPI::DimensionLuminousIntensity()
667 {
668  return Units_Dimensions::ALuminousIntensity();
669 }
670
671
672 //=======================================================================
673 //function : DimensionPlaneAngle
674 //purpose  :
675 //=======================================================================
676
677 Handle(Units_Dimensions) UnitsAPI::DimensionPlaneAngle()
678 {
679  return Units_Dimensions::APlaneAngle();
680 }
681
682
683 //=======================================================================
684 //function : DimensionSolidAngle
685 //purpose  :
686 //=======================================================================
687
688 Handle(Units_Dimensions) UnitsAPI::DimensionSolidAngle()
689 {
690  return Units_Dimensions::ASolidAngle();
691 }
692
693
694 //=======================================================================
695 //function : Check
696 //purpose  :
697 //=======================================================================
698
699 Standard_Boolean UnitsAPI::Check(const Standard_CString aQuantity, 
700                                  const Standard_CString /*aUnit*/)
701 {
702   Standard_Boolean status = Standard_False;
703   CheckLoading (UnitsAPI_DEFAULT); 
704   if( CurrentUnits->Find(aQuantity) ) {
705     TCollection_AsciiString current(CurrentUnits->Value(aQuantity));
706 //    aValue = AnyToAny(aData,current.ToCString(),aUnit);
707 //    aValue = Units::Convert(aValue,aUnit1,aUnit2);
708   }
709
710   return status;
711 }