/*
* used by the 'color' command when provided the -e option
*/
static int
edcolor(struct ged *gedp, int argc, const char *argv[])
{
struct mater *mp;
struct mater *zot;
FILE *fp;
int c;
char line[128];
static char hdr[] = "LOW\tHIGH\tRed\tGreen\tBlue\n";
char tmpfil[MAXPATHLEN];
char *editstring = NULL;
GED_CHECK_DATABASE_OPEN(gedp, GED_ERROR);
GED_CHECK_READ_ONLY(gedp, GED_ERROR);
GED_CHECK_ARGC_GT_0(gedp, argc, GED_ERROR);
bu_optind = 1;
/* First, grab the editstring off of the argv list */
while ((c = bu_getopt(argc, (char * const *)argv, "E:")) != -1) {
switch (c) {
case 'E' :
editstring = bu_optarg;
break;
default :
break;
}
}
argc -= bu_optind - 1;
argv += bu_optind - 1;
/* initialize result */
bu_vls_trunc(gedp->ged_result_str, 0);
fp = bu_temp_file(tmpfil, MAXPATHLEN);
if (fp == NULL) {
bu_vls_printf(gedp->ged_result_str, "%s: could not create tmp file", argv[0]);
return GED_ERROR;
}
fprintf(fp, "%s", hdr);
for (mp = rt_material_head(); mp != MATER_NULL; mp = mp->mt_forw) {
fprintf(fp, "%d\t%d\t%3d\t%3d\t%3d",
mp->mt_low, mp->mt_high,
mp->mt_r, mp->mt_g, mp->mt_b);
fprintf(fp, "\n");
}
(void)fclose(fp);
if (!_ged_editit(editstring, (const char *)tmpfil)) {
bu_vls_printf(gedp->ged_result_str, "%s: editor returned bad status. Aborted\n", argv[0]);
return GED_ERROR;
}
/* Read file and process it */
if ((fp = fopen(tmpfil, "r")) == NULL) {
perror(tmpfil);
return GED_ERROR;
}
if (bu_fgets(line, sizeof (line), fp) == NULL ||
line[0] != hdr[0]) {
bu_vls_printf(gedp->ged_result_str, "%s: Header line damaged, aborting\n", argv[0]);
(void)fclose(fp);
return GED_ERROR;
}
if (db_version(gedp->ged_wdbp->dbip) < 5) {
/* Zap all the current records, both in core and on disk */
while (rt_material_head() != MATER_NULL) {
zot = rt_material_head();
rt_new_material_head(zot->mt_forw);
color_zaprec(gedp, zot);
bu_free((void *)zot, "mater rec");
}
while (bu_fgets(line, sizeof (line), fp) != NULL) {
int cnt;
int low, hi, r, g, b;
/* character-separated numbers (ideally a space) */
cnt = sscanf(line, "%d%*c%d%*c%d%*c%d%*c%d",
&low, &hi, &r, &g, &b);
if (cnt != 9) {
bu_vls_printf(gedp->ged_result_str, "%s: Discarding %s\n", argv[0], line);
continue;
}
BU_ALLOC(mp, struct mater);
mp->mt_low = low;
mp->mt_high = hi;
mp->mt_r = r;
mp->mt_g = g;
mp->mt_b = b;
mp->mt_daddr = MATER_NO_ADDR;
rt_insert_color(mp);
color_putrec(gedp, mp);
}
} else {
struct bu_vls vls = BU_VLS_INIT_ZERO;
/* free colors in rt_material_head */
rt_color_free();
while (bu_fgets(line, sizeof (line), fp) != NULL) {
int cnt;
int low, hi, r, g, b;
/* character-separated numbers (ideally a space) */
cnt = sscanf(line, "%d%*c%d%*c%d%*c%d%*c%d",
&low, &hi, &r, &g, &b);
/* check to see if line is reasonable */
if (cnt != 5) {
bu_vls_printf(gedp->ged_result_str, "%s: Discarding %s\n", argv[0], line);
continue;
}
bu_vls_printf(&vls, "{%d %d %d %d %d} ", low, hi, r, g, b);
}
db5_update_attribute("_GLOBAL", "regionid_colortable", bu_vls_addr(&vls), gedp->ged_wdbp->dbip);
db5_import_color_table(bu_vls_addr(&vls));
bu_vls_free(&vls);
}
(void)fclose(fp);
bu_file_delete(tmpfil);
/* if there are drawables, update their colors */
if (gedp->ged_gdp)
ged_color_soltab(gedp->ged_gdp->gd_headDisplay);
return GED_OK;
}
int
ged_edcodes(struct ged *gedp, int argc, const char *argv[])
{
int i;
int nflag = 0;
int status;
int sort_by_ident=0;
int sort_by_region=0;
int c;
char **av;
FILE *fp = NULL;
char tmpfil[MAXPATHLEN] = {0};
const char *editstring = NULL;
static const char *usage = "[-i|-n|-r|-E editor] object(s)";
GED_CHECK_DATABASE_OPEN(gedp, GED_ERROR);
GED_CHECK_READ_ONLY(gedp, GED_ERROR);
GED_CHECK_ARGC_GT_0(gedp, argc, GED_ERROR);
/* initialize result */
bu_vls_trunc(gedp->ged_result_str, 0);
/* must be wanting help */
if (argc == 1) {
bu_vls_printf(gedp->ged_result_str, "Usage: %s %s", argv[0], usage);
return GED_HELP;
}
bu_optind = 1;
while ((c = bu_getopt(argc, (char * const *)argv, "E:inr")) != -1) {
switch (c) {
case 'E' :
editstring = bu_optarg;
break;
case 'i':
sort_by_ident = 1;
break;
case 'n':
nflag = 1;
break;
case 'r':
sort_by_region = 1;
break;
}
}
if ((nflag + sort_by_ident + sort_by_region) > 1) {
bu_vls_printf(gedp->ged_result_str, "Usage: %s %s", argv[0], usage);
return GED_ERROR;
}
argc -= bu_optind - 1;
argv += bu_optind - 1;
if (nflag) {
struct directory *dp;
for (i = 1; i < argc; ++i) {
if ((dp = db_lookup(gedp->ged_wdbp->dbip, argv[i], LOOKUP_NOISY)) != RT_DIR_NULL) {
status = edcodes_collect_regnames(gedp, dp, 0);
if (status != EDCODES_OK) {
if (status == EDCODES_HALT)
bu_vls_printf(gedp->ged_result_str, "%s: nesting is too deep\n", argv[0]);
return GED_ERROR;
}
}
}
return GED_OK;
}
fp = bu_temp_file(tmpfil, MAXPATHLEN);
if (!fp)
return GED_ERROR;
av = (char **)bu_malloc(sizeof(char *)*(argc + 2), "ged_edcodes av");
av[0] = "wcodes";
av[1] = tmpfil;
for (i = 2; i < argc + 1; ++i)
av[i] = (char *)argv[i-1];
av[i] = NULL;
(void)fclose(fp);
if (ged_wcodes(gedp, argc + 1, (const char **)av) == GED_ERROR) {
bu_file_delete(tmpfil);
bu_free((void *)av, "ged_edcodes av");
return GED_ERROR;
}
if (sort_by_ident || sort_by_region) {
char **line_array;
char aline[RT_MAXLINE];
FILE *f_srt;
int line_count=0;
int j;
if ((f_srt=fopen(tmpfil, "r+")) == NULL) {
bu_vls_printf(gedp->ged_result_str, "%s: Failed to open temp file for sorting\n", argv[0]);
bu_file_delete(tmpfil);
return GED_ERROR;
}
/* count lines */
while (bu_fgets(aline, RT_MAXLINE, f_srt)) {
line_count++;
}
/* build array of lines */
line_array = (char **)bu_calloc(line_count, sizeof(char *), "edcodes line array");
/* read lines and save into the array */
rewind(f_srt);
line_count = 0;
while (bu_fgets(aline, RT_MAXLINE, f_srt)) {
line_array[line_count] = bu_strdup(aline);
line_count++;
}
/* sort the array of lines */
if (sort_by_ident) {
bu_sort((void *)line_array, line_count, sizeof(char *), edcodes_id_compare, NULL);
} else {
bu_sort((void *)line_array, line_count, sizeof(char *), edcodes_reg_compare, NULL);
}
/* rewrite the temp file using the sorted lines */
rewind(f_srt);
for (j = 0; j < line_count; j++) {
fprintf(f_srt, "%s", line_array[j]);
bu_free(line_array[j], "ged_edcodes line array element");
}
bu_free((char *)line_array, "ged_edcodes line array");
fclose(f_srt);
}
if (_ged_editit(editstring, tmpfil)) {
av[0] = "rcodes";
av[2] = NULL;
status = ged_rcodes(gedp, 2, (const char **)av);
} else
status = GED_ERROR;
bu_file_delete(tmpfil);
bu_free((void *)av, "ged_edcodes av");
return status;
}
