1 files changed, 98 insertions, 0 deletions

diff --git a/private/ntos/nthals/haldti/mips/jxenvirv.c b/private/ntos/nthals/haldti/mips/jxenvirv.c
new file mode 100644
index 000000000..3d69ac268
--- /dev/null
+++ b/private/ntos/nthals/haldti/mips/jxenvirv.c
@@ -0,0 +1,98 @@
+/*++
+
+Copyright (c) 1991  Microsoft Corporation
+
+Module Name:
+
+    jxenvirv.c
+
+Abstract:
+
+    This module implements the HAL get and set environment variable routines
+    for a MIPS system.
+
+Author:
+
+
+Environment:
+
+    Kernel mode
+
+Revision History:
+
+--*/
+
+#include "halp.h"
+#include "arccodes.h"
+#include "string.h"
+
+ARC_STATUS
+HalGetEnvironmentVariable (
+    IN PCHAR Variable,
+    IN USHORT Length,
+    OUT PCHAR Buffer
+    )
+
+/*++
+
+Routine Description:
+
+    This function locates an environment variable and returns its value.
+
+Arguments:
+
+    Variable - Supplies a pointer to a zero terminated environment variable
+        name.
+
+    Length - Supplies the length of the value buffer in bytes.
+
+    Buffer - Supplies a pointer to a buffer that receives the variable value.
+
+Return Value:
+
+    ESUCCESS is returned if the enviroment variable is located. Otherwise,
+    ENOENT is returned.
+
+--*/
+
+{
+    CHAR *Value;
+
+    Value = ArcGetEnvironmentVariable(Variable);
+    if (Value==NULL)
+      return(ENOENT);
+    if (strlen(Value)>Length)
+      return(ENOENT);
+    strcpy(Buffer,Value);
+    return ESUCCESS;
+}
+
+
+ARC_STATUS
+HalSetEnvironmentVariable (
+    IN PCHAR Variable,
+    IN PCHAR Value
+    )
+
+/*++
+
+Routine Description:
+
+    This function creates an environment variable with the specified value.
+
+Arguments:
+
+    Variable - Supplies a pointer to an environment variable name.
+
+    Value - Supplies a pointer to the environment variable value.
+
+Return Value:
+
+    ESUCCESS is returned if the environment variable is created. Otherwise,
+    ENOMEM is returned.
+
+--*/
+
+{
+    return(ArcSetEnvironmentVariable(Variable,Value));
+}