RetroZilla/gc/boehm/cord/de_win.c

/*
 * Copyright (c) 1994 by Xerox Corporation.  All rights reserved.
 *
 * THIS MATERIAL IS PROVIDED AS IS, WITH ABSOLUTELY NO WARRANTY EXPRESSED
 * OR IMPLIED.  ANY USE IS AT YOUR OWN RISK.
 *
 * Permission is hereby granted to use or copy this program
 * for any purpose,  provided the above notices are retained on all copies.
 * Permission to modify the code and to distribute modified code is granted,
 * provided the above notices are retained, and a notice that the code was
 * modified is included with the above copyright notice.
 */
/* Boehm, February 6, 1995 12:29 pm PST */

/*
 * The MS Windows specific part of de.  
 * This started as the generic Windows application template
 * made available by Rob Haack (rhaack@polaris.unm.edu), but
 * significant parts didn't survive to the final version.
 *
 * This was written by a nonexpert windows programmer.
 */


#include "windows.h"
#include "gc.h"
#include "cord.h"
#include "de_cmds.h"
#include "de_win.h"

int LINES = 0;
int COLS = 0;

char       szAppName[]     = "DE";
char       FullAppName[]   = "Demonstration Editor";

HWND        hwnd;

void de_error(char *s)
{
    MessageBox( hwnd, (LPSTR) s,
                (LPSTR) FullAppName,
                MB_ICONINFORMATION | MB_OK );
    InvalidateRect(hwnd, NULL, TRUE);
}

int APIENTRY WinMain (HINSTANCE hInstance, HINSTANCE hPrevInstance,
                      LPSTR command_line, int nCmdShow)
{
   MSG         msg;
   WNDCLASS    wndclass;
   HANDLE      hAccel;

   if (!hPrevInstance)
   {
      wndclass.style          = CS_HREDRAW | CS_VREDRAW;
      wndclass.lpfnWndProc    = WndProc;
      wndclass.cbClsExtra     = 0;
      wndclass.cbWndExtra     = DLGWINDOWEXTRA;
      wndclass.hInstance      = hInstance;
      wndclass.hIcon          = LoadIcon (hInstance, szAppName);
      wndclass.hCursor        = LoadCursor (NULL, IDC_ARROW);
      wndclass.hbrBackground  = GetStockObject(WHITE_BRUSH);
      wndclass.lpszMenuName   = "DE";
      wndclass.lpszClassName  = szAppName;

      if (RegisterClass (&wndclass) == 0) {
          char buf[50];
   	
   	  sprintf(buf, "RegisterClass: error code: 0x%X", GetLastError());
   	  de_error(buf);
   	  return(0);
      }
   }
   
   /* Empirically, the command line does not include the command name ...
   if (command_line != 0) {
       while (isspace(*command_line)) command_line++;
       while (*command_line != 0 && !isspace(*command_line)) command_line++;
       while (isspace(*command_line)) command_line++;
   } */
   
   if (command_line == 0 || *command_line == 0) {
        de_error("File name argument required");
        return( 0 );
   } else {
        char *p = command_line;
        
        while (*p != 0 && !isspace(*p)) p++;
   	arg_file_name = CORD_to_char_star(
   			    CORD_substr(command_line, 0, p - command_line));
   }

   hwnd = CreateWindow (szAppName,
   			FullAppName,
   			WS_OVERLAPPEDWINDOW | WS_CAPTION, /* Window style */
   			CW_USEDEFAULT, 0, /* default pos. */
   			CW_USEDEFAULT, 0, /* default width, height */
   			NULL,	/* No parent */
   			NULL, 	/* Window class menu */
   			hInstance, NULL);
   if (hwnd == NULL) {
   	char buf[50];
   	
   	sprintf(buf, "CreateWindow: error code: 0x%X", GetLastError());
   	de_error(buf);
   	return(0);
   }

   ShowWindow (hwnd, nCmdShow);

   hAccel = LoadAccelerators( hInstance, szAppName );
   
   while (GetMessage (&msg, NULL, 0, 0))
   {
      if( !TranslateAccelerator( hwnd, hAccel, &msg ) )
      {
         TranslateMessage (&msg);
         DispatchMessage (&msg);
      }
   }
   return msg.wParam;
}

