old-autovect-branch/boehm-gc/cord/de_win.c

   1 /*
   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