reactos/reactos/lib/kernel32/process/proc.c

/* $Id: proc.c,v 1.28 2000/01/26 10:07:23 dwelch Exp $
 *
 * COPYRIGHT:       See COPYING in the top level directory
 * PROJECT:         ReactOS system libraries
 * FILE:            lib/kernel32/proc/proc.c
 * PURPOSE:         Process functions
 * PROGRAMMER:      Ariadne ( [email protected])
 * UPDATE HISTORY:
 *                  Created 01/11/98
 */

/* INCLUDES ****************************************************************/

#include <ddk/ntddk.h>
#include <windows.h>
#include <kernel32/proc.h>
#include <kernel32/thread.h>
#include <wchar.h>
#include <string.h>
#include <internal/i386/segment.h>
#include <internal/teb.h>

#define NDEBUG
#include <kernel32/kernel32.h>

/* TYPES *********************************************************************/
/*
typedef struct _WSTARTUPINFO { 
  DWORD   cb; 
  LPWSTR  lpReserved; 
  LPWSTR  lpDesktop; 
  LPWSTR  lpTitle; 
  DWORD   dwX; 
  DWORD   dwY; 
  DWORD   dwXSize; 
  DWORD   dwYSize; 
  DWORD   dwXCountChars; 
  DWORD   dwYCountChars; 
  DWORD   dwFillAttribute; 
  DWORD   dwFlags; 
  WORD    wShowWindow; 
  WORD    cbReserved2; 
  LPBYTE  lpReserved2; 
  HANDLE  hStdInput; 
  HANDLE  hStdOutput; 
  HANDLE  hStdError; 
} WSTARTUPINFO, *LPWSTARTUPINFO;
*/

/* GLOBALS *******************************************************************/

WaitForInputIdleType  lpfnGlobalRegisterWaitForInputIdle;

VOID
STDCALL
RegisterWaitForInputIdle (
	WaitForInputIdleType	lpfnRegisterWaitForInputIdle
	);

/* FUNCTIONS ****************************************************************/

WINBOOL
STDCALL
GetProcessId (
	HANDLE	hProcess,
	LPDWORD	lpProcessId
	);





WINBOOL
STDCALL
GetProcessTimes (
	HANDLE		hProcess,
	LPFILETIME	lpCreationTime,
	LPFILETIME	lpExitTime,
	LPFILETIME	lpKernelTime,
	LPFILETIME	lpUserTime
	)
{
	dprintf("GetProcessTimes is unimplemented\n");
	return FALSE;
}


HANDLE
STDCALL
GetCurrentProcess (VOID)
{
	return (HANDLE) NtCurrentProcess();
}


HANDLE
STDCALL
GetCurrentThread (VOID)
{
	return (HANDLE) NtCurrentThread();
}


DWORD
STDCALL
GetCurrentProcessId (VOID)
{
	return (DWORD) (GetTeb()->Cid).UniqueProcess;
}


WINBOOL
STDCALL
GetExitCodeProcess (
	HANDLE	hProcess,
	LPDWORD	lpExitCode
	)
{
   NTSTATUS errCode;
   PROCESS_BASIC_INFORMATION ProcessBasic;
   ULONG BytesWritten;
   
   errCode = NtQueryInformationProcess(hProcess,
				       ProcessBasicInformation,
				       &ProcessBasic,
				       sizeof(PROCESS_BASIC_INFORMATION),
				       &BytesWritten);
   if (!NT_SUCCESS(errCode)) 
     {
	SetLastError(RtlNtStatusToDosError(errCode));
	return FALSE;
     }
   memcpy(lpExitCode, &ProcessBasic.ExitStatus, sizeof(DWORD));
   return TRUE;	
}


WINBOOL
STDCALL
GetProcessId (
	HANDLE	hProcess,
	LPDWORD	lpProcessId 
	)
{
   NTSTATUS errCode;
   PROCESS_BASIC_INFORMATION ProcessBasic;
   ULONG BytesWritten;

   errCode = NtQueryInformationProcess(hProcess,
				       ProcessBasicInformation,
				       &ProcessBasic,
				       sizeof(PROCESS_BASIC_INFORMATION),
				       &BytesWritten);
   if (!NT_SUCCESS(errCode)) 
     {
	SetLastError(RtlNtStatusToDosError(errCode));
	return FALSE;
     }
   memcpy( lpProcessId ,&ProcessBasic.UniqueProcessId,sizeof(DWORD));
   return TRUE;	
}


PWSTR
InternalAnsiToUnicode (
	PWSTR	Out,
	LPCSTR	In,
	ULONG	MaxLength
	)
{
   ULONG i;
   
   if (In == NULL)
     {
	return(NULL);
     }
   else
     {
	i = 0;
	while ((*In)!=0 && i < MaxLength)
	  {
	     Out[i] = *In;
	     In++;
	     i++;
	  }
	Out[i] = 0;
	return(Out);
     }
}