/* Return the argument with all control characters replaced by blanks.	*/
char * plain_chars(char * text, size_t len)
{
    char * result = GC_MALLOC_ATOMIC(len + 1);
    register size_t i;
    
    for (i = 0; i < len; i++) {
       if (iscntrl(text[i])) {
           result[i] = ' ';
       } else {
           result[i] = text[i];
       }
    }
    result[len] = '\0';
    return(result);
}

/* Return the argument with all non-control-characters replaced by 	*/
/* blank, and all control characters c replaced by c + 32.		*/
char * control_chars(char * text, size_t len)
{
    char * result = GC_MALLOC_ATOMIC(len + 1);
    register size_t i;
    
    for (i = 0; i < len; i++) {
       if (iscntrl(text[i])) {
           result[i] = text[i] + 0x40;
       } else {
           result[i] = ' ';
       }
    }
    result[len] = '\0';
    return(result);
}

int char_width;
int char_height;

void get_line_rect(int line, int win_width, RECT * rectp)
{
    rectp -> top = line * char_height;
    rectp -> bottom = rectp->top + char_height;
    rectp -> left = 0;
    rectp -> right = win_width;
}

int caret_visible = 0;	/* Caret is currently visible.	*/

int screen_was_painted = 0;/* Screen has been painted at least once.	*/

void update_cursor(void);

