home *** CD-ROM | disk | FTP | other *** search
/ vim.ftp.fu-berlin.de / 2015-02-03.vim.ftp.fu-berlin.de.tar / vim.ftp.fu-berlin.de / patches / 6.0.031 < prev    next >
Encoding:
Internet Message Format  |  2001-10-27  |  9.9 KB
  1. To: vim-dev@vim.org
  2. Subject: Patch 6.0.031
  3. Fcc: outbox
  4. From: Bram Moolenaar <Bram@moolenaar.net>
  5. MIME-Version: 1.0
  6. Content-Type: text/plain; charset=ISO-8859-1
  7. Content-Transfer-Encoding: 8bit
  8. ------------
  9.  
  10. Patch 6.0.031
  11. Problem:    Nextstep doesn't have setenv() or putenv().  (John Beppu)
  12. Solution:   Move putenv() from pty.c to misc2.c
  13. Files:      src/misc2.c, src/pty.c
  14.  
  15.  
  16. *** ../vim60.30/src/misc2.c    Sun Sep 30 10:53:07 2001
  17. --- src/misc2.c    Sun Oct 28 21:49:00 2001
  18. ***************
  19. *** 5186,5188 ****
  20. --- 5187,5364 ----
  21.   
  22.   
  23.   #endif /*FEAT_PRINTER*/
  24. + 
  25. + /*
  26. +  * The putenv() implementation below comes from the "screen" program.
  27. +  * Included with permission from Juergen Weigert.
  28. +  * See pty.c for the copyright notice.
  29. +  */
  30. + 
  31. + /*
  32. +  *  putenv  --    put value into environment
  33. +  *
  34. +  *  Usage:  i = putenv (string)
  35. +  *    int i;
  36. +  *    char  *string;
  37. +  *
  38. +  *  where string is of the form <name>=<value>.
  39. +  *  Putenv returns 0 normally, -1 on error (not enough core for malloc).
  40. +  *
  41. +  *  Putenv may need to add a new name into the environment, or to
  42. +  *  associate a value longer than the current value with a particular
  43. +  *  name.  So, to make life simpler, putenv() copies your entire
  44. +  *  environment into the heap (i.e. malloc()) from the stack
  45. +  *  (i.e. where it resides when your process is initiated) the first
  46. +  *  time you call it.
  47. +  *
  48. +  *  (history removed, not very interesting.  See the "screen" sources.)
  49. +  */
  50. + 
  51. + #if !defined(HAVE_SETENV) && !defined(HAVE_PUTENV)
  52. + 
  53. + #define EXTRASIZE 5        /* increment to add to env. size */
  54. + 
  55. + static int  envsize = -1;    /* current size of environment */
  56. + #ifndef MACOS
  57. + extern
  58. + #endif
  59. +        char **environ;        /* the global which is your env. */
  60. + 
  61. + static int  findenv __ARGS((char *name)); /* look for a name in the env. */
  62. + static int  newenv __ARGS((void));    /* copy env. from stack to heap */
  63. + static int  moreenv __ARGS((void));    /* incr. size of env. */
  64. + 
  65. +     int
  66. + putenv(string)
  67. +     const char *string;
  68. + {
  69. +     int        i;
  70. +     char    *p;
  71. + 
  72. +     if (envsize < 0)
  73. +     {                /* first time putenv called */
  74. +     if (newenv() < 0)    /* copy env. to heap */
  75. +         return -1;
  76. +     }
  77. + 
  78. +     i = findenv((char *)string); /* look for name in environment */
  79. + 
  80. +     if (i < 0)
  81. +     {                /* name must be added */
  82. +     for (i = 0; environ[i]; i++);
  83. +     if (i >= (envsize - 1))
  84. +     {            /* need new slot */
  85. +         if (moreenv() < 0)
  86. +         return -1;
  87. +     }
  88. +     p = (char *)alloc((unsigned)(strlen(string) + 1));
  89. +     if (p == NULL)        /* not enough core */
  90. +         return -1;
  91. +     environ[i + 1] = 0;    /* new end of env. */
  92. +     }
  93. +     else
  94. +     {                /* name already in env. */
  95. +     p = vim_realloc(environ[i], strlen(string) + 1);
  96. +     if (p == NULL)
  97. +         return -1;
  98. +     }
  99. +     sprintf(p, "%s", string);    /* copy into env. */
  100. +     environ[i] = p;
  101. + 
  102. +     return 0;
  103. + }
  104. + 
  105. +     static int
  106. + findenv(name)
  107. +     char *name;
  108. + {
  109. +     char    *namechar, *envchar;
  110. +     int        i, found;
  111. + 
  112. +     found = 0;
  113. +     for (i = 0; environ[i] && !found; i++)
  114. +     {
  115. +     envchar = environ[i];
  116. +     namechar = name;
  117. +     while (*namechar && *namechar != '=' && (*namechar == *envchar))
  118. +     {
  119. +         namechar++;
  120. +         envchar++;
  121. +     }
  122. +     found = ((*namechar == '\0' || *namechar == '=') && *envchar == '=');
  123. +     }
  124. +     return found ? i - 1 : -1;
  125. + }
  126. + 
  127. +     static int
  128. + newenv()
  129. + {
  130. +     char    **env, *elem;
  131. +     int        i, esize;
  132. + 
  133. + #ifdef MACOS
  134. +     /* for Mac a new, empty environment is created */
  135. +     i = 0;
  136. + #else
  137. +     for (i = 0; environ[i]; i++)
  138. +     ;
  139. + #endif
  140. +     esize = i + EXTRASIZE + 1;
  141. +     env = (char **)alloc((unsigned)(esize * sizeof (elem)));
  142. +     if (env == NULL)
  143. +     return -1;
  144. + 
  145. + #ifndef MACOS
  146. +     for (i = 0; environ[i]; i++)
  147. +     {
  148. +     elem = (char *)alloc((unsigned)(strlen(environ[i]) + 1));
  149. +     if (elem == NULL)
  150. +         return -1;
  151. +     env[i] = elem;
  152. +     strcpy(elem, environ[i]);
  153. +     }
  154. + #endif
  155. + 
  156. +     env[i] = 0;
  157. +     environ = env;
  158. +     envsize = esize;
  159. +     return 0;
  160. + }
  161. + 
  162. +     static int
  163. + moreenv()
  164. + {
  165. +     int        esize;
  166. +     char    **env;
  167. + 
  168. +     esize = envsize + EXTRASIZE;
  169. +     env = (char **)vim_realloc((char *)environ, esize * sizeof (*env));
  170. +     if (env == 0)
  171. +     return -1;
  172. +     environ = env;
  173. +     envsize = esize;
  174. +     return 0;
  175. + }
  176. + 
  177. + # ifdef USE_VIMPTY_GETENV
  178. +     char_u *
  179. + vimpty_getenv(string)
  180. +     const char_u *string;
  181. + {
  182. +     int i;
  183. +     char_u *p;
  184. + 
  185. +     if (envsize < 0)
  186. +     return NULL;
  187. + 
  188. +     i = findenv((char *)string);
  189. + 
  190. +     if (i < 0)
  191. +     return NULL;
  192. + 
  193. +     p = vim_strchr((char_u *)environ[i], '=');
  194. +     return (p + 1);
  195. + }
  196. + # endif
  197. + 
  198. + #endif /* !defined(HAVE_SETENV) && !defined(HAVE_PUTENV) */
  199. *** ../vim60.30/src/pty.c    Sat Jul 28 12:34:41 2001
  200. --- src/pty.c    Sun Oct 28 21:46:44 2001
  201. ***************
  202. *** 9,15 ****
  203.   /*
  204.    * The stuff in this file mostly comes from the "screen" program.
  205.    * Included with permission from Juergen Weigert.
  206. !  * Copied from "pty.c" and "putenv.c".
  207.    *
  208.    * It has been modified to work better with Vim.
  209.    * The parts that are not used in Vim have been deleted.
  210. --- 9,15 ----
  211.   /*
  212.    * The stuff in this file mostly comes from the "screen" program.
  213.    * Included with permission from Juergen Weigert.
  214. !  * Copied from "pty.c".  "putenv.c" was used for putenv() in misc2.c.
  215.    *
  216.    * It has been modified to work better with Vim.
  217.    * The parts that are not used in Vim have been deleted.
  218. ***************
  219. *** 423,597 ****
  220.       return -1;
  221.   }
  222.   #endif
  223. - 
  224. - /* putenv.c */
  225. - 
  226. - /*
  227. -  *  putenv  --    put value into environment
  228. -  *
  229. -  *  Usage:  i = putenv (string)
  230. -  *    int i;
  231. -  *    char  *string;
  232. -  *
  233. -  *  where string is of the form <name>=<value>.
  234. -  *  Putenv returns 0 normally, -1 on error (not enough core for malloc).
  235. -  *
  236. -  *  Putenv may need to add a new name into the environment, or to
  237. -  *  associate a value longer than the current value with a particular
  238. -  *  name.  So, to make life simpler, putenv() copies your entire
  239. -  *  environment into the heap (i.e. malloc()) from the stack
  240. -  *  (i.e. where it resides when your process is initiated) the first
  241. -  *  time you call it.
  242. -  *
  243. -  *  (history removed, not very interesting.  See the "screen" sources.)
  244. -  */
  245. - /* RCS_ID("$Id: pty.c,v 1.2 1999/09/19 19:50:51 mool Exp $ FAU") */
  246. - 
  247. - #if !defined(HAVE_SETENV) && !defined(HAVE_PUTENV)
  248. - 
  249. - #define EXTRASIZE 5        /* increment to add to env. size */
  250. - 
  251. - static int  envsize = -1;    /* current size of environment */
  252. - #ifndef MACOS
  253. - extern
  254. - #endif
  255. -        char **environ;        /* the global which is your env. */
  256. - 
  257. - static int  findenv __ARGS((char *name)); /* look for a name in the env. */
  258. - static int  newenv __ARGS((void));    /* copy env. from stack to heap */
  259. - static int  moreenv __ARGS((void));    /* incr. size of env. */
  260. - 
  261. -     int
  262. - putenv(string)
  263. -     const char *string;
  264. - {
  265. -     int        i;
  266. -     char    *p;
  267. - 
  268. -     if (envsize < 0)
  269. -     {                /* first time putenv called */
  270. -     if (newenv() < 0)    /* copy env. to heap */
  271. -         return -1;
  272. -     }
  273. - 
  274. -     i = findenv((char *)string); /* look for name in environment */
  275. - 
  276. -     if (i < 0)
  277. -     {                /* name must be added */
  278. -     for (i = 0; environ[i]; i++);
  279. -     if (i >= (envsize - 1))
  280. -     {            /* need new slot */
  281. -         if (moreenv() < 0)
  282. -         return -1;
  283. -     }
  284. -     p = (char *)alloc((unsigned)(strlen(string) + 1));
  285. -     if (p == NULL)        /* not enough core */
  286. -         return -1;
  287. -     environ[i + 1] = 0;    /* new end of env. */
  288. -     }
  289. -     else
  290. -     {                /* name already in env. */
  291. -     p = vim_realloc(environ[i], strlen(string) + 1);
  292. -     if (p == NULL)
  293. -         return -1;
  294. -     }
  295. -     sprintf(p, "%s", string);    /* copy into env. */
  296. -     environ[i] = p;
  297. - 
  298. -     return 0;
  299. - }
  300. - 
  301. -     static int
  302. - findenv(name)
  303. -     char *name;
  304. - {
  305. -     char    *namechar, *envchar;
  306. -     int        i, found;
  307. - 
  308. -     found = 0;
  309. -     for (i = 0; environ[i] && !found; i++)
  310. -     {
  311. -     envchar = environ[i];
  312. -     namechar = name;
  313. -     while (*namechar && *namechar != '=' && (*namechar == *envchar))
  314. -     {
  315. -         namechar++;
  316. -         envchar++;
  317. -     }
  318. -     found = ((*namechar == '\0' || *namechar == '=') && *envchar == '=');
  319. -     }
  320. -     return found ? i - 1 : -1;
  321. - }
  322. - 
  323. -     static int
  324. - newenv()
  325. - {
  326. -     char    **env, *elem;
  327. -     int        i, esize;
  328. - 
  329. - #ifdef MACOS
  330. -     /* for Mac a new, empty environment is created */
  331. -     i = 0;
  332. - #else
  333. -     for (i = 0; environ[i]; i++)
  334. -     ;
  335. - #endif
  336. -     esize = i + EXTRASIZE + 1;
  337. -     env = (char **)alloc((unsigned)(esize * sizeof (elem)));
  338. -     if (env == NULL)
  339. -     return -1;
  340. - 
  341. - #ifndef MACOS
  342. -     for (i = 0; environ[i]; i++)
  343. -     {
  344. -     elem = (char *)alloc((unsigned)(strlen(environ[i]) + 1));
  345. -     if (elem == NULL)
  346. -         return -1;
  347. -     env[i] = elem;
  348. -     strcpy(elem, environ[i]);
  349. -     }
  350. - #endif
  351. - 
  352. -     env[i] = 0;
  353. -     environ = env;
  354. -     envsize = esize;
  355. -     return 0;
  356. - }
  357. - 
  358. -     static int
  359. - moreenv()
  360. - {
  361. -     int        esize;
  362. -     char    **env;
  363. - 
  364. -     esize = envsize + EXTRASIZE;
  365. -     env = (char **)vim_realloc((char *)environ, esize * sizeof (*env));
  366. -     if (env == 0)
  367. -     return -1;
  368. -     environ = env;
  369. -     envsize = esize;
  370. -     return 0;
  371. - }
  372. - 
  373. - # ifdef USE_VIMPTY_GETENV
  374. -     char_u *
  375. - vimpty_getenv(string)
  376. -     const char_u *string;
  377. - {
  378. -     int i;
  379. -     char_u *p;
  380. - 
  381. -     if (envsize < 0)
  382. -     return NULL;
  383. - 
  384. -     i = findenv((char *)string);
  385. - 
  386. -     if (i < 0)
  387. -     return NULL;
  388. - 
  389. -     p = vim_strchr((char_u *)environ[i], '=');
  390. -     return (p + 1);
  391. - }
  392. - # endif
  393. - 
  394. - #endif /* !defined(HAVE_SETENV) && !defined(HAVE_PUTENV) */
  395. --- 423,425 ----
  396. *** ../vim60.30/src/version.c    Sun Oct 28 21:23:45 2001
  397. --- src/version.c    Sun Oct 28 21:51:26 2001
  398. ***************
  399. *** 608,609 ****
  400. --- 608,611 ----
  401.   {   /* Add new patch number below this line */
  402. + /**/
  403. +     31,
  404.   /**/
  405.  
  406. -- 
  407. -rwxr-xr-x  1 root          24 Oct 29  1929 /bin/ed
  408. -rwxr-xr-t  4 root      131720 Jan  1  1970 /usr/ucb/vi
  409. -rwxr-xr-x  1 root  5.89824e37 Oct 22  1990 /usr/bin/emacs
  410.  
  411.  ///  Bram Moolenaar -- Bram@moolenaar.net -- http://www.moolenaar.net  \\\
  412. (((   Creator of Vim -- http://vim.sf.net -- ftp://ftp.vim.org/pub/vim   )))
  413.  \\\  Help me helping AIDS orphans in Uganda - http://iccf-holland.org  ///
  414.