/*
 * FIG : Facility for Interactive Generation of figures
 * Copyright (c) 1985-1988 by Supoj Sutanthavibul
 * Parts Copyright (c) 1989-2002 by Brian V. Smith
 * Parts Copyright (c) 1991 by Paul King
 *
 * Any party obtaining a copy of these files is granted, free of charge, a
 * full and unrestricted irrevocable, world-wide, paid up, royalty-free,
 * nonexclusive right and license to deal in this software and documentation
 * files (the "Software"), including without limitation the rights to use,
 * copy, modify, merge, publish distribute, sublicense and/or sell copies of
 * the Software, and to permit persons who receive copies from any such
 * party to do so, with the only requirement being that the above copyright
 * and this permission notice remain intact.
 *
 */

#include "fig.h"
#include "resources.h"
#include "mode.h"
#include "object.h"
#include "patchlevel.h"
#include "version.h"
#include "f_read.h"
#include "f_util.h"
#include "u_create.h"
#include "w_export.h"
#include "w_indpanel.h"
#include "w_msgpanel.h"
#include "w_setup.h"
#include "w_util.h"
#include "w_zoom.h"
#ifdef I18N
#include <locale.h>
#endif  /* I18N */

static int	write_tmpfile = 0;
static char	save_cur_dir[PATH_MAX];

/* Prototypes */

static void write_arrows(FILE *fp, F_arrow *f, F_arrow *b);

init_write_tmpfile()
{
  write_tmpfile=1;
  /* save current file directory */
  strcpy(save_cur_dir, cur_file_dir);
  /* and set to TMPDIR to preserver absolute paths of any imported pictures */
  strcpy(cur_file_dir, TMPDIR);
}

end_write_tmpfile()
{
  write_tmpfile=0;
  /* restore current file directory */
  strcpy(cur_file_dir, save_cur_dir);
}

write_file(file_name, update_recent)
    char	   *file_name;
    Boolean	    update_recent;
{
    FILE	   *fp;

    if (!ok_to_write(file_name, "SAVE"))
	return (-1);

    if ((fp = fopen(file_name, "wb")) == NULL) {
	file_msg("Couldn't open file %s, %s", file_name, strerror(errno));
	beep();
	return (-1);
    }
    num_object = 0;
    if (write_objects(fp)) {
	file_msg("Error writing file %s, %s", file_name, strerror(errno));
	beep();
	exit (2);
	return (-1);
    }
    if (!update_figs)
	put_msg("%d object(s) saved in \"%s\"", num_object, file_name);

    /* update the recent list if caller desires */
    if (update_recent)
	update_recent_list(file_name);

    return (0);
}


/* for fig2dev */


int
write_objects(fp)
    FILE	   *fp;
{
    F_arc	   *a;
    F_compound	   *c;
    F_ellipse	   *e;
    F_line	   *l;
    F_spline	   *s;
    F_text	   *t;

    /*
     * A 2 for the orientation means that the origin (0,0) is at the upper 
     * left corner of the screen (2nd quadrant).
     */

    if (!update_figs)
	put_msg("Writing . . .");
#ifdef I18N
    /* set the numeric locale to C so we get decimal points for numbers */
    setlocale(LC_NUMERIC, "C");
#endif  /* I18N */
    write_fig_header(fp);
    for (a = objects.arcs; a != NULL; a = a->next) {
	num_object++;
	write_arc(fp, a);
    }
    for (c = objects.compounds; c != NULL; c = c->next) {
	num_object++;
	write_compound(fp, c);
    }
    for (e = objects.ellipses; e != NULL; e = e->next) {
	num_object++;
	write_ellipse(fp, e);
    }
    for (l = objects.lines; l != NULL; l = l->next) {
	num_object++;
	write_line(fp, l);
    }
    for (s = objects.splines; s != NULL; s = s->next) {
	num_object++;
	write_spline(fp, s);
    }
    for (t = objects.texts; t != NULL; t = t->next) {
	num_object++;
	write_text(fp, t);
    }
#ifdef I18N
    /* reset to original locale */
    setlocale(LC_NUMERIC, "");
#endif  /* I18N */
    if (ferror(fp)) {
	fclose(fp);
	return (-1);
    }
    if (fclose(fp) == EOF)
	return (-1);


    return (0);
}

