OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [boehm-gc/] [cord/] [de_win.c] - Blame information for rev 721

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 721 jeremybenn
/*
2
 * Copyright (c) 1994 by Xerox Corporation.  All rights reserved.
3
 *
4
 * THIS MATERIAL IS PROVIDED AS IS, WITH ABSOLUTELY NO WARRANTY EXPRESSED
5
 * OR IMPLIED.  ANY USE IS AT YOUR OWN RISK.
6
 *
7
 * Permission is hereby granted to use or copy this program
8
 * for any purpose,  provided the above notices are retained on all copies.
9
 * Permission to modify the code and to distribute modified code is granted,
10
 * provided the above notices are retained, and a notice that the code was
11
 * modified is included with the above copyright notice.
12
 */
13
/* Boehm, February 6, 1995 12:29 pm PST */
14
 
15
/*
16
 * The MS Windows specific part of de.
17
 * This started as the generic Windows application template
18
 * made available by Rob Haack (rhaack@polaris.unm.edu), but
19
 * significant parts didn't survive to the final version.
20
 *
21
 * This was written by a nonexpert windows programmer.
22
 */
23
 
24
 
25
#include "windows.h"
26
#include "gc.h"
27
#include "cord.h"
28
#include "de_cmds.h"
29
#include "de_win.h"
30
 
31
int LINES = 0;
32
int COLS = 0;
33
 
34
char       szAppName[]     = "DE";
35
char       FullAppName[]   = "Demonstration Editor";
36
 
37
HWND        hwnd;
38
 
39
void de_error(char *s)
40
{
41
    MessageBox( hwnd, (LPSTR) s,
42
                (LPSTR) FullAppName,
43
                MB_ICONINFORMATION | MB_OK );
44
    InvalidateRect(hwnd, NULL, TRUE);
45
}
46
 
47
int APIENTRY WinMain (HINSTANCE hInstance, HINSTANCE hPrevInstance,
48
                      LPSTR command_line, int nCmdShow)
49
{
50
   MSG         msg;
51
   WNDCLASS    wndclass;
52
   HANDLE      hAccel;
53
 
54
   if (!hPrevInstance)
55
   {
56
      wndclass.style          = CS_HREDRAW | CS_VREDRAW;
57
      wndclass.lpfnWndProc    = WndProc;
58
      wndclass.cbClsExtra     = 0;
59
      wndclass.cbWndExtra     = DLGWINDOWEXTRA;
60
      wndclass.hInstance      = hInstance;
61
      wndclass.hIcon          = LoadIcon (hInstance, szAppName);
62
      wndclass.hCursor        = LoadCursor (NULL, IDC_ARROW);
63
      wndclass.hbrBackground  = GetStockObject(WHITE_BRUSH);
64
      wndclass.lpszMenuName   = "DE";
65
      wndclass.lpszClassName  = szAppName;
66
 
67
      if (RegisterClass (&wndclass) == 0) {
68
          char buf[50];
69
 
70
          sprintf(buf, "RegisterClass: error code: 0x%X", GetLastError());
71
          de_error(buf);
72
          return(0);
73
      }
74
   }
75
 
76
   /* Empirically, the command line does not include the command name ...
77
   if (command_line != 0) {
78
       while (isspace(*command_line)) command_line++;
79
       while (*command_line != 0 && !isspace(*command_line)) command_line++;
80
       while (isspace(*command_line)) command_line++;
81
   } */
82
 
83
   if (command_line == 0 || *command_line == 0) {
84
        de_error("File name argument required");
85
        return( 0 );
86
   } else {
87
        char *p = command_line;
88
 
89
        while (*p != 0 && !isspace(*p)) p++;
90
        arg_file_name = CORD_to_char_star(
91
                            CORD_substr(command_line, 0, p - command_line));
92
   }
93
 
94
   hwnd = CreateWindow (szAppName,
95
                        FullAppName,
96
                        WS_OVERLAPPEDWINDOW | WS_CAPTION, /* Window style */
97
                        CW_USEDEFAULT, 0, /* default pos. */
98
                        CW_USEDEFAULT, 0, /* default width, height */
99
                        NULL,   /* No parent */
100
                        NULL,   /* Window class menu */
101
                        hInstance, NULL);
102
   if (hwnd == NULL) {
103
        char buf[50];
104
 
105
        sprintf(buf, "CreateWindow: error code: 0x%X", GetLastError());
106
        de_error(buf);
107
        return(0);
108
   }
109
 
110
   ShowWindow (hwnd, nCmdShow);
111
 
112
   hAccel = LoadAccelerators( hInstance, szAppName );
113
 
114
   while (GetMessage (&msg, NULL, 0, 0))
115
   {
116
      if( !TranslateAccelerator( hwnd, hAccel, &msg ) )
117
      {
118
         TranslateMessage (&msg);
119
         DispatchMessage (&msg);
120
      }
121
   }
122
   return msg.wParam;
123
}
124
 
