1 | /* $Id: kHlpCRTEnv.cpp 3575 2007-09-02 20:05:39Z bird $ */
|
---|
2 | /** @file
|
---|
3 | * kHlpCRT - Environment Manipulation.
|
---|
4 | */
|
---|
5 |
|
---|
6 | /*
|
---|
7 | * Copyright (c) 2006-2007 knut st. osmundsen <bird-src-spam@anduin.net>
|
---|
8 | *
|
---|
9 | * This file is part of kStuff.
|
---|
10 | *
|
---|
11 | * kStuff is free software; you can redistribute it and/or
|
---|
12 | * modify it under the terms of the GNU Lesser General Public
|
---|
13 | * License as published by the Free Software Foundation; either
|
---|
14 | * version 2.1 of the License, or (at your option) any later version.
|
---|
15 | *
|
---|
16 | * kStuff is distributed in the hope that it will be useful,
|
---|
17 | * but WITHOUT ANY WARRANTY; without even the implied warranty of
|
---|
18 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
---|
19 | * Lesser General Public License for more details.
|
---|
20 | *
|
---|
21 | * You should have received a copy of the GNU Lesser General Public
|
---|
22 | * License along with kStuff; if not, write to the Free Software
|
---|
23 | * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
|
---|
24 | *
|
---|
25 | */
|
---|
26 |
|
---|
27 | /*******************************************************************************
|
---|
28 | * Header Files *
|
---|
29 | *******************************************************************************/
|
---|
30 | #include <k/kHlpEnv.h>
|
---|
31 | #include <k/kHlpString.h>
|
---|
32 | #include <k/kErrors.h>
|
---|
33 | #include <stdlib.h>
|
---|
34 |
|
---|
35 |
|
---|
36 | KHLP_DECL(int) kHlpGetEnv(const char *pszVar, char *pszVal, KSIZE cchVal)
|
---|
37 | {
|
---|
38 | int rc = 0;
|
---|
39 | const char *pszValue = getenv(pszVar);
|
---|
40 | if (pszValue)
|
---|
41 | {
|
---|
42 | KSIZE cch = kHlpStrLen((const char *)pszValue);
|
---|
43 | if (cchVal > cch)
|
---|
44 | kHlpMemCopy(pszVal, pszValue, cch + 1);
|
---|
45 | else
|
---|
46 | rc = KERR_BUFFER_OVERFLOW;
|
---|
47 | }
|
---|
48 | else
|
---|
49 | rc = KERR_ENVVAR_NOT_FOUND;
|
---|
50 | return rc;
|
---|
51 | }
|
---|
52 |
|
---|