void unparse_list(struct lp_list *l, FILE *outfile) {
int printed = 0;
int c;
/* indent(outfile); */
fprintf(outfile, "[ ");
indent_level++;
for(c = 0; c < l->values_len; c++) {
if(!l->values[c])
continue;
if(c) {
fprintf(outfile, ", ");
if(!(c % l->linelen)) {
fprintf(outfile, "\n");
indent(outfile);
}
}
else {
fprintf(outfile, "\n");
indent(outfile);
}
printed++;
unparse_value(l->values[c], outfile);
}
indent_level--;
if((c > 0) && printed) {
fprintf(outfile, "\n");
indent(outfile);
}
fprintf(outfile, "]");
}
static const char *
value_to_literal(Var v)
{
static Stream *s = NULL;
if (!s)
s = new_stream(100);
unparse_value(s, v);
return reset_stream(s);
}
void unparse_param(struct lp_param *p, FILE *outfile) {
fprintf(outfile, "%s = ", p->name);
if(p->source_file && p->v->source_file) {
if(strcmp(p->source_file, p->v->source_file)) {
unparse_source(p->v->source_file, outfile);
return;
}
}
unparse_value(p->v, outfile);
}