HANDLE
STDCALL
OpenProcess (
	DWORD	dwDesiredAccess,
	WINBOOL	bInheritHandle,
	DWORD	dwProcessId
	)
{
   NTSTATUS errCode;
   HANDLE ProcessHandle;
   OBJECT_ATTRIBUTES ObjectAttributes;
   CLIENT_ID ClientId ;
   
   ClientId.UniqueProcess = (HANDLE)dwProcessId;
   ClientId.UniqueThread = INVALID_HANDLE_VALUE;
   
   ObjectAttributes.Length = sizeof(OBJECT_ATTRIBUTES);
   ObjectAttributes.RootDirectory = (HANDLE)NULL;
   ObjectAttributes.SecurityDescriptor = NULL;
   ObjectAttributes.SecurityQualityOfService = NULL;
   ObjectAttributes.ObjectName = NULL;
   
   if (bInheritHandle == TRUE)
     ObjectAttributes.Attributes = OBJ_INHERIT;
   else
     ObjectAttributes.Attributes = 0;
   
   errCode = NtOpenProcess(&ProcessHandle, 
			   dwDesiredAccess, 
			   &ObjectAttributes, 
			   &ClientId);
   if (!NT_SUCCESS(errCode)) 
     {
	SetLastError(RtlNtStatusToDosError(errCode));
	return NULL;
     }
   return ProcessHandle;
}


UINT
STDCALL
WinExec (
	LPCSTR	lpCmdLine,
	UINT	uCmdShow
	)
{
   STARTUPINFOA StartupInfo;
   PROCESS_INFORMATION  ProcessInformation;
   HINSTANCE hInst;
   DWORD dosErr;
   
   StartupInfo.cb = sizeof(STARTUPINFOA);
   StartupInfo.wShowWindow = uCmdShow;
   StartupInfo.dwFlags = 0;

   hInst = (HINSTANCE)CreateProcessA(NULL,
				     (PVOID)lpCmdLine,
				     NULL,
				     NULL,
				     FALSE,
				     0,
				     NULL,
				     NULL,
				     &StartupInfo, 
				     &ProcessInformation);
   if ( hInst == NULL ) 
     {
	dosErr = GetLastError();
	return dosErr;
     }
   if ( lpfnGlobalRegisterWaitForInputIdle != NULL )
     lpfnGlobalRegisterWaitForInputIdle(ProcessInformation.hProcess,10000);
   NtClose(ProcessInformation.hProcess);
   NtClose(ProcessInformation.hThread);
   return 0;	
}


VOID
STDCALL
RegisterWaitForInputIdle (
	WaitForInputIdleType	lpfnRegisterWaitForInputIdle
	)
{
	lpfnGlobalRegisterWaitForInputIdle = lpfnRegisterWaitForInputIdle; 
	return;
}


DWORD
STDCALL
WaitForInputIdle (
	HANDLE	hProcess,	
	DWORD	dwMilliseconds
	)
{
	return 0;
}


VOID STDCALL Sleep (DWORD dwMilliseconds)
{
   SleepEx (dwMilliseconds, FALSE);
   return;
}

DWORD STDCALL SleepEx(DWORD	dwMilliseconds,
		      BOOL	bAlertable)
{
   TIME Interval;
   NTSTATUS errCode;	
   
   Interval.QuadPart = dwMilliseconds * 1000;
   
   errCode = NtDelayExecution(bAlertable,&Interval);
   if (!NT_SUCCESS(errCode))
     {
	SetLastError(RtlNtStatusToDosError(errCode));
	return -1;
     }
   return 0;
}


VOID
STDCALL
GetStartupInfoW (
	LPSTARTUPINFOW	lpStartupInfo
	)
{
   PPEB pPeb = NtCurrentPeb();

   if (lpStartupInfo == NULL)
     {
	SetLastError(ERROR_INVALID_PARAMETER);
	return;
     }

   lpStartupInfo->cb = sizeof(STARTUPINFOW);
//   lstrcpyW(lpStartupInfo->lpDesktop, pPeb->Ppb->Desktop);
//   lstrcpyW(lpStartupInfo->lpTitle, pPeb->Ppb->Title);
   lpStartupInfo->dwX = pPeb->ProcessParameters->X;
   lpStartupInfo->dwY = pPeb->ProcessParameters->Y;
   lpStartupInfo->dwXSize = pPeb->ProcessParameters->XSize;
   lpStartupInfo->dwYSize = pPeb->ProcessParameters->YSize;
   lpStartupInfo->dwXCountChars = pPeb->ProcessParameters->XCountChars;
   lpStartupInfo->dwYCountChars = pPeb->ProcessParameters->YCountChars;
   lpStartupInfo->dwFillAttribute = pPeb->ProcessParameters->FillAttribute;
   lpStartupInfo->dwFlags = pPeb->ProcessParameters->Flags;
   lpStartupInfo->wShowWindow = pPeb->ProcessParameters->ShowWindow;
//   lpStartupInfo->lpReserved = pPeb->ProcessParameters->lpReserved1;
//   lpStartupInfo->cbReserved2 = pPeb->ProcessParameters->cbReserved;
//   lpStartupInfo->lpReserved2 = pPeb->ProcessParameters->lpReserved2;

   lpStartupInfo->hStdInput = pPeb->ProcessParameters->InputHandle;
   lpStartupInfo->hStdOutput = pPeb->ProcessParameters->OutputHandle;
   lpStartupInfo->hStdError = pPeb->ProcessParameters->ErrorHandle;
}