write_fig_header(fp)
    FILE	   *fp;
{
    char	    str[40], *com;
    int		    i, len;

    if (appres.write_v40) {
	fprintf(fp, "#FIG 4.0  Produced by xfig version %s.%s\n",FIG_VERSION,PATCHLEVEL);
	compound_bound(&objects, &objects.nwcorner.x, &objects.nwcorner.y,
			&objects.secorner.x, &objects.secorner.y);
	fprintf(fp, "Header {\n");
	fprintf(fp, "    Resolution	%d\n", appres.INCHES? PIX_PER_INCH: PIX_PER_CM);
	fprintf(fp, "    Bounds	%d %d %d %d\n", 
				objects.nwcorner.x, objects.nwcorner.y, 
				objects.secorner.x, objects.secorner.y);
	fprintf(fp, "    Orient	%s\n", appres.landscape? "Landscape": "Portrait");
	fprintf(fp, "    Units	%s\n", appres.INCHES? "Inches": "Metric");
	fprintf(fp, "    Uscale	%.3f%s=1%s\n", appres.userscale, appres.INCHES? "in":"cm", cur_fig_units);
	fprintf(fp, "    Pagejust	%s\n", appres.flushleft? "Flush left": "Center");
	fprintf(fp, "    Pagesize	%s\n", paper_sizes[appres.papersize].sname);
	fprintf(fp, "    Pages	%s\n", appres.multiple? "Multiple": "Single");
	fprintf(fp, "    Mag		%.2f\n", appres.magnification);
	get_grid_spec(str, export_grid_minor_text, export_grid_major_text);
	fprintf(fp, "    PGrid	%s\n", str);
	fprintf(fp, "    SGrid	%d\n", cur_gridmode);
	fprintf(fp, "    Smoothing	%d\n", appres.smooth_factor);
	fprintf(fp, "    ExportBgColor %d\n", export_background_color);
	fprintf(fp, "    Transp	%d\n", appres.transparent);
	fprintf(fp, "    Margin	%d\n", appres.export_margin);
#ifdef DONT_SHOW_DEPTHS
	if (dont_show_depths) {
	    fprintf(fp, "    DontShowDepths	{%s}\n", ......);
	}
#endif /* DONT_SHOW_DEPTHS */
	if (objects.comments) {
	    fprintf(fp, "    Description {\n");
	    /* escape any '{' we may find in the comments */
	    com = objects.comments;
	    len = strlen(com);
	    for (i=0; i<len; i++) {
		if (com[i] == '{')
		    fputc('\\', fp);
		fputc(com[i], fp);
	    }
	    fprintf(fp, "\n    }\n");
	}
	fprintf(fp, "}\n");
    } else {
	/* V3.2 */
	fprintf(fp, "%s  Produced by xfig version %s.%s\n",file_header, FIG_VERSION, PATCHLEVEL);
	fprintf(fp, appres.landscape? "Landscape\n": "Portrait\n");
	fprintf(fp, appres.flushleft? "Flush left\n": "Center\n");
	fprintf(fp, appres.INCHES? "Inches\n": "Metric\n");
	fprintf(fp, "%s\n", paper_sizes[appres.papersize].sname);
	fprintf(fp, "%.2f\n", appres.magnification);
	fprintf(fp, "%s\n", appres.multiple? "Multiple": "Single");
	fprintf(fp, "%d\n", appres.transparent);
	/* figure comments before resolution */
	write_comments(fp, objects.comments);
	/* resolution */
	fprintf(fp, "%d %d\n", PIX_PER_INCH, 2);
    } /* if V4.0 */
    /* write the user color definitions (if any) */
    write_colordefs(fp);
}

/* write the user color definitions (if any) */
write_colordefs(fp)
    FILE	   *fp;
{
    int		    i;

    if (num_usr_cols == 0) 
	return;

    if (appres.write_v40)
	fprintf(fp, "UserColors {\n");
    for (i=0; i<num_usr_cols; i++) {
	if (colorUsed[i])
	    fprintf(fp, "%s %d #%02x%02x%02x\n", appres.write_v40? "  Ucol": "0", 
		i+NUM_STD_COLS,
		user_colors[i].red/256,
		user_colors[i].green/256,
		user_colors[i].blue/256);
    }
    if (appres.write_v40)
	fprintf(fp, "}\n");
}

