version 1.40 | | version 1.41 |
---|
| | |
/* | | /* |
* static char *rcsid_main_c = | | * static char *rcsid_main_c = |
* "$Id: main.c,v 1.40 2001/05/13 08:21:54 mwedel Exp $"; | | * "$Id: main.c,v 1.41 2001/06/13 10:51:47 michtoen Exp $"; |
*/ | | */ |
| | |
/* | | /* |
| | |
new_draw_info(NDI_UNIQUE, 0,op,"Mitsuhiro Itakura [ita@gold.koma.jaeri.go.jp]"); | | new_draw_info(NDI_UNIQUE, 0,op,"Mitsuhiro Itakura [ita@gold.koma.jaeri.go.jp]"); |
new_draw_info(NDI_UNIQUE, 0,op,"Hansjoerg Malthaner [hansjoerg.malthaner@danet.de]"); | | new_draw_info(NDI_UNIQUE, 0,op,"Hansjoerg Malthaner [hansjoerg.malthaner@danet.de]"); |
new_draw_info(NDI_UNIQUE, 0,op,"Mårten Woxberg [maxmc@telia.com]"); | | new_draw_info(NDI_UNIQUE, 0,op,"Mårten Woxberg [maxmc@telia.com]"); |
| | new_draw_info(NDI_UNIQUE, 0,op,"Delbecq David [david.delbecq@usa.net]"); |
| | new_draw_info(NDI_UNIQUE, 0,op,"Chachkoff Yann [yann.chachkoff@mailandnews.com]"); |
new_draw_info(NDI_UNIQUE, 0,op,"And many more!"); | | new_draw_info(NDI_UNIQUE, 0,op,"And many more!"); |
} | | } |
| | |
| | |
fix_luck(); | | fix_luck(); |
} | | } |
| | |
| | /* GROS: This is the new main function, used to start the Guile |
| | * subsystem. The "old" main has been renamed to main_crossfire |
| | */ |
int main(int argc,char **argv) | | int main(int argc,char **argv) |
{ | | { |
| | gh_enter(argc, argv, main_crossfire); |
| | } |
| | |
| | /* GROS: Note that the return type had to be changed from int |
| | * to void. |
| | */ |
| | void main_crossfire(int argc,char **argv) |
| | { |
#ifdef WIN32 /* ---win32 this sets the win32 from 0d0a to 0a handling */ | | #ifdef WIN32 /* ---win32 this sets the win32 from 0d0a to 0a handling */ |
_fmode = _O_BINARY ; | | _fmode = _O_BINARY ; |
#endif | | #endif |
| | |
settings.argc=argc; | | settings.argc=argc; |
settings.argv=argv; | | settings.argv=argv; |
init(argc, argv); | | init(argc, argv); |
| | guile_init_functions(); /* GROS - Init the script interpreter */ |
| | |
for(;;) { | | for(;;) { |
nroferrors = 0; | | nroferrors = 0; |