0024186: Eliminate remaining compiler warnings in MSVC++ 2010 64 bit with warning...
[occt.git] / src / InterfaceGraphic / InterfaceGraphic_cPrintf.cxx
1 // Copyright (c) 1991-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
20 #if defined (__osf__ ) || defined ( DECOSF1 )
21 int DECOSF1_a_horreur_du_vide_a_la_compilation;
22 #endif
23 #if defined ( __hpux ) || defined ( HPUX ) 
24 int HPUX_a_horreur_du_vide_a_la_compilation;
25 #endif
26
27 #ifdef WNT
28
29 #define STRICT
30 #include <windows.h>
31
32 #include <stdio.h>
33 #include <string.h>
34
35 #include <InterfaceGraphic_wntio.hxx>
36
37 typedef struct _env {
38
39   DWORD len;
40   char* ptr;
41
42 } ENV, *PENV;
43
44 static DWORD tlsIndex;
45
46 class Init_ {
47
48 public:
49
50   Init_ () { tlsIndex = TlsAlloc (); }
51
52 }; // end Init_
53
54 static Init_ init;
55
56 int cPrintf ( char* fmt, ... ) {
57
58   static BOOL   first = TRUE;
59   static HANDLE hConsole = NULL;
60
61   char    buffer[ 256 ];
62   va_list argptr;
63   int     cnt;
64   DWORD   lpcchWritten;
65
66   if ( first ) {
67     hConsole = GetStdHandle ( STD_OUTPUT_HANDLE );
68     if ( hConsole == NULL ) {
69       AllocConsole ();
70       hConsole = GetStdHandle ( STD_OUTPUT_HANDLE );
71     }  /* end if */
72
73     first = FALSE;
74
75   }  /* end if */
76
77   va_start( argptr, fmt );
78   cnt = vsprintf ( buffer, fmt, argptr ); 
79   va_end ( argptr );
80   WriteConsole ( hConsole, buffer, (DWORD) strlen ( buffer ), &lpcchWritten, NULL );
81   return cnt;
82
83 }  /* end cPrintf */
84
85 int fcPrintf ( int /*dummy*/, char* fmt, ... ) {
86
87   static BOOL   first = TRUE;
88   static HANDLE hConsole = NULL;
89
90   char    buffer[ 256 ];
91   va_list argptr;
92   int     cnt;
93   DWORD   lpcchWritten;
94
95   if ( first ) {
96     hConsole = GetStdHandle ( STD_OUTPUT_HANDLE );
97     if ( hConsole == NULL ) {
98       AllocConsole ();
99       hConsole = GetStdHandle ( STD_OUTPUT_HANDLE );
100     }  /* end if */
101
102     first = FALSE;
103   }  /* end if */
104
105   va_start( argptr, fmt );
106   cnt = vsprintf ( buffer, fmt, argptr ); 
107   va_end ( argptr );
108   WriteConsole ( hConsole, buffer, (DWORD )strlen ( buffer ), &lpcchWritten, NULL );
109
110   return cnt;
111
112 }  /* end fcPrintf */
113
114 char* GetEnv ( char* name ) {
115
116   DWORD dwLen;
117   PENV  env = ( PENV )TlsGetValue ( tlsIndex );
118
119   if ( env == NULL ) {
120     env = ( PENV )HeapAlloc (
121       GetProcessHeap (), HEAP_GENERATE_EXCEPTIONS | HEAP_ZERO_MEMORY,
122       ( DWORD )sizeof ( ENV )
123       );
124     TlsSetValue (  tlsIndex, ( LPVOID )env  );
125   }  /* end if */
126
127   SetLastError ( ERROR_SUCCESS );
128   dwLen = GetEnvironmentVariable ( name, NULL, 0 );
129
130   if (  dwLen == 0 && GetLastError () != ERROR_SUCCESS  ) return NULL;
131
132   ++dwLen;
133
134   if ( env -> len < dwLen ) {
135     if ( env -> ptr != NULL )
136       env -> ptr = ( char* )HeapReAlloc (
137       GetProcessHeap (), HEAP_GENERATE_EXCEPTIONS | HEAP_ZERO_MEMORY,
138       env -> ptr, dwLen
139       );
140     else
141       env -> ptr = ( char* )HeapAlloc (
142       GetProcessHeap (), HEAP_GENERATE_EXCEPTIONS | HEAP_ZERO_MEMORY,
143       dwLen
144       );
145     env -> len = dwLen;
146   }  /* end if */
147
148   GetEnvironmentVariable ( name, env -> ptr, dwLen );
149   return env -> ptr;
150
151 }  /* end GetEnv */
152 #endif /* WNT */