lib/psiconv/generate_layout.c

/*
    generate_layout.c - Part of psiconv, a PSION 5 file formats converter
    Copyright (c) 2000  Frodo Looijaard <frodol@dds.nl>

    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/

#include "config.h"
#include "compat.h"

#include <string.h>

#include "generate_routines.h"
#include "error.h"

#ifdef DMALLOC
#include <dmalloc.h>
#endif


int psiconv_write_color(const psiconv_config config, psiconv_buffer buf, 
                        int lev, const psiconv_color value)
{
  int res;

  psiconv_progress(config,lev,0,"Writing color");

  if (!value) {
    psiconv_error(config,0,psiconv_buffer_length(buf),"Null color");
    return -PSICONV_E_GENERATE;
  }
  if ((res = psiconv_write_u8(config,buf,lev+1,value->red))) 
    return res;
  if ((res = psiconv_write_u8(config,buf,lev+1,value->green))) 
    return res;
  return  psiconv_write_u8(config,buf,lev+1,value->blue);
}

int psiconv_write_font(const psiconv_config config, psiconv_buffer buf, 
                       int lev, const psiconv_font value)
{
  int res,len;

  psiconv_progress(config,lev,0,"Writing font");
  if (!value) {
    psiconv_error(config,0,psiconv_buffer_length(buf),"Null font");
    return -PSICONV_E_GENERATE;
  }
  len = psiconv_unicode_strlen(value->name);
  if ((res = psiconv_write_u8(config,buf,lev+1,len+1)))
    return res;
  if ((res = psiconv_write_charlist(config,buf,lev+1,value->name)))
    return res;
  return psiconv_write_u8(config,buf,lev+1,value->screenfont);
}

int psiconv_write_border(const psiconv_config config, psiconv_buffer buf,int lev,  const psiconv_border value)
{
  int res;

  psiconv_progress(config,lev,0,"Writing border");

  if (!value) {
    psiconv_error(config,0,psiconv_buffer_length(buf),"Null border");
    return -PSICONV_E_GENERATE;
  }
  if (value->kind > psiconv_border_dotdotdashed) 
    psiconv_warn(config,0,psiconv_buffer_length(buf),
                 "Unknown border kind (%d); assuming none",value->kind);
  if ((res =psiconv_write_u8(config,buf,lev+1,
                                 value->kind == psiconv_border_none?0:
                                 value->kind == psiconv_border_solid?1:
                                 value->kind == psiconv_border_double?2:
                                 value->kind == psiconv_border_dotted?3:
                                 value->kind == psiconv_border_dashed?4:
                                 value->kind == psiconv_border_dotdashed?5:
                                 value->kind == psiconv_border_dotdotdashed?6:
                                                0)))
    return res;
  if ((res = psiconv_write_size(config,buf,lev+1,(value->kind == psiconv_border_solid) ||
                                    (value->kind == psiconv_border_double) ?
                                    value->thickness:1.0/20.0)))
    return res;
  if ((res = psiconv_write_color(config,buf,lev+1,value->color)))
    return res;
  /* Unknown byte */
  return psiconv_write_u8(config,buf,lev+1,1);
}

int psiconv_write_bullet(const psiconv_config config, psiconv_buffer buf,int lev,  const psiconv_bullet value)
{
  int res;
  psiconv_buffer extra_buf;

  psiconv_progress(config,lev,0,"Writing bullet");

  if (!value) {
    psiconv_error(config,0,psiconv_buffer_length(buf),"Null bullet");
    return -PSICONV_E_GENERATE;
  }

  if (!(extra_buf = psiconv_buffer_new()))
    return -PSICONV_E_NOMEM;
  if ((res = psiconv_write_size(config,extra_buf,lev+1,value->font_size)))
    goto ERROR;
  if ((res = psiconv_write_u8(config,extra_buf,lev+1,
                              psiconv_unicode_to_char(config,value->character))))
    goto ERROR;
  if ((res = psiconv_write_bool(config,extra_buf,lev+1,value->indent)))
    goto ERROR;
  if ((res = psiconv_write_color(config,extra_buf,lev+1,value->color)))
    goto ERROR;
  if ((res = psiconv_write_font(config,extra_buf,lev+1,value->font)))
    goto ERROR;

  if ((res = psiconv_write_u8(config,buf,lev+1,psiconv_buffer_length(extra_buf))))
    goto ERROR;
  res = psiconv_buffer_concat(buf,extra_buf);
  
ERROR:
  psiconv_buffer_free(extra_buf);
  return res;
}