125
/* Return the argument with all control characters replaced by blanks.  */
126
char * plain_chars(char * text, size_t len)
127
{
128
    char * result = GC_MALLOC_ATOMIC(len + 1);
129
    register size_t i;
130
 
131
    for (i = 0; i < len; i++) {
132
       if (iscntrl(text[i])) {
133
           result[i] = ' ';
134
       } else {
135
           result[i] = text[i];
136
       }
137
    }
138
    result[len] = '\0';
139
    return(result);
140
}
141
 
142
/* Return the argument with all non-control-characters replaced by      */
143
/* blank, and all control characters c replaced by c + 32.              */
144
char * control_chars(char * text, size_t len)
145
{
146
    char * result = GC_MALLOC_ATOMIC(len + 1);
147
    register size_t i;
148
 
149
    for (i = 0; i < len; i++) {
150
       if (iscntrl(text[i])) {
151
           result[i] = text[i] + 0x40;
152
       } else {
153
           result[i] = ' ';
154
       }
155
    }
156
    result[len] = '\0';
157
    return(result);
158
}
159
 
160
int char_width;
161
int char_height;
162
 
163
void get_line_rect(int line, int win_width, RECT * rectp)
164
{
165
    rectp -> top = line * char_height;
166
    rectp -> bottom = rectp->top + char_height;
167
    rectp -> left = 0;
168
    rectp -> right = win_width;
169
}
170
 
171
int caret_visible = 0;   /* Caret is currently visible.  */
172
 
173
int screen_was_painted = 0;/* Screen has been painted at least once.     */
174
 
175
void update_cursor(void);
176
 
177
LRESULT CALLBACK WndProc (HWND hwnd, UINT message,
178
                          WPARAM wParam, LPARAM lParam)
