mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-21 10:13:43 +03:00
d5f74e42d6
License statement text corrected; compiler warnings caused by Bison 2.41 disabled for MSVC; a few other compiler warnings on 54-bit Windows eliminated by appropriate type cast Wrong license statements corrected in several files. Copyright and license statements added in XSD and GLSL files. Copyright year updated in some files. Obsolete documentation files removed from DrawResources.
257 lines
7.8 KiB
C++
257 lines
7.8 KiB
C++
// Created on: 1998-08-06
|
|
// Created by: Administrateur Atelier MDL
|
|
// Copyright (c) 1998-1999 Matra Datavision
|
|
// Copyright (c) 1999-2014 OPEN CASCADE SAS
|
|
//
|
|
// This file is part of Open CASCADE Technology software library.
|
|
//
|
|
// This library is free software; you can redistribute it and/or modify it under
|
|
// the terms of the GNU Lesser General Public License version 2.1 as published
|
|
// by the Free Software Foundation, with special exception defined in the file
|
|
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
|
|
// distribution for complete text of the license and disclaimer of any warranty.
|
|
//
|
|
// Alternatively, this file may be used under the terms of Open CASCADE
|
|
// commercial license or contractual agreement.
|
|
|
|
#ifdef WNT
|
|
#include <windows.h>
|
|
|
|
#define COMMANDCLASS "COMMANDWINDOW"
|
|
#define COMMANDTITLE "Command Window"
|
|
|
|
#include <CommandWindow.h>
|
|
#include <Draw_Window.hxx>
|
|
#include <MainWindow.h>
|
|
#include <Draw_Appli.hxx>
|
|
|
|
|
|
|
|
/****************************************************\
|
|
* CommandWindow.cxx :
|
|
*
|
|
\****************************************************/
|
|
|
|
|
|
|
|
#define CLIENTWND 0
|
|
|
|
#define PROMPT "Command >> "
|
|
#define COMMANDSIZE 1000 // Max nb of characters for a command
|
|
|
|
|
|
// Definition of global variables
|
|
#ifdef STRICT
|
|
WNDPROC OldEditProc; // Save the standard procedure of the edition (sub-class)
|
|
#else
|
|
FARPROC OldEditProc;
|
|
#endif
|
|
|
|
/*--------------------------------------------------------*\
|
|
| CREATE COMMAND WINDOW PROCEDURE
|
|
\*--------------------------------------------------------*/
|
|
HWND CreateCommandWindow(HWND hWnd, int /*nitem*/)
|
|
{
|
|
HINSTANCE hInstance;
|
|
hInstance = (HINSTANCE)GetWindowLongPtr(hWnd,GWLP_HINSTANCE);
|
|
|
|
HWND hWndCommand = (CreateWindow(COMMANDCLASS, COMMANDTITLE,
|
|
WS_CLIPCHILDREN | WS_OVERLAPPED |
|
|
WS_THICKFRAME | WS_CAPTION ,
|
|
0, 0,
|
|
400, 100,
|
|
hWnd, NULL, hInstance, NULL));
|
|
|
|
ShowWindow(hWndCommand, SW_SHOW);
|
|
return hWndCommand;
|
|
}
|
|
|
|
|
|
/*--------------------------------------------------------*\
|
|
| COMMAND WINDOW PROCEDURE
|
|
\*--------------------------------------------------------*/
|
|
LRESULT APIENTRY CommandProc(HWND hWnd, UINT wMsg, WPARAM wParam, LPARAM lParam )
|
|
{
|
|
HWND hWndEdit;
|
|
MINMAXINFO* lpmmi;
|
|
|
|
switch(wMsg)
|
|
{
|
|
case WM_CREATE :
|
|
CommandCreateProc(hWnd);
|
|
hWndEdit = (HWND)GetWindowLongPtr(hWnd, CLIENTWND);
|
|
SendMessage(hWndEdit,EM_REPLACESEL, 0,(LPARAM)PROMPT);
|
|
break;
|
|
|
|
case WM_GETMINMAXINFO :
|
|
lpmmi = (LPMINMAXINFO)lParam;
|
|
lpmmi->ptMinTrackSize.x = 200;
|
|
lpmmi->ptMinTrackSize.y = 50;
|
|
break;
|
|
|
|
case WM_SIZE :
|
|
{
|
|
hWndEdit = (HWND)GetWindowLongPtr(hWnd, CLIENTWND);
|
|
MoveWindow(hWndEdit, 0, 0, LOWORD(lParam), HIWORD(lParam), TRUE);
|
|
// Place the cursor at the end of the buffer
|
|
// Nb of characters in the buffer of hWndEdit
|
|
LRESULT index = SendMessage(hWnd, WM_GETTEXTLENGTH, 0l, 0l);
|
|
SendMessage(hWnd, EM_SETSEL, index, index);
|
|
break;
|
|
}
|
|
|
|
case WM_SETFOCUS :
|
|
hWndEdit = (HWND)GetWindowLongPtr(hWnd, CLIENTWND);
|
|
SetFocus(hWndEdit);
|
|
break;
|
|
|
|
default :
|
|
return(DefWindowProc(hWnd, wMsg, wParam, lParam));
|
|
}
|
|
return(0l);
|
|
}
|
|
|
|
|
|
|
|
LRESULT APIENTRY EditProc(HWND, UINT, WPARAM, LPARAM);
|
|
/*--------------------------------------------------------*\
|
|
| COMMAND CREATE PROCEDURE
|
|
\*--------------------------------------------------------*/
|
|
BOOL CommandCreateProc(HWND hWnd)
|
|
{
|
|
|
|
HINSTANCE hInstance = (HINSTANCE)GetWindowLongPtr(hWnd, GWLP_HINSTANCE);
|
|
|
|
HWND hWndEdit = CreateWindow("EDIT",NULL,
|
|
WS_CHILD | WS_VISIBLE | WS_VSCROLL |
|
|
ES_LEFT | ES_MULTILINE | ES_AUTOVSCROLL,
|
|
0, 0, 0, 0,
|
|
hWnd, 0,
|
|
hInstance, NULL);
|
|
|
|
// Save hWndEdit in the extra memory in 0 of CommandWindow
|
|
if (hWndEdit)
|
|
SetWindowLongPtr(hWnd, CLIENTWND, (LONG_PTR)hWndEdit);
|
|
|
|
// Sub-Class of the window
|
|
//-------
|
|
// Save the pointer on the existing procedure
|
|
#ifdef STRICT
|
|
OldEditProc = (WNDPROC)GetWindowLongPtr(hWndEdit, GWLP_WNDPROC);
|
|
#else
|
|
OldEditProc = (FARPROC)GetWindowLongPtr(hWndEdit, GWLP_WNDPROC);
|
|
#endif
|
|
// Implement the new function
|
|
SetWindowLongPtr(hWndEdit, GWLP_WNDPROC, (LONG_PTR) EditProc);
|
|
|
|
return(TRUE);
|
|
}
|
|
|
|
|
|
/*--------------------------------------------------------*\
|
|
| GET COMMAND
|
|
|
|
|
\*--------------------------------------------------------*/
|
|
int GetCommand(HWND hWnd, char* buffer)
|
|
{
|
|
int again = 1;
|
|
char temp[COMMANDSIZE]="";
|
|
|
|
int nbLine = (int )SendMessage(hWnd, EM_GETLINECOUNT, 0l, 0l);
|
|
|
|
int nbChar = 0;
|
|
buffer[0]='\0';
|
|
while ( again && nbLine > -1 && nbChar < COMMANDSIZE-1)
|
|
{
|
|
strcat(buffer, strrev(temp));
|
|
// Initialization of the 1st WORD to the nb of characters to read
|
|
WORD* nbMaxChar = (WORD*)temp;
|
|
*nbMaxChar = COMMANDSIZE-1;
|
|
|
|
int nbCharRead = (int )SendMessage(hWnd, EM_GETLINE, nbLine-1, (LPARAM)temp);
|
|
nbChar += nbCharRead ;
|
|
int cmp = strncmp(temp, PROMPT, 10);
|
|
temp[nbCharRead]='\0';
|
|
if( cmp == 0 )
|
|
{
|
|
strcat(buffer, strrev(temp));
|
|
again = 0;
|
|
}
|
|
nbLine -= 1;
|
|
}
|
|
strrev(buffer);
|
|
return nbChar;
|
|
}
|
|
|
|
extern console_semaphore_value volatile console_semaphore;
|
|
extern char console_command[1000];
|
|
|
|
/*--------------------------------------------------------*\
|
|
| EDIT WINDOW PROCEDURE
|
|
\*--------------------------------------------------------*/
|
|
LRESULT APIENTRY EditProc(HWND hWnd, UINT wMsg, WPARAM wParam, LPARAM lParam )
|
|
{
|
|
char buffer[COMMANDSIZE];
|
|
POINT pos;
|
|
BOOL rep;
|
|
static LRESULT nbline; // Process the buffer of the edit window
|
|
LRESULT index;
|
|
|
|
switch(wMsg)
|
|
{
|
|
case WM_CHAR :
|
|
if (console_semaphore != WAIT_CONSOLE_COMMAND)
|
|
return 0l;
|
|
switch(LOWORD(wParam))
|
|
{
|
|
// Overload of character \n
|
|
case 0x0d :
|
|
GetCommand(hWnd, buffer);
|
|
// Standard processing
|
|
CallWindowProc(OldEditProc, hWnd, wMsg, wParam, lParam);
|
|
// Display of PROMPT
|
|
rep = GetCaretPos(&pos);
|
|
SendMessage(hWnd, EM_REPLACESEL, 0, (LPARAM)PROMPT);
|
|
// Display the command in the console
|
|
cout << buffer << endl;
|
|
/*if (Draw_Interprete(buffer+strlen(PROMPT))== -2)
|
|
DestroyProc(hWnd); */
|
|
strcpy(console_command, buffer+strlen(PROMPT));
|
|
console_semaphore = HAS_CONSOLE_COMMAND;
|
|
// Purge the buffer
|
|
nbline = SendMessage(hWnd, EM_GETLINECOUNT, 0l, 0l);
|
|
if(nbline > 200)
|
|
{
|
|
nbline = 0;
|
|
GetCommand(hWnd, buffer);
|
|
index = SendMessage(hWnd, EM_LINEINDEX, 100, 0);
|
|
SendMessage(hWnd, EM_SETSEL, 0, index);
|
|
SendMessage(hWnd, WM_CUT, 0, 0);
|
|
// Place the cursor at the end of text
|
|
index = SendMessage(hWnd, WM_GETTEXTLENGTH, 0l, 0l);
|
|
SendMessage(hWnd, EM_SETSEL, index, index);
|
|
}
|
|
return(0l);
|
|
break;
|
|
default :
|
|
if (IsAlphanumeric((Standard_Character)LOWORD(wParam)))
|
|
{
|
|
// Place the cursor at the end of text before display
|
|
index = SendMessage(hWnd, WM_GETTEXTLENGTH, 0l, 0l);
|
|
SendMessage(hWnd, EM_SETSEL, index, index);
|
|
CallWindowProc(OldEditProc, hWnd, wMsg, wParam, lParam);
|
|
return 0l;
|
|
}
|
|
break;
|
|
}
|
|
break;
|
|
case WM_KEYDOWN:
|
|
if (console_semaphore != WAIT_CONSOLE_COMMAND)
|
|
return 0l;
|
|
}
|
|
return CallWindowProc(OldEditProc, hWnd, wMsg, wParam, lParam);
|
|
}
|
|
#endif
|
|
|
|
|