The R Project SVN R

Rev

Rev 45017 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 45017 Rev 51815
Line 145... Line 145...
145 
    GetModuleFileName(Instance, exename, sizeof(exename));
 145 
    GetModuleFileName(Instance, exename, sizeof(exename));
146 
    GetFileTitle(exename, title, sizeof(title));
 146 
    GetFileTitle(exename, title, sizeof(title));
147 
    setappname(title);
 147 
    setappname(title);
148 
}
 148 
}
149 
 
 149 
 
150 
#if 0
 - 
 
151 
/*
 - 
 
152 
 *  Special function for making printf work on Windows systems.
 - 
 
153 
 *  This function is never called, it merely tricks the compiler into
 - 
 
154 
 *  including printf and scanf support.
 - 
 
155 
 */
 - 
 
156 
void app_init_printf(void)
 - 
 
157 
{
 - 
 
158 
#ifdef __BORLANDC__
 - 
 
159 
#if __BORLANDC__ <= 0x410
 - 
 
160 
    _InitEasyWin();
 - 
 
161 
#endif
 - 
 
162 
#else
 - 
 
163 
    printf(" ");
 - 
 
164 
#endif
 - 
 
165 
}
 - 
 
166 
#endif
 - 
 
167 
 
 150 
 
168 
/*
 151 
/*
169 
 *  The main Windows entry point is the WinMain function.
 152 
 *  The main Windows entry point is the WinMain function.
170 
 */
 153 
 */
171 
 
 154