source: Sophya/trunk/Poubelle/DPC:FitsIOServer/NTools/datatypes.cc

Last change on this file was 658, checked in by ansari, 26 years ago

no message
File size: 1.4 KB
Line 
1// Type de donnees de base
2// E. Lesquoy , E. Aubourg
3// R. Ansari 04/95
4
5// LAL (Orsay) / IN2P3-CNRS DAPNIA/SPP (Saclay) / CEA
6
7#include "datatypes.h"
8
9/* Nouvelle-Fonction */
10char * DataName(PBaseDataTypes typ)
11{
12switch (typ)
13 {
14 case kuint_1 :
15 return ("uint_1");
16 case kint_1 :
17 return ("int_1");
18 case kuint_2 :
19 return ("uint_2");
20 case kint_2 :
21 return ("int_2");
22 case kint_4:
23 return ("int_4");
24 case kr_4 :
25 return ("r_4");
26 case kr_8 :
27 return ("r_8");
28 default :
29 return ("unknown");
30 }
31}
32
33/* Nouvelle-Fonction */
34char * DataLongName(PBaseDataTypes typ)
35{
36switch (typ)
37 {
38 case kuint_1 :
39 return ("unsigned char (*1)");
40 case kint_1 :
41 return ("signed char (*1)");
42 case kuint_2 :
43 return ("unsigned short int (*2)");
44 case kint_2 :
45 return ("short int (*2)");
46 case kint_4:
47 return ("int (*4)");
48 case kr_4 :
49 return ("float (*4)");
50 case kr_8 :
51 return ("double (*8)");
52 default :
53 return ("unknown");
54 }
55}
56
57/* Nouvelle-Fonction */
58int DataSize(PBaseDataTypes typ)
59{
60switch (typ)
61 {
62 case kuint_1 :
63 return (sizeof(uint_1));
64 case kint_1 :
65 return (sizeof(int_1));
66 case kuint_2 :
67 return (sizeof(uint_2));
68 case kint_2 :
69 return (sizeof(int_2));
70 case kint_4:
71 return (sizeof(int_4));
72 case kr_4 :
73 return (sizeof(r_4));
74 case kr_8 :
75 return (sizeof(r_8));
76 default :
77 return (0);
78 }
79}
80
81
82
Note: See TracBrowser for help on using the repository browser.