Re: WinHugs, back to life
Neil Mitchell <[email protected]>
| Newsgroups | gmane.comp.lang.haskell.cvs.hugs |
|---|---|
| Message-ID | <[email protected]> |
I figured out where defining WinHugs should really go, updated patch drops that bit. On 9/8/05, Neil Mitchell <[email protected]> wrote: > 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.1 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/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"