* Allocate a DOS command window under Win32.
git-svn-id: svn://svn.zoy.org/elk/trunk@141 55e467fa-43c5-0310-a8a2-de718669efc6
This commit is contained in:
		
							parent
							
								
									284ec7540b
								
							
						
					
					
						commit
						f663715179
					
				
							
								
								
									
										14
									
								
								src/main.c
								
								
								
								
							
							
						
						
									
										14
									
								
								src/main.c
								
								
								
								
							| 
						 | 
					@ -30,10 +30,20 @@
 | 
				
			||||||
 | 
					
 | 
				
			||||||
#include "config.h"
 | 
					#include "config.h"
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					#ifdef WIN32
 | 
				
			||||||
 | 
					#   include <windows.h>
 | 
				
			||||||
 | 
					#endif
 | 
				
			||||||
 | 
					
 | 
				
			||||||
#include <scheme.h>
 | 
					#include <scheme.h>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
int main(int ac, char **av) {
 | 
					int main (int ac, char **av) {
 | 
				
			||||||
    Elk_Init(ac, av, 1, "");
 | 
					#ifdef WIN32
 | 
				
			||||||
 | 
					    AllocConsole ();
 | 
				
			||||||
 | 
					    freopen ("CONIN$", "r", stdin);
 | 
				
			||||||
 | 
					    freopen ("CONOUT$", "w", stdout);
 | 
				
			||||||
 | 
					    freopen ("CONOUT$", "w", stderr);
 | 
				
			||||||
 | 
					#endif
 | 
				
			||||||
 | 
					    Elk_Init (ac, av, 1, "");
 | 
				
			||||||
    return 0;
 | 
					    return 0;
 | 
				
			||||||
}
 | 
					}
 | 
				
			||||||
 | 
					
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
		Reference in New Issue