/*
* SetWindowCursor - flag cursor as needing display before next event
*/
void SetWindowCursor( void )
{
cursorNeedsDisplay = true;
#ifndef __WIN__
SetWindowCursorForReal();
#endif
} /* SetWindowCursor */
void ActiveWindow( window_id wid )
{
if( !BAD_ID( wid ) ) {
SetActiveWindow( wid );
SetWindowCursor();
SetWindowCursorForReal();
}
}
/*
* LocateCmd - parse a locate command (format: locate r,c[,len])
*/
vi_rc LocateCmd( const char *data )
{
char tmp[MAX_STR];
linenum r;
int c;
int len;
#ifdef __WIN__
if( BAD_ID( current_window_id ) ) {
return( ERR_INVALID_LOCATE );
}
#endif
data = GetNextWord1( data, tmp );
if( *tmp == '\0' ) {
return( ERR_INVALID_LOCATE );
}
r = atol( tmp );
data = GetNextWord1( data, tmp );
if( *tmp == '\0' ) {
return( ERR_INVALID_LOCATE );
}
c = atoi( tmp );
// real selection length
while( isspace( *data ) ) {
data++;
}
len = 0;
if( *data != 0 ) {
data = GetNextWord1( data, tmp );
if( *tmp == '\0' ) {
return( ERR_INVALID_LOCATE );
}
len = atoi( tmp );
}
GoToLineNoRelCurs( r );
c = RealColumnOnCurrentLine( c );
GoToColumnOnCurrentLine( c + len );
#ifdef __WIN__
// likely only called by dde, which doesn't use event loop,
// so must ensure cache ok and set cursor here
DCInvalidateAllLines();
DCDisplayAllLines();
DCUpdate();
SetWindowCursor();
SetWindowCursorForReal();
#endif
if( len > 0 ) {
SetSelRegionCols( CurrentPos.line, c, c + len - 1 );
}
return( ERR_NO_ERR );
} /* LocateCmd */
int PASCAL WinMain( HINSTANCE inst, HINSTANCE prev, LPSTR cmdline, int show )
{
char buffer[PATH_MAX];
#if !defined( __WATCOMC__ ) && defined( __NT__ )
_argc = __argc;
_argv = __argv;
#endif
EXEName = _cmdname( buffer );
InstanceHandle = inst;
showHow = show;
prev = prev;
cmdline = cmdline;
InitMem();
#ifndef __NT__
if( prev != NULL && !HasShare() ) {
MessageBox( NULLHANDLE, "SHARE.EXE must be loaded before starting Windows in order to run multiple instances of the editor",
EditorName, MB_OK );
MyGetInstanceData( (unsigned short) prev, (void near *) &Root, sizeof( Root ) );
SetFocus( Root );
return( 0 );
}
#endif
Comspec = getenv( "COMSPEC" );
#ifdef __NT__
VarAddGlobalStr( "OS", "winnt" );
#else
VarAddGlobalStr( "OS", "win" );
#endif
SetConfigFileName( CFG_NAME );
ReadProfile();
ShowStartupDialog();
initApplication();
if( !initInstance() ) {
return( 0 );
}
InitializeEditor();
SetSaveConfig();
if( !BAD_ID( CurrentWindow ) ) {
SetFocus( Root );
}
SetWindowCursorForReal();
ResizeRoot();
EditMain();
FiniMem();
return( 0 );
} /* WinMain */
/*
* handleMenuCommand - this routine takes a menu and an id and executes the
* command associated with the menu item if there is an
* item with that id.
*/
static vi_rc handleMenuCommand( menu *m, int menuid )
{
item *citem;
vi_rc rc;
for( citem = m->item_head; citem != NULL; citem = citem->next ) {
if( citem->menuid == menuid ) {
/* run this command */
IMEsc();
rc = RunCommandLine( citem->cmd );
#ifdef __WIN__
SetWindowCursorForReal();
#endif
return( rc );
}
}
return( MENU_COMMAND_NOT_HANDLED );
} /* handleMenuCommand */
/*
* tempMatch - show a temporary match
*/
static void tempMatch( i_mark *pos )
{
SaveCurrentFilePos();
GoToLineNoRelCurs( pos->line );
GoToColumnOK( pos->column );
#ifdef __WIN__
DCDisplayAllLines();
DCUpdate();
SetWindowCursorForReal();
MyDelay( 150 );
RestoreCurrentFilePos();
DCDisplayAllLines();
DCUpdate();
#else
MyDelay( 150 );
RestoreCurrentFilePos();
DCDisplayAllLines();
#endif
} /* tempMatch */
/*
* handleMenuCommand - this routine takes a menu and an id and executes the
* command associated with the menu item if there is an
* item with that id.
*/
static vi_rc handleMenuCommand( menu *m, UINT id )
{
item *citem;
char *str;
int len;
vi_rc rc;
for( citem = m->item_head; citem != NULL; citem = citem->next ) {
if( citem->id == id ) {
/* run this command */
len = strlen( citem->cmd ) + 1;
str = alloca( len );
memcpy( str, citem->cmd, len );
IMEsc();
rc = RunCommandLine( str );
#ifdef __WIN__
SetWindowCursorForReal();
#endif
return( rc );
}
}
return( MENU_COMMAND_NOT_HANDLED );
} /* handleMenuCommand */
/*
* MainWindowProc - procedure for main (root) window
*/
WINEXPORT LRESULT CALLBACK MainWindowProc( HWND hwnd, UINT msg, WPARAM wparam, LPARAM lparam )
{
RECT rect;
vi_rc rc;
HANDLE hfileinfo;
int cnt, i;
char *buff;
switch( msg ) {
case WM_CREATE:
Root = hwnd;
GetClientRect( hwnd, &rect );
EditContainer = CreateContainerWindow( &rect );
InitWindows();
DragAcceptFiles( hwnd, TRUE );
timerID = SetTimer( hwnd, TIMER_ID, 60L * 1000L, NULL );
break;
case WM_DROPFILES:
hfileinfo = (HANDLE) wparam;
cnt = DragQueryFile( hfileinfo, (UINT)-1, NULL, 0 );
buff = alloca( FILENAME_MAX + 2 ); /* we add a " at the beginning and at the end so we can handle path- and filenames with spaces */
if( buff != NULL ) {
buff[0] = '"'; /* one " at the beginning of the filename */
for( i = 0; i < cnt; i++ ) {
if( DragQueryFile( hfileinfo, i, buff + 1, FILENAME_MAX ) == (UINT)-1 ) {
break;
}
strcat( buff, "\"" );
rc = EditFile( buff, FALSE );
if( rc > ERR_NO_ERR ) {
Error( GetErrorMsg( rc ) );
}
}
}
DragFinish( hfileinfo );
break;
case WM_TIMER:
UpdateStatusWindow();
break;
case WM_KEYDOWN:
if( WindowsKeyPush( wparam, HIWORD( lparam ) ) ) {
return( 0 );
}
break;
case WM_SIZE:
DefFrameProc( hwnd, EditContainer, msg, wparam, lparam );
RootState = wparam;
if( wparam != SIZE_MINIMIZED ) {
ResizeRoot();
GetWindowRect( hwnd, &RootRect );
if( wparam != SIZE_MAXIMIZED ) {
RootState = 0;
}
}
return( 0 );
case WM_MOVE:
DefFrameProc( hwnd, EditContainer, msg, wparam, lparam );
if( RootState != SIZE_MINIMIZED ) {
GetWindowRect( hwnd, &RootRect );
}
return( 0 );
case WM_ACTIVATEAPP:
if( BAD_ID( CurrentWindow ) ) {
break;
}
SetFocus( Root );
#if 0
if( !wparam ) {
InactiveWindow( CurrentWindow );
} else {
SendMessage( EditContainer, WM_MDIACTIVATE, (WPARAM)CurrentWindow, 0L );
}
#endif
if( wparam ) {
ResetEditWindowCursor( CurrentWindow );
} else {
GoodbyeCursor( CurrentWindow );
}
break;
case WM_MOUSEACTIVATE:
SetFocus( hwnd );
return( MA_ACTIVATE );
case WM_SETFOCUS:
if( BAD_ID( CurrentWindow ) ) {
break;
}
if( !IsIconic( CurrentWindow ) ) {
SendMessage( EditContainer, WM_MDIACTIVATE, (WPARAM)CurrentWindow, 0L );
DCUpdate();
SetWindowCursor();
SetWindowCursorForReal();
return( 0 );
}
break;
case WM_NCLBUTTONDBLCLK:
break;
case WM_COMMAND:
if( LOWORD( wparam ) > 0xF000 ) {
break;
} else {
rc = MenuCommand( LOWORD( wparam ) );
if( rc != MENU_COMMAND_NOT_HANDLED ) {
DCUpdateAll();
if( rc > ERR_NO_ERR ) {
char *msg;
msg = GetErrorMsg( rc );
Error( msg );
}
}
SetWindowCursor();
}
return( 0 );
case WM_INITMENU:
if( (HMENU)wparam == GetMenu( hwnd ) ) {
HandleInitMenu( (HMENU)wparam );
} else {
ResetMenuBits();
}
break;
case WM_MENUSELECT:
HandleMenuSelect( wparam, lparam );
break;
case WM_ENDSESSION:
if( wparam ) {
ExitEditor( 0 );
// will not return
}
return( 0 );
case WM_QUERYENDSESSION:
return( ExitWithPrompt( FALSE, TRUE ) );
case WM_CLOSE:
ExitWithPrompt( TRUE, TRUE );
return( 0 );
#ifdef __NT__
case WM_MOUSEWHEEL:
{
int i, increment;
ULONG linesPerNotch;
HWND activeWnd;
activeWnd = (HWND)SendMessage( EditContainer, WM_MDIGETACTIVE, 0, 0 );
SystemParametersInfo( SPI_GETWHEELSCROLLLINES, 0, &linesPerNotch, 0 );
increment = GET_WHEEL_DELTA_WPARAM( wparam ) / 120;
// see WM_MOUSEWHEEL-documentation for information about the "120"
if( increment > 0 ) {
for( i = 0; i < increment * (int)linesPerNotch; i++ ) {
SendMessage( activeWnd, WM_VSCROLL, SB_LINEUP, 0 );
}
} else {
for( i = 0; i < (-increment) * (int)linesPerNotch; i++ ) {
SendMessage( activeWnd, WM_VSCROLL, SB_LINEDOWN, 0 );
}
}
}
return( 0 );
#endif
case WM_DESTROY:
DestroyToolBar();
DragAcceptFiles( hwnd, FALSE );
EditContainer = 0;
if( timerID ) {
KillTimer( hwnd, TIMER_ID );
}
return( 0 );
}
return( DefFrameProc( hwnd, EditContainer, msg, wparam, lparam ) );
} /* MainWindowProc */
/*
* EditMain - main driver for editor (command mode)
*/
void EditMain( void )
{
vi_rc rc;
char *msg = NULL;
bool doclear;
/*
* loop forever, or at least until all done
*/
for( ;; ) {
#if 0
#ifdef __WIN__
PushMode();
UpdateFiles();
PopMode();
#endif
#endif
if( !EditFlags.InsertModeActive || EditFlags.Modeless ) {
if( EditFlags.Modeless ) {
UpdateEditStatus();
EditFlags.NoCapsLock = false;
} else {
UpdateCurrentStatus( CSTATUS_COMMAND );
EditFlags.NoCapsLock = true;
}
if( !EditFlags.Modeless && EditFlags.ReturnToInsertMode &&
!NonKeyboardEventsPending() ) {
EditFlags.ReturnToInsertMode = false;
if( EditFlags.WasOverstrike ) {
LastEvent = 'R';
} else {
LastEvent = 'i';
}
} else {
DCUpdateAll();
#ifdef __WIN__
SetWindowCursorForReal();
#endif
LastEvent = GetNextEvent( true );
}
EditFlags.NoCapsLock = false;
doclear = true;
if( LastEvent == VI_KEY( MOUSEEVENT ) ) {
if( LastMouseEvent == MOUSE_MOVE ) {
doclear = false;
}
}
if( doclear ) {
if( EditFlags.AutoMessageClear ) {
ClearWindow( MessageWindow );
}
#ifndef __WIN__
ResetDisplayLine();
#endif
}
} else {
// Cannot do a RestoreInfo while we are in insert mode
// because it will call ValidateCurrentColumn which will
// do something stupid on us... PushMode/PopMode solution
// not working yet... this needs a little work
DCUpdate();
#ifdef __WIN__
SetWindowCursorForReal();
#endif
LastEvent = GetNextEvent( true );
}
rc = DoLastEvent();
if( EditFlags.ReadOnlyError && rc <= ERR_NO_ERR ) {
EditFlags.ReadOnlyError = false;
rc = ERR_READ_ONLY_FILE_MODIFIED;
}
if( rc > ERR_NO_ERR ) {
msg = GetErrorMsg( rc );
}
DoneLastEvent( rc, false );
if( rc > ERR_NO_ERR ) {
Error( msg );
}
}
} /* EditMain */
/*
* NewFile - load up a new file
*/
vi_rc NewFile( char *name, bool same_file )
{
vi_rc rc;
bool dup;
status_type oldstatus;
dup = EditFlags.DuplicateFile;
EditFlags.DuplicateFile = false;
oldstatus = UpdateCurrentStatus( CSTATUS_READING );
ScreenPage( 1 );
#ifdef __WIN__
EditFlags.ResizeableWindow = true;
#endif
rc = createNewFile( name, same_file );
if( rc != ERR_NO_ERR && rc != NEW_FILE ) {
ScreenPage( -1 );
if( !EditFlags.Starting ) {
MoveWindowToFrontDammit( MessageWindow, true );
MoveWindowToFrontDammit( CurrentWindow, true );
}
UpdateCurrentStatus( oldstatus );
return( rc );
}
GoToLineNoRelCurs( 1 );
GoToColumnOnCurrentLine( 1 );
FileSPVAR();
SaveCurrentInfo();
if( !same_file ) {
inReadHook++;
rc = SourceHook( SRC_HOOK_READ, rc );
inReadHook--;
}
/*
* back from hook, so all loadings are done
* (who should have priority - hook or fts commands?)
*/
#if 0
rc = FTSRunCmds( CurrentFile->name );
FTSRunCmds( CurrentFile->name );
#endif
/*
* reset the screen to the display page, display everything
*/
ScreenPage( -1 );
MoveWindowToFrontDammit( CurrentWindow, true );
UpdateStatusWindow();
SetWindowCursor();
DCDisplayAllLines();
EditFlags.DuplicateFile = dup;
DisplayFileStatus();
SaveCurrentInfo();
ActiveWindow( CurrentWindow );
VarAddRandC();
SetModifiedVar( false );
UpdateCurrentStatus( oldstatus );
if( !same_file && !inReadHook ) {
UpdateLastFileList( CurrentFile->name );
}
#ifdef __WIN__
DCUpdateAll();
ResetEditWindowCursor( CurrentWindow );
SetWindowCursorForReal();
GotoFile( CurrentWindow );
#endif
return( rc );
} /* NewFile */