开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > Web服务器 > 查看源码
setenv.c
资源名称：httpd.tar.gz　[点击查看]
上传用户：lampled
上传日期：2007-01-07
资源大小：94k
文件大小：2k
源码类别：

Web服务器

开发平台：

Unix_Linux

setenv.c：源码内容
  1. /* Copyright (C) 1995, 1996 by Sven Berkvens (sven@stack.nl) */
  3. #include "config.h"
  5. #ifndef HAVE_SETENV
  7. #include <stddef.h>
  8. #include <stdlib.h>
  9. #include <stdio.h>
  10. #include <unistd.h>
  12. #include "setenv.h"
  13. #include "string.h"
  15. #ifndef NOFORWARDS
  16. static char *findenv  PROTO((const char *, int *));
  17. #endif /* NOFORWARDS */
  19. #ifdef NEED_DECL_ENVIRON
  20. extern char **environ;
  21. #endif /* NEED_DECL_ENVIRON */
  23. extern char *
  24. getenv DECL1C(char *, name)
  25. {
  26. int offset;
  28. return(findenv(name, &offset));
  29. }
  31. static char *
  32. findenv DECL2C_(char *, name, int *, offset)
  33. {
  34. int len;
  35. const char *np;
  36. char **p, *c;
  38. if (!name || !environ)
  39. return(NULL);
  40. for (np = name; *np && (*np != '='); ++np)
  41. continue;
  42. len = np - name;
  43. for (p = environ; ((c = *p)); ++p)
  44. {
  45. if (!strncmp(c, name, len) && (c[len] == '='))
  46. {
  47. *offset = p - environ;
  48. return(c + len + 1);
  49. }
  50. }
  51. return (NULL);
  52. }
  54. extern int
  55. setenv DECL3CC_(char *, name, char *, value, int, rewrite)
  56. {
  57. static int alloced = 0;
  58. char *c;
  59. int l_value, offset;
  61. if (*value == '=')
  62. value++;
  63. l_value = strlen(value);
  64. if ((c = findenv(name, &offset)))
  65. {
  66. if (!rewrite)
  67. return(0);
  68. if (strlen(c) >= l_value)
  69. {
  70. while ((*(c++) = *(value++)))
  71. /* NOTHING HERE */;
  72. return(0);
  73. }
  74. } else
  75. {
  76. int cnt;
  77. char **p;
  79. for (p = environ, cnt = 0; *p; p++, cnt++);
  80. if (alloced)
  81. {
  82. environ = (char **)realloc((char *)environ,
  83.     (size_t)(sizeof(char *) * (cnt + 2)));
  84. if (!environ)
  85. return(-1);
  86. } else
  87. {
  88. alloced = 1;
  89. p = (char **)malloc((size_t)(sizeof(char *) * (cnt+2)));
  90. if (!p)
  91. return(-1);
  92. bcopy((char *)environ, (char *)p, cnt * sizeof(char *));
  93. environ = p;
  94. }
  95. environ[cnt + 1] = NULL;
  96. offset = cnt;
  97. }
  98. for (c = (char *)name; *c && (*c != '='); c++)
  99. /* NOTHING HERE */;
  100. if (!(environ[offset] =
  101. (char *)malloc((size_t)((int)(c - name) + l_value+2))))
  102. return(-1);
  103. for (c = environ[offset]; ((*c = *(name++))) && (*c != '='); c++)
  104. /* NOTHING HERE */;
  105. for (*(c++) = '='; (*(c++) = *(value++)); )
  106. /* NOTHING HERE */;
  107. return (0);
  108. }
  110. extern VOID
  111. unsetenv DECL1C(char *, name)
  112. {
  113. char **p;
  114. int offset;
  116. while (findenv(name, &offset))
  117. {
  118. for (p = environ + offset; (*p = p[1]) ; p++)
  119. /* NOTHING HERE */;
  120. }
  121. }
  123. #else /* Not not HAVE_SETENV */
  125. extern int dummy;
  127. #endif /* HAVE_SETENV */