void stage_cache_add(int stage_id, const struct prog *stage)
{
struct imd *imd;
const struct imd_entry *e;
struct stage_cache *meta;
void *c;
imd = imd_get();
e = imd_entry_add(imd, CBMEM_ID_STAGEx_META + stage_id, sizeof(*meta));
if (e == NULL) {
printk(BIOS_DEBUG, "Error: Can't add %x metadata to imd\n",
CBMEM_ID_STAGEx_META + stage_id);
return;
}
meta = imd_entry_at(imd, e);
meta->load_addr = (uintptr_t)prog_start(stage);
meta->entry_addr = (uintptr_t)prog_entry(stage);
meta->arg = (uintptr_t)prog_entry_arg(stage);
e = imd_entry_add(imd, CBMEM_ID_STAGEx_CACHE + stage_id,
prog_size(stage));
if (e == NULL) {
printk(BIOS_DEBUG, "Error: Can't add stage_cache %x to imd\n",
CBMEM_ID_STAGEx_CACHE + stage_id);
return;
}
c = imd_entry_at(imd, e);
memcpy(c, prog_start(stage), prog_size(stage));
}
static void cache_refcode(const struct rmod_stage_load *rsl)
{
struct ramstage_cache *c;
long cache_size;
c = ramstage_cache_location(&cache_size);
if (!ramstage_cache_is_valid(c)) {
printk(BIOS_DEBUG, "No place to cache reference code.\n");
return;
}
/* Determine how much remaining cache available. */
cache_size -= c->size + sizeof(*c);
if (cache_size < (sizeof(*c) + prog_size(rsl->prog))) {
printk(BIOS_DEBUG, "Not enough cache space for ref code.\n");
return;
}
c = next_cache(c);
c->magic = RAMSTAGE_CACHE_MAGIC;
c->entry_point = (uint32_t)(uintptr_t)prog_entry(rsl->prog);
c->load_address = (uint32_t)(uintptr_t)prog_start(rsl->prog);
c->size = prog_size(rsl->prog);
printk(BIOS_DEBUG, "Caching refcode at 0x%p(%x)\n",
&c->program[0], c->size);
memcpy(&c->program[0], (void *)c->load_address, c->size);
}
void payload_load(void)
{
int i;
const struct prog_loader_ops *ops;
struct prog *payload = &global_payload;
for (i = 0; i < ARRAY_SIZE(payload_ops); i++) {
ops = payload_ops[i];
if (ops->prepare(payload) < 0) {
printk(BIOS_DEBUG, "%s: could not locate payload.\n",
ops->name);
continue;
}
printk(BIOS_DEBUG, "%s: located payload @ %p, %zu bytes.\n",
ops->name, prog_start(payload), prog_size(payload));
break;
}
if (i == ARRAY_SIZE(payload_ops))
goto out;
mirror_payload(payload);
/* Pass cbtables to payload if architecture desires it. */
prog_set_entry(payload, selfload(payload),
cbmem_find(CBMEM_ID_CBTABLE));
out:
if (prog_entry(payload) == NULL)
die("Payload not loaded.\n");
}
/* Stage cache uses cbmem. */
void stage_cache_add(int stage_id, const struct prog *stage)
{
struct stage_cache *meta;
void *c;
meta = cbmem_add(CBMEM_ID_STAGEx_META + stage_id, sizeof(*meta));
if (meta == NULL)
return;
meta->load_addr = (uintptr_t)prog_start(stage);
meta->entry_addr = (uintptr_t)prog_entry(stage);
c = cbmem_add(CBMEM_ID_STAGEx_CACHE + stage_id, prog_size(stage));
if (c == NULL)
return;
memcpy(c, prog_start(stage), prog_size(stage));
}
static void try_payload(struct prog *prog)
{
if (prog_type(prog) == PROG_PAYLOAD) {
if (IS_ENABLED(CONFIG_RELOCATABLE_RAMSTAGE))
jmp_payload_no_bounce_buffer(prog_entry(prog));
else
jmp_payload(prog_entry(prog),
(uintptr_t)prog_start(prog),
prog_size(prog));
}
}
/* Read in BSDF and interpolate as Klems matrix representation */
int
main(int argc, char *argv[])
{
int dofwd = 0, dobwd = 1;
char buf[2048];
char *cp;
int i, na;
progname = argv[0];
esupport |= E_VARIABLE|E_FUNCTION|E_RCONST;
esupport &= ~(E_INCHAN|E_OUTCHAN);
scompile("PI:3.14159265358979323846", NULL, 0);
biggerlib();
for (i = 1; i < argc && (argv[i][0] == '-') | (argv[i][0] == '+'); i++)
switch (argv[i][1]) { /* get options */
case 'n':
npsamps = atoi(argv[++i]);
if (npsamps <= 0)
goto userr;
break;
case 'e':
scompile(argv[++i], NULL, 0);
single_plane_incident = 0;
break;
case 'f':
if (!argv[i][2]) {
if (strchr(argv[++i], '=') != NULL) {
add_wbsdf("-f", 1);
add_wbsdf(argv[i], 1);
} else {
char *fpath = getpath(argv[i],
getrlibpath(), 0);
if (fpath == NULL) {
fprintf(stderr,
"%s: cannot find file '%s'\n",
argv[0], argv[i]);
return(1);
}
fcompile(fpath);
single_plane_incident = 0;
}
} else
dofwd = (argv[i][0] == '+');
break;
case 'b':
dobwd = (argv[i][0] == '+');
break;
case 'h':
kbasis = klems_half;
add_wbsdf("-a", 1);
add_wbsdf("kh", 1);
break;
case 'q':
kbasis = klems_quarter;
add_wbsdf("-a", 1);
add_wbsdf("kq", 1);
break;
case 'l':
lobe_lim = atoi(argv[++i]);
break;
case 'p':
do_prog = atoi(argv[i]+2);
break;
case 'C':
add_wbsdf(argv[i], 1);
add_wbsdf(argv[++i], 1);
break;
default:
goto userr;
}
if (kbasis == klems_full) { /* default (full) basis? */
add_wbsdf("-a", 1);
add_wbsdf("kf", 1);
}
strcpy(buf, "File produced by: ");
if (convert_commandline(buf+18, sizeof(buf)-18, argv) != NULL) {
add_wbsdf("-C", 1); add_wbsdf(buf, 0);
}
if (single_plane_incident >= 0) { /* function-based BSDF? */
if (i != argc-1 || fundefined(argv[i]) < 3) {
fprintf(stderr,
"%s: need single function with 6 arguments: bsdf(ix,iy,iz,ox,oy,oz)\n",
progname);
fprintf(stderr, "\tor 3 arguments using Dx,Dy,Dz: bsdf(ix,iy,iz)\n");
goto userr;
}
++eclock;
if (dofwd) {
input_orient = -1;
output_orient = -1;
prog_start("Evaluating outside reflectance");
eval_function(argv[i]);
output_orient = 1;
prog_start("Evaluating outside->inside transmission");
eval_function(argv[i]);
}
if (dobwd) {
input_orient = 1;
output_orient = 1;
prog_start("Evaluating inside reflectance");
eval_function(argv[i]);
output_orient = -1;
prog_start("Evaluating inside->outside transmission");
eval_function(argv[i]);
}
return(wrap_up());
}
/* XML input? */
if (i == argc-1 && (cp = argv[i]+strlen(argv[i])-4) > argv[i] &&
!strcasecmp(cp, ".xml")) {
eval_bsdf(argv[i]); /* load & resample BSDF */
return(wrap_up());
}
if (i < argc) { /* open input files if given */
int nbsdf = 0;
for ( ; i < argc; i++) { /* interpolate each component */
char pbuf[256];
FILE *fpin = fopen(argv[i], "rb");
if (fpin == NULL) {
fprintf(stderr, "%s: cannot open BSDF interpolant '%s'\n",
progname, argv[i]);
return(1);
}
if (!load_bsdf_rep(fpin))
return(1);
fclose(fpin);
sprintf(pbuf, "Interpolating component '%s'", argv[i]);
prog_start(pbuf);
eval_rbf();
}
return(wrap_up());
}
SET_FILE_BINARY(stdin); /* load from stdin */
if (!load_bsdf_rep(stdin))
return(1);
prog_start("Interpolating from standard input");
eval_rbf(); /* resample dist. */
return(wrap_up());
userr:
fprintf(stderr,
"Usage: %s [-n spp][-h|-q][-l maxlobes] [bsdf.sir ..] > bsdf.xml\n", progname);
fprintf(stderr,
" or: %s [-n spp][-h|-q] bsdf_in.xml > bsdf_out.xml\n", progname);
fprintf(stderr,
" or: %s [-n spp][-h|-q][{+|-}for[ward]][{+|-}b[ackward]][-e expr][-f file] bsdf_func > bsdf.xml\n",
progname);
return(1);
}