Move VMS subtree in the proper place.
[reactos.git] / vms / server / server.c
1 /* $Id: $
2 *
3 * init.c - VMS Enviroment Subsystem Server - Initialization
4 *
5 * ReactOS Operating System
6 *
7 * --------------------------------------------------------------------
8 *
9 * This software is free software; you can redistribute it and/or
10 * modify it under the terms of the GNU General Public License as
11 * published by the Free Software Foundation; either version 2 of the
12 * License, or (at your option) any later version.
13 *
14 * This software is distributed in the hope that it will be useful,
15 * but WITHOUT ANY WARRANTY; without even the implied warranty of
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
17 * General Public License for more details.
18 *
19 * You should have received a copy of the GNU General Public License
20 * along with this software; see the file COPYING.LIB. If not, write
21 * to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge,
22 * MA 02139, USA.
23 *
24 * --------------------------------------------------------------------
25 */
26 #define __USE_NT_LPC__
27 #include "vmsss.h"
28
29 //#define NDEBUG
30 #include <debug.h>
31
32
33 /**********************************************************************
34 * NAME PRIVATE
35 * VmspCreatePort/1
36 */
37 NTSTATUS VmsRunServer (VOID)
38 {
39 NTSTATUS Status = STATUS_SUCCESS;
40 LPC_MAX_MESSAGE Request;
41 PLPC_MESSAGE Reply = NULL;
42 ULONG MessageType = 0;
43
44 while (TRUE)
45 {
46 Status = NtReplyWaitReceivePort (VmsApiPort,
47 0,
48 Reply,
49 & Request);
50 if(NT_SUCCESS(Status))
51 {
52 MessageType = PORT_MESSAGE_TYPE(Request);
53 DPRINT("VMS: %s received a message (Type=%d)\n",
54 __FUNCTION__, MessageType);
55 switch(MessageType)
56 {
57 default:
58 continue;
59 }
60 }else{
61 DPRINT("VMS: %s: NtReplyWaitReceivePort failed (Status=%08lx)\n",
62 __FUNCTION__, Status);
63 }
64 }
65 return Status;
66 }
67
68 /* EOF */