| 10 |
|
#define _USE_MATH_DEFINES |
| 11 |
|
#include <stdlib.h> |
| 12 |
|
#include <math.h> |
| 13 |
+ |
#include <ctype.h> |
| 14 |
|
#include "random.h" |
| 15 |
|
#include "platform.h" |
| 16 |
|
#include "paths.h" |
| 576 |
|
} |
| 577 |
|
#endif |
| 578 |
|
|
| 579 |
+ |
#define HEAD_BUFLEN 8192 |
| 580 |
+ |
static char head_buf[HEAD_BUFLEN]; |
| 581 |
+ |
static int cur_headlen = 0; |
| 582 |
+ |
|
| 583 |
+ |
/* Record header line as comment associated with this SIR input */ |
| 584 |
+ |
static int |
| 585 |
+ |
record2header(char *s) |
| 586 |
+ |
{ |
| 587 |
+ |
int len = strlen(s); |
| 588 |
+ |
|
| 589 |
+ |
if (cur_headlen+len >= HEAD_BUFLEN-6) |
| 590 |
+ |
return(0); |
| 591 |
+ |
/* includes EOL */ |
| 592 |
+ |
strcpy(head_buf+cur_headlen, s); |
| 593 |
+ |
cur_headlen += len; |
| 594 |
+ |
|
| 595 |
+ |
#if defined(_WIN32) || defined(_WIN64) |
| 596 |
+ |
if (head_buf[cur_headlen-1] == '\n') |
| 597 |
+ |
head_buf[cur_headlen-1] = '\t'; |
| 598 |
+ |
#endif |
| 599 |
+ |
return(1); |
| 600 |
+ |
} |
| 601 |
+ |
|
| 602 |
+ |
/* Finish off header for this file */ |
| 603 |
+ |
static void |
| 604 |
+ |
done_header(void) |
| 605 |
+ |
{ |
| 606 |
+ |
while (cur_headlen > 0 && isspace(head_buf[cur_headlen-1])) |
| 607 |
+ |
--cur_headlen; |
| 608 |
+ |
head_buf[cur_headlen] = '\0'; |
| 609 |
+ |
if (!cur_headlen) |
| 610 |
+ |
return; |
| 611 |
+ |
add_wbsdf("-C", 1); |
| 612 |
+ |
add_wbsdf(head_buf, 0); |
| 613 |
+ |
head_buf[cur_headlen=0] = '\0'; |
| 614 |
+ |
} |
| 615 |
+ |
|
| 616 |
|
/* Read in BSDF and interpolate as Klems matrix representation */ |
| 617 |
|
int |
| 618 |
|
main(int argc, char *argv[]) |
| 737 |
|
progname, argv[i]); |
| 738 |
|
return(1); |
| 739 |
|
} |
| 740 |
+ |
sprintf(pbuf, "%s:\n", argv[i]); |
| 741 |
+ |
record2header(pbuf); |
| 742 |
+ |
sir_headshare = &record2header; |
| 743 |
|
if (!load_bsdf_rep(fpin)) |
| 744 |
|
return(1); |
| 745 |
|
fclose(fpin); |
| 746 |
+ |
done_header(); |
| 747 |
|
sprintf(pbuf, "Interpolating component '%s'", argv[i]); |
| 748 |
|
prog_start(pbuf); |
| 749 |
|
eval_rbf(); |
