projects / wxWidgets.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
Send full url to wxHtmlWindow::OnOpeningURL validation (and therefore use wxURL to...
[wxWidgets.git] / demos / poem / wxpoem.cpp
1 /////////////////////////////////////////////////////////////////////////////
2 // Name: wxpoem.cpp
3 // Purpose: A small C++ program which displays a random poem on
4 // execution. It also allows search for poems containing a
5 // string.
6 // It requires winpoem.dat and creates winpoem.idx.
7 // Original version (WinPoem) written in 1994.
8 // This has not been rewritten in a long time so
9 // beware, inelegant code!
10 // Author: Julian Smart
11 // Created: 12/12/98
12 // RCS-ID: $Id$
13 // Copyright: (c) 1998 Julian Smart
14 // Licence: wxWindows licence
15 /////////////////////////////////////////////////////////////////////////////
16
17 #ifdef __GNUG__
18 #pragma implementation "wxpoem.h"
19 #endif
20
21 // For compilers that support precompilation, includes "wx.h".
22 #include "wx/wxprec.h"
23
24 #ifdef __BORLANDC__
25 #pragma hdrstop
26 #endif
27
28 #ifndef WX_PRECOMP
29 #include "wx/wx.h"
30 #endif
31
32 #include "wxpoem.h"
33
34 #if defined(__WXGTK__) || defined(__WXMOTIF__) || defined(__WXMAC__) || defined(__WXX11__)
35 #include "corner1.xpm"
36 #include "corner2.xpm"
37 #include "corner3.xpm"
38 #include "corner4.xpm"
39 #include "wxpoem.xpm"
40 #endif
41
42 #define buf_size 10000
43 #define DEFAULT_POETRY_DAT "wxpoem"
44 #define DEFAULT_POETRY_IND "wxpoem"
45 #define DEFAULT_CHAR_HEIGHT 18
46 #define DEFAULT_FONT "Swiss"
47 #define DEFAULT_X_POS 0
48 #define DEFAULT_Y_POS 0
49 #define BORDER_SIZE 30
50 #define THIN_LINE_BORDER 10
51 #define THICK_LINE_BORDER 16
52 #define THICK_LINE_WIDTH 2
53 #define SHADOW_OFFSET 1
54 #define X_SIZE 30
55 #define Y_SIZE 20
56
57 static wxChar *poem_buffer; // Storage for each poem
58 static wxChar line[150]; // Storage for a line
59 static wxChar title[150]; // Remember the title
60 static wxChar *search_string = NULL; // The search string
61 static int pages[30]; // For multipage poems -
62 // store the start of each page
63 static long last_poem_start = 0; // Start of last found poem
64 static long last_find = -1; // Point in file of last found
65 // search string
66 static bool search_ok = false; // Search was successful
67 static bool same_search = false; // Searching on same string
68
69 static long poem_index[600]; // Index of poem starts
70 static long nitems = 0; // Number of poems
71 static int char_height = DEFAULT_CHAR_HEIGHT; // Actual height
72 static int index_ptr = -1; // Pointer into index
73 static int poem_height, poem_width; // Size of poem
74 static int XPos; // Startup X position
75 static int YPos; // Startup Y position
76 static int pointSize = 12; // Font size
77
78 static wxChar *index_filename = NULL; // Index filename
79 static wxChar *data_filename = NULL; // Data filename
80 static wxChar error_buf[300]; // Error message buffer
81 static bool loaded_ok = false; // Poem loaded ok
82 static bool index_ok = false; // Index loaded ok
83
84 static bool paging = false; // Are we paging?
85 static int current_page = 0; // Currently viewed page
86
87 wxIcon *Corner1 = NULL;
88 wxIcon *Corner2 = NULL;
89 wxIcon *Corner3 = NULL;
90 wxIcon *Corner4 = NULL;
91
92 // Fonts
93 wxFont *NormalFont = NULL;
94 wxFont *BoldFont = NULL;
95 wxFont *ItalicFont = NULL;
96
97 // Pens
98 wxPen *GreyPen = NULL;
99 wxPen *DarkGreyPen = NULL;
100 wxPen *WhitePen = NULL;
101
102 // Backing bitmap
103 wxBitmap *backingBitmap = NULL;
104
105 void PoetryError(wxChar *, wxChar *caption=_T("wxPoem Error"));
106 void PoetryNotify(wxChar *Msg, wxChar *caption=_T("wxPoem"));
107 void TryLoadIndex();
108 bool LoadPoem(wxChar *, long);
109 int GetIndex();
110 int LoadIndex(wxChar *);
111 bool Compile(void);
112 void WritePreferences();
113 void ReadPreferences();
114 void FindMax(int *max_thing, int thing);
115 void CreateFonts();
116
117 #if wxUSE_CLIPBOARD
118 #include "wx/dataobj.h"
119 #include "wx/clipbrd.h"
120 #endif
121
122 #ifdef __WXWINCE__
123 STDAPI_(__int64) CeGetRandomSeed();
124 #endif
125
126 IMPLEMENT_APP(MyApp)
127
128 MainWindow *TheMainWindow = NULL;
129
130 // Create the fonts
131 void CreateFonts()
132 {
133 NormalFont = wxTheFontList->FindOrCreateFont(pointSize, wxSWISS, wxNORMAL, wxNORMAL);
134 BoldFont = wxTheFontList->FindOrCreateFont(pointSize, wxSWISS, wxNORMAL, wxBOLD);
135 ItalicFont = wxTheFontList->FindOrCreateFont(pointSize, wxSWISS, wxITALIC, wxNORMAL);
136 }
137
138 BEGIN_EVENT_TABLE(MainWindow, wxFrame)
139 EVT_CLOSE(MainWindow::OnCloseWindow)
140 EVT_CHAR(MainWindow::OnChar)
141 EVT_MENU(wxID_ANY, MainWindow::OnPopup)
142 END_EVENT_TABLE()
143
144 MainWindow::MainWindow(wxFrame *frame, wxWindowID id, const wxString& title,
145 const wxPoint& pos, const wxSize& size, long style):
146 wxFrame(frame, id, title, pos, size, style)
147 {
148 }
149
150 // Read the poetry buffer, either for finding the size
151 // or for writing to a bitmap (not to the window directly,
152 // since that displays messily)
153 // If DrawIt is true, we draw, otherwise we just determine the
154 // size the window should be.
155 void MainWindow::ScanBuffer(wxDC *dc, bool DrawIt, int *max_x, int *max_y)
156 {
157 int i = pages[current_page];
158 int ch = -1;
159 int y = 0;
160 int j;
161 wxChar *line_ptr;
162 int curr_width = 0;
163 bool page_break = false;
164
165 int width = 0;
166 int height = 0;
167
168 if (DrawIt)
169 {
170 y = (*max_y - poem_height)/2;
171 width = *max_x;
172 height = *max_y;
173 }
174
175 if (DrawIt && wxColourDisplay())
176 {
177 dc->SetBrush(*wxLIGHT_GREY_BRUSH);
178 dc->SetPen(*GreyPen);
179 dc->DrawRectangle(0, 0, width, height);
180 dc->SetBackgroundMode(wxTRANSPARENT);
181 }
182
183 // See what ACTUAL char height is
184 dc->SetFont(* NormalFont);
185 long xx;
186 long yy;
187 dc->GetTextExtent(_T("X"), &xx, &yy);
188 char_height = (int)yy;
189
190 if (current_page == 0)
191 title[0] = 0;
192 else if (title[0] != 0)
193 {
194 dc->SetFont(* BoldFont);
195 dc->GetTextExtent(title, &xx, &yy);
196 FindMax(&curr_width, (int)xx);
197
198 if (DrawIt)
199 {
200 int x = (width - xx)/2;
201 dc->SetFont(* BoldFont);
202
203 // Change text to BLACK!
204 dc->SetTextForeground(* wxBLACK);
205 dc->DrawText(title, x, y);
206 // Change text to WHITE!
207 dc->SetTextForeground(* wxWHITE);
208 dc->DrawText(title, x-SHADOW_OFFSET, y-SHADOW_OFFSET);
209 }
210 y += char_height;
211 y += char_height;
212 }
213
214 while (ch != 0 && !page_break)
215 {
216 j = 0;
217 #if defined(__WXMSW__) || defined(__WXMAC__)
218 while (((ch = poem_buffer[i]) != 13) && (ch != 0))
219 #else
220 while (((ch = poem_buffer[i]) != 10) && (ch != 0))
221 #endif
222 {
223 line[j] = (wxChar)ch;
224 j ++;
225 i ++;
226 }
227
228 #if defined(__WXMSW__) || defined(__WXMAC__)
229 if (ch == 13)
230 #else
231 if (ch == 10)
232 #endif
233 {
234 ch = -1;
235 i ++;
236 #if defined(__WXMSW__) || defined(__WXMAC__)
237 // Add another to skip the linefeed
238 i ++;
239 #endif
240 // If a single newline on its own, put a space in
241 if (j == 0)
242 {
243 line[j] = ' ';
244 j ++;
245 line[j] = 0;
246 }
247 }
248
249 if (j > 0)
250 {
251 line[j] = 0;
252 if (line[0] == '@')
253 {
254 switch (line[1])
255 {
256 case 'P':
257 paging = true;
258 page_break = true;
259 break;
260
261 case 'T':
262 dc->SetFont(* BoldFont);
263 line_ptr = line+3;
264
265 wxStrcpy(title, line_ptr);
266 wxStrcat(title, _T(" (cont'd)"));
267
268 dc->GetTextExtent(line_ptr, &xx, &yy);
269 FindMax(&curr_width, (int)xx);
270
271 if (DrawIt)
272 {
273 int x = (width - xx)/2;
274 dc->SetFont(* BoldFont);
275
276 // Change text to BLACK!
277 dc->SetTextForeground(* wxBLACK);
278 dc->DrawText(line_ptr, x, y);
279
280 // Change text to WHITE!
281 dc->SetTextForeground(* wxWHITE);
282 dc->DrawText(line_ptr, x-SHADOW_OFFSET, y-SHADOW_OFFSET);
283 dc->SetTextForeground(* wxWHITE);
284 }
285 break;
286
287 case 'A':
288 line_ptr = line+3;
289 dc->SetFont(* ItalicFont);
290
291 dc->GetTextExtent(line_ptr, &xx, &yy);
292 FindMax(&curr_width, (int)xx);
293
294 if (DrawIt)
295 {
296 int x = (width - xx)/2;
297 dc->SetTextForeground(* wxBLACK);
298 dc->DrawText(line_ptr, x, y);
299 }
300 break;
301
302 // Default: just ignore this line
303 default:
304 y -= char_height;
305 }
306 }
307 else
308 {
309 dc->SetFont(* NormalFont);
310
311 dc->GetTextExtent(line, &xx, &yy);
312 FindMax(&curr_width, (int)xx);
313
314 if (DrawIt)
315 {
316 int x = (int)((width - xx)/2.0);
317 dc->SetFont(* NormalFont);
318 dc->SetTextForeground(* wxBLACK);
319 dc->DrawText(line, x, y);
320 }
321 }
322 }
323 y += char_height;
324 }
325
326 // Write (cont'd)
327 if (page_break)
328 {
329 wxChar *cont = _T("(cont'd)");
330
331 dc->SetFont(* NormalFont);
332
333 dc->GetTextExtent(cont, &xx, &yy);
334 FindMax(&curr_width, (int)xx);
335 if (DrawIt)
336 {
337 int x = (int)((width - xx)/2.0);
338 dc->SetFont(* NormalFont);
339 dc->SetTextForeground(* wxBLACK);
340 dc->DrawText(cont, x, y);
341 }
342 y += 2*char_height;
343 }
344
345 *max_x = (int)curr_width;
346 *max_y = (int)(y-char_height);
347
348 if (page_break)
349 pages[current_page+1] = i;
350 else
351 paging = false;
352
353 if (DrawIt)
354 {
355 // Draw dark grey thick border
356 if (wxColourDisplay())
357 {
358 dc->SetBrush(*wxGREY_BRUSH);
359 dc->SetPen(*wxGREY_PEN);
360
361 // Left side
362 dc->DrawRectangle(0, 0, THIN_LINE_BORDER, height);
363 // Top side
364 dc->DrawRectangle(THIN_LINE_BORDER, 0, width-THIN_LINE_BORDER, THIN_LINE_BORDER);
365 // Right side
366 dc->DrawRectangle(width-THIN_LINE_BORDER, THIN_LINE_BORDER, width, height-THIN_LINE_BORDER);
367 // Bottom side
368 dc->DrawRectangle(THIN_LINE_BORDER, height-THIN_LINE_BORDER, width-THIN_LINE_BORDER, height);
369 }
370 // Draw border
371 // Have grey background, plus 3-d border -
372 // One black rectangle.
373 // Inside this, left and top sides - dark grey. Bottom and right -
374 // white.
375
376 // Change pen to black
377 dc->SetPen(*wxBLACK_PEN);
378 dc->DrawLine(THIN_LINE_BORDER, THIN_LINE_BORDER, width-THIN_LINE_BORDER, THIN_LINE_BORDER);
379 dc->DrawLine(width-THIN_LINE_BORDER, THIN_LINE_BORDER, width-THIN_LINE_BORDER, height-THIN_LINE_BORDER);
380 dc->DrawLine(width-THIN_LINE_BORDER, height-THIN_LINE_BORDER, THIN_LINE_BORDER, height-THIN_LINE_BORDER);
381 dc->DrawLine(THIN_LINE_BORDER, height-THIN_LINE_BORDER, THIN_LINE_BORDER, THIN_LINE_BORDER);
382
383 // Right and bottom white lines - 'grey' (black!) if
384 // we're running on a mono display.
385 if (wxColourDisplay())
386 dc->SetPen(*WhitePen);
387 else
388 dc->SetPen(*DarkGreyPen);
389
390 dc->DrawLine(width-THICK_LINE_BORDER, THICK_LINE_BORDER,
391 width-THICK_LINE_BORDER, height-THICK_LINE_BORDER);
392 dc->DrawLine(width-THICK_LINE_BORDER, height-THICK_LINE_BORDER,
393 THICK_LINE_BORDER, height-THICK_LINE_BORDER);
394
395 // Left and top grey lines
396 dc->SetPen(*DarkGreyPen);
397 dc->DrawLine(THICK_LINE_BORDER, height-THICK_LINE_BORDER,
398 THICK_LINE_BORDER, THICK_LINE_BORDER);
399 dc->DrawLine(THICK_LINE_BORDER, THICK_LINE_BORDER,
400 width-THICK_LINE_BORDER, THICK_LINE_BORDER);
401
402 //#ifdef __WXMSW__
403 // Draw icons
404 dc->DrawIcon(* Corner1, 0, 0);
405 dc->DrawIcon(* Corner2, int(width-32), 0);
406
407 int y2 = height - 32;
408 int x2 = (width-32);
409 dc->DrawIcon(* Corner3, 0, y2);
410 dc->DrawIcon(* Corner4, x2, y2);
411 //#endif
412 }
413 }
414
415 // Get an index (randomly generated) and load the poem
416 void MainWindow::GetIndexLoadPoem(void)
417 {
418 if (index_ok)
419 index_ptr = GetIndex();
420
421 if (index_ptr > -1)
422 loaded_ok = LoadPoem(data_filename, -1);
423 }
424
425 // Find the size of the poem and resize the window accordingly
426 void MainWindow::Resize(void)
427 {
428 wxClientDC dc(canvas);
429
430 // Get the poem size
431 ScanBuffer(& dc, false, &poem_width, &poem_height);
432 int x = poem_width + (2*BORDER_SIZE);
433 int y = poem_height + (2*BORDER_SIZE);
434
435 SetClientSize(x, y);
436
437 // In case client size isn't what we set it to...
438 int xx, yy;
439 GetClientSize(&xx, &yy);
440
441 wxMemoryDC memDC;
442 if (backingBitmap) delete backingBitmap;
443 backingBitmap = new wxBitmap(x, yy);
444 memDC.SelectObject(* backingBitmap);
445
446 memDC.Clear();
447 TheMainWindow->ScanBuffer(&memDC, true, &xx, &yy);
448 }
449
450 // Which is more?
451 void FindMax(int *max_thing, int thing)
452 {
453 if (thing > *max_thing)
454 *max_thing = thing;
455 }
456
457 // Next page/poem
458 void MainWindow::NextPage(void)
459 {
460 if (paging)
461 current_page ++;
462 else
463 {
464 current_page = 0;
465 GetIndexLoadPoem();
466 }
467 Resize();
468 }
469
470 // Previous page
471 void MainWindow::PreviousPage(void)
472 {
473 if (current_page > 0)
474 {
475 current_page --;
476 Resize();
477 }
478 }
479
480 // Search for a string
481 void MainWindow::Search(bool ask)
482 {
483 long position;
484
485 if (ask || !search_string)
486 {
487 wxString s = wxGetTextFromUser( _T("Enter search string"), _T("Search"), (const wxChar*) search_string);
488 if (s != wxEmptyString)
489 {
490 s.MakeLower();
491 if (search_string) delete[] search_string;
492 search_string = wxStrcpy(new wxChar[wxStrlen(s.c_str()) + 1], s.c_str());
493 search_ok = true;
494 } else search_ok = false;
495 }
496 else
497 {
498 same_search = true;
499 search_ok = true;
500 }
501
502 if (search_string && search_ok)
503 {
504 position = DoSearch();
505 if (position > -1)
506 {
507 loaded_ok = LoadPoem(data_filename, position);
508 Resize();
509 }
510 else
511 {
512 last_poem_start = 0;
513 PoetryNotify(_T("Search string not found."));
514 }
515 }
516 }
517
518 bool MyApp::OnInit()
519 {
520 poem_buffer = new wxChar[buf_size];
521
522 GreyPen = new wxPen(_T("LIGHT GREY"), THICK_LINE_WIDTH, wxSOLID);
523 DarkGreyPen = new wxPen(_T("GREY"), THICK_LINE_WIDTH, wxSOLID);
524 WhitePen = new wxPen(_T("WHITE"), THICK_LINE_WIDTH, wxSOLID);
525
526 CreateFonts();
527
528 ReadPreferences();
529
530 // Seed the random number generator
531 #ifdef __WXWINCE__
532 srand((unsigned) CeGetRandomSeed());
533 #else
534 time_t current_time;
535
536 (void)time(&current_time);
537 srand((unsigned int)current_time);
538 #endif
539
540 // randomize();
541 pages[0] = 0;
542
543 TheMainWindow = new MainWindow(NULL,
544 wxID_ANY,
545 _T("wxPoem"),
546 wxPoint(XPos, YPos),
547 wxDefaultSize,
548 wxCAPTION|wxMINIMIZE_BOX|wxSYSTEM_MENU|wxCLOSE_BOX|wxFULL_REPAINT_ON_RESIZE
549 );
550
551 TheMainWindow->SetIcon(wxICON(wxpoem));
552
553 TheMainWindow->canvas = new MyCanvas(TheMainWindow, 501, wxDefaultPosition, wxDefaultSize);
554
555 if (argc > 1)
556 {
557 index_filename = wxStrcpy(new wxChar[wxStrlen(argv[1]) + 1], argv[1]);
558 data_filename = wxStrcpy(new wxChar[wxStrlen(argv[1]) + 1], argv[1]);
559 }
560 else
561 {
562 index_filename = _T(DEFAULT_POETRY_IND);
563 data_filename = _T(DEFAULT_POETRY_DAT);
564 }
565 TryLoadIndex();
566
567 #ifdef __WXMSW__
568 Corner1 = new wxIcon(_T("icon_1"));
569 Corner2 = new wxIcon(_T("icon_2"));
570 Corner3 = new wxIcon(_T("icon_3"));
571 Corner4 = new wxIcon(_T("icon_4"));
572 #endif
573 #if defined(__WXGTK__) || defined(__WXMOTIF__) || defined(__WXMAC__) || defined(__WXX11__)
574 Corner1 = new wxIcon( corner1_xpm );
575 Corner2 = new wxIcon( corner2_xpm );
576 Corner3 = new wxIcon( corner3_xpm );
577 Corner4 = new wxIcon( corner4_xpm );
578 #endif
579
580 TheMainWindow->GetIndexLoadPoem();
581 TheMainWindow->Resize();
582 TheMainWindow->Show(true);
583
584 return true;
585 }
586
587 int MyApp::OnExit()
588 {
589 if (backingBitmap)
590 delete backingBitmap;
591 delete GreyPen;
592 delete DarkGreyPen;
593 delete WhitePen;
594
595 delete Corner1;
596 delete Corner2;
597 delete Corner3;
598 delete Corner4;
599
600 delete[] poem_buffer;
601 if (search_string)
602 delete[] search_string;
603
604 return 0;
605 }
606
607 void MainWindow::OnCloseWindow(wxCloseEvent& WXUNUSED(event))
608 {
609 WritePreferences();
610 this->Destroy();
611 }
612
613 void MainWindow::OnChar(wxKeyEvent& event)
614 {
615 canvas->OnChar(event);
616 }
617
618 BEGIN_EVENT_TABLE(MyCanvas, wxWindow)
619 EVT_MOUSE_EVENTS(MyCanvas::OnMouseEvent)
620 EVT_CHAR(MyCanvas::OnChar)
621 EVT_PAINT(MyCanvas::OnPaint)
622 END_EVENT_TABLE()
623
624 // Define a constructor for my canvas
625 MyCanvas::MyCanvas(wxFrame *frame, wxWindowID id, const wxPoint& pos, const wxSize& size):
626 wxWindow(frame, id, pos, size)
627 {
628 popupMenu = new wxMenu;
629 popupMenu->Append(POEM_NEXT, _T("Next poem/page"));
630 popupMenu->Append(POEM_PREVIOUS, _T("Previous page"));
631 popupMenu->AppendSeparator();
632 popupMenu->Append(POEM_SEARCH, _T("Search"));
633 popupMenu->Append(POEM_NEXT_MATCH, _T("Next match"));
634 popupMenu->Append(POEM_COPY, _T("Copy to clipboard"));
635 popupMenu->Append(POEM_MINIMIZE, _T("Minimize"));
636 popupMenu->AppendSeparator();
637 popupMenu->Append(POEM_BIGGER_TEXT, _T("Bigger text"));
638 popupMenu->Append(POEM_SMALLER_TEXT, _T("Smaller text"));
639 popupMenu->AppendSeparator();
640 popupMenu->Append(POEM_ABOUT, _T("About wxPoem"));
641 popupMenu->AppendSeparator();
642 popupMenu->Append(POEM_EXIT, _T("Exit"));
643 }
644
645 MyCanvas::~MyCanvas()
646 {
647 // Note: this must be done before the main window/canvas are destroyed
648 // or we get an error (no parent window for menu item button)
649 delete popupMenu;
650 popupMenu = NULL;
651 }
652
653 // Define the repainting behaviour
654 void MyCanvas::OnPaint(wxPaintEvent& WXUNUSED(event))
655 {
656 wxPaintDC dc(this);
657
658 if (backingBitmap)
659 {
660 int xx, yy;
661 TheMainWindow->GetClientSize(&xx, &yy);
662
663 dc.DrawBitmap(* backingBitmap, 0, 0);
664 #if 0
665 wxMemoryDC memDC;
666 memDC.SelectObject(* backingBitmap);
667 dc.Blit(0, 0, backingBitmap->GetWidth(), backingBitmap->GetHeight(), &memDC, 0, 0);
668 #endif
669 }
670 }
671
672 void MyCanvas::OnMouseEvent(wxMouseEvent& event)
673 {
674 static int startPosX, startPosY, startFrameX, startFrameY;
675
676 long x, y;
677 event.GetPosition(&x, &y);
678
679 if (event.RightDown())
680 {
681 // Versions from wxWin 1.67 are probably OK
682 PopupMenu(popupMenu, (int)x, (int)y );
683 }
684 else if (event.LeftDown())
685 {
686 this->CaptureMouse();
687 int x1 = (int)x;
688 int y1 = (int)y;
689 ClientToScreen(&x1, &y1);
690 startPosX = x1;
691 startPosY = y1;
692 GetParent()->GetPosition(&startFrameX, &startFrameY);
693 }
694 else if (event.LeftUp())
695 {
696 if (GetCapture() == this) this->ReleaseMouse();
697 }
698 else if (event.Dragging() && event.LeftIsDown())
699 {
700 int x1 = (int)x;
701 int y1 = (int)y;
702 ClientToScreen(&x1, &y1);
703
704 int dX = x1 - startPosX;
705 int dY = y1 - startPosY;
706 GetParent()->Move(startFrameX + dX, startFrameY + dY);
707 }
708 }
709
710 // Process characters
711 void MyCanvas::OnChar(wxKeyEvent& event)
712 {
713 switch (event.GetKeyCode())
714 {
715 case 'n':
716 case 'N':
717 // Next match
718 TheMainWindow->Search(false);
719 break;
720 case 's':
721 case 'S':
722 // New search
723 TheMainWindow->Search(true);
724 break;
725 case WXK_SPACE:
726 case WXK_RIGHT:
727 case WXK_DOWN:
728 // Another poem
729 TheMainWindow->NextPage();
730 break;
731 case WXK_ESCAPE:
732 TheMainWindow->Close(true);
733 default:
734 break;
735 }
736 }
737
738 // Load index file
739 int LoadIndex(wxChar *file_name)
740 {
741 long data;
742 FILE *index_file;
743
744 wxChar buf[100];
745
746 if (file_name == NULL)
747 return 0;
748
749 wxSprintf(buf, _T("%s.idx"), file_name);
750
751 index_file = wxFopen(buf, _T("r"));
752 if (index_file == NULL)
753 return 0;
754
755 wxFscanf(index_file, _T("%ld"), &nitems);
756
757 for (int i = 0; i < nitems; i++)
758 {
759 wxFscanf(index_file, _T("%ld"), &data);
760 poem_index[i] = data;
761 }
762
763 fclose(index_file);
764
765 return 1;
766 }
767
768 // Get index
769 int GetIndex()
770 {
771 int indexn = (int)(rand() % nitems);
772
773 if ((indexn < 0) || (indexn > nitems))
774 { PoetryError(_T("No such poem!"));
775 return -1;
776 }
777 else
778 return indexn;
779 }
780
781 // Read preferences
782 void ReadPreferences()
783 {
784 #if wxUSE_RESOURCES
785 wxGetResource(_T("wxPoem"), _T("FontSize"), &pointSize);
786 wxGetResource(_T("wxPoem"), _T("X"), &XPos);
787 wxGetResource(_T("wxPoem"), _T("Y"), &YPos);
788 #endif
789 }
790
791 // Write preferences to disk
792 void WritePreferences()
793 {
794 #ifdef __WXMSW__
795 TheMainWindow->GetPosition(&XPos, &YPos);
796 #if wxUSE_RESOURCES
797 wxWriteResource(_T("wxPoem"), _T("FontSize"), pointSize);
798 wxWriteResource(_T("wxPoem"), _T("X"), XPos);
799 wxWriteResource(_T("wxPoem"), _T("Y"), YPos);
800 #endif
801 #endif
802 }
803
804 // Load a poem from given file, at given point in file.
805 // If position is > -1, use this for the position in the
806 // file, otherwise use index[index_ptr] to find the correct position.
807 bool LoadPoem(wxChar *file_name, long position)
808 {
809 // int j = 0;
810 // int indexn = 0;
811 wxChar buf[100];
812 long data;
813 FILE *data_file;
814
815 paging = false;
816 current_page = 0;
817
818 if (file_name == NULL)
819 {
820 wxSprintf(error_buf, _T("Error in Poem loading."));
821 PoetryError(error_buf);
822 return false;
823 }
824
825 wxSprintf(buf, _T("%s.dat"), file_name);
826 data_file = wxFopen(buf, _T("r"));
827
828 if (data_file == NULL)
829 {
830 wxSprintf(error_buf, _T("Data file %s not found."), buf);
831 PoetryError(error_buf);
832 return false;
833 }
834
835 if (position > -1)
836 data = position;
837 else
838 data = poem_index[index_ptr];
839
840 fseek(data_file, data, SEEK_SET);
841
842 int ch = 0;
843 int i = 0;
844 while ((ch != EOF) && (ch != '#'))
845 {
846 ch = getc(data_file);
847 // Add a linefeed so it will copy to the clipboard ok
848 if (ch == 10)
849 {
850 poem_buffer[i] = 13;
851 i++;
852 }
853
854 poem_buffer[i] = (wxChar)ch;
855 i ++;
856
857 if (i == buf_size)
858 {
859 wxSprintf(error_buf, _T("%s"), _T("Poetry buffer exceeded."));
860 PoetryError(error_buf);
861 return false;
862 }
863 }
864 fclose(data_file);
865 poem_buffer[i-1] = 0;
866 return true;
867 }
868
869 // Do the search
870 long MainWindow::DoSearch(void)
871 {
872 if (!search_string)
873 return false;
874
875 FILE *file;
876 long i = 0;
877 int ch = 0;
878 wxChar buf[100];
879 long find_start;
880 long previous_poem_start;
881
882 bool found = false;
883 int search_length = wxStrlen(search_string);
884
885 if (same_search)
886 {
887 find_start = last_find + 1;
888 previous_poem_start = last_poem_start;
889 }
890 else
891 {
892 find_start = 0;
893 last_poem_start = 0;
894 previous_poem_start = -1;
895 }
896
897 if (data_filename)
898 wxSprintf(buf, _T("%s.dat"), data_filename);
899
900 file = wxFopen(buf, _T("r"));
901 if (! (data_filename && file))
902 {
903 wxSprintf(error_buf, _T("Poetry data file %s not found\n"), buf);
904 PoetryError(error_buf);
905 return false;
906 }
907
908 fseek(file, find_start, SEEK_SET);
909
910 while ((ch != EOF) && !found)
911 {
912 ch = getc(file);
913 ch = wxTolower(ch); // Make lower case
914
915 // Only match if we're looking at a different poem
916 // (no point in displaying the same poem again)
917 if ((ch == search_string[i]) && (last_poem_start != previous_poem_start))
918 {
919 if (i == 0)
920 last_find = ftell(file);
921 if (i == search_length-1)
922 found = true;
923 i ++;
924 }
925 else
926 i = 0;
927
928 if (ch == '#')
929 {
930 ch = getc(file);
931 last_poem_start = ftell(file);
932 }
933 }
934 fclose(file);
935 if (ch == EOF)
936 last_find = -1;
937
938 if (found)
939 {
940 return last_poem_start;
941 }
942 else
943 return -1;
944 }
945
946 // Set up poetry filenames, preferences, load the index
947 // Load index (or compile it if none found)
948 void TryLoadIndex()
949 {
950 index_ok = (LoadIndex(index_filename) != 0);
951 if (!index_ok || (nitems == 0))
952 {
953 PoetryError(_T("Index file not found; will compile new one"), _T("wxPoem"));
954 index_ok = Compile();
955 }
956 }
957
958 // Error message
959 void PoetryError(wxChar *msg, wxChar *caption)
960 {
961 wxMessageBox(msg, caption, wxOK|wxICON_EXCLAMATION);
962 }
963
964 // Notification (change icon to something appropriate!)
965 void PoetryNotify(wxChar *Msg, wxChar *caption)
966 {
967 wxMessageBox(Msg, caption, wxOK | wxICON_INFORMATION);
968 }
969
970 // Build up and save an index into the poetry data file, for
971 // rapid random access
972 bool Compile(void)
973 {
974 FILE *file;
975 int j;
976 int ch;
977 wxChar buf[100];
978
979 if (data_filename)
980 wxSprintf(buf, _T("%s.dat"), data_filename);
981
982 file = wxFopen(buf, _T("r"));
983 if (! (data_filename && file))
984 {
985 wxSprintf(error_buf, _T("Poetry data file %s not found\n"), buf);
986 PoetryError(error_buf);
987 return false;
988 }
989
990 nitems = 0;
991
992 // Do first one (?)
993 poem_index[nitems] = 0;
994 nitems ++;
995
996 // Do rest
997
998 do {
999 ch = getc(file);
1000 if (ch == '#')
1001 {
1002 ch = getc(file);
1003 long data;
1004 data = ftell(file);
1005 poem_index[nitems] = data;
1006 nitems ++;
1007 }
1008 } while (ch != EOF);
1009 fclose(file);
1010
1011 if (index_filename)
1012 wxSprintf(buf, _T("%s.idx"), index_filename);
1013
1014 file = wxFopen(buf, _T("w"));
1015 if (! (data_filename && file))
1016 {
1017 wxSprintf(error_buf, _T("Poetry index file %s cannot be created\n"), buf);
1018 PoetryError(error_buf);
1019 return false;
1020 }
1021
1022 wxFprintf(file, _T("%ld\n\n"), nitems);
1023 for (j = 0; j < nitems; j++)
1024 wxFprintf(file, _T("%ld\n"), poem_index[j]);
1025
1026 fclose(file);
1027 PoetryNotify(_T("Poetry index compiled."));
1028 return true;
1029 }
1030
1031 void MainWindow::OnPopup(wxCommandEvent& event)
1032 {
1033 switch (event.GetId())
1034 {
1035 case POEM_NEXT:
1036 // Another poem/page
1037 TheMainWindow->NextPage();
1038 break;
1039 case POEM_PREVIOUS:
1040 // Previous page
1041 TheMainWindow->PreviousPage();
1042 break;
1043 case POEM_SEARCH:
1044 // Search - with dialog
1045 TheMainWindow->Search(true);
1046 break;
1047 case POEM_NEXT_MATCH:
1048 // Search - without dialog (next match)
1049 TheMainWindow->Search(false);
1050 break;
1051 case POEM_MINIMIZE:
1052 TheMainWindow->Iconize(true);
1053 break;
1054 #if wxUSE_CLIPBOARD
1055 case POEM_COPY:
1056 wxTheClipboard->UsePrimarySelection();
1057 if (wxTheClipboard->Open())
1058 {
1059 static wxString s;
1060 s = poem_buffer;
1061 s.Replace( _T("@P"),_T(""));
1062 s.Replace( _T("@A "),_T(""));
1063 s.Replace( _T("@A"),_T(""));
1064 s.Replace( _T("@T "),_T(""));
1065 s.Replace( _T("@T"),_T(""));
1066 wxTextDataObject *data = new wxTextDataObject( s.c_str() );
1067 if (!wxTheClipboard->SetData( data ))
1068 wxMessageBox(_T("Error while copying to the clipboard."));
1069 }
1070 else
1071 {
1072 wxMessageBox(_T("Error opening the clipboard."));
1073 }
1074 wxTheClipboard->Close();
1075 break;
1076 #endif
1077 case POEM_COMPILE:
1078 // Compile index
1079 Compile();
1080 break;
1081 case POEM_BIGGER_TEXT:
1082 {
1083 pointSize ++;
1084 CreateFonts();
1085 TheMainWindow->Resize();
1086 break;
1087 }
1088 case POEM_SMALLER_TEXT:
1089 {
1090 if (pointSize > 2)
1091 {
1092 pointSize --;
1093 CreateFonts();
1094 TheMainWindow->Resize();
1095 }
1096 break;
1097 }
1098 case POEM_ABOUT:
1099 {
1100 (void)wxMessageBox(_T("wxPoem Version 1.1\nJulian Smart (c) 1995"),
1101 _T("About wxPoem"), wxOK, TheMainWindow);
1102 break;
1103 }
1104 case POEM_EXIT:
1105 // Exit
1106 TheMainWindow->Close(true);
1107 break;
1108 default:
1109 break;
1110 }
1111 }
wxWidgets (Impactor)