int psiconv_write_tab(const psiconv_config config, psiconv_buffer buf,int lev, psiconv_tab value)
{
  int res;

  psiconv_progress(config,lev,0,"Writing tab");

  if (!value) {
    psiconv_error(config,0,psiconv_buffer_length(buf),"Null tab");
    return -PSICONV_E_GENERATE;
  }
  if ((res = psiconv_write_length(config,buf,lev+1,value->location)))
    return res;
  if ((value->kind != psiconv_tab_left) && 
      (value->kind != psiconv_tab_right) &&
      (value->kind != psiconv_tab_centre)) 
    psiconv_warn(config,0,psiconv_buffer_length(buf),
                 "Unknown tab kind (%d); assuming left",value->kind);
  return psiconv_write_u8(config,buf,lev+1, value->kind == psiconv_tab_right?2:
                               value->kind == psiconv_tab_centre?3:1);
}

int psiconv_write_paragraph_layout_list(const psiconv_config config,
                                        psiconv_buffer buf,int lev,  
                                        psiconv_paragraph_layout value,
                                        psiconv_paragraph_layout base)
{
  int res,i;
  psiconv_buffer extra_buf;
  psiconv_tab tab;
  
  psiconv_progress(config,lev,0,"Writing paragraph layout list");

  if (!value) {
    psiconv_error(config,0,psiconv_buffer_length(buf),"Null paragraph layout list");
    return -PSICONV_E_GENERATE;
  }
  if (!(extra_buf = psiconv_buffer_new()))
    return -PSICONV_E_NOMEM;
  
  if (!base || psiconv_compare_color(base->back_color,value->back_color)) {
    if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x01)))
      goto ERROR;
    if ((res = psiconv_write_color(config,extra_buf,lev+1,value->back_color)))
      goto ERROR;
  }

  if (!base || (value->indent_left != base->indent_left)) {
    if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x02)))
      goto ERROR;
    if ((res = psiconv_write_length(config,extra_buf,lev+1,value->indent_left)))
      goto ERROR;
  }

  if (!base || (value->indent_right != base->indent_right)) {
    if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x03)))
      goto ERROR;
    if ((res = psiconv_write_length(config,extra_buf,lev+1,value->indent_right)))
      goto ERROR;
  }

  if (!base || (value->indent_first != base->indent_first)) {
    if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x04)))
      goto ERROR;
    if ((res = psiconv_write_length(config,extra_buf,lev+1,value->indent_first)))
      goto ERROR;
  }

  if (!base || (value->justify_hor != base->justify_hor)) {
    if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x05)))
      goto ERROR;
    if ((value->justify_hor < psiconv_justify_left) ||
        (value->justify_hor > psiconv_justify_full))
      psiconv_warn(config,0,psiconv_buffer_length(buf),
                   "Unknown horizontal justify (%d); assuming left",
                   value->justify_hor);
    if ((res = psiconv_write_u8(config,extra_buf,lev+1,
               value->justify_hor == psiconv_justify_centre?1:
               value->justify_hor == psiconv_justify_right?2:
               value->justify_hor == psiconv_justify_full?3:0)))
      goto ERROR;
  }

  if (!base || (value->justify_ver != base->justify_ver)) {
    if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x06)))
      goto ERROR;
    if ((value->justify_ver < psiconv_justify_top) ||
        (value->justify_ver > psiconv_justify_bottom))
      psiconv_warn(config,0,psiconv_buffer_length(buf),
                   "Unknown vertical justify (%d); assuming middle",
                    value->justify_ver);
    if ((res = psiconv_write_u8(config,extra_buf,lev+1,
               value->justify_ver == psiconv_justify_centre?1:
               value->justify_ver == psiconv_justify_right?2:0)))
      goto ERROR;
  }

  if (!base || (value->linespacing != base->linespacing)) {
    if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x07)))
      goto ERROR;
    if ((res = psiconv_write_size(config,extra_buf,lev+1,value->linespacing)))
      goto ERROR;
  }

  if (!base || (value->linespacing_exact != base->linespacing_exact)) {
    if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x08)))
      goto ERROR;
    if ((res = psiconv_write_bool(config,extra_buf,lev+1,value->linespacing_exact)))
      goto ERROR;
  }

  if (!base || (value->space_above != base->space_above)) {
    if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x09)))
      goto ERROR;
    if ((res = psiconv_write_size(config,extra_buf,lev+1,value->space_above)))
      goto ERROR;
  }

  if (!base || (value->space_below != base->space_below)) {
    if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x0a)))
      goto ERROR;
    if ((res = psiconv_write_size(config,extra_buf,lev+1,value->space_below)))
      goto ERROR;
  }

  if (!base || (value->keep_together != base->keep_together)) {
    if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x0b)))
      goto ERROR;
    if ((res = psiconv_write_bool(config,extra_buf,lev+1,value->keep_together)))
      goto ERROR;
  }

  if (!base || (value->keep_with_next != base->keep_with_next)) {
    if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x0c)))
      goto ERROR;
    if ((res = psiconv_write_bool(config,extra_buf,lev+1,value->keep_with_next)))
      goto ERROR;
  }

  if (!base || (value->on_next_page != base->on_next_page)) {
    if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x0d)))
      goto ERROR;
    if ((res = psiconv_write_bool(config,extra_buf,lev+1,value->on_next_page)))
      goto ERROR;
  }

  if (!base || (value->no_widow_protection != base->no_widow_protection)) {
    if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x0e)))
      goto ERROR;
    if ((res = psiconv_write_bool(config,extra_buf,lev+1,value->no_widow_protection)))
      goto ERROR;
  }

  if (!base || (value->wrap_to_fit_cell != base->wrap_to_fit_cell)) {
    if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x0f)))
      goto ERROR;
    if ((res = psiconv_write_bool(config,extra_buf,lev+1,value->wrap_to_fit_cell)))
      goto ERROR;
  }

  if (!base || (value->border_distance != base->border_distance)) {
    if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x10)))
      goto ERROR;
    if ((res = psiconv_write_length(config,extra_buf,lev+1,value->border_distance)))
      goto ERROR;
  }

  if (!base || psiconv_compare_border(value->top_border,base->top_border)) {
    if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x11)))
      goto ERROR;
    if ((res = psiconv_write_border(config,extra_buf,lev+1,value->top_border))) 
      goto ERROR;
  }

  if (!base || psiconv_compare_border(value->bottom_border,
                                       base->bottom_border)) {
    if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x12)))
      goto ERROR;
    if ((res = psiconv_write_border(config,extra_buf,lev+1,value->bottom_border)))
      goto ERROR;
  }

  if (!base || psiconv_compare_border(value->left_border,
                                       base->left_border)) {
    if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x13)))
      goto ERROR;
    if ((res = psiconv_write_border(config,extra_buf,lev+1,value->left_border)))
      goto ERROR;
  }

  if (!base || psiconv_compare_border(value->right_border,
                                       base->right_border)) {
    if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x14))) 
      goto ERROR;
    if ((res = psiconv_write_border(config,extra_buf,lev+1,value->right_border)))
      goto ERROR;
  }

  if (!base || psiconv_compare_bullet(value->bullet,
                                       base->bullet)) {
    if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x15))) 
      goto ERROR;
    if ((res = psiconv_write_bullet(config,extra_buf,lev+1,value->bullet)))
      goto ERROR;
  }

  if (!value->tabs || !value->tabs->extras) {
    psiconv_error(config,0,psiconv_buffer_length(buf),"Null tabs");
    res = -PSICONV_E_GENERATE;
    goto ERROR;
  } 

  /* It is not entirely clear how tabs are inherited. For now, I assume
     if there is any difference at all, we will have to generate both
     the normal tab-interval, and all specific tabs */
  if (!base || psiconv_compare_all_tabs(value->tabs,base->tabs)) {
    if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x16))) 
      goto ERROR;
    if ((res = psiconv_write_length(config,extra_buf,lev+1,value->tabs->normal)))
      goto ERROR;
    for (i = 0; i < psiconv_list_length(value->tabs->extras); i++) {
      if (!(tab = psiconv_list_get(value->tabs->extras,i))) {
        psiconv_error(config,0,psiconv_buffer_length(buf),"Massive memory corruption");
        res = -PSICONV_E_NOMEM;
        goto ERROR;
      }
      if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x17)))
        goto ERROR;
      if ((res = psiconv_write_tab(config,extra_buf,lev+1,tab)))
        goto ERROR;
    }
  }

  if ((res = psiconv_write_u32(config,buf,lev+1,psiconv_buffer_length(extra_buf))))
    goto ERROR;

  res = psiconv_buffer_concat(buf,extra_buf);