write_arc(fp, a)
    FILE	   *fp;
    F_arc	   *a;
{
    /* any comments first */
    write_comments(fp, a->comments);
    if (appres.write_v40) {
	fprintf(fp, "Arc {\n");
	switch (a->type) {
	    case T_OPEN_ARC:
		 fprintf(fp, "  Open");
		 break;
	    case T_PIE_WEDGE_ARC:
		 fprintf(fp, "  PieWedge");
		 break;
	    case T_ELLIPTICAL:
		 fprintf(fp, "  Ellip");
		 break;
	    default:
		 /* arc is corrupt, close off */
		 fprintf(fp, "\n}\n");
		 return;
	}
	fprintf(fp, "  %d %d %d %d %d %d %d %.3f %d %d %.3f %.3f %d %d %d %d %d %d %.4f\n",
	    a->style, a->thickness,
	    a->pen_color, a->fill_color, a->depth, a->pen_style, a->fill_style,
	    a->style_val, a->cap_style, a->direction,
	    a->center.x, a->center.y,
	    a->point[0].x, a->point[0].y,
	    a->point[1].x, a->point[1].y,
	    a->point[2].x, a->point[2].y,
	    a->angle);
	fprintf(fp, "\n");
	/* finish with any arrowheads */
	write_arrows(fp, a->for_arrow, a->back_arrow);
	fprintf(fp, "}\n");
    } else {
	/* V3.2 */
	/* externally, type 1=open arc, 2=pie wedge */
	fprintf(fp, "%d %d %d %d %d %d %d %d %d %.3f %d %d %d %d %.3f %.3f %d %d %d %d %d %d\n",
	    O_ARC, a->type+1, a->style, a->thickness,
	    a->pen_color, a->fill_color, a->depth, a->pen_style, a->fill_style,
	    a->style_val, a->cap_style, a->direction,
	    a->for_arrow ? 1 : 0, a->back_arrow ? 1 : 0,
	    a->center.x, a->center.y,
	    a->point[0].x, a->point[0].y,
	    a->point[1].x, a->point[1].y,
	    a->point[2].x, a->point[2].y);
	/* write any arrowheads */
	write_arrows(fp, a->for_arrow, a->back_arrow);
    } /* V4.0/3.2 */
}

write_compound(fp, com)
    FILE	   *fp;
    F_compound	   *com;
{
    F_arc	   *a;
    F_compound	   *c;
    F_ellipse	   *e;
    F_line	   *l;
    F_spline	   *s;
    F_text	   *t;

    /* any comments first */
    write_comments(fp, com->comments);

    if (appres.write_v40) {
	fprintf(fp, "Compound (%d %d %d %d) {\n", 
			com->nwcorner.x, com->nwcorner.y, 
			com->secorner.x, com->secorner.y);
    } else {
	/* V3.2 */
	fprintf(fp, "%d %d %d %d %d\n", O_COMPOUND, com->nwcorner.x,
	    com->nwcorner.y, com->secorner.x, com->secorner.y);
    }
    for (a = com->arcs; a != NULL; a = a->next)
	write_arc(fp, a);
    for (c = com->compounds; c != NULL; c = c->next)
	write_compound(fp, c);
    for (e = com->ellipses; e != NULL; e = e->next)
	write_ellipse(fp, e);
    for (l = com->lines; l != NULL; l = l->next)
	write_line(fp, l);
    for (s = com->splines; s != NULL; s = s->next)
	write_spline(fp, s);
    for (t = com->texts; t != NULL; t = t->next)
	write_text(fp, t);

    /* close off the compound */
    if (appres.write_v40) {
	fprintf(fp, "}\n");
    } else {
	/* V3.2 */
	fprintf(fp, "%d\n", O_END_COMPOUND);
    }
}

