--- /dev/null
+/* $Id: $\r
+ *\r
+ * init.c - VMS Enviroment Subsystem Server - Initialization\r
+ * \r
+ * ReactOS Operating System\r
+ * \r
+ * --------------------------------------------------------------------\r
+ *\r
+ * This software is free software; you can redistribute it and/or\r
+ * modify it under the terms of the GNU General Public License as\r
+ * published by the Free Software Foundation; either version 2 of the\r
+ * License, or (at your option) any later version.\r
+ *\r
+ * This software is distributed in the hope that it will be useful,\r
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\r
+ * General Public License for more details.\r
+ *\r
+ * You should have received a copy of the GNU General Public License\r
+ * along with this software; see the file COPYING.LIB. If not, write\r
+ * to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge,\r
+ * MA 02139, USA. \r
+ *\r
+ * --------------------------------------------------------------------\r
+ */\r
+#define __USE_NT_LPC__\r
+#include "vmsss.h"\r
+\r
+//#define NDEBUG\r
+#include <debug.h>\r
+\r
+\r
+/**********************************************************************\r
+ * NAME PRIVATE\r
+ * VmspCreatePort/1\r
+ */\r
+NTSTATUS VmsRunServer (VOID)\r
+{\r
+ NTSTATUS Status = STATUS_SUCCESS;\r
+ LPC_MAX_MESSAGE Request;\r
+ PLPC_MESSAGE Reply = NULL;\r
+ ULONG MessageType = 0;\r
+\r
+ while (TRUE)\r
+ {\r
+ Status = NtReplyWaitReceivePort (VmsApiPort,\r
+ 0,\r
+ Reply,\r
+ & Request);\r
+ if(NT_SUCCESS(Status))\r
+ {\r
+ MessageType = PORT_MESSAGE_TYPE(Request);\r
+ DPRINT("VMS: %s received a message (Type=%d)\n",\r
+ __FUNCTION__, MessageType);\r
+ switch(MessageType)\r
+ {\r
+ default:\r
+ continue;\r
+ }\r
+ }else{\r
+ DPRINT("VMS: %s: NtReplyWaitReceivePort failed (Status=%08lx)\n",\r
+ __FUNCTION__, Status);\r
+ }\r
+ }\r
+ return Status;\r
+}\r
+\r
+/* EOF */\r