179
{
180
   static FARPROC lpfnAboutBox;
181
   static HANDLE  hInstance;
182
   HDC dc;
183
   PAINTSTRUCT ps;
184
   RECT client_area;
185
   RECT this_line;
186
   RECT dummy;
187
   TEXTMETRIC tm;
188
   register int i;
189
   int id;
190
 
191
   switch (message)
192
   {
193
      case WM_CREATE:
194
           hInstance = ( (LPCREATESTRUCT) lParam)->hInstance;
195
           lpfnAboutBox = MakeProcInstance( (FARPROC) AboutBox, hInstance );
196
           dc = GetDC(hwnd);
197
           SelectObject(dc, GetStockObject(SYSTEM_FIXED_FONT));
198
           GetTextMetrics(dc, &tm);
199
           ReleaseDC(hwnd, dc);
200
           char_width = tm.tmAveCharWidth;
201
           char_height = tm.tmHeight + tm.tmExternalLeading;
202
           GetClientRect(hwnd, &client_area);
203
           COLS = (client_area.right - client_area.left)/char_width;
204
           LINES = (client_area.bottom - client_area.top)/char_height;
205
           generic_init();
206
           return(0);
207
 
208
      case WM_CHAR:
209
           if (wParam == QUIT) {
210
               SendMessage( hwnd, WM_CLOSE, 0, 0L );
211
           } else {
212
               do_command(wParam);
213
           }
214
           return(0);
215
 
216
      case WM_SETFOCUS:
217
           CreateCaret(hwnd, NULL, char_width, char_height);
218
           ShowCaret(hwnd);
219
           caret_visible = 1;
220
           update_cursor();
221
           return(0);
222
 
223
      case WM_KILLFOCUS:
224
           HideCaret(hwnd);
225
           DestroyCaret();
226
           caret_visible = 0;
227
           return(0);
228
 
229
      case WM_LBUTTONUP:
230
           {
231
               unsigned xpos = LOWORD(lParam);  /* From left    */
232
               unsigned ypos = HIWORD(lParam);  /* from top */
233
 
234
               set_position( xpos/char_width, ypos/char_height );
235
               return(0);
236
           }
237
 
238
      case WM_COMMAND:
239
           id = LOWORD(wParam);
240
           if (id & EDIT_CMD_FLAG) {
241
               if (id & REPEAT_FLAG) do_command(REPEAT);
242
               do_command(CHAR_CMD(id));
243
               return( 0 );
244
           } else {
245
             switch(id) {
246
               case IDM_FILEEXIT:
247
                  SendMessage( hwnd, WM_CLOSE, 0, 0L );
248
                  return( 0 );
249
 
250
               case IDM_HELPABOUT:
251
                  if( DialogBox( hInstance, "ABOUTBOX",
252
                                 hwnd, lpfnAboutBox ) )
253
                     InvalidateRect( hwnd, NULL, TRUE );
254
                  return( 0 );
255
               case IDM_HELPCONTENTS:
256
                  de_error(
257
                       "Cursor keys: ^B(left) ^F(right) ^P(up) ^N(down)\n"
258
                       "Undo: ^U    Write: ^W   Quit:^D  Repeat count: ^R[n]\n"
259
                       "Top: ^T   Locate (search, find): ^L text ^L\n");
260
                  return( 0 );
261
             }
262
           }
263
           break;
264
 
265
      case WM_CLOSE:
266
           DestroyWindow( hwnd );
267
           return 0;
268
 
269
      case WM_DESTROY:
270
           PostQuitMessage (0);
271
           GC_win32_free_heap();
272
           return 0;
273
 
274
      case WM_PAINT:
275
           dc = BeginPaint(hwnd, &ps);
276
           GetClientRect(hwnd, &client_area);
277
           COLS = (client_area.right - client_area.left)/char_width;
278
           LINES = (client_area.bottom - client_area.top)/char_height;
279
           SelectObject(dc, GetStockObject(SYSTEM_FIXED_FONT));
280
           for (i = 0; i < LINES; i++) {
281
               get_line_rect(i, client_area.right, &this_line);
282
               if (IntersectRect(&dummy, &this_line, &ps.rcPaint)) {
283
                   CORD raw_line = retrieve_screen_line(i);
284
                   size_t len = CORD_len(raw_line);
285
                   char * text = CORD_to_char_star(raw_line);
286
                                /* May contain embedded NULLs   */
287
                   char * plain = plain_chars(text, len);
288
                   char * blanks = CORD_to_char_star(CORD_chars(' ',
289
                                                                COLS - len));
290
                   char * control = control_chars(text, len);
291
#                  define RED RGB(255,0,0)
292
 
293
                   SetBkMode(dc, OPAQUE);
294
                   SetTextColor(dc, GetSysColor(COLOR_WINDOWTEXT));
295
 
296
                   TextOut(dc, this_line.left, this_line.top,
297
                           plain, len);
298
                   TextOut(dc, this_line.left + len * char_width, this_line.top,
299
                           blanks, COLS - len);
300
                   SetBkMode(dc, TRANSPARENT);
301
                   SetTextColor(dc, RED);
302
                   TextOut(dc, this_line.left, this_line.top,
303
                           control, strlen(control));
304
               }
305
           }
306
           EndPaint(hwnd, &ps);
307
           screen_was_painted = 1;
308
           return 0;
309
   }
310
   return DefWindowProc (hwnd, message, wParam, lParam);
311
}
312
 
313
int last_col;
314
int last_line;
315
 
316
void move_cursor(int c, int l)
317
{
318
    last_col = c;
319
    last_line = l;
320
 
321
    if (caret_visible) update_cursor();
322
}
323
 
324
void update_cursor(void)
325
{
326
    SetCaretPos(last_col * char_width, last_line * char_height);
327
    ShowCaret(hwnd);
328
}
329
 
330
void invalidate_line(int i)
331
{
332
    RECT line;
333
 
334
    if (!screen_was_painted) return;
335
        /* Invalidating a rectangle before painting seems result in a   */
336
        /* major performance problem.                                   */
337
    get_line_rect(i, COLS*char_width, &line);
338
    InvalidateRect(hwnd, &line, FALSE);
339
}
340
 
341
LRESULT CALLBACK AboutBox( HWND hDlg, UINT message,
342
                           WPARAM wParam, LPARAM lParam )
343
{
344
   switch( message )
345
   {
346
      case WM_INITDIALOG:
347
           SetFocus( GetDlgItem( hDlg, IDOK ) );
348
           break;
349
 
350
      case WM_COMMAND:
351
           switch( wParam )
352
           {
353
              case IDOK:
354
                   EndDialog( hDlg, TRUE );
355
                   break;
356
           }
357
           break;
358
 
359
      case WM_CLOSE:
360
           EndDialog( hDlg, TRUE );
361
           return TRUE;
362
 
363
   }
364
   return FALSE;
365
}
366
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.