ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/util/eplus_idf.c
(Generate patch)

Comparing ray/src/util/eplus_idf.c (file contents):
Revision 2.3 by greg, Sun Feb 9 02:18:16 2014 UTC vs.
Revision 2.4 by greg, Sun Feb 9 05:49:21 2014 UTC

# Line 134 | Line 134 | idf_delparam(IDF_LOADED *idf, IDF_PARAMETER *param)
134                  plast->pnext = param->pnext;
135                                          /* remove from global list */
136          for (plast = NULL, pptr = idf->pfirst;
137 <                                pptr != NULL; plast = pptr, pptr = pptr->dnext)
138 <                if (pptr == param)
139 <                        break;
140 <        if (pptr == NULL)
141 <                return(0);
137 >                                pptr != param; plast = pptr, pptr = pptr->dnext)
138 >                if (pptr == NULL)
139 >                        return(0);
140          if (plast == NULL)
141                  idf->pfirst = param->dnext;
142          else
# Line 155 | Line 153 | idf_delparam(IDF_LOADED *idf, IDF_PARAMETER *param)
153          return(1);
154   }
155  
156 + /* Move the specified parameter to the given position in the IDF */
157 + int
158 + idf_movparam(IDF_LOADED *idf, IDF_PARAMETER *param, IDF_PARAMETER *prev)
159 + {
160 +        IDF_PARAMETER   *pptr, *plast;
161 +
162 +        if ((idf == NULL) | (param == NULL))
163 +                return(0);
164 +                                        /* find in IDF list, first*/
165 +        for (plast = NULL, pptr = idf->pfirst;
166 +                                pptr != param; plast = pptr, pptr = pptr->dnext)
167 +                if (pptr == NULL)
168 +                        return(0);
169 +        if (plast == NULL) {
170 +                if (prev == NULL)
171 +                        return(1);      /* already in place */
172 +                idf->pfirst = param->dnext;
173 +        } else {
174 +                if (prev == plast)
175 +                        return(1);      /* already in place */
176 +                plast->dnext = param->dnext;
177 +        }
178 +        if (idf->plast == param)
179 +                idf->plast = plast;
180 +        if (prev == NULL) {             /* means they want it at beginning */
181 +                param->dnext = idf->pfirst;
182 +                idf->pfirst = param;
183 +        } else {
184 +                param->dnext = prev->dnext;
185 +                prev->dnext = param;
186 +        }
187 +        return(1);
188 + }
189 +
190   /* Get a named parameter list */
191   IDF_PARAMETER *
192   idf_getparam(IDF_LOADED *idf, const char *pname)
# Line 269 | Line 301 | idf_create(const char *hdrcomm)
301          return(idf);
302   }
303  
304 + /* Add comment(s) to header */
305 + int
306 + idf_add2hdr(IDF_LOADED *idf, const char *hdrcomm)
307 + {
308 +        int     olen, len;
309 +
310 +        if ((idf == NULL) | (hdrcomm == NULL))
311 +                return(0);
312 +        len = strlen(hdrcomm);
313 +        if (!len)
314 +                return(0);
315 +        if (idf->hrem == NULL)
316 +                olen = 0;
317 +        else
318 +                olen = strlen(idf->hrem);
319 +        if (olen)
320 +                idf->hrem = (char *)realloc(idf->hrem, olen+len+1);
321 +        else
322 +                idf->hrem = (char *)malloc(len+1);
323 +        if (idf->hrem == NULL)
324 +                return(0);
325 +        strcpy(idf->hrem+olen, hdrcomm);
326 +        return(1);
327 + }
328 +
329   /* Load an Input Data File */
330   IDF_LOADED *
331   idf_load(const char *fname)
332   {
333 <        char            hdrcomm[300*IF_MAXLINE];
333 >        char            hdrcomm[256*IDF_MAXLINE];
334          FILE            *fp;
335          IDF_LOADED      *idf;
336  
# Line 296 | Line 353 | idf_load(const char *fname)
353  
354   /* Write a parameter and fields to an open file */
355   int
356 < idf_writeparam(IDF_PARAMETER *param, FILE *fp)
356 > idf_writeparam(IDF_PARAMETER *param, FILE *fp, int incl_comm)
357   {
358          IDF_FIELD       *fptr;
359  
# Line 304 | Line 361 | idf_writeparam(IDF_PARAMETER *param, FILE *fp)
361                  return(0);
362          fputs(param->pname, fp);
363          fputc(',', fp);
364 <        fputs(param->rem, fp);
364 >        if (incl_comm)
365 >                fputs(param->rem, fp);
366          for (fptr = param->flist; fptr != NULL; fptr = fptr->next) {
367 +                if (!incl_comm)
368 +                        fputs("\n\t", fp);
369                  fputs(fptr->arg, fp);
370                  fputc((fptr->next==NULL ? ';' : ','), fp);
371 <                fputs(fptr->rem, fp);
371 >                if (incl_comm)
372 >                        fputs(fptr->rem, fp);
373          }
374 +        if (!incl_comm)
375 +                fputs("\n\n", fp);
376          return(!ferror(fp));
377   }
378  
379   /* Write out an Input Data File */
380   int
381 < idf_write(IDF_LOADED *idf, const char *fname)
381 > idf_write(IDF_LOADED *idf, const char *fname, int incl_comm)
382   {
383          FILE            *fp;
384          IDF_PARAMETER   *pptr;
# Line 326 | Line 389 | idf_write(IDF_LOADED *idf, const char *fname)
389                  fp = stdout;            /* open file if not stdout */
390          else if ((fp = fopen(fname, "w")) == NULL)
391                  return(0);
392 <        fputs(idf->hrem, fp);           /* write header then parameters */
392 >        if (incl_comm)
393 >                fputs(idf->hrem, fp);   /* write header then parameters */
394          for (pptr = idf->pfirst; pptr != NULL; pptr = pptr->dnext)
395 <                if (!idf_writeparam(pptr, fp)) {
395 >                if (!idf_writeparam(pptr, fp, incl_comm>0)) {
396                          fclose(fp);
397                          return(0);
398                  }

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines