boehm-gc/cord/de_win.c - gcc - Git at Google

 /*
  * 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;
 }
	/*
	* 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;
	}