7fd59977 |
1 | |
2 | #include <Standard_Stream.hxx> |
3 | |
4 | |
5 | #include <Interface_MSG.ixx> |
6 | #include <TCollection_HAsciiString.hxx> |
7 | #include <Dico_DictionaryOfTransient.hxx> |
8 | #include <Dico_DictionaryOfInteger.hxx> |
9 | #include <Dico_IteratorOfDictionaryOfInteger.hxx> |
10 | #include <Dico_IteratorOfDictionaryOfTransient.hxx> |
11 | #include <TColStd_HSequenceOfHAsciiString.hxx> |
12 | #include <OSD_Process.hxx> |
13 | #include <Quantity_Date.hxx> |
14 | |
15 | #include <Standard_DomainError.hxx> |
16 | #include <stdio.h> |
17 | |
18 | |
19 | static Handle(Dico_DictionaryOfTransient) thedic; |
20 | static Handle(Dico_DictionaryOfInteger) thelist; |
21 | static Handle(TColStd_HSequenceOfHAsciiString) thedup; |
22 | static Standard_Boolean theprint = Standard_True; |
23 | static Standard_Boolean therec = Standard_False; |
24 | static Standard_Boolean therun = Standard_False; |
25 | static Standard_Boolean theraise = Standard_False; |
26 | |
27 | static char blank[] = |
28 | " "; |
29 | static Standard_Integer maxblank = strlen(blank); |
30 | |
31 | |
32 | Interface_MSG::Interface_MSG (const Standard_CString key) |
33 | : thekey (key) , theval (NULL) |
34 | { |
35 | |
36 | } |
37 | |
38 | |
39 | Interface_MSG::Interface_MSG |
40 | (const Standard_CString key, const Standard_Integer i1) |
41 | : thekey (key) , theval (NULL) |
42 | { |
43 | char mess[300]; |
44 | sprintf (mess, Interface_MSG::Translated(thekey), i1); |
45 | theval = new char (strlen (mess)+1 ); |
46 | strcpy (theval,mess); |
47 | } |
48 | |
49 | |
50 | Interface_MSG::Interface_MSG |
51 | (const Standard_CString key, const Standard_Integer i1, const Standard_Integer i2) |
52 | : thekey (key) , theval (NULL) |
53 | { |
54 | char mess[300]; |
55 | sprintf (mess, Interface_MSG::Translated(thekey), i1,i2); |
56 | theval = new char (strlen (mess)+1 ); |
57 | strcpy (theval,mess); |
58 | } |
59 | |
60 | |
61 | Interface_MSG::Interface_MSG |
62 | (const Standard_CString key, const Standard_Real r1, const Standard_Integer intervals) |
63 | : thekey (key) , theval (NULL) |
64 | { |
65 | char mess[300]; |
66 | sprintf (mess, Interface_MSG::Translated(thekey), |
67 | (intervals < 0 ? r1 : Interface_MSG::Intervalled(r1,intervals)) ); |
68 | theval = new char (strlen (mess)+1 ); |
69 | strcpy (theval,mess); |
70 | } |
71 | |
72 | |
73 | Interface_MSG::Interface_MSG |
74 | (const Standard_CString key, const Standard_CString str) |
75 | : thekey (key) , theval (NULL) |
76 | { |
77 | char mess[300]; |
78 | sprintf (mess, Interface_MSG::Translated(thekey), str); |
79 | theval = new char (strlen (mess)+1 ); |
80 | strcpy (theval,mess); |
81 | } |
82 | |
83 | |
84 | Interface_MSG::Interface_MSG |
85 | (const Standard_CString key, |
86 | const Standard_Integer val, const Standard_CString str) |
87 | : thekey (key) , theval (NULL) |
88 | { |
89 | char mess[300]; |
90 | sprintf (mess, Interface_MSG::Translated(thekey), val, str); |
91 | theval = new char (strlen (mess)+1 ); |
92 | strcpy (theval,mess); |
93 | } |
94 | |
95 | |
96 | Standard_CString Interface_MSG::Value () const |
97 | { return (theval ? theval : Interface_MSG::Translated(thekey)); |
98 | } |
99 | |
100 | |
101 | void Interface_MSG::Destroy () |
102 | { |
103 | if (theval) { |
104 | delete [] theval; |
105 | theval = NULL; |
106 | } |
107 | } |
108 | |
109 | |
110 | Interface_MSG::operator Standard_CString () const |
111 | { |
112 | return Value(); |
113 | } |
114 | |
115 | |
116 | // ########### Lecture Ecriture Fichier ########## |
117 | |
118 | Standard_Integer Interface_MSG::Read (Standard_IStream& S) |
119 | { |
120 | Standard_Integer i,nb = 0; |
121 | char buf[200], key[200]; |
122 | buf[0] = '\0'; |
123 | while (S.getline (buf,200)) { |
124 | if (buf[0] == '@' && buf[1] == '@') continue; |
125 | if (buf[0] == '\0') continue; |
126 | if (buf[0] == '@') { |
127 | nb ++; |
128 | for (i = 1; i <= 200; i ++) { |
129 | key[i-1] = buf[i]; |
130 | if (buf[i] == '\0') break; |
131 | } |
132 | } |
133 | else Record (key,buf); |
134 | buf[0] = '\0'; |
135 | } |
136 | return nb; |
137 | } |
138 | |
139 | Standard_Integer Interface_MSG::Read (const Standard_CString file) |
140 | { |
141 | ifstream S(file); |
142 | if (!S) return -1; |
143 | return Read (S); |
144 | } |
145 | |
146 | Standard_Integer Interface_MSG::Write |
147 | (Standard_OStream& S, const Standard_CString rootkey) |
148 | { |
149 | Standard_Integer nb = 0; |
150 | if (thedic.IsNull()) return nb; |
151 | if (rootkey[0] != '\0') S<<"@@ ROOT:"<<rootkey<<endl; |
152 | Dico_IteratorOfDictionaryOfTransient iter (thedic,rootkey); |
153 | for (iter.Start(); iter.More(); iter.Next()) { |
154 | S<<"@"<<iter.Name()<<"\n"; |
155 | Handle(TCollection_HAsciiString) str = |
156 | Handle(TCollection_HAsciiString)::DownCast(iter.Value()); |
157 | if (str.IsNull()) continue; |
158 | nb ++; |
159 | S<<str->ToCString()<<"\n"; |
160 | } |
161 | S<<flush; |
162 | return nb; |
163 | } |
164 | |
165 | |
166 | // ########### EXPLOITATION ########## |
167 | |
168 | Standard_Boolean Interface_MSG::IsKey (const Standard_CString key) |
169 | { |
170 | return (key[0] == '^'); |
171 | } |
172 | |
173 | |
174 | Standard_CString Interface_MSG::Translated (const Standard_CString key) |
175 | { |
176 | if (!therun) return key; |
177 | if (!thedic.IsNull()) { |
178 | Handle(TCollection_HAsciiString) str; |
179 | if (thedic->GetItem(key,str)) return str->ToCString(); |
180 | } |
181 | if (theprint) cout<<" ** Interface_MSG:Translate ?? "<<key<<" **"<<endl; |
182 | if (therec) { |
183 | Standard_Boolean deja; |
184 | if (thelist.IsNull()) thelist = new Dico_DictionaryOfInteger; |
185 | Standard_Integer& nb = thelist->NewItem (key,deja); |
186 | if (!deja) nb = 0; nb ++; |
187 | } |
188 | if (theraise) Standard_DomainError::Raise ("Interface_MSG : Translate"); |
189 | return key; |
190 | } |
191 | |
192 | |
193 | void Interface_MSG::Record |
194 | (const Standard_CString key, const Standard_CString item) |
195 | { |
196 | if (thedic.IsNull()) thedic = new Dico_DictionaryOfTransient; |
197 | Standard_Boolean deja; |
198 | Handle(TCollection_HAsciiString) dup; |
199 | Handle(Standard_Transient)& res = thedic->NewItem (key,deja); |
200 | Handle(TCollection_HAsciiString) str = new TCollection_HAsciiString (item); |
201 | res = str; |
202 | if (!deja) return; |
203 | if (theprint) cout<<" ** Interface_MSG:Record ?? "<<key<<" ** "<<item<<" **"<<endl; |
204 | if (therec) { |
205 | if (thedup.IsNull()) thedup = new TColStd_HSequenceOfHAsciiString(); |
206 | dup = new TCollection_HAsciiString(key); |
207 | thedup->Append(dup); |
208 | dup = new TCollection_HAsciiString(item); |
209 | thedup->Append(dup); |
210 | } |
211 | if (theraise) Standard_DomainError::Raise ("Interface_MSG : Record"); |
212 | } |
213 | |
214 | |
215 | void Interface_MSG::SetTrace |
216 | (const Standard_Boolean toprint, const Standard_Boolean torecord) |
217 | { |
218 | theprint = toprint; |
219 | therec = torecord; |
220 | } |
221 | |
222 | |
223 | void Interface_MSG::SetMode (const Standard_Boolean running, |
224 | const Standard_Boolean raising) |
225 | { |
226 | therun = running; theraise = raising; |
227 | } |
228 | |
229 | |
230 | void Interface_MSG::PrintTrace (Standard_OStream& S) |
231 | { |
232 | Handle(TCollection_HAsciiString) dup; |
233 | Standard_Integer i, nb = 0; |
234 | if (!thedup.IsNull()) nb = thedup->Length()/2; |
235 | for (i = 1; i <= nb; i ++) { |
236 | dup = thedup->Value(2*i-1); |
237 | S<<"** DUP:"<<dup->ToCString(); |
238 | dup = thedup->Value(2*i); |
239 | S<<" ** "<<dup->ToCString()<<endl; |
240 | } |
241 | |
242 | if (thelist.IsNull()) return; |
243 | Dico_IteratorOfDictionaryOfInteger iter (thelist); |
244 | for (iter.Start(); iter.More(); iter.Next()) { |
245 | S<<"** MSG(NB="<<iter.Value()<<"): "<<iter.Name()<<endl; |
246 | } |
247 | } |
248 | |
249 | |
250 | // ########### ARRONDIS DE FLOTTANTS ############ |
251 | |
252 | Standard_Real Interface_MSG::Intervalled |
253 | (const Standard_Real val, |
254 | const Standard_Integer order, const Standard_Boolean upper) |
255 | { |
256 | Standard_Real vl = (val > 0. ? val : -val); |
257 | Standard_Real bl = 1., bu = 1.; |
258 | if (vl >= 1.) { |
259 | bu = 10.; |
260 | for (Standard_Integer i = 0; i < 200; i ++) { |
261 | if (vl < bu) break; |
262 | bl = bu; bu *= 10.; |
263 | } |
264 | } else { |
265 | bl = 0.1; |
266 | for (Standard_Integer i = 0; i < 200; i ++) { |
267 | if (vl >= bl) break; |
268 | bu = bl; bl /= 10.; |
269 | } |
270 | if (vl == 0.) return 0.; |
271 | } |
272 | |
273 | Standard_Real rst = vl/bl; |
274 | if (order <= 1) rst = (upper ? 10. : 1.); |
275 | else if (order == 2) { |
276 | if (rst <= 3.) rst = (upper ? 3. : 1.); |
277 | else rst = (upper ? 10. : 3.); |
278 | } else if (order == 3) { |
279 | if (rst <= 2.) rst = (upper ? 2. : 1.); |
280 | else if (rst <= 5.) rst = (upper ? 5. : 2.); |
281 | else rst = (upper ? 10. : 5.); |
282 | } else if (order == 4) { |
283 | if (rst <= 2.) rst = (upper ? 2. : 1.); |
284 | else if (rst <= 3.) rst = (upper ? 3. : 2.); |
285 | else if (rst <= 6.) rst = (upper ? 6. : 3.); |
286 | else rst = (upper ? 10. : 6.); |
287 | } |
288 | else if (order <= 6) { |
289 | if (rst <= 1.5) rst = (upper ? 1.5 : 1. ); |
290 | else if (rst <= 2. ) rst = (upper ? 2. : 1.5); |
291 | else if (rst <= 3. ) rst = (upper ? 3. : 2. ); |
292 | else if (rst <= 5. ) rst = (upper ? 5. : 3. ); |
293 | else if (rst <= 7. ) rst = (upper ? 7. : 5. ); |
294 | else rst = (upper ? 10. : 7. ); |
295 | } |
296 | else { // n a de sens que jusqu a 10 ... |
297 | if (rst <= 1.2) rst = (upper ? 1.2 : 1. ); |
298 | else if (rst <= 1.5) rst = (upper ? 1.5 : 1.2); |
299 | else if (rst <= 2. ) rst = (upper ? 2. : 1.5); |
300 | else if (rst <= 2.5) rst = (upper ? 2.5 : 2. ); |
301 | else if (rst <= 3. ) rst = (upper ? 3. : 2.5); |
302 | else if (rst <= 4. ) rst = (upper ? 4. : 3. ); |
303 | else if (rst <= 5. ) rst = (upper ? 5. : 4. ); |
304 | else if (rst <= 6. ) rst = (upper ? 6. : 5. ); |
305 | else if (rst <= 8. ) rst = (upper ? 8. : 6. ); |
306 | else rst = (upper ? 10. : 8. ); |
307 | } |
308 | return ((val < 0.) ? -(bl*rst) : (bl*rst) ); |
309 | } |
310 | |
311 | |
312 | // ########### DATES ############ |
313 | |
314 | void Interface_MSG::TDate (const Standard_CString text, |
315 | const Standard_Integer yy, |
316 | const Standard_Integer mm, |
317 | const Standard_Integer dd, |
318 | const Standard_Integer hh, |
319 | const Standard_Integer mn, |
320 | const Standard_Integer ss, |
321 | const Standard_CString format) |
322 | { |
323 | // valeurs nulles : en tete (avec au moins une non nulle, la derniere) |
324 | // -> completees avec les valeurs actuelle (system date) |
325 | // tout nul on laisse |
326 | |
327 | //svv #2 Standard_Integer y1 , m1 , d1 , h1 , n1 , s1; |
328 | Standard_Integer y2 = yy, m2 = mm, d2 = dd, h2 = hh, n2 = mn, s2 = ss; |
329 | if (yy == 0 && ss != 0) { |
330 | // completion |
331 | OSD_Process pourdate; |
332 | Quantity_Date ladate = pourdate.SystemDate (); |
333 | if ( yy == 0) { |
334 | y2 = ladate.Year(); |
335 | if ( mm == 0) { |
336 | m2 = ladate.Month(); |
337 | if (dd == 0) { |
338 | d2 = ladate.Day(); |
339 | if (hh == 0) { |
340 | h2 = ladate.Hour(); |
341 | if (mn == 0) { |
342 | n2 = ladate.Minute(); |
343 | s2 = ladate.Second(); |
344 | } |
345 | } |
346 | } |
347 | } |
348 | } |
349 | } |
350 | char *pText=(char *)text; |
351 | if (!format || format[0] == '\0') |
352 | sprintf(pText,"%4.4d-%2.2d-%2.2d:%2.2d-%2.2d-%2.2d",y2,m2,d2,h2,n2,s2); |
353 | else if ((format[0] == 'c' || format[0] == 'C') && format[1] == ':') |
354 | sprintf (pText,&format[2],y2,m2,d2,h2,n2,s2); |
355 | } |
356 | |
357 | |
358 | Standard_Boolean Interface_MSG::NDate (const Standard_CString text, |
359 | Standard_Integer& yy, |
360 | Standard_Integer& mm, |
361 | Standard_Integer& dd, |
362 | Standard_Integer& hh, |
363 | Standard_Integer& mn, |
364 | Standard_Integer& ss) |
365 | { |
366 | Standard_Integer i ,num = 1; |
367 | for (i = 0; text[i] != '\0'; i ++) { |
368 | char val = text[i]; |
369 | if (val >= 48 && val <= 57) { |
370 | if ( (num & 1) == 0) num ++; |
371 | if (num == 1) yy = yy*10 + (val-48); |
372 | if (num == 3) mm = mm*10 + (val-48); |
373 | if (num == 5) dd = dd*10 + (val-48); |
374 | if (num == 7) hh = hh*10 + (val-48); |
375 | if (num == 9) mn = mn*10 + (val-48); |
376 | if (num == 11) ss = ss*10 + (val-48); |
377 | } |
378 | else if ( (num & 1) != 0) num ++; |
379 | } |
380 | return (num > 0); |
381 | } |
382 | |
383 | |
384 | Standard_Integer Interface_MSG::CDate (const Standard_CString text1, |
385 | const Standard_CString text2) |
386 | { |
387 | Standard_Integer i1=0,i2=0,i3=0,i4=0,i5=0,i6=0,j1=0,j2=0,j3=0,j4=0,j5=0,j6=0; |
388 | if (!NDate (text1,i1,i2,i3,i4,i5,i6)) return 0; |
389 | if (!NDate (text2,j1,j2,j3,j4,j5,j6)) return 0; |
390 | if (i1 < j1) return -1; |
391 | if (i1 > j1) return 1; |
392 | if (i2 < j2) return -1; |
393 | if (i2 > j2) return 1; |
394 | if (i3 < j3) return -1; |
395 | if (i3 > j3) return 1; |
396 | if (i4 < j4) return -1; |
397 | if (i4 > j4) return 1; |
398 | if (i5 < j5) return -1; |
399 | if (i5 > j5) return 1; |
400 | if (i6 < j6) return -1; |
401 | if (i6 > j6) return 1; |
402 | return 0; |
403 | } |
404 | |
405 | |
406 | Standard_CString Interface_MSG::Blanks (const Standard_Integer val, |
407 | const Standard_Integer max) |
408 | { |
409 | Standard_Integer count; |
410 | if (val < 0) return Interface_MSG::Blanks (-val,max-1); |
411 | if (val < 10) count = 9; |
412 | else if (val < 100) count = 8; |
413 | else if (val < 1000) count = 7; |
414 | else if (val < 10000) count = 6; |
415 | else if (val < 100000) count = 5; |
416 | else if (val < 1000000) count = 4; |
417 | else if (val < 10000000) count = 3; |
418 | else if (val < 100000000) count = 2; |
419 | else if (val < 1000000000) count = 1; |
420 | else count = 0; |
421 | count = count + max - 10; |
422 | if (count < 0) count = 0; |
423 | return &blank [maxblank - count]; |
424 | } |
425 | |
426 | |
427 | Standard_CString Interface_MSG::Blanks (const Standard_CString val, |
428 | const Standard_Integer max) |
429 | { |
430 | Standard_Integer lng = strlen(val); |
431 | if (lng > maxblank || lng > max) return ""; |
432 | return &blank [maxblank - max + lng]; |
433 | } |
434 | |
435 | |
436 | Standard_CString Interface_MSG::Blanks |
437 | (const Standard_Integer count) |
438 | { |
439 | if (count <= 0) return ""; |
440 | if (count >= maxblank) return blank; |
441 | return &blank [maxblank-count]; |
442 | } |
443 | |
444 | |
445 | void Interface_MSG::Print (Standard_OStream& S, const Standard_CString val, |
446 | const Standard_Integer max, |
447 | const Standard_Integer just) |
448 | { |
449 | if (max > maxblank) { Print(S,val,maxblank,just); return; } |
450 | Standard_Integer lng = strlen (val); |
451 | if (lng > max) { S << val; return; } |
452 | Standard_Integer m1 = (max-lng) /2; |
453 | Standard_Integer m2 = max-lng - m1; |
454 | if (just < 0) S<<val<<&blank[maxblank-m1-m2]; |
455 | else if (just == 0) S<<&blank[maxblank-m1]<<val<<&blank[maxblank-m2]; |
456 | else S<<&blank[maxblank-m1-m2]<<val; |
457 | } |