File: setenv.m

package info (click to toggle)
gnustep-xcode 0.5.0-1
  • links: PTS, VCS
  • area: main
  • in suites: experimental
  • size: 1,168 kB
  • sloc: objc: 9,258; sh: 61; makefile: 20
file content (60 lines) | stat: -rw-r--r-- 1,871 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
/*
   Copyright (C) 2018, 2019, 2020, 2021 Free Software Foundation, Inc.

   Written by: Gregory John Casamento <greg.casamento@gmail.com>
   Date: 2022
   
   This file is part of the GNUstep XCode Library

   This library is free software; you can redistribute it and/or
   modify it under the terms of the GNU Lesser General Public
   License as published by the Free Software Foundation; either
   version 2 of the License, or (at your option) any later version.
   
   This library is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
   Lesser General Public License for more details.
   
   You should have received a copy of the GNU Lesser General Public
   License along with this library; if not, write to the Free
   Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
   Boston, MA 02110 USA.
*/

#import "setenv.h"
#import "GSXCBuildContext.h"

int setenv(const char *key, const char *value, int overwrite)
{
  GSXCBuildContext *ctx = [GSXCBuildContext sharedBuildContext];
  int result = 255; // failure...
  char *current = getenv(key);

  if(overwrite && current)
    {
      int key_len = strlen(key);
      int val_len = strlen(value);
      int len = key_len + 1 + val_len + 1; // key + "=" + value + '\0'
      char *buffer = malloc(len);

      memset(buffer, 0, len);
      sprintf(buffer,"%s=%s",key,value);
      result = putenv(buffer);

      [ctx setObject: [NSString stringWithCString: value]
	      forKey: [NSString stringWithCString: key]];
      
      free(buffer);
    }

  return result;
}
/*
char *getenv(const char *key)
{
  GSXCBuildContext *ctx = [GSXCBuildContext sharedBuildContext];
  char *result = [[ctx objectForKey: [NSString stringWithCString: key]] cString];
  return result;
}
*/