Fix parser.c line endings
[xboard.git] / winboard / wgamelist.c
1 /*\r
2  * wgamelist.c -- Game list window for WinBoard\r
3  *\r
4  * Copyright 1995, 2009, 2010, 2011 Free Software Foundation, Inc.\r
5  *\r
6  * Enhancements Copyright 2005 Alessandro Scotti\r
7  *\r
8  * ------------------------------------------------------------------------\r
9  *\r
10  * GNU XBoard is free software: you can redistribute it and/or modify\r
11  * it under the terms of the GNU General Public License as published by\r
12  * the Free Software Foundation, either version 3 of the License, or (at\r
13  * your option) any later version.\r
14  *\r
15  * GNU XBoard is distributed in the hope that it will be useful, but\r
16  * WITHOUT ANY WARRANTY; without even the implied warranty of\r
17  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\r
18  * General Public License for more details.\r
19  *\r
20  * You should have received a copy of the GNU General Public License\r
21  * along with this program. If not, see http://www.gnu.org/licenses/.  *\r
22  *\r
23  *------------------------------------------------------------------------\r
24  ** See the file ChangeLog for a revision history.  */\r
25 \r
26 #include "config.h"\r
27 \r
28 #include <windows.h> /* required for all Windows applications */\r
29 #include <stdio.h>\r
30 #include <stdlib.h>\r
31 #include <malloc.h>\r
32 #include <fcntl.h>\r
33 #include <math.h>\r
34 #include <commdlg.h>\r
35 #include <dlgs.h>\r
36 \r
37 #include "common.h"\r
38 #include "frontend.h"\r
39 #include "backend.h"\r
40 #include "winboard.h"\r
41 \r
42 #include "wsnap.h"\r
43 \r
44 #define _(s) T_(s)\r
45 \r
46 /* Module globals */\r
47 static BOOLEAN gameListUp = FALSE;\r
48 static FILE* gameFile;\r
49 static char* gameFileName = NULL;\r
50 \r
51 struct GameListStats\r
52 {\r
53     int white_wins;\r
54     int black_wins;\r
55     int drawn;\r
56     int unfinished;\r
57 };\r
58 \r
59 /* [AS] Setup the game list according to the specified filter */\r
60 static int GameListToListBox( HWND hDlg, BOOL boReset, char * pszFilter, struct GameListStats * stats )\r
61 {\r
62     ListGame * lg = (ListGame *) gameList.head;\r
63     int nItem;\r
64     BOOL hasFilter = FALSE;\r
65     int count = 0;\r
66     struct GameListStats dummy;\r
67 \r
68     /* Initialize stats (use a dummy variable if caller not interested in them) */\r
69     if( stats == NULL ) {\r
70         stats = &dummy;\r
71     }\r
72 \r
73     stats->white_wins = 0;\r
74     stats->black_wins = 0;\r
75     stats->drawn = 0;\r
76     stats->unfinished = 0;\r
77 \r
78     if( boReset ) {\r
79         SendDlgItemMessage(hDlg, OPT_GameListText, LB_RESETCONTENT, 0, 0);\r
80     }\r
81 \r
82     if( pszFilter != NULL ) {\r
83         if( strlen( pszFilter ) > 0 ) {\r
84             hasFilter = TRUE;\r
85         }\r
86     }\r
87 \r
88     for (nItem = 0; nItem < ((ListGame *) gameList.tailPred)->number; nItem++){\r
89         char * st = GameListLine(lg->number, &lg->gameInfo);\r
90         BOOL skip = FALSE;\r
91 \r
92         if( hasFilter ) {\r
93             if( ! SearchPattern( st, pszFilter ) ) {\r
94                 skip = TRUE;\r
95             }\r
96         }\r
97 \r
98         if( ! skip ) {\r
99             SendDlgItemMessage(hDlg, OPT_GameListText, LB_ADDSTRING, 0, (LPARAM) st);\r
100             count++;\r
101 \r
102             /* Update stats */\r
103             if( lg->gameInfo.result == WhiteWins )\r
104                 stats->white_wins++;\r
105             else if( lg->gameInfo.result == BlackWins )\r
106                 stats->black_wins++;\r
107             else if( lg->gameInfo.result == GameIsDrawn )\r
108                 stats->drawn++;\r
109             else\r
110                 stats->unfinished++;\r
111         }\r
112 \r
113         free(st);\r
114         lg = (ListGame *) lg->node.succ;\r
115     }\r
116 \r
117     SendDlgItemMessage(hDlg, OPT_GameListText, LB_SETCURSEL, 0, 0);\r
118 \r
119     return count;\r
120 }\r
121 \r
122 /* [AS] Show number of visible (filtered) games and total on window caption */\r
123 static int GameListUpdateTitle( HWND hDlg, char * pszTitle, int item_count, int item_total, struct GameListStats * stats )\r
124 {\r
125     char buf[256];\r
126 \r
127     snprintf( buf, sizeof(buf)/sizeof(buf[0]),_("%s - %d/%d games"), pszTitle, item_count, item_total );\r
128 \r
129     if( stats != 0 ) {\r
130         sprintf( buf+strlen(buf), " (%d-%d-%d)", stats->white_wins, stats->black_wins, stats->drawn );\r
131     }\r
132 \r
133     SetWindowText( hDlg, buf );\r
134 \r
135     return 0;\r
136 }\r
137 \r
138 #define MAX_FILTER_LENGTH   128\r
139 \r
140 LRESULT CALLBACK\r
141 GameListDialog(HWND hDlg, UINT message, WPARAM wParam, LPARAM lParam)\r
142 {\r
143   static char szDlgTitle[64];\r
144   static HANDLE hwndText;\r
145   int nItem;\r
146   RECT rect;\r
147   static int sizeX, sizeY;\r
148   int newSizeX, newSizeY, flags;\r
149   MINMAXINFO *mmi;\r
150   static BOOL filterHasFocus = FALSE;\r
151   int count;\r
152   struct GameListStats stats;\r
153   static SnapData sd;\r
154 \r
155   switch (message) {\r
156   case WM_INITDIALOG:\r
157     Translate(hDlg, DLG_GameList);\r
158     GetWindowText( hDlg, szDlgTitle, sizeof(szDlgTitle) );\r
159     szDlgTitle[ sizeof(szDlgTitle)-1 ] = '\0';\r
160 \r
161     if (gameListDialog) {\r
162       SendDlgItemMessage(hDlg, OPT_GameListText, LB_RESETCONTENT, 0, 0);\r
163     }\r
164 \r
165     /* Initialize the dialog items */\r
166     hwndText = GetDlgItem(hDlg, OPT_TagsText);\r
167 \r
168     /* Set font */\r
169     SendDlgItemMessage( hDlg, OPT_GameListText, WM_SETFONT, (WPARAM)font[boardSize][MOVEHISTORY_FONT]->hf, MAKELPARAM(TRUE, 0 ));\r
170 \r
171     count = GameListToListBox( hDlg, gameListDialog ? TRUE : FALSE, NULL, &stats );\r
172 \r
173     SendDlgItemMessage( hDlg, IDC_GameListFilter, WM_SETTEXT, 0, (LPARAM) "" );\r
174     SendDlgItemMessage( hDlg, IDC_GameListFilter, EM_SETLIMITTEXT, MAX_FILTER_LENGTH, 0 );\r
175 \r
176     filterHasFocus = FALSE;\r
177 \r
178     /* Size and position the dialog */\r
179     if (!gameListDialog) {\r
180       gameListDialog = hDlg;\r
181       flags = SWP_NOZORDER;\r
182       GetClientRect(hDlg, &rect);\r
183       sizeX = rect.right;\r
184       sizeY = rect.bottom;\r
185       if (wpGameList.x != CW_USEDEFAULT && wpGameList.y != CW_USEDEFAULT &&\r
186           wpGameList.width != CW_USEDEFAULT && wpGameList.height != CW_USEDEFAULT) {\r
187         WINDOWPLACEMENT wp;\r
188         EnsureOnScreen(&wpGameList.x, &wpGameList.y, 0, 0);\r
189         wp.length = sizeof(WINDOWPLACEMENT);\r
190         wp.flags = 0;\r
191         wp.showCmd = SW_SHOW;\r
192         wp.ptMaxPosition.x = wp.ptMaxPosition.y = 0;\r
193         wp.rcNormalPosition.left = wpGameList.x;\r
194         wp.rcNormalPosition.right = wpGameList.x + wpGameList.width;\r
195         wp.rcNormalPosition.top = wpGameList.y;\r
196         wp.rcNormalPosition.bottom = wpGameList.y + wpGameList.height;\r
197         SetWindowPlacement(hDlg, &wp);\r
198 \r
199         GetClientRect(hDlg, &rect);\r
200         newSizeX = rect.right;\r
201         newSizeY = rect.bottom;\r
202         ResizeEditPlusButtons(hDlg, hwndText, sizeX, sizeY,\r
203                               newSizeX, newSizeY);\r
204         sizeX = newSizeX;\r
205         sizeY = newSizeY;\r
206       } else\r
207         GetActualPlacement( gameListDialog, &wpGameList );\r
208 \r
209     }\r
210       GameListUpdateTitle( hDlg, _("Game List"), count, ((ListGame *) gameList.tailPred)->number, &stats ); // [HGM] always update title\r
211     GameListHighlight(lastLoadGameNumber);\r
212     return FALSE;\r
213 \r
214   case WM_SIZE:\r
215     newSizeX = LOWORD(lParam);\r
216     newSizeY = HIWORD(lParam);\r
217     ResizeEditPlusButtons(hDlg, GetDlgItem(hDlg, OPT_GameListText),\r
218       sizeX, sizeY, newSizeX, newSizeY);\r
219     sizeX = newSizeX;\r
220     sizeY = newSizeY;\r
221     break;\r
222 \r
223   case WM_ENTERSIZEMOVE:\r
224     return OnEnterSizeMove( &sd, hDlg, wParam, lParam );\r
225 \r
226   case WM_SIZING:\r
227     return OnSizing( &sd, hDlg, wParam, lParam );\r
228 \r
229   case WM_MOVING:\r
230     return OnMoving( &sd, hDlg, wParam, lParam );\r
231 \r
232   case WM_EXITSIZEMOVE:\r
233     return OnExitSizeMove( &sd, hDlg, wParam, lParam );\r
234 \r
235   case WM_GETMINMAXINFO:\r
236     /* Prevent resizing window too small */\r
237     mmi = (MINMAXINFO *) lParam;\r
238     mmi->ptMinTrackSize.x = 100;\r
239     mmi->ptMinTrackSize.y = 100;\r
240     break;\r
241 \r
242   case WM_COMMAND:\r
243       /*\r
244         [AS]\r
245         If <Enter> is pressed while editing the filter, it's better to apply\r
246         the filter rather than selecting the current game.\r
247       */\r
248       if( LOWORD(wParam) == IDC_GameListFilter ) {\r
249           switch( HIWORD(wParam) ) {\r
250           case EN_SETFOCUS:\r
251               filterHasFocus = TRUE;\r
252               break;\r
253           case EN_KILLFOCUS:\r
254               filterHasFocus = FALSE;\r
255               break;\r
256           }\r
257       }\r
258 \r
259       if( filterHasFocus && (LOWORD(wParam) == IDOK) ) {\r
260           wParam = IDC_GameListDoFilter;\r
261       }\r
262       /* [AS] End command replacement */\r
263 \r
264     switch (LOWORD(wParam)) {\r
265     case IDOK:\r
266     case OPT_GameListLoad:\r
267       nItem = SendDlgItemMessage(hDlg, OPT_GameListText, LB_GETCURSEL, 0, 0);\r
268       if (nItem < 0) {\r
269         /* is this possible? */\r
270         DisplayError(_("No game selected"), 0);\r
271         return TRUE;\r
272       }\r
273       break; /* load the game*/\r
274 \r
275     case OPT_GameListNext:\r
276       nItem = SendDlgItemMessage(hDlg, OPT_GameListText, LB_GETCURSEL, 0, 0);\r
277       nItem++;\r
278       if (nItem >= ((ListGame *) gameList.tailPred)->number) {\r
279         /* [AS] Removed error message */\r
280         /* DisplayError(_("Can't go forward any further"), 0); */\r
281         return TRUE;\r
282       }\r
283       SendDlgItemMessage(hDlg, OPT_GameListText, LB_SETCURSEL, nItem, 0);\r
284       break; /* load the game*/\r
285 \r
286     case OPT_GameListPrev:\r
287       nItem = SendDlgItemMessage(hDlg, OPT_GameListText, LB_GETCURSEL, 0, 0);\r
288       nItem--;\r
289       if (nItem < 0) {\r
290         /* [AS] Removed error message, added return */\r
291         /* DisplayError(_("Can't back up any further"), 0); */\r
292         return TRUE;\r
293       }\r
294       SendDlgItemMessage(hDlg, OPT_GameListText, LB_SETCURSEL, nItem, 0);\r
295       break; /* load the game*/\r
296 \r
297     /* [AS] */\r
298     case IDC_GameListDoFilter:\r
299         {\r
300             char filter[MAX_FILTER_LENGTH+1];\r
301 \r
302             if( GetDlgItemText( hDlg, IDC_GameListFilter, filter, sizeof(filter) ) >= 0 ) {\r
303                 filter[ sizeof(filter)-1 ] = '\0';\r
304                 count = GameListToListBox( hDlg, TRUE, filter, &stats );\r
305                 GameListUpdateTitle( hDlg, _("Game List"), count, ((ListGame *) gameList.tailPred)->number, &stats );\r
306             }\r
307         }\r
308         return FALSE;\r
309         break;\r
310 \r
311     case IDCANCEL:\r
312     case OPT_GameListClose:\r
313       GameListPopDown();\r
314       return TRUE;\r
315 \r
316     case OPT_GameListText:\r
317       switch (HIWORD(wParam)) {\r
318       case LBN_DBLCLK:\r
319         nItem = SendMessage((HWND) lParam, LB_GETCURSEL, 0, 0);\r
320         break; /* load the game*/\r
321 \r
322       default:\r
323         return FALSE;\r
324       }\r
325       break;\r
326 \r
327     default:\r
328       return FALSE;\r
329     }\r
330 \r
331     /* Load the game */\r
332     {\r
333         /* [AS] Get index from the item itself, because filtering makes original order unuseable. */\r
334         int index = SendDlgItemMessage(hDlg, OPT_GameListText, LB_GETCURSEL, 0, 0);\r
335         char * text;\r
336         LRESULT res;\r
337 \r
338         if( index < 0 ) {\r
339             return TRUE;\r
340         }\r
341 \r
342         res = SendDlgItemMessage( hDlg, OPT_GameListText, LB_GETTEXTLEN, index, 0 );\r
343 \r
344         if( res == LB_ERR ) {\r
345             return TRUE;\r
346         }\r
347 \r
348         text = (char *) malloc( res+1 );\r
349 \r
350         res = SendDlgItemMessage( hDlg, OPT_GameListText, LB_GETTEXT, index, (LPARAM)text );\r
351 \r
352         index = atoi( text );\r
353 \r
354         nItem = index - 1;\r
355 \r
356         free( text );\r
357         /* [AS] End: nItem has been "patched" now! */\r
358 \r
359         if (cmailMsgLoaded) {\r
360             CmailLoadGame(gameFile, nItem + 1, gameFileName, TRUE);\r
361         }\r
362         else {\r
363             LoadGame(gameFile, nItem + 1, gameFileName, TRUE);\r
364             SetFocus(hwndMain); // [HGM] automatic focus switch\r
365         }\r
366     }\r
367 \r
368     return TRUE;\r
369 \r
370   default:\r
371     break;\r
372   }\r
373   return FALSE;\r
374 }\r
375 \r
376 \r
377 VOID GameListPopUp(FILE *fp, char *filename)\r
378 {\r
379   FARPROC lpProc;\r
380 \r
381   gameFile = fp;\r
382   if (gameFileName != filename) {\r
383     if (gameFileName) free(gameFileName);\r
384     gameFileName = StrSave(filename);\r
385   }\r
386   CheckMenuItem(GetMenu(hwndMain), IDM_ShowGameList, MF_CHECKED);\r
387   if (gameListDialog) {\r
388     SendMessage(gameListDialog, WM_INITDIALOG, 0, 0);\r
389     if (!gameListUp) ShowWindow(gameListDialog, SW_SHOW);\r
390     else SetFocus(gameListDialog);\r
391   } else {\r
392     lpProc = MakeProcInstance((FARPROC)GameListDialog, hInst);\r
393     CreateDialog(hInst, MAKEINTRESOURCE(DLG_GameList),\r
394       hwndMain, (DLGPROC)lpProc);\r
395     FreeProcInstance(lpProc);\r
396   }\r
397   gameListUp = TRUE;\r
398 }\r
399 \r
400 VOID GameListPopDown(void)\r
401 {\r
402   CheckMenuItem(GetMenu(hwndMain), IDM_ShowGameList, MF_UNCHECKED);\r
403   if (gameListDialog) ShowWindow(gameListDialog, SW_HIDE);\r
404   gameListUp = FALSE;\r
405 }\r
406 \r
407 \r
408 VOID GameListHighlight(int index)\r
409 {\r
410   char buf[MSG_SIZ];\r
411   int i, res = 0;\r
412   if (gameListDialog == NULL) return;\r
413   for(i=0; res != LB_ERR; i++) {\r
414         res = SendDlgItemMessage( gameListDialog, OPT_GameListText, LB_GETTEXT, i, (LPARAM)buf );\r
415         if(index <= atoi( buf )) break;\r
416   }\r
417   SendDlgItemMessage(gameListDialog, OPT_GameListText,\r
418     LB_SETCURSEL, i, 0);\r
419 }\r
420 \r
421 \r
422 VOID GameListDestroy()\r
423 {\r
424   GameListPopDown();\r
425   if (gameFileName) {\r
426     free(gameFileName);\r
427     gameFileName = NULL;\r
428   }\r
429 }\r
430 \r
431 VOID ShowGameListProc()\r
432 {\r
433   if (gameListUp) {\r
434     if(gameListDialog) SetFocus(gameListDialog);\r
435 //    GameListPopDown();\r
436   } else {\r
437     if (gameFileName) {\r
438       GameListPopUp(gameFile, gameFileName);\r
439     } else {\r
440       DisplayError(_("No game list"), 0);\r
441     }\r
442   }\r
443 }\r
444 \r
445 HGLOBAL ExportGameListAsText()\r
446 {\r
447     HGLOBAL result = NULL;\r
448     LPVOID lpMem = NULL;\r
449     ListGame * lg = (ListGame *) gameList.head;\r
450     int nItem;\r
451     DWORD dwLen = 0;\r
452 \r
453     if( ! gameFileName || ((ListGame *) gameList.tailPred)->number <= 0 ) {\r
454         DisplayError(_(_("Game list not loaded or empty")), 0);\r
455         return NULL;\r
456     }\r
457 \r
458     /* Get list size */\r
459     for (nItem = 0; nItem < ((ListGame *) gameList.tailPred)->number; nItem++){\r
460         char * st = GameListLineFull(lg->number, &lg->gameInfo);\r
461 \r
462         dwLen += strlen(st) + 2; /* Add extra characters for "\r\n" */\r
463 \r
464         free(st);\r
465         lg = (ListGame *) lg->node.succ;\r
466     }\r
467 \r
468     /* Allocate memory for the list */\r
469     result = GlobalAlloc(GHND, dwLen+1 );\r
470 \r
471     if( result != NULL ) {\r
472         lpMem = GlobalLock(result);\r
473     }\r
474 \r
475     /* Copy the list into the global memory block */\r
476     if( lpMem != NULL ) {\r
477         char * dst = (char *) lpMem;\r
478         size_t len;\r
479 \r
480         lg = (ListGame *) gameList.head;\r
481 \r
482         for (nItem = 0; nItem < ((ListGame *) gameList.tailPred)->number; nItem++){\r
483             char * st = GameListLineFull(lg->number, &lg->gameInfo);\r
484 \r
485             len = sprintf( dst, "%s\r\n", st );\r
486             dst += len;\r
487 \r
488             free(st);\r
489             lg = (ListGame *) lg->node.succ;\r
490         }\r
491 \r
492         GlobalUnlock( result );\r
493     }\r
494 \r
495     return result;\r
496 }\r