LRESULT CALLBACK WndProc (HWND hwnd, UINT message,
                          WPARAM wParam, LPARAM lParam)
{
   static FARPROC lpfnAboutBox;
   static HANDLE  hInstance;
   HDC dc;
   PAINTSTRUCT ps;
   RECT client_area;
   RECT this_line;
   RECT dummy;
   TEXTMETRIC tm;
   register int i;
   int id;

   switch (message)
   {
      case WM_CREATE:
           hInstance = ( (LPCREATESTRUCT) lParam)->hInstance;
           lpfnAboutBox = MakeProcInstance( (FARPROC) AboutBox, hInstance );
           dc = GetDC(hwnd);
           SelectObject(dc, GetStockObject(SYSTEM_FIXED_FONT));
           GetTextMetrics(dc, &tm);
           ReleaseDC(hwnd, dc);
           char_width = tm.tmAveCharWidth;
           char_height = tm.tmHeight + tm.tmExternalLeading;
           GetClientRect(hwnd, &client_area);
      	   COLS = (client_area.right - client_area.left)/char_width;
      	   LINES = (client_area.bottom - client_area.top)/char_height;
      	   generic_init();
           return(0);

      case WM_CHAR:
      	   if (wParam == QUIT) {
      	       SendMessage( hwnd, WM_CLOSE, 0, 0L );
      	   } else {
      	       do_command(wParam);
      	   }
      	   return(0);
      
      case WM_SETFOCUS:
      	   CreateCaret(hwnd, NULL, char_width, char_height);
      	   ShowCaret(hwnd);
      	   caret_visible = 1;
      	   update_cursor();
      	   return(0);
      	   
      case WM_KILLFOCUS:
      	   HideCaret(hwnd);
      	   DestroyCaret();
      	   caret_visible = 0;
      	   return(0);
      	   
      case WM_LBUTTONUP:
      	   {
      	       unsigned xpos = LOWORD(lParam);	/* From left	*/
      	       unsigned ypos = HIWORD(lParam);	/* from top */
      	       
      	       set_position( xpos/char_width, ypos/char_height );
      	       return(0);
      	   }
      	   
      case WM_COMMAND:
      	   id = LOWORD(wParam);
      	   if (id & EDIT_CMD_FLAG) {
               if (id & REPEAT_FLAG) do_command(REPEAT);
               do_command(CHAR_CMD(id));
               return( 0 );
           } else {
             switch(id) {
               case IDM_FILEEXIT:
                  SendMessage( hwnd, WM_CLOSE, 0, 0L );
                  return( 0 );

               case IDM_HELPABOUT:
                  if( DialogBox( hInstance, "ABOUTBOX",
                                 hwnd, lpfnAboutBox ) );
                     InvalidateRect( hwnd, NULL, TRUE );
                  return( 0 );
	       case IDM_HELPCONTENTS:
	     	  de_error(
	     	       "Cursor keys: ^B(left) ^F(right) ^P(up) ^N(down)\n"
	     	       "Undo: ^U    Write: ^W   Quit:^D  Repeat count: ^R[n]\n"
	     	       "Top: ^T   Locate (search, find): ^L text ^L\n");
	     	  return( 0 );
	     }
	   }
           break;

      case WM_CLOSE:
           DestroyWindow( hwnd );
           return 0;

      case WM_DESTROY:
           PostQuitMessage (0);
	   GC_win32_free_heap();
           return 0;
      
      case WM_PAINT:
      	   dc = BeginPaint(hwnd, &ps);
      	   GetClientRect(hwnd, &client_area);
      	   COLS = (client_area.right - client_area.left)/char_width;
      	   LINES = (client_area.bottom - client_area.top)/char_height;
      	   SelectObject(dc, GetStockObject(SYSTEM_FIXED_FONT));
      	   for (i = 0; i < LINES; i++) {
      	       get_line_rect(i, client_area.right, &this_line);
      	       if (IntersectRect(&dummy, &this_line, &ps.rcPaint)) {
      	           CORD raw_line = retrieve_screen_line(i);
      	           size_t len = CORD_len(raw_line);
      	           char * text = CORD_to_char_star(raw_line);
      	           		/* May contain embedded NULLs	*/
      	           char * plain = plain_chars(text, len);
      	           char * blanks = CORD_to_char_star(CORD_chars(' ',
      	           				                COLS - len));
      	           char * control = control_chars(text, len);
#		   define RED RGB(255,0,0)
      	           
      	           SetBkMode(dc, OPAQUE);
      	           SetTextColor(dc, GetSysColor(COLOR_WINDOWTEXT));
      	           
      	           TextOut(dc, this_line.left, this_line.top,
      	           	   plain, len);
      	           TextOut(dc, this_line.left + len * char_width, this_line.top,
      	           	   blanks, COLS - len);
      	           SetBkMode(dc, TRANSPARENT);
      	           SetTextColor(dc, RED);
      	           TextOut(dc, this_line.left, this_line.top,
      	           	   control, strlen(control));
      	       }
      	   }
      	   EndPaint(hwnd, &ps);
      	   screen_was_painted = 1;
      	   return 0;
   }
   return DefWindowProc (hwnd, message, wParam, lParam);
}

int last_col;
int last_line;

void move_cursor(int c, int l)
{
    last_col = c;
    last_line = l;
    
    if (caret_visible) update_cursor();
}

void update_cursor(void)
{
    SetCaretPos(last_col * char_width, last_line * char_height);
    ShowCaret(hwnd);
}

void invalidate_line(int i)
{
    RECT line;
    
    if (!screen_was_painted) return;
    	/* Invalidating a rectangle before painting seems result in a	*/
    	/* major performance problem.					*/
    get_line_rect(i, COLS*char_width, &line);
    InvalidateRect(hwnd, &line, FALSE);
}

LRESULT CALLBACK AboutBox( HWND hDlg, UINT message,
                           WPARAM wParam, LPARAM lParam )
{
   switch( message )
   {
      case WM_INITDIALOG:
           SetFocus( GetDlgItem( hDlg, IDOK ) );
           break;

      case WM_COMMAND:
           switch( wParam )
           {
              case IDOK:
                   EndDialog( hDlg, TRUE );
                   break;
           }
           break;

      case WM_CLOSE:
           EndDialog( hDlg, TRUE );
           return TRUE;

   }
   return FALSE;
}