home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / alt / sources / 2576 < prev    next >
Encoding:
Text File  |  1992-11-19  |  2.6 KB  |  124 lines
  1. Newsgroups: alt.sources
  2. Path: sparky!uunet!snorkelwacker.mit.edu!bloom-picayune.mit.edu!news
  3. From: scs@adam.mit.edu (Steve Summit)
  4. Subject: two patches re: med -- expression evaluator and stream-based math processor
  5. Message-ID: <1992Nov20.160754.9553@athena.mit.edu>
  6. Followup-To: alt.sources.d
  7. Sender: news@athena.mit.edu (News system)
  8. Nntp-Posting-Host: adam.mit.edu
  9. Organization: none, at the moment
  10. References: <1992Nov16.160145.7707@athena.mit.edu>
  11. Date: Fri, 20 Nov 1992 16:07:54 GMT
  12. Lines: 110
  13.  
  14. The malloc/realloc front-end included with the recently-posted
  15. med package assumed an ANSI-compatible realloc (able to handle
  16. null first arguments).  The main-line code initialized a global
  17. FILE * with stdin, which fails under VMS and is not strictly
  18. ANSI-compatible.  Thanks to Jeff sondeen@ISI.EDU and Jerry
  19. Leichter for pointing these out.
  20.  
  21. A patch to med.c, and a new copy of alloc.c, are enclosed.
  22.  
  23.                     Steve Summit
  24.                     scs@adam.mit.edu
  25.                    
  26. ----8<-------8<----cut here for patch to med.c---8<-------8<-----
  27. *** med.old.c    Mon Jan 14 19:22:52 1991
  28. --- med.c    Wed Nov 18 19:22:42 1992
  29. ***************
  30. *** 40,46 ****
  31.   enum {ZERO, PREV, GARBAGE} missingaction = GARBAGE;
  32.                   /* what to do when requested column missing */
  33.   
  34. ! FILE *ofd = stdout;
  35.   
  36.   double consts[10];
  37.   int nconsts = 0;
  38. --- 40,46 ----
  39.   enum {ZERO, PREV, GARBAGE} missingaction = GARBAGE;
  40.                   /* what to do when requested column missing */
  41.   
  42. ! FILE *ofd;
  43.   
  44.   double consts[10];
  45.   int nconsts = 0;
  46. ***************
  47. *** 91,96 ****
  48. --- 91,98 ----
  49.   /* val filled in for each line */
  50.   
  51.   basenvars = nvars;
  52. + 
  53. + ofd = stdout;
  54.   
  55.   /*
  56.    *  Standard option file parse is rife with ambiguity:
  57. ----8<-------8<-cut here for replacement alloc.c-8<-------8<-----
  58. #include <stdio.h>
  59. #ifdef __STDC__
  60. #include <stdlib.h>
  61. #endif
  62. #include "alloc.h"
  63.  
  64. #ifdef __STDC__
  65. #define SIZE_T size_t
  66. #define SAFEREALLOC
  67. #else
  68. #define SIZE_T unsigned
  69. #endif
  70.  
  71. static char nomem[] = "out of memory";
  72.  
  73. extern char *progname;
  74.  
  75. #ifndef __STDC__
  76. extern char *malloc();
  77. extern char *realloc();
  78. #endif
  79.  
  80. char *
  81. alloc(size)
  82. int size;
  83. {
  84. char *ret;
  85.  
  86. ret = malloc((SIZE_T)size);
  87.  
  88. if(ret == NULL)
  89.     {
  90.     if(progname != NULL)
  91.         fprintf(stderr, "%s: ", progname);
  92.     fprintf(stderr, "%s\n", nomem);
  93.     exit(1);
  94.     }
  95.  
  96. return(ret);
  97. }
  98.  
  99. char *
  100. crealloc(oldptr, newsize)
  101. char *oldptr;
  102. int newsize;
  103. {
  104. char *newptr;
  105.  
  106. #ifndef SAFEREALLOC
  107. if(oldptr == NULL)
  108.     newptr = malloc((SIZE_T)newsize);
  109. else
  110. #endif
  111.     newptr = realloc(oldptr, (SIZE_T)newsize);
  112.  
  113. if(newptr == NULL)
  114.     {
  115.     if(progname != NULL)
  116.         fprintf(stderr, "%s: ", progname);
  117.     fprintf(stderr, "%s\n", nomem);
  118.     exit(1);
  119.     }
  120.  
  121. return(newptr);
  122. }
  123. ----8<-------8<-------8<-------8<-------8<-------8<-------8<-----
  124.