VOID
STDCALL
GetStartupInfoA (
	LPSTARTUPINFOA	lpStartupInfo
	)
{
   PPEB pPeb = NtCurrentPeb();
   ULONG i = 0;

   if (lpStartupInfo == NULL)
     {
	SetLastError(ERROR_INVALID_PARAMETER);
	return;
     }

   lpStartupInfo->cb = sizeof(STARTUPINFOA);
#if 0
   i = 0;
   while ((pPeb->ProcessParameters->Desktop[i])!=0 && i < MAX_PATH)
     {
	lpStartupInfo->lpDesktop[i] = (unsigned char)
	  pPeb->ProcessParameters->Desktop[i];
	i++;
     }
   lpStartupInfo->lpDesktop[i] = 0;

   i = 0;
   while ((pPeb->ProcessParameters->Title[i])!=0 && i < MAX_PATH)
     {
	lpStartupInfo->lpTitle[i] = (unsigned char)pPeb->ProcessParameters->Title[i];
	i++;
     }
   lpStartupInfo->lpTitle[i] = 0;
#endif
   lpStartupInfo->dwX = pPeb->ProcessParameters->X;
   lpStartupInfo->dwY = pPeb->ProcessParameters->Y;
   lpStartupInfo->dwXSize = pPeb->ProcessParameters->XSize;
   lpStartupInfo->dwYSize = pPeb->ProcessParameters->YSize;
   lpStartupInfo->dwXCountChars = pPeb->ProcessParameters->XCountChars;
   lpStartupInfo->dwYCountChars = pPeb->ProcessParameters->YCountChars;
   lpStartupInfo->dwFillAttribute = pPeb->ProcessParameters->FillAttribute;
   lpStartupInfo->dwFlags = pPeb->ProcessParameters->Flags;
   lpStartupInfo->wShowWindow = pPeb->ProcessParameters->ShowWindow;
//   lpStartupInfo->cbReserved2 = pPeb->ProcessParameters->cbReserved;
//   lpStartupInfo->lpReserved = pPeb->ProcessParameters->lpReserved1;
//   lpStartupInfo->lpReserved2 = pPeb->ProcessParameters->lpReserved2;

   lpStartupInfo->hStdInput = pPeb->ProcessParameters->InputHandle;
   lpStartupInfo->hStdOutput = pPeb->ProcessParameters->OutputHandle;
   lpStartupInfo->hStdError = pPeb->ProcessParameters->ErrorHandle;
}


BOOL
STDCALL
FlushInstructionCache (
	HANDLE	hProcess,	
	LPCVOID	lpBaseAddress,	
	DWORD	dwSize
	)
{
	NTSTATUS	errCode;

	errCode = NtFlushInstructionCache(
			hProcess,
			(PVOID) lpBaseAddress,
			dwSize
			);
	if (!NT_SUCCESS(errCode))
	{
		SetLastError(RtlNtStatusToDosError(errCode));
		return FALSE;
	}
	return TRUE;
}


VOID
STDCALL
ExitProcess (
	UINT	uExitCode
	)
{
	NtTerminateProcess(
		NtCurrentProcess(),
		uExitCode
		);
}


WINBOOL
STDCALL
TerminateProcess (
	HANDLE	hProcess,
	UINT	uExitCode
	)
{
   NTSTATUS errCode;
   errCode = NtTerminateProcess(hProcess, uExitCode);
   if (!NT_SUCCESS(errCode))
     {
	SetLastError(RtlNtStatusToDosError(errCode));
	return FALSE;
     }
   return TRUE;
}

VOID
STDCALL
FatalAppExitA (
	UINT	uAction,
	LPCSTR	lpMessageText
	)
{
   WCHAR MessageTextW[MAX_PATH];
   UINT i;
   i = 0;
   while ((*lpMessageText)!=0 && i < 35)
     {
	MessageTextW[i] = *lpMessageText;
	lpMessageText++;
	i++;
     }
   MessageTextW[i] = 0;

   return FatalAppExitW(uAction,MessageTextW);
}


VOID
STDCALL
FatalAppExitW (
	UINT	uAction,
	LPCWSTR	lpMessageText
	)
{
	return;
}


/* EOF */