WinHugs, back to life
Neil Mitchell <[email protected]>
| Newsgroups | gmane.comp.lang.haskell.cvs.hugs |
|---|---|
| Message-ID | <404396ef050908025325840dfa__9560.79872926257$1126173270$gmane$org@mail.gmail.com> |
Hi, I'm not sure before that WinHugs was correctly defining HUGS_FOR_WINDOWS, some places that conditionaled on it seem to have not hit it. This puts a definition in the WinHugs config.h file, so it should be remembered. Additionally, once this happens a few things break. This patch cleans them back up. kbhit was referencing dead window handles, and since I don't really have a clue what its meant to do, defining it as nothing seems reasonable. Thanks Neil _______________________________________________ Cvs-hugs mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-hugs
hugs98.patch
(application/octet-stream, 1.6 KB)
Index: src/winhugs/Winhugs.h =================================================================== RCS file: /cvs/hugs98/src/winhugs/Winhugs.h,v retrieving revision 1.13 diff -u -r1.13 Winhugs.h --- src/winhugs/Winhugs.h 7 Sep 2005 15:22:20 -0000 1.13 +++ src/winhugs/Winhugs.h 8 Sep 2005 09:33:10 -0000 @@ -74,6 +74,6 @@ #define getch() WinHugsGetC(stdin) // unused? -#define kbhit() WinKbhit(hWndText) +#define kbhit() ; #endif /* __WINHUGS_H__ */ Index: src/winhugs/config.h =================================================================== RCS file: /cvs/hugs98/src/winhugs/config.h,v retrieving revision 1.24 diff -u -r1.24 config.h --- src/winhugs/config.h 19 Jan 2005 01:33:39 -0000 1.24 +++ src/winhugs/config.h 8 Sep 2005 09:31:47 -0000 @@ -15,6 +15,8 @@ /* Define to 1 if floating point arithmetic is supported. */ #define FLOATS_SUPPORTED 1 +#define HUGS_FOR_WINDOWS 1 + /* Define to 1 if you have `alloca', as a function or macro. */ /* #undef HAVE_ALLOCA */ Index: src/winhugs/Legacy.c =================================================================== RCS file: /cvs/hugs98/src/winhugs/Legacy.c,v retrieving revision 1.3 diff -u -r1.3 Legacy.c --- src/winhugs/Legacy.c 7 Sep 2005 12:10:36 -0000 1.3 +++ src/winhugs/Legacy.c 8 Sep 2005 09:29:28 -0000 @@ -15,7 +15,8 @@ // Modified minimally to get it working // Moved out of WinHugs.c and into separate module, a bit of massage to make that work -#include <windows.h> +#include "Header.h" +#include "Winhugs.h" #include "prelude.h" #include "storage.h" #include "connect.h"