write_ellipse(fp, e)
    FILE	   *fp;
    F_ellipse	   *e;
{
    /* get rid of any evil ellipses which have either radius = 0 */
    if (e->radiuses.x == 0 || e->radiuses.y == 0)
	return;

    /* any comments first */
    write_comments(fp, e->comments);
    if (appres.write_v40) {
	fprintf(fp, "Ellipse {\n");
	if (e->type == T_ELLIPSE_BY_RAD)
	    fprintf(fp, "  ByRad {\n");
	else
	    fprintf(fp, "  ByDia {\n");

	fprintf(fp, "%d %d %d %d %d %d %d %.3f %d %.4f %d %d %d %d %d %d %d %d\n",
	    e->style, e->thickness,
	    e->pen_color, e->fill_color, e->depth, e->pen_style, e->fill_style,
	    e->style_val, e->direction, e->angle,
	    e->center.x, e->center.y,
	    e->radiuses.x, e->radiuses.y,
	    e->start.x, e->start.y,
	    e->end.x, e->end.y);
	fprintf(fp, "  }\n");
	fprintf(fp, "}\n");
    } else {
	/* V3.2 */
	fprintf(fp, "%d %d %d %d %d %d %d %d %d %.3f %d %.4f %d %d %d %d %d %d %d %d\n",
	    O_ELLIPSE, e->type, e->style, e->thickness,
	    e->pen_color, e->fill_color, e->depth, e->pen_style, e->fill_style,
	    e->style_val, e->direction, e->angle,
	    e->center.x, e->center.y,
	    e->radiuses.x, e->radiuses.y,
	    e->start.x, e->start.y,
	    e->end.x, e->end.y);
    } /* V4.0/3.2 */
}

write_line(fp, l)
    FILE	   *fp;
    F_line	   *l;
{
    F_point	   *p;
    int		    npts;
    char	   *picfile;

    if (l->points == NULL)
	return;

    /* any comments first */
    write_comments(fp, l->comments);

    /* count number of points and put it in the object */
    for (npts=0, p = l->points; p != NULL; p = p->next)
	npts++;
    if (appres.write_v40) {
	fprintf(fp, "Polyline {\n");
	switch (l->type) {
	    case T_POLYLINE:
		    fprintf(fp, " Line ");
		    break;
	    case T_BOX:
		    fprintf(fp, " Box ");
		    break;
	    case T_POLYGON:
		    fprintf(fp, " Polygon ");
		    break;
	    case T_ARCBOX:
		    fprintf(fp, " Arcbox ");
		    break;
	    case T_PICTURE:
		    fprintf(fp, " Picture ");
		    break;
	}
	fprintf(fp, "\n");
	/* finish with any arrowheads */
	write_arrows(fp, l->for_arrow, l->back_arrow);
	fprintf(fp, "}\n");
    } else {
	/* V3.2 */
	fprintf(fp, "%d %d %d %d %d %d %d %d %d %.3f %d %d %d %d %d %d\n",
	    O_POLYLINE, l->type, l->style, l->thickness,
	    l->pen_color, l->fill_color, l->depth, l->pen_style, 
	    l->fill_style, l->style_val, l->join_style, l->cap_style, 
	    l->radius,
	    l->for_arrow ? 1 : 0, l->back_arrow ? 1 : 0, npts);
	/* write any arrowheads */
	write_arrows(fp, l->for_arrow, l->back_arrow);

	/* handle picture stuff */
	if (l->type == T_PICTURE) {
	    char *s1;
	    picfile = NULL;
	    if (l->pic->pic_cache)
	    picfile = l->pic->pic_cache->file;
	    if (picfile == NULL || strlen(picfile) == 0) {
		s1 = "<empty>";
	    } else if (strncmp(picfile, cur_file_dir, strlen(cur_file_dir))==0 && 
		strlen(picfile) > strlen(cur_file_dir) && picfile[strlen(cur_file_dir)] == '/') {
		/* use relative path if the file is under current directory */
		    s1 = &picfile[strlen(cur_file_dir)+1];
	    } else {
		/* use full path */
		s1 = picfile;
	    }
	    fprintf(fp, "\t%d %s\n", l->pic->flipped, s1);
	}

	fprintf(fp, "\t");
	npts=0;
	for (p = l->points; p != NULL; p = p->next) {
	    fprintf(fp, " %d %d", p->x, p->y);
	    if (++npts >= 6 && p->next != NULL) {
		fprintf(fp,"\n\t");
		npts=0;
	    }
	}
	fprintf(fp, "\n");
    } /* if V4.0 */
}

