os2/lib/doscalls/run/process.cpp

   1 /* $Id: process.cpp,v 1.6 2003/01/07 16:23:11 robd Exp $
   2 */
   3 /*
   4  *
   5  * COPYRIGHT:        See COPYING in the top level directory
   6  * PROJECT:          ReactOS OS/2 sub system
   7  * PART:                         doscalls.dll
   8  * FILE:             process.cpp
   9  * CONTAINS:             process and thread related CP-functions.
  10  * PURPOSE:          Kernelservices for OS/2 apps
  11  * PROGRAMMER:       Robert K. nonvolatil@yahoo.de
  12  * REVISION HISTORY:
  13  *  13-03-2002  Created
  14  *      25-07-2002      Work to make it compile
  15  */
  16
  17
  18 //#if defined (INCL_DOS)
  19 #define INCL_DOSPROCESS
  20 #define INCL_DOSERRORS
  21 #include "ros2.h"
  22
  23
  24 APIRET STDCALL DosSleep(ULONG msec)
  25 {
  26         NT::NTSTATUS stat;
  27         NT::TIME Interv;
  28         Interv.QuadPart= -(10000 * msec);
  29         stat = NT::NtDelayExecution( TRUE, &Interv );
  30         return 0;
  31 }
  32
  33
  34 /* $Id: process.cpp,v 1.6 2003/01/07 16:23:11 robd Exp $ */
  35 /* Terminates the current thread or the current Process.
  36         Decission is made by action
  37         FIXME:  move this code to OS2.EXE */
  38 VOID APIENTRY DosExit(ULONG action, ULONG result)
  39 {
  40         // decide what to do
  41         if( action == EXIT_THREAD)
  42         {
  43                 NT::NtTerminateThread( NULL, result );
  44         }
  45         else    // EXIT_PROCESS
  46         {
  47                 NT::NtTerminateProcess( NULL, result );
  48         }
  49 }
  50
  51
  52 APIRET STDCALL DosCreateThread(PTID ptid, PFNTHREAD pfn,
  53                                    ULONG param, ULONG flag, ULONG cbStack)
  54 {
  55         return ERROR_CALL_NOT_IMPLEMENTED;
  56 }
  57
  58 /* EOF */