ERROR:
  psiconv_buffer_free(extra_buf);
  return res;
}

int psiconv_write_character_layout_list(const psiconv_config config,
                                        psiconv_buffer buf,int lev,  
                                        psiconv_character_layout value,
                                        psiconv_character_layout base)
{
  int res;
  psiconv_buffer extra_buf;

  psiconv_progress(config,lev,0,"Writing character layout list");

  if (!value) {
    psiconv_error(config,0,psiconv_buffer_length(buf),"Null character layout list");
    return -PSICONV_E_GENERATE;
  }
  if (!(extra_buf = psiconv_buffer_new()))
    return -PSICONV_E_NOMEM;

  if (!base || psiconv_compare_color(base->color,value->color)) {
    if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x19)))
      goto ERROR;
    if ((res = psiconv_write_color(config,extra_buf,lev+1,value->color)))
      goto ERROR;
  }

  if (!base || psiconv_compare_color(base->back_color,value->back_color)) {
    if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x1a)))
      goto ERROR;
    if ((res = psiconv_write_color(config,extra_buf,lev+1,value->back_color)))
      goto ERROR;
  }

  if (!base || (value->font_size != base->font_size)) {
    if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x1c)))
      goto ERROR;
    if ((res = psiconv_write_size(config,extra_buf,lev+1,value->font_size)))
      goto ERROR;
  }

  if (!base || (value->italic != base->italic)) {
    if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x1d)))
      goto ERROR;
    if ((res = psiconv_write_bool(config,extra_buf,lev+1,value->italic)))
      goto ERROR;
  }

  if (!base || (value->bold != base->bold)) {
    if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x1e)))
      goto ERROR;
    if ((res = psiconv_write_bool(config,extra_buf,lev+1,value->bold)))
      goto ERROR;
  }

  if (!base || (value->super_sub != base->super_sub)) {
    if ((value->super_sub != psiconv_superscript) &&
        (value->super_sub != psiconv_subscript) &&
        (value->super_sub != psiconv_normalscript))
      psiconv_warn(config,0,psiconv_buffer_length(buf),
                   "Unknown supersubscript (%d); assuming normal",
                   value->super_sub);
    if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x1f)))
      goto ERROR;
    if ((res = psiconv_write_u8(config,extra_buf,lev+1,
                                value->super_sub == psiconv_superscript?1:
                                value->super_sub == psiconv_subscript?2:0)))
      goto ERROR;
  }

  if (!base || (value->underline != base->underline)) {
    if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x20)))
      goto ERROR;
    if ((res = psiconv_write_bool(config,extra_buf,lev+1,value->underline)))
      goto ERROR;
  }

  if (!base || (value->strikethrough != base->strikethrough)) {
    if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x21)))
      goto ERROR;
    if ((res = psiconv_write_bool(config,extra_buf,lev+1,value->strikethrough)))
      goto ERROR;
  }

  if (!base || psiconv_compare_font(base->font,value->font)) {
    if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x22)))
      goto ERROR;
    if ((res = psiconv_write_font(config,extra_buf,lev+1,value->font)))
      goto ERROR;
  }

  if ((res = psiconv_write_u32(config,buf,lev+1,psiconv_buffer_length(extra_buf))))
    goto ERROR;

  res = psiconv_buffer_concat(buf,extra_buf);

