diff options
Diffstat (limited to 'libparc/parc/algol/parc_Environment.c')
-rw-r--r-- | libparc/parc/algol/parc_Environment.c | 45 |
1 files changed, 0 insertions, 45 deletions
diff --git a/libparc/parc/algol/parc_Environment.c b/libparc/parc/algol/parc_Environment.c deleted file mode 100644 index 2955a139..00000000 --- a/libparc/parc/algol/parc_Environment.c +++ /dev/null @@ -1,45 +0,0 @@ -/* - * Copyright (c) 2017 Cisco and/or its affiliates. - * Licensed under the Apache License, Version 2.0 (the "License"); - * you may not use this file except in compliance with the License. - * You may obtain a copy of the License at: - * - * http://www.apache.org/licenses/LICENSE-2.0 - * - * Unless required by applicable law or agreed to in writing, software - * distributed under the License is distributed on an "AS IS" BASIS, - * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. - * See the License for the specific language governing permissions and - * limitations under the License. - */ - -/** - */ -#include <config.h> - -#include <sys/types.h> -#include <pwd.h> -#include <stdlib.h> -#include <unistd.h> - -#include <parc/algol/parc_Environment.h> -#include <parc/algol/parc_File.h> - -const char * -parcEnvironment_GetHomeDirectory(void) -{ - char *result = getenv("HOME"); - return result; -} - -PARCFile * -parcEnvironment_HomeDirectory(void) -{ - char *path; - - if ((path = getenv("HOME")) == NULL) { - path = getpwuid(getuid())->pw_dir; - } - - return parcFile_Create(path); -} |