write_spline(fp, s)
    FILE	   *fp;
    F_spline	   *s;
{
    F_sfactor	   *cp;
    F_point	   *p;
    int		   npts;

    if (s->points == NULL)
	return;

    /* any comments first */
    write_comments(fp, s->comments);

    /* count number of points and put it in the object */
    for (npts=0, p = s->points; p != NULL; p = p->next)
	npts++;
    fprintf(fp, "%d %d %d %d %d %d %d %d %d %.3f %d %d %d %d\n",
	    O_SPLINE, s->type, s->style, s->thickness,
	    s->pen_color, s->fill_color, s->depth, s->pen_style, 
	    s->fill_style, s->style_val, s->cap_style,
	    s->for_arrow ? 1 : 0, s->back_arrow ? 1 : 0, npts);
    /* write any arrowheads */
    write_arrows(fp, s->for_arrow, s->back_arrow);
    fprintf(fp, "\t");
    npts=0;
    for (p = s->points; p != NULL; p = p->next) {
	fprintf(fp, " %d %d", p->x, p->y);
	if (++npts >= 6 && p->next != NULL) {
		fprintf(fp,"\n\t");
		npts=0;
	}
    };
    fprintf(fp, "\n");

    if (s->sfactors == NULL)
	return;

    /* save new shape factor */

    fprintf(fp, "\t");
    npts=0;
    for (cp = s->sfactors; cp != NULL; cp = cp->next) {
	fprintf(fp, " %.3f",cp->s);
	if (++npts >= 8 && cp->next != NULL) {
	    fprintf(fp,"\n\t");
	    npts=0;
	}
    }
    fprintf(fp, "\n");
}


write_text(fp, t)
    FILE           *fp;
    F_text         *t;
{
    int		    l, len;
    unsigned char   c;

    if (t->length == 0)
	    return;

    /* any comments first */
    write_comments(fp, t->comments);

    fprintf(fp, "%d %d %d %d %d %d %d %.4f %d %d %d %d %d ",
			O_TEXT, t->type, t->color, t->depth, t->pen_style,
			t->font, t->size, t->angle,
			t->flags, t->ascent+t->descent, t->length,
			t->base_x, t->base_y);
    len = strlen(t->cstring);
    for (l=0; l<len; l++) {
	c = t->cstring[l];
	if (c == '\\')
	    fprintf(fp,"\\\\");	 /* escape a '\' with another one */
	else if (c < 0x80)
	    putc(c,fp);  /* normal 7-bit ASCII */
	else
	    fprintf(fp, "\\%o", c);  /* 8-bit, make \xxx (octal) */
    }
    fprintf(fp,"\\001\n");	      /* finish off with '\001' string */
}

/* write any arrow heads */

static void
write_arrows(FILE *fp, F_arrow *f, F_arrow *b)
{
    if (appres.write_v40) {
	if (f)
	    fprintf(fp, "  ForwardArrow { %d %d %.2f %.2f %.2f }\n", f->type, f->style,
		f->thickness, f->wd*15.0, f->ht*15.0);
	if (b)
	    fprintf(fp, "  BackwardArrow { %d %d %.2f %.2f %.2f }\n", b->type, b->style,
		b->thickness, b->wd*15.0, b->ht*15.0);
    } else {
	/* V3.2 */
	if (f)
	    fprintf(fp, "\t%d %d %.2f %.2f %.2f\n", f->type, f->style,
		f->thickness, f->wd*15.0, f->ht*15.0);
	if (b)
	    fprintf(fp, "\t%d %d %.2f %.2f %.2f\n", b->type, b->style,
		b->thickness, b->wd*15.0, b->ht*15.0);
    } /* V4.0/V3.2 */
}

write_comments(fp, com)
    FILE	   *fp;
    char	   *com;
{
    char	   last;

    if (!com || !*com)
	return;
    fprintf(fp,"# ");
    while (*com) {
	last = *com;
	fputc(*com,fp);
	if (*com == '\n' && *(com+1) != '\0')
	    fprintf(fp,"# ");
	com++;
    }
    /* add newline if last line of comment didn't have one */
    if (last != '\n')
	fputc('\n',fp);
}

emergency_save(file_name)
    char	   *file_name;
{
    FILE	   *fp;

    if ((fp = fopen(file_name, "wb")) == NULL)
	return (-1);
    /* first close any open compounds */
    close_all_compounds();
    num_object = 0;
    if (write_objects(fp))
	return (-1);
    if (file_name[0] != '/') {
	(void) fprintf(stderr, "xfig: %d object(s) saved in \"%s/%s\"\n",
		   num_object, cur_file_dir, file_name);
    } else {
	(void) fprintf(stderr, "xfig: %d object(s) saved in \"%s\"\n",
		   num_object, file_name);
    }
    return (0);
}