ERROR:
  psiconv_buffer_free(extra_buf);
  return res;
}
1	frodo	72	/*
2			generate_layout.c - Part of psiconv, a PSION 5 file formats converter
3			Copyright (c) 2000 Frodo Looijaard <frodol@dds.nl>
4
5			This program is free software; you can redistribute it and/or modify
6			it under the terms of the GNU General Public License as published by
7			the Free Software Foundation; either version 2 of the License, or
8			(at your option) any later version.
9
10			This program is distributed in the hope that it will be useful,
11			but WITHOUT ANY WARRANTY; without even the implied warranty of
12			MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13			GNU General Public License for more details.
14
15			You should have received a copy of the GNU General Public License
16			along with this program; if not, write to the Free Software
17			Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
18			*/
19
20			#include "config.h"
21			#include "compat.h"
22
23	frodo	184	#include <string.h>
24
25	frodo	72	#include "generate_routines.h"
26			#include "error.h"
27
28	frodo	142	#ifdef DMALLOC
29			#include <dmalloc.h>
30			#endif
31
32
33	frodo	184	int psiconv_write_color(const psiconv_config config, psiconv_buffer buf,
34			int lev, const psiconv_color value)
35	frodo	72	{
36			int res;
37	frodo	184
38			psiconv_progress(config,lev,0,"Writing color");
39
40	frodo	72	if (!value) {
41	frodo	184	psiconv_error(config,0,psiconv_buffer_length(buf),"Null color");
42	frodo	72	return -PSICONV_E_GENERATE;
43			}
44	frodo	184	if ((res = psiconv_write_u8(config,buf,lev+1,value->red)))
45	frodo	72	return res;
46	frodo	184	if ((res = psiconv_write_u8(config,buf,lev+1,value->green)))
47	frodo	72	return res;
48	frodo	184	return psiconv_write_u8(config,buf,lev+1,value->blue);
49	frodo	72	}
50
51	frodo	184	int psiconv_write_font(const psiconv_config config, psiconv_buffer buf,
52			int lev, const psiconv_font value)
53	frodo	72	{
54	frodo	184	int res,len;
55
56			psiconv_progress(config,lev,0,"Writing font");
57	frodo	72	if (!value) {
58	frodo	184	psiconv_error(config,0,psiconv_buffer_length(buf),"Null font");
59	frodo	72	return -PSICONV_E_GENERATE;
60			}
61	frodo	184	len = psiconv_unicode_strlen(value->name);
62			if ((res = psiconv_write_u8(config,buf,lev+1,len+1)))
63	frodo	72	return res;
64	frodo	184	if ((res = psiconv_write_charlist(config,buf,lev+1,value->name)))
65			return res;
66			return psiconv_write_u8(config,buf,lev+1,value->screenfont);
67	frodo	72	}
68
69	frodo	184	int psiconv_write_border(const psiconv_config config, psiconv_buffer buf,int lev, const psiconv_border value)
70	frodo	72	{
71			int res;
72
73	frodo	184	psiconv_progress(config,lev,0,"Writing border");
74
75	frodo	72	if (!value) {
76	frodo	184	psiconv_error(config,0,psiconv_buffer_length(buf),"Null border");
77	frodo	72	return -PSICONV_E_GENERATE;
78			}
79			if (value->kind > psiconv_border_dotdotdashed)
80	frodo	168	psiconv_warn(config,0,psiconv_buffer_length(buf),
81	frodo	72	"Unknown border kind (%d); assuming none",value->kind);
82	frodo	184	if ((res =psiconv_write_u8(config,buf,lev+1,
83			value->kind == psiconv_border_none?0:
84	frodo	72	value->kind == psiconv_border_solid?1:
85			value->kind == psiconv_border_double?2:
86			value->kind == psiconv_border_dotted?3:
87			value->kind == psiconv_border_dashed?4:
88			value->kind == psiconv_border_dotdashed?5:
89			value->kind == psiconv_border_dotdotdashed?6:
90			0)))
91			return res;
92	frodo	184	if ((res = psiconv_write_size(config,buf,lev+1,(value->kind == psiconv_border_solid) \|\|
93	frodo	72	(value->kind == psiconv_border_double) ?
94			value->thickness:1.0/20.0)))
95			return res;
96	frodo	184	if ((res = psiconv_write_color(config,buf,lev+1,value->color)))
97	frodo	72	return res;
98	frodo	193	/* Unknown byte */
99	frodo	184	return psiconv_write_u8(config,buf,lev+1,1);
100	frodo	72	}
101
102	frodo	184	int psiconv_write_bullet(const psiconv_config config, psiconv_buffer buf,int lev, const psiconv_bullet value)
103	frodo	72	{
104			int res;
105			psiconv_buffer extra_buf;
106	frodo	184
107			psiconv_progress(config,lev,0,"Writing bullet");
108
109	frodo	72	if (!value) {
110	frodo	184	psiconv_error(config,0,psiconv_buffer_length(buf),"Null bullet");
111	frodo	72	return -PSICONV_E_GENERATE;
112			}
113
114	frodo	80	if (!(extra_buf = psiconv_buffer_new()))
115	frodo	72	return -PSICONV_E_NOMEM;
116	frodo	184	if ((res = psiconv_write_size(config,extra_buf,lev+1,value->font_size)))
117	frodo	72	goto ERROR;
118	frodo	184	if ((res = psiconv_write_u8(config,extra_buf,lev+1,
119			psiconv_unicode_to_char(config,value->character))))
120	frodo	72	goto ERROR;
121	frodo	184	if ((res = psiconv_write_bool(config,extra_buf,lev+1,value->indent)))
122	frodo	72	goto ERROR;
123	frodo	184	if ((res = psiconv_write_color(config,extra_buf,lev+1,value->color)))
124	frodo	72	goto ERROR;
125	frodo	184	if ((res = psiconv_write_font(config,extra_buf,lev+1,value->font)))
126	frodo	72	goto ERROR;
127
128	frodo	184	if ((res = psiconv_write_u8(config,buf,lev+1,psiconv_buffer_length(extra_buf))))
129	frodo	72	goto ERROR;
130	frodo	79	res = psiconv_buffer_concat(buf,extra_buf);
131	frodo	72
132			ERROR:
133	frodo	79	psiconv_buffer_free(extra_buf);
134	frodo	72	return res;
135			}
136
137	frodo	184	int psiconv_write_tab(const psiconv_config config, psiconv_buffer buf,int lev, psiconv_tab value)
138	frodo	72	{
139			int res;
140	frodo	184
141			psiconv_progress(config,lev,0,"Writing tab");
142
143	frodo	72	if (!value) {
144	frodo	184	psiconv_error(config,0,psiconv_buffer_length(buf),"Null tab");
145	frodo	72	return -PSICONV_E_GENERATE;
146			}
147	frodo	184	if ((res = psiconv_write_length(config,buf,lev+1,value->location)))
148	frodo	72	return res;
149			if ((value->kind != psiconv_tab_left) &&
150			(value->kind != psiconv_tab_right) &&
151			(value->kind != psiconv_tab_centre))
152	frodo	168	psiconv_warn(config,0,psiconv_buffer_length(buf),
153	frodo	72	"Unknown tab kind (%d); assuming left",value->kind);
154	frodo	184	return psiconv_write_u8(config,buf,lev+1, value->kind == psiconv_tab_right?2:
155	frodo	72	value->kind == psiconv_tab_centre?3:1);
156			}
157
158	frodo	168	int psiconv_write_paragraph_layout_list(const psiconv_config config,
159	frodo	184	psiconv_buffer buf,int lev,
160	frodo	72	psiconv_paragraph_layout value,
161			psiconv_paragraph_layout base)
162			{
163	frodo	78	int res,i;
164	frodo	72	psiconv_buffer extra_buf;
165	frodo	78	psiconv_tab tab;
166	frodo	72
167	frodo	184	psiconv_progress(config,lev,0,"Writing paragraph layout list");
168
169	frodo	72	if (!value) {
170	frodo	184	psiconv_error(config,0,psiconv_buffer_length(buf),"Null paragraph layout list");
171	frodo	72	return -PSICONV_E_GENERATE;
172			}
173	frodo	80	if (!(extra_buf = psiconv_buffer_new()))
174	frodo	72	return -PSICONV_E_NOMEM;
175
176	frodo	78	if (!base \|\| psiconv_compare_color(base->back_color,value->back_color)) {
177	frodo	184	if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x01)))
178	frodo	72	goto ERROR;
179	frodo	184	if ((res = psiconv_write_color(config,extra_buf,lev+1,value->back_color)))
180	frodo	72	goto ERROR;
181			}
182
183			if (!base \|\| (value->indent_left != base->indent_left)) {
184	frodo	184	if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x02)))
185	frodo	72	goto ERROR;
186	frodo	184	if ((res = psiconv_write_length(config,extra_buf,lev+1,value->indent_left)))
187	frodo	72	goto ERROR;
188			}
189
190			if (!base \|\| (value->indent_right != base->indent_right)) {
191	frodo	184	if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x03)))
192	frodo	72	goto ERROR;
193	frodo	184	if ((res = psiconv_write_length(config,extra_buf,lev+1,value->indent_right)))
194	frodo	72	goto ERROR;
195			}
196
197			if (!base \|\| (value->indent_first != base->indent_first)) {
198	frodo	184	if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x04)))
199	frodo	72	goto ERROR;
200	frodo	184	if ((res = psiconv_write_length(config,extra_buf,lev+1,value->indent_first)))
201	frodo	72	goto ERROR;
202			}
203
204			if (!base \|\| (value->justify_hor != base->justify_hor)) {
205	frodo	184	if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x05)))
206	frodo	72	goto ERROR;
207			if ((value->justify_hor < psiconv_justify_left) \|\|
208			(value->justify_hor > psiconv_justify_full))
209	frodo	168	psiconv_warn(config,0,psiconv_buffer_length(buf),
210	frodo	72	"Unknown horizontal justify (%d); assuming left",
211			value->justify_hor);
212	frodo	184	if ((res = psiconv_write_u8(config,extra_buf,lev+1,
213	frodo	72	value->justify_hor == psiconv_justify_centre?1:
214			value->justify_hor == psiconv_justify_right?2:
215			value->justify_hor == psiconv_justify_full?3:0)))
216			goto ERROR;
217			}
218
219			if (!base \|\| (value->justify_ver != base->justify_ver)) {
220	frodo	184	if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x06)))
221	frodo	72	goto ERROR;
222			if ((value->justify_ver < psiconv_justify_top) \|\|
223			(value->justify_ver > psiconv_justify_bottom))
224	frodo	168	psiconv_warn(config,0,psiconv_buffer_length(buf),
225	frodo	72	"Unknown vertical justify (%d); assuming middle",
226			value->justify_ver);
227	frodo	184	if ((res = psiconv_write_u8(config,extra_buf,lev+1,
228	frodo	72	value->justify_ver == psiconv_justify_centre?1:
229			value->justify_ver == psiconv_justify_right?2:0)))
230			goto ERROR;
231			}
232
233			if (!base \|\| (value->linespacing != base->linespacing)) {
234	frodo	184	if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x07)))
235	frodo	72	goto ERROR;
236	frodo	184	if ((res = psiconv_write_size(config,extra_buf,lev+1,value->linespacing)))
237	frodo	72	goto ERROR;
238			}
239
240			if (!base \|\| (value->linespacing_exact != base->linespacing_exact)) {
241	frodo	184	if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x08)))
242	frodo	72	goto ERROR;
243	frodo	184	if ((res = psiconv_write_bool(config,extra_buf,lev+1,value->linespacing_exact)))
244	frodo	72	goto ERROR;
245			}
246
247			if (!base \|\| (value->space_above != base->space_above)) {
248	frodo	184	if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x09)))
249	frodo	72	goto ERROR;
250	frodo	184	if ((res = psiconv_write_size(config,extra_buf,lev+1,value->space_above)))
251	frodo	72	goto ERROR;
252			}
253
254			if (!base \|\| (value->space_below != base->space_below)) {
255	frodo	184	if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x0a)))
256	frodo	72	goto ERROR;
257	frodo	184	if ((res = psiconv_write_size(config,extra_buf,lev+1,value->space_below)))
258	frodo	72	goto ERROR;
259			}
260
261			if (!base \|\| (value->keep_together != base->keep_together)) {
262	frodo	184	if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x0b)))
263	frodo	72	goto ERROR;
264	frodo	184	if ((res = psiconv_write_bool(config,extra_buf,lev+1,value->keep_together)))
265	frodo	72	goto ERROR;
266			}
267
268			if (!base \|\| (value->keep_with_next != base->keep_with_next)) {
269	frodo	184	if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x0c)))
270	frodo	72	goto ERROR;
271	frodo	184	if ((res = psiconv_write_bool(config,extra_buf,lev+1,value->keep_with_next)))
272	frodo	72	goto ERROR;
273			}
274
275			if (!base \|\| (value->on_next_page != base->on_next_page)) {
276	frodo	184	if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x0d)))
277	frodo	72	goto ERROR;
278	frodo	184	if ((res = psiconv_write_bool(config,extra_buf,lev+1,value->on_next_page)))
279	frodo	72	goto ERROR;
280			}
281
282			if (!base \|\| (value->no_widow_protection != base->no_widow_protection)) {
283	frodo	184	if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x0e)))
284	frodo	72	goto ERROR;
285	frodo	184	if ((res = psiconv_write_bool(config,extra_buf,lev+1,value->no_widow_protection)))
286	frodo	72	goto ERROR;
287			}
288
289	frodo	104	if (!base \|\| (value->wrap_to_fit_cell != base->wrap_to_fit_cell)) {
290	frodo	184	if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x0f)))
291	frodo	104	goto ERROR;
292	frodo	184	if ((res = psiconv_write_bool(config,extra_buf,lev+1,value->wrap_to_fit_cell)))
293	frodo	104	goto ERROR;
294			}
295
296	frodo	72	if (!base \|\| (value->border_distance != base->border_distance)) {
297	frodo	184	if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x10)))
298	frodo	72	goto ERROR;
299	frodo	184	if ((res = psiconv_write_length(config,extra_buf,lev+1,value->border_distance)))
300	frodo	72	goto ERROR;
301			}
302
303	frodo	78	if (!base \|\| psiconv_compare_border(value->top_border,base->top_border)) {
304	frodo	184	if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x11)))
305	frodo	72	goto ERROR;
306	frodo	184	if ((res = psiconv_write_border(config,extra_buf,lev+1,value->top_border)))
307	frodo	72	goto ERROR;
308			}
309
310	frodo	78	if (!base \|\| psiconv_compare_border(value->bottom_border,
311			base->bottom_border)) {
312	frodo	184	if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x12)))
313	frodo	72	goto ERROR;
314	frodo	184	if ((res = psiconv_write_border(config,extra_buf,lev+1,value->bottom_border)))
315	frodo	72	goto ERROR;
316			}
317
318	frodo	78	if (!base \|\| psiconv_compare_border(value->left_border,
319			base->left_border)) {
320	frodo	184	if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x13)))
321	frodo	72	goto ERROR;
322	frodo	184	if ((res = psiconv_write_border(config,extra_buf,lev+1,value->left_border)))
323	frodo	72	goto ERROR;
324			}
325
326	frodo	78	if (!base \|\| psiconv_compare_border(value->right_border,
327			base->right_border)) {
328	frodo	184	if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x14)))
329	frodo	72	goto ERROR;
330	frodo	184	if ((res = psiconv_write_border(config,extra_buf,lev+1,value->right_border)))
331	frodo	72	goto ERROR;
332			}
333
334	frodo	78	if (!base \|\| psiconv_compare_bullet(value->bullet,
335			base->bullet)) {
336	frodo	184	if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x15)))
337	frodo	72	goto ERROR;
338	frodo	184	if ((res = psiconv_write_bullet(config,extra_buf,lev+1,value->bullet)))
339	frodo	72	goto ERROR;
340			}
341
342			if (!value->tabs \|\| !value->tabs->extras) {
343	frodo	184	psiconv_error(config,0,psiconv_buffer_length(buf),"Null tabs");
344	frodo	72	res = -PSICONV_E_GENERATE;
345			goto ERROR;
346			}
347	frodo	78
348	frodo	72	/* It is not entirely clear how tabs are inherited. For now, I assume
349			if there is any difference at all, we will have to generate both
350			the normal tab-interval, and all specific tabs */
351	frodo	78	if (!base \|\| psiconv_compare_all_tabs(value->tabs,base->tabs)) {
352	frodo	184	if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x16)))
353	frodo	72	goto ERROR;
354	frodo	184	if ((res = psiconv_write_length(config,extra_buf,lev+1,value->tabs->normal)))
355	frodo	72	goto ERROR;
356			for (i = 0; i < psiconv_list_length(value->tabs->extras); i++) {
357	frodo	78	if (!(tab = psiconv_list_get(value->tabs->extras,i))) {
358	frodo	184	psiconv_error(config,0,psiconv_buffer_length(buf),"Massive memory corruption");
359	frodo	72	res = -PSICONV_E_NOMEM;
360			goto ERROR;
361			}
362	frodo	184	if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x17)))
363	frodo	72	goto ERROR;
364	frodo	184	if ((res = psiconv_write_tab(config,extra_buf,lev+1,tab)))
365	frodo	72	goto ERROR;
366			}
367			}
368
369	frodo	184	if ((res = psiconv_write_u32(config,buf,lev+1,psiconv_buffer_length(extra_buf))))
370	frodo	76	goto ERROR;
371
372	frodo	79	res = psiconv_buffer_concat(buf,extra_buf);
373	frodo	72
374			ERROR:
375	frodo	79	psiconv_buffer_free(extra_buf);
376	frodo	72	return res;
377			}
378
379	frodo	168	int psiconv_write_character_layout_list(const psiconv_config config,
380	frodo	184	psiconv_buffer buf,int lev,
381	frodo	72	psiconv_character_layout value,
382			psiconv_character_layout base)
383			{
384			int res;
385			psiconv_buffer extra_buf;
386	frodo	184
387			psiconv_progress(config,lev,0,"Writing character layout list");
388
389	frodo	72	if (!value) {
390	frodo	184	psiconv_error(config,0,psiconv_buffer_length(buf),"Null character layout list");
391	frodo	72	return -PSICONV_E_GENERATE;
392			}
393	frodo	80	if (!(extra_buf = psiconv_buffer_new()))
394	frodo	72	return -PSICONV_E_NOMEM;
395
396	frodo	78	if (!base \|\| psiconv_compare_color(base->color,value->color)) {
397	frodo	184	if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x19)))
398	frodo	72	goto ERROR;
399	frodo	184	if ((res = psiconv_write_color(config,extra_buf,lev+1,value->color)))
400	frodo	72	goto ERROR;
401			}
402
403	frodo	78	if (!base \|\| psiconv_compare_color(base->back_color,value->back_color)) {
404	frodo	184	if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x1a)))
405	frodo	72	goto ERROR;
406	frodo	184	if ((res = psiconv_write_color(config,extra_buf,lev+1,value->back_color)))
407	frodo	72	goto ERROR;
408			}
409
410			if (!base \|\| (value->font_size != base->font_size)) {
411	frodo	184	if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x1c)))
412	frodo	72	goto ERROR;
413	frodo	184	if ((res = psiconv_write_size(config,extra_buf,lev+1,value->font_size)))
414	frodo	72	goto ERROR;
415			}
416
417			if (!base \|\| (value->italic != base->italic)) {
418	frodo	184	if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x1d)))
419	frodo	72	goto ERROR;
420	frodo	184	if ((res = psiconv_write_bool(config,extra_buf,lev+1,value->italic)))
421	frodo	72	goto ERROR;
422			}
423
424			if (!base \|\| (value->bold != base->bold)) {
425	frodo	184	if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x1e)))
426	frodo	72	goto ERROR;
427	frodo	184	if ((res = psiconv_write_bool(config,extra_buf,lev+1,value->bold)))
428	frodo	72	goto ERROR;
429			}
430
431			if (!base \|\| (value->super_sub != base->super_sub)) {
432			if ((value->super_sub != psiconv_superscript) &&
433			(value->super_sub != psiconv_subscript) &&
434			(value->super_sub != psiconv_normalscript))
435	frodo	168	psiconv_warn(config,0,psiconv_buffer_length(buf),
436	frodo	72	"Unknown supersubscript (%d); assuming normal",
437			value->super_sub);
438	frodo	184	if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x1f)))
439	frodo	72	goto ERROR;
440	frodo	184	if ((res = psiconv_write_u8(config,extra_buf,lev+1,
441	frodo	84	value->super_sub == psiconv_superscript?1:
442			value->super_sub == psiconv_subscript?2:0)))
443	frodo	72	goto ERROR;
444			}
445
446			if (!base \|\| (value->underline != base->underline)) {
447	frodo	184	if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x20)))
448	frodo	72	goto ERROR;
449	frodo	184	if ((res = psiconv_write_bool(config,extra_buf,lev+1,value->underline)))
450	frodo	72	goto ERROR;
451			}
452
453			if (!base \|\| (value->strikethrough != base->strikethrough)) {
454	frodo	184	if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x21)))
455	frodo	72	goto ERROR;
456	frodo	184	if ((res = psiconv_write_bool(config,extra_buf,lev+1,value->strikethrough)))
457	frodo	72	goto ERROR;
458			}
459
460	frodo	78	if (!base \|\| psiconv_compare_font(base->font,value->font)) {
461	frodo	184	if ((res = psiconv_write_u8(config,extra_buf,lev+1,0x22)))
462	frodo	72	goto ERROR;
463	frodo	184	if ((res = psiconv_write_font(config,extra_buf,lev+1,value->font)))
464	frodo	72	goto ERROR;
465			}
466
467	frodo	184	if ((res = psiconv_write_u32(config,buf,lev+1,psiconv_buffer_length(extra_buf))))
468	frodo	76	goto ERROR;
469
470	frodo	79	res = psiconv_buffer_concat(buf,extra_buf);
471	frodo	72
472			ERROR:
473	frodo	79	psiconv_buffer_free(extra_buf);
474	frodo	72	return res;
475			}
frodo@frodo.looijaard.name	ViewVC Help
Powered by ViewVC 1.1.26