0024428: Implementation of LGPL license
[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
7 // under the terms of the GNU Lesser General Public 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 }