lib/psiconv/generate_common.c

/*
    generate_common.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 <stdlib.h>
#include <string.h>

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

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

static int psiconv_write_layout_section(const psiconv_config config,
                           psiconv_buffer buf,
                           const psiconv_text_and_layout value,
                           const psiconv_word_styles_section styles,
                           int with_styles);

/* Maybe use a psiconv_header_section variable instead? */
int psiconv_write_header_section(const psiconv_config config,
                                 psiconv_buffer buf,psiconv_u32 uid1,
                                 psiconv_u32 uid2, psiconv_u32 uid3)
{
  int res;
  if ((res = psiconv_write_u32(config,buf,uid1)))
    return res;
  if ((res = psiconv_write_u32(config,buf,uid2)))
    return res;
  if ((res = psiconv_write_u32(config,buf,uid3)))
    return res;
  return psiconv_write_u32(config,buf,psiconv_checkuid(uid1,uid2,uid3));
}

int psiconv_write_section_table_section(const psiconv_config config,
                                    psiconv_buffer buf, 
                                    const psiconv_section_table_section value)
{
  int res,i;
  psiconv_section_table_entry entry;

  if (!value) {
    psiconv_warn(config,0,psiconv_buffer_length(buf),"Null section table section");
    return -PSICONV_E_GENERATE;
  }

  if ((res = psiconv_write_u8(config,buf,2 * psiconv_list_length(value))))
    return res;
  for (i = 0; i < psiconv_list_length(value); i++) {
    if (!(entry = psiconv_list_get(value,i))) {
      psiconv_warn(config,0,psiconv_buffer_length(buf),"Massive memory corruption");
      return -PSICONV_E_NOMEM;
    }
    if ((res = psiconv_write_u32(config,buf,entry->id)))
      return res;
    if ((res = psiconv_write_offset(config,buf,entry->offset)))
      return res;
  }
  return -PSICONV_E_OK;
}

int psiconv_write_application_id_section(const psiconv_config config,
                                        psiconv_buffer buf,psiconv_u32 id,
                                        const psiconv_string_t text)
{
  int res;
  if ((res = psiconv_write_u32(config,buf,id)))
    return res;
  return psiconv_write_string(config,buf,text);
}

int psiconv_write_text_section(const psiconv_config config,
                           psiconv_buffer buf,
                           const psiconv_text_and_layout value)
{
  int res;
  psiconv_buffer extra_buf;
  int i,j;
  psiconv_paragraph paragraph;

  if (!value) {
    psiconv_warn(config,0,psiconv_buffer_length(buf),"Null text section");
    return -PSICONV_E_GENERATE;
  }

  if (psiconv_list_length(value)) {
    if (!(extra_buf = psiconv_buffer_new())) 
      return -PSICONV_E_NOMEM;
    for (i = 0; i < psiconv_list_length(value); i++) {
      if (!(paragraph = psiconv_list_get(value,i))) {
        psiconv_warn(config,0,psiconv_buffer_length(buf),"Massive memory corruption");
        res = -PSICONV_E_OTHER;
        goto ERROR;
      }
      for (j = 0; j < strlen(paragraph->text); j++) 
        if ((res = psiconv_write_u8(config,extra_buf,paragraph->text[j])))
          goto ERROR;
      psiconv_write_u8(config,extra_buf,0x06);
    }
    if ((res = psiconv_write_X(config,buf,psiconv_buffer_length(extra_buf))))
      goto ERROR;
    res = psiconv_buffer_concat(buf,extra_buf);
  } else 
    /* Hack: empty text sections are just not allowed */
    return psiconv_write_u16(config,buf,0x0602);

ERROR:  
  psiconv_buffer_free(extra_buf);
  return res;
}

int psiconv_write_layout_section(const psiconv_config config,
                           psiconv_buffer buf,
                           const psiconv_text_and_layout value,
                           const psiconv_word_styles_section styles,
                           int with_styles)
{
  typedef struct psiconv_paragraph_type_list_s
  {
    psiconv_character_layout character;
    psiconv_paragraph_layout paragraph;
    psiconv_u8 style;
    psiconv_u8 nr;
  } *psiconv_paragraph_type_list;
  psiconv_u32 obj_id;
  psiconv_list paragraph_type_list; /* Of psiconv_paragraph_type_list_s */
  psiconv_paragraph_type_list paragraph_type;
  struct psiconv_paragraph_type_list_s new_type;
  psiconv_buffer buf_types,buf_elements,buf_inlines,buf_objects;
  psiconv_paragraph paragraph;
  psiconv_in_line_layout in_line = NULL;
  psiconv_word_style style;
  psiconv_character_layout para_charlayout;
  int i,j,para_type,nr_of_inlines=0,res,ptl_length,pel_length,thislen,paralen;

  if (!value) {
    psiconv_warn(config,0,psiconv_buffer_length(buf),"Null text section");
    return -PSICONV_E_GENERATE;
  }

  if (!(paragraph_type_list = psiconv_list_new(sizeof(new_type)))) {
    res = -PSICONV_E_NOMEM;
    goto ERROR1;
  }

  if (!(buf_types = psiconv_buffer_new())) {
    res = -PSICONV_E_NOMEM;
    goto ERROR2;
  }

  if (!(buf_elements = psiconv_buffer_new())) {
    res = -PSICONV_E_NOMEM;
    goto ERROR3;
  }

  if (!(buf_inlines = psiconv_buffer_new())) {
    res = -PSICONV_E_NOMEM;
    goto ERROR4;
  }

  if (!(buf_objects = psiconv_buffer_new())) {
    res = -PSICONV_E_NOMEM;
    goto ERROR5;
  }

  for (i = 0; i < psiconv_list_length(value); i++) {
    if (!(paragraph = psiconv_list_get(value,i))) {
      psiconv_warn(config,0,psiconv_buffer_length(buf),"Massive memory corruption");
      res = -PSICONV_E_OTHER;
      goto ERROR6;
    }
    if ((res = psiconv_write_u32(config,buf_elements,strlen(paragraph->text)+1)))
      goto ERROR6;

    /* We need it for the next if-statement */
    if (psiconv_list_length(paragraph->in_lines) == 1) 
      if (!(in_line = psiconv_list_get(paragraph->in_lines,1)))
        goto ERROR6;

    if ((psiconv_list_length(paragraph->in_lines) > 1) ||
        ((psiconv_list_length(paragraph->in_lines) == 1) &&
         (in_line->object != NULL))) {
      /* Inline layouts, or an object, so we generate a paragraph element
         and inline elements */
      if ((res = psiconv_write_u8(config,buf_elements,0x00)))
        goto ERROR6;
      if (!(style = psiconv_get_style(styles,paragraph->base_style))) {
        psiconv_warn(config,0,psiconv_buffer_length(buf),"Unknown style");
        res = -PSICONV_E_GENERATE;
        goto ERROR6;
      }
      if ((res = psiconv_write_paragraph_layout_list(config,buf_elements,
                                                     paragraph->base_paragraph,
                                                     style->paragraph)))
        goto ERROR6;
      if (with_styles)
        if ((res = psiconv_write_u8(config,buf_elements,paragraph->base_style)))
          goto ERROR6;
      if ((res = psiconv_write_u32(config,buf_elements,
                                   psiconv_list_length(paragraph->in_lines))))
         goto ERROR6;

      /* Generate the inlines. NB: Against what are all settings relative?!? */
      paralen = 0;
      for (j = 0; j < psiconv_list_length(paragraph->in_lines); j++) {
        nr_of_inlines ++;
        if (!(in_line = psiconv_list_get(paragraph->in_lines,j))) {
          psiconv_warn(config,0,psiconv_buffer_length(buf),
                       "Massive memory corruption");
          res = -PSICONV_E_OTHER;
          goto ERROR6;
        }
        if ((res = psiconv_write_u8(config,buf_inlines,in_line->object?0x01:0x00)))
          goto ERROR6;
        thislen = in_line->length;
        paralen += thislen;
        /* If this is the last in_line, we need to make sure that the
           complete length of all inlines equals the text length */
        if (j == psiconv_list_length(paragraph->in_lines)-1) {
          if (paralen > strlen(paragraph->text)+1) {
            res = -PSICONV_E_GENERATE;
            goto ERROR6;
          }
          thislen += strlen(paragraph->text)+1-paralen;
        }
        if ((res = psiconv_write_u32(config,buf_inlines,thislen)))
          goto ERROR6;
        if ((res = psiconv_write_character_layout_list(config,buf_inlines,
                                                     in_line->layout,
                                                     style->character)))
          goto ERROR6;
        if (in_line->object) {
          if ((res = psiconv_write_u32(config,buf_inlines,PSICONV_ID_OBJECT)))
            goto ERROR6;
          obj_id = psiconv_buffer_unique_id();
          if ((res = psiconv_buffer_add_reference(buf_inlines,obj_id)))
            goto ERROR6;
          if ((res = psiconv_buffer_add_target(buf_objects,obj_id)))
            goto ERROR6;
          if ((res = psiconv_write_embedded_object_section(config,buf_objects,
                                                   in_line->object)))
            goto ERROR6;
          if ((res = psiconv_write_length(config,buf_inlines,in_line->object_width)))
            goto ERROR6;
          if ((res = psiconv_write_length(config,buf_inlines,in_line->object_height)))
            goto ERROR6;
        }
      } 
    } else {
      /* No inline layouts (or only 1), so we generate a paragraph type list */
      para_type = 0;
      /* Set para_charlayout to the correct character-level layout */
      if (psiconv_list_length(paragraph->in_lines) == 0)
        para_charlayout = paragraph->base_character;
      else {
        if (!(in_line = psiconv_list_get(paragraph->in_lines,0))) {
          psiconv_warn(config,0,psiconv_buffer_length(buf),
                       "Massive memory corruption");
          res = -PSICONV_E_OTHER;
          goto ERROR6;
        } 
        para_charlayout = in_line->layout;
      }
      for (j = 0; j < psiconv_list_length(paragraph_type_list); j++) {
        if (!(paragraph_type = psiconv_list_get(paragraph_type_list,j))) {
          psiconv_warn(config,0,psiconv_buffer_length(buf),
                       "Massive memory corruption");
          res = -PSICONV_E_OTHER;
          goto ERROR6;
        }
        if ((paragraph->base_style == paragraph_type->style) &&
            !psiconv_compare_character_layout(para_charlayout,
                                              paragraph_type->character) &&
            !psiconv_compare_paragraph_layout(paragraph->base_paragraph,
                                              paragraph_type->paragraph)) {
          para_type = paragraph_type->nr;
          break;
        }
      }
      if (!para_type) {
        /* We need to add a new entry */
        para_type = new_type.nr = j+1;
        /* No need to copy them, we won't change them anyway */
        new_type.paragraph = paragraph->base_paragraph;
        new_type.character = para_charlayout;
        new_type.style = paragraph->base_style;
        paragraph_type = &new_type;
        if ((res = psiconv_list_add(paragraph_type_list,paragraph_type)))
          goto ERROR6;
        if ((res = psiconv_write_u32(config,buf_types,paragraph_type->nr))) 
          goto ERROR6;
        if (!(style = psiconv_get_style(styles,paragraph_type->style))) {
          psiconv_warn(config,0,psiconv_buffer_length(buf),"Unknown style");
          res = -PSICONV_E_GENERATE;
          goto ERROR6;
        }
        if ((res = psiconv_write_paragraph_layout_list(config,buf_types,
                                paragraph_type->paragraph,style->paragraph)))
          goto ERROR6;
        if (with_styles)
          if ((res = psiconv_write_u8(config,buf_types,paragraph_type->style)))
            goto ERROR6;
        if ((res = psiconv_write_character_layout_list(config,buf_types,
                                paragraph_type->character,style->character)))
          goto ERROR6;
      }
      if ((res = psiconv_write_u8(config,buf_elements,para_type)))
        goto ERROR6;
    }
  }

  /* HACK: special case: no paragraphs at all. We need to improvize. */
  if (!psiconv_list_length(value)) {
    if ((res = psiconv_write_u32(config,buf_types,1)))
      goto ERROR6;
    if ((res = psiconv_write_u32(config,buf_types,0)))
      goto ERROR6;
    if (with_styles)
      if ((res = psiconv_write_u8(config,buf_types,0)))
        goto ERROR6;
    if ((res = psiconv_write_u32(config,buf_types,0)))
      goto ERROR6;

    if ((res = psiconv_write_u32(config,buf_elements,1)))
      goto ERROR6;
    if ((res = psiconv_write_u8(config,buf_elements,1)))
      goto ERROR6;
    pel_length = 1;
    ptl_length = 1;
  } else  {
    pel_length = psiconv_list_length(value);
    ptl_length = psiconv_list_length(paragraph_type_list);
  }

  /* Now append everything */
  if ((res = psiconv_write_u16(config,buf,with_styles?0x0001:0x0000)))
    goto ERROR6;
  if ((res = psiconv_write_u8(config,buf, ptl_length)))
    goto ERROR6;
  if ((res = psiconv_buffer_concat(buf,buf_types)))
    goto ERROR6;
  if ((res = psiconv_write_u32(config,buf,pel_length)))
    goto ERROR6;
  if ((res = psiconv_buffer_concat(buf,buf_elements)))
    goto ERROR6;
  if ((res = psiconv_write_u32(config,buf,nr_of_inlines)))
    goto ERROR6;
  if ((res = psiconv_buffer_concat(buf,buf_inlines)))
    goto ERROR6;
  if ((res = psiconv_buffer_concat(buf,buf_objects)))
    goto ERROR6;

ERROR6:
  psiconv_buffer_free(buf_objects);
ERROR5:
  psiconv_buffer_free(buf_inlines);
ERROR4:
  psiconv_buffer_free(buf_elements);
ERROR3:
  psiconv_buffer_free(buf_types);
ERROR2:
  psiconv_list_free(paragraph_type_list);
ERROR1:
  return res;
}

int psiconv_write_styled_layout_section(const psiconv_config config,
                                    psiconv_buffer buf,
                                    psiconv_text_and_layout result,
                                    psiconv_word_styles_section styles)
{
  return psiconv_write_layout_section(config,buf,result,styles,1);
}

int psiconv_write_styleless_layout_section(const psiconv_config config,
                                       psiconv_buffer buf,
                                       const psiconv_text_and_layout value,
                                       const psiconv_character_layout base_char,
                                       const psiconv_paragraph_layout base_para)
{
  int res = 0;
  psiconv_word_styles_section styles_section;

  if (!(styles_section = malloc(sizeof(*styles_section))))
    goto ERROR1;
  if (!(styles_section->normal = malloc(sizeof(*styles_section->normal))))
    goto ERROR2;
  if (!(styles_section->normal->character =
                            psiconv_clone_character_layout(base_char)))
    goto ERROR3;
  if (!(styles_section->normal->paragraph =
                            psiconv_clone_paragraph_layout(base_para)))
    goto ERROR4;
  styles_section->normal->hotkey = 0;
  if (!(styles_section->normal->name = strdup("")))
    goto ERROR5;
  if (!(styles_section->styles = psiconv_list_new(sizeof(
                                        struct psiconv_word_style_s))))
    goto ERROR6;

  res = psiconv_write_layout_section(config,buf,value,styles_section,0);
  psiconv_free_word_styles_section(styles_section);
  return res;

ERROR6:
  free(styles_section->normal->name);
ERROR5:
  psiconv_free_paragraph_layout(styles_section->normal->paragraph);
ERROR4:
  psiconv_free_character_layout(styles_section->normal->character);
ERROR3:
  free(styles_section->normal);
ERROR2:
  free(styles_section);
ERROR1:
  if (!res)
    return -PSICONV_E_NOMEM;
  else
    return res;
}


int psiconv_write_embedded_object_section(const psiconv_config config,
                                  psiconv_buffer buf,
                                  const psiconv_embedded_object_section value)
{
  int res;
  psiconv_u32 display_id,icon_id,table_id;
  psiconv_buffer extra_buf;

  if (!value) {
    psiconv_warn(config,0,psiconv_buffer_length(buf),"Null Object");
    res = -PSICONV_E_GENERATE;
    goto ERROR1;
  }

  if (!(extra_buf = psiconv_buffer_new())) {
    res = -PSICONV_E_NOMEM;
    goto ERROR1;
  }

  display_id = psiconv_buffer_unique_id();
  icon_id = psiconv_buffer_unique_id();
  table_id = psiconv_buffer_unique_id();
  if ((res = psiconv_write_u8(config,buf,0x06)))
    goto ERROR2;
  if ((res = psiconv_write_u32(config,buf,PSICONV_ID_OBJECT_DISPLAY_SECTION)))
    goto ERROR2;
  if ((res = psiconv_buffer_add_reference(buf,display_id)))
    goto ERROR2;
  if ((res = psiconv_write_u32(config,buf,PSICONV_ID_OBJECT_ICON_SECTION)))
    goto ERROR2;
  if ((res = psiconv_buffer_add_reference(buf,icon_id)))
    goto ERROR2;
  if ((res = psiconv_write_u32(config,buf,PSICONV_ID_OBJECT_SECTION_TABLE_SECTION)))
    goto ERROR2;
  if ((res = psiconv_buffer_add_reference(buf,table_id)))
    goto ERROR2;

  if ((res = psiconv_buffer_add_target(buf,display_id)))
    goto ERROR2;
  if ((res = psiconv_write_object_display_section(config,buf,value->display)))
    goto ERROR2;
  if ((res = psiconv_buffer_add_target(buf,icon_id)))
    goto ERROR2;
  if ((res = psiconv_write_object_icon_section(config,buf,value->icon)))
    goto ERROR2;
  if ((res = psiconv_buffer_add_target(buf,table_id)))
    goto ERROR2;
  switch(value->object->type) {
    case psiconv_word_file:
      if ((res = psiconv_write_word_file(config,extra_buf,
                                      (psiconv_word_f) value->object->file)))
        goto ERROR2;
      break;
    case psiconv_sketch_file:
      if ((res = psiconv_write_sketch_file(config,extra_buf,
                                      (psiconv_sketch_f) value->object->file)))
        goto ERROR2;
      break;
/*
    case psiconv_sheet_file:
      if ((res = psiconv_write_sheet_file(config,extra_buf,
                                      (psiconv_sheet_f) value->object->file)))
        goto ERROR2;
      break;
*/
    default:
      psiconv_warn(config,0,psiconv_buffer_length(buf),
                   "Unknown or unsupported object type");
      res = -PSICONV_E_GENERATE;
      goto ERROR2;
  }
  
  if ((res = psiconv_buffer_resolve(extra_buf)))
    goto ERROR2;
  if ((res = psiconv_buffer_concat(buf,extra_buf)))
    goto ERROR2;

  return 0;

ERROR2:
  psiconv_buffer_free(extra_buf);
ERROR1:
  return res;
}


int psiconv_write_object_display_section(const psiconv_config config,
                                  psiconv_buffer buf,
                                  const psiconv_object_display_section value)
{
  int res;

  if (!value) {
    psiconv_warn(config,0,psiconv_buffer_length(buf),"Null Object Display Section");
    res = -PSICONV_E_GENERATE;
    goto ERROR1;
  }

  if ((res = psiconv_write_u8(config,buf,value->show_icon?0x00:0x01)))
    goto ERROR1;
  if ((res = psiconv_write_length(config,buf,value->width)))
    goto ERROR1;
  if ((res = psiconv_write_length(config,buf,value->height)))
    goto ERROR1;
  if ((res = psiconv_write_u32(config,buf,0x00000000)))
    goto ERROR1;

  return 0;

ERROR1:
  return res;
}

int psiconv_write_object_icon_section(const psiconv_config config,
                                  psiconv_buffer buf,
                                  const psiconv_object_icon_section value)
{
  int res;

  if (!value) {
    psiconv_warn(config,0,psiconv_buffer_length(buf),"Null Object Icon Section");
    res = -PSICONV_E_GENERATE;
    goto ERROR1;
  }

  if ((res = psiconv_write_string(config,buf,value->icon_name)))
    goto ERROR1;
  if ((res = psiconv_write_length(config,buf,value->icon_width)))
    goto ERROR1;
  if ((res = psiconv_write_length(config,buf,value->icon_height)))
    goto ERROR1;

  return 0;

ERROR1:
  return res;
}
1	frodo	73	/*
2			generate_common.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			#include <stdlib.h>
23			#include <string.h>
24
25			#include "generate_routines.h"
26			#include "error.h"
27
28	frodo	142	#ifdef DMALLOC
29			#include <dmalloc.h>
30			#endif
31
32	frodo	168	static int psiconv_write_layout_section(const psiconv_config config,
33			psiconv_buffer buf,
34	frodo	79	const psiconv_text_and_layout value,
35			const psiconv_word_styles_section styles,
36			int with_styles);
37	frodo	73
38			/* Maybe use a psiconv_header_section variable instead? */
39	frodo	168	int psiconv_write_header_section(const psiconv_config config,
40			psiconv_buffer buf,psiconv_u32 uid1,
41	frodo	73	psiconv_u32 uid2, psiconv_u32 uid3)
42			{
43			int res;
44	frodo	168	if ((res = psiconv_write_u32(config,buf,uid1)))
45	frodo	73	return res;
46	frodo	168	if ((res = psiconv_write_u32(config,buf,uid2)))
47	frodo	73	return res;
48	frodo	168	if ((res = psiconv_write_u32(config,buf,uid3)))
49	frodo	73	return res;
50	frodo	168	return psiconv_write_u32(config,buf,psiconv_checkuid(uid1,uid2,uid3));
51	frodo	73	}
52
53	frodo	168	int psiconv_write_section_table_section(const psiconv_config config,
54			psiconv_buffer buf,
55	frodo	73	const psiconv_section_table_section value)
56			{
57			int res,i;
58			psiconv_section_table_entry entry;
59
60			if (!value) {
61	frodo	168	psiconv_warn(config,0,psiconv_buffer_length(buf),"Null section table section");
62	frodo	73	return -PSICONV_E_GENERATE;
63			}
64
65	frodo	168	if ((res = psiconv_write_u8(config,buf,2 * psiconv_list_length(value))))
66	frodo	76	return res;
67	frodo	73	for (i = 0; i < psiconv_list_length(value); i++) {
68			if (!(entry = psiconv_list_get(value,i))) {
69	frodo	168	psiconv_warn(config,0,psiconv_buffer_length(buf),"Massive memory corruption");
70	frodo	76	return -PSICONV_E_NOMEM;
71	frodo	73	}
72	frodo	168	if ((res = psiconv_write_u32(config,buf,entry->id)))
73	frodo	76	return res;
74	frodo	168	if ((res = psiconv_write_offset(config,buf,entry->offset)))
75	frodo	76	return res;
76	frodo	73	}
77	frodo	76	return -PSICONV_E_OK;
78	frodo	73	}
79
80	frodo	168	int psiconv_write_application_id_section(const psiconv_config config,
81			psiconv_buffer buf,psiconv_u32 id,
82	frodo	73	const psiconv_string_t text)
83			{
84			int res;
85	frodo	168	if ((res = psiconv_write_u32(config,buf,id)))
86	frodo	73	return res;
87	frodo	168	return psiconv_write_string(config,buf,text);
88	frodo	73	}
89
90	frodo	168	int psiconv_write_text_section(const psiconv_config config,
91			psiconv_buffer buf,
92	frodo	73	const psiconv_text_and_layout value)
93			{
94			int res;
95			psiconv_buffer extra_buf;
96			int i,j;
97			psiconv_paragraph paragraph;
98
99			if (!value) {
100	frodo	168	psiconv_warn(config,0,psiconv_buffer_length(buf),"Null text section");
101	frodo	73	return -PSICONV_E_GENERATE;
102			}
103
104	frodo	88	if (psiconv_list_length(value)) {
105			if (!(extra_buf = psiconv_buffer_new()))
106			return -PSICONV_E_NOMEM;
107			for (i = 0; i < psiconv_list_length(value); i++) {
108			if (!(paragraph = psiconv_list_get(value,i))) {
109	frodo	168	psiconv_warn(config,0,psiconv_buffer_length(buf),"Massive memory corruption");
110	frodo	88	res = -PSICONV_E_OTHER;
111			goto ERROR;
112			}
113			for (j = 0; j < strlen(paragraph->text); j++)
114	frodo	168	if ((res = psiconv_write_u8(config,extra_buf,paragraph->text[j])))
115	frodo	88	goto ERROR;
116	frodo	168	psiconv_write_u8(config,extra_buf,0x06);
117	frodo	88	}
118	frodo	168	if ((res = psiconv_write_X(config,buf,psiconv_buffer_length(extra_buf))))
119	frodo	73	goto ERROR;
120	frodo	88	res = psiconv_buffer_concat(buf,extra_buf);
121			} else
122			/* Hack: empty text sections are just not allowed */
123	frodo	168	return psiconv_write_u16(config,buf,0x0602);
124	frodo	73
125			ERROR:
126	frodo	79	psiconv_buffer_free(extra_buf);
127	frodo	75	return res;
128	frodo	73	}
129	frodo	79
130	frodo	168	int psiconv_write_layout_section(const psiconv_config config,
131			psiconv_buffer buf,
132	frodo	79	const psiconv_text_and_layout value,
133			const psiconv_word_styles_section styles,
134			int with_styles)
135			{
136			typedef struct psiconv_paragraph_type_list_s
137			{
138			psiconv_character_layout character;
139			psiconv_paragraph_layout paragraph;
140			psiconv_u8 style;
141			psiconv_u8 nr;
142			} *psiconv_paragraph_type_list;
143	frodo	167	psiconv_u32 obj_id;
144	frodo	79	psiconv_list paragraph_type_list; /* Of psiconv_paragraph_type_list_s */
145			psiconv_paragraph_type_list paragraph_type;
146			struct psiconv_paragraph_type_list_s new_type;
147	frodo	167	psiconv_buffer buf_types,buf_elements,buf_inlines,buf_objects;
148	frodo	79	psiconv_paragraph paragraph;
149	frodo	167	psiconv_in_line_layout in_line = NULL;
150	frodo	79	psiconv_word_style style;
151	frodo	89	psiconv_character_layout para_charlayout;
152			int i,j,para_type,nr_of_inlines=0,res,ptl_length,pel_length,thislen,paralen;
153	frodo	79
154			if (!value) {
155	frodo	168	psiconv_warn(config,0,psiconv_buffer_length(buf),"Null text section");
156	frodo	79	return -PSICONV_E_GENERATE;
157			}
158
159			if (!(paragraph_type_list = psiconv_list_new(sizeof(new_type)))) {
160			res = -PSICONV_E_NOMEM;
161			goto ERROR1;
162			}
163
164	frodo	80	if (!(buf_types = psiconv_buffer_new())) {
165	frodo	79	res = -PSICONV_E_NOMEM;
166			goto ERROR2;
167			}
168
169	frodo	80	if (!(buf_elements = psiconv_buffer_new())) {
170	frodo	79	res = -PSICONV_E_NOMEM;
171			goto ERROR3;
172			}
173
174	frodo	80	if (!(buf_inlines = psiconv_buffer_new())) {
175	frodo	79	res = -PSICONV_E_NOMEM;
176			goto ERROR4;
177			}
178
179	frodo	167	if (!(buf_objects = psiconv_buffer_new())) {
180			res = -PSICONV_E_NOMEM;
181			goto ERROR5;
182			}
183
184	frodo	79	for (i = 0; i < psiconv_list_length(value); i++) {
185			if (!(paragraph = psiconv_list_get(value,i))) {
186	frodo	168	psiconv_warn(config,0,psiconv_buffer_length(buf),"Massive memory corruption");
187	frodo	79	res = -PSICONV_E_OTHER;
188	frodo	167	goto ERROR6;
189	frodo	79	}
190	frodo	168	if ((res = psiconv_write_u32(config,buf_elements,strlen(paragraph->text)+1)))
191	frodo	167	goto ERROR6;
192	frodo	79
193	frodo	167	/* We need it for the next if-statement */
194			if (psiconv_list_length(paragraph->in_lines) == 1)
195			if (!(in_line = psiconv_list_get(paragraph->in_lines,1)))
196			goto ERROR6;
197
198			if ((psiconv_list_length(paragraph->in_lines) > 1) \|\|
199			((psiconv_list_length(paragraph->in_lines) == 1) &&
200			(in_line->object != NULL))) {
201			/* Inline layouts, or an object, so we generate a paragraph element
202			and inline elements */
203	frodo	168	if ((res = psiconv_write_u8(config,buf_elements,0x00)))
204	frodo	167	goto ERROR6;
205	frodo	79	if (!(style = psiconv_get_style(styles,paragraph->base_style))) {
206	frodo	168	psiconv_warn(config,0,psiconv_buffer_length(buf),"Unknown style");
207	frodo	79	res = -PSICONV_E_GENERATE;
208	frodo	167	goto ERROR6;
209	frodo	79	}
210	frodo	168	if ((res = psiconv_write_paragraph_layout_list(config,buf_elements,
211	frodo	79	paragraph->base_paragraph,
212			style->paragraph)))
213	frodo	167	goto ERROR6;
214	frodo	79	if (with_styles)
215	frodo	168	if ((res = psiconv_write_u8(config,buf_elements,paragraph->base_style)))
216	frodo	167	goto ERROR6;
217	frodo	168	if ((res = psiconv_write_u32(config,buf_elements,
218	frodo	79	psiconv_list_length(paragraph->in_lines))))
219	frodo	167	goto ERROR6;
220	frodo	79
221			/* Generate the inlines. NB: Against what are all settings relative?!? */
222	frodo	89	paralen = 0;
223	frodo	79	for (j = 0; j < psiconv_list_length(paragraph->in_lines); j++) {
224			nr_of_inlines ++;
225			if (!(in_line = psiconv_list_get(paragraph->in_lines,j))) {
226	frodo	168	psiconv_warn(config,0,psiconv_buffer_length(buf),
227	frodo	89	"Massive memory corruption");
228	frodo	79	res = -PSICONV_E_OTHER;
229	frodo	167	goto ERROR6;
230	frodo	79	}
231	frodo	168	if ((res = psiconv_write_u8(config,buf_inlines,in_line->object?0x01:0x00)))
232	frodo	167	goto ERROR6;
233	frodo	89	thislen = in_line->length;
234			paralen += thislen;
235			/* If this is the last in_line, we need to make sure that the
236			complete length of all inlines equals the text length */
237			if (j == psiconv_list_length(paragraph->in_lines)-1) {
238			if (paralen > strlen(paragraph->text)+1) {
239			res = -PSICONV_E_GENERATE;
240	frodo	167	goto ERROR6;
241	frodo	89	}
242			thislen += strlen(paragraph->text)+1-paralen;
243			}
244	frodo	168	if ((res = psiconv_write_u32(config,buf_inlines,thislen)))
245	frodo	167	goto ERROR6;
246	frodo	168	if ((res = psiconv_write_character_layout_list(config,buf_inlines,
247	frodo	79	in_line->layout,
248			style->character)))
249	frodo	167	goto ERROR6;
250			if (in_line->object) {
251	frodo	168	if ((res = psiconv_write_u32(config,buf_inlines,PSICONV_ID_OBJECT)))
252	frodo	167	goto ERROR6;
253			obj_id = psiconv_buffer_unique_id();
254			if ((res = psiconv_buffer_add_reference(buf_inlines,obj_id)))
255			goto ERROR6;
256			if ((res = psiconv_buffer_add_target(buf_objects,obj_id)))
257			goto ERROR6;
258	frodo	168	if ((res = psiconv_write_embedded_object_section(config,buf_objects,
259	frodo	167	in_line->object)))
260			goto ERROR6;
261	frodo	168	if ((res = psiconv_write_length(config,buf_inlines,in_line->object_width)))
262	frodo	167	goto ERROR6;
263	frodo	168	if ((res = psiconv_write_length(config,buf_inlines,in_line->object_height)))
264	frodo	167	goto ERROR6;
265			}
266	frodo	79	}
267			} else {
268	frodo	89	/* No inline layouts (or only 1), so we generate a paragraph type list */
269	frodo	79	para_type = 0;
270	frodo	89	/* Set para_charlayout to the correct character-level layout */
271			if (psiconv_list_length(paragraph->in_lines) == 0)
272			para_charlayout = paragraph->base_character;
273			else {
274			if (!(in_line = psiconv_list_get(paragraph->in_lines,0))) {
275	frodo	168	psiconv_warn(config,0,psiconv_buffer_length(buf),
276	frodo	89	"Massive memory corruption");
277			res = -PSICONV_E_OTHER;
278	frodo	167	goto ERROR6;
279	frodo	89	}
280			para_charlayout = in_line->layout;
281			}
282	frodo	79	for (j = 0; j < psiconv_list_length(paragraph_type_list); j++) {
283			if (!(paragraph_type = psiconv_list_get(paragraph_type_list,j))) {
284	frodo	168	psiconv_warn(config,0,psiconv_buffer_length(buf),
285	frodo	89	"Massive memory corruption");
286	frodo	79	res = -PSICONV_E_OTHER;
287	frodo	167	goto ERROR6;
288	frodo	79	}
289			if ((paragraph->base_style == paragraph_type->style) &&
290	frodo	89	!psiconv_compare_character_layout(para_charlayout,
291	frodo	79	paragraph_type->character) &&
292			!psiconv_compare_paragraph_layout(paragraph->base_paragraph,
293			paragraph_type->paragraph)) {
294			para_type = paragraph_type->nr;
295			break;
296			}
297			}
298			if (!para_type) {
299			/* We need to add a new entry */
300			para_type = new_type.nr = j+1;
301			/* No need to copy them, we won't change them anyway */
302			new_type.paragraph = paragraph->base_paragraph;
303	frodo	89	new_type.character = para_charlayout;
304	frodo	79	new_type.style = paragraph->base_style;
305			paragraph_type = &new_type;
306			if ((res = psiconv_list_add(paragraph_type_list,paragraph_type)))
307	frodo	167	goto ERROR6;
308	frodo	168	if ((res = psiconv_write_u32(config,buf_types,paragraph_type->nr)))
309	frodo	167	goto ERROR6;
310	frodo	79	if (!(style = psiconv_get_style(styles,paragraph_type->style))) {
311	frodo	168	psiconv_warn(config,0,psiconv_buffer_length(buf),"Unknown style");
312	frodo	79	res = -PSICONV_E_GENERATE;
313	frodo	167	goto ERROR6;
314	frodo	79	}
315	frodo	168	if ((res = psiconv_write_paragraph_layout_list(config,buf_types,
316	frodo	79	paragraph_type->paragraph,style->paragraph)))
317	frodo	167	goto ERROR6;
318	frodo	79	if (with_styles)
319	frodo	168	if ((res = psiconv_write_u8(config,buf_types,paragraph_type->style)))
320	frodo	167	goto ERROR6;
321	frodo	168	if ((res = psiconv_write_character_layout_list(config,buf_types,
322	frodo	79	paragraph_type->character,style->character)))
323	frodo	167	goto ERROR6;
324	frodo	79	}
325	frodo	168	if ((res = psiconv_write_u8(config,buf_elements,para_type)))
326	frodo	167	goto ERROR6;
327	frodo	79	}
328			}
329
330	frodo	88	/* HACK: special case: no paragraphs at all. We need to improvize. */
331			if (!psiconv_list_length(value)) {
332	frodo	168	if ((res = psiconv_write_u32(config,buf_types,1)))
333	frodo	167	goto ERROR6;
334	frodo	168	if ((res = psiconv_write_u32(config,buf_types,0)))
335	frodo	167	goto ERROR6;
336	frodo	88	if (with_styles)
337	frodo	168	if ((res = psiconv_write_u8(config,buf_types,0)))
338	frodo	167	goto ERROR6;
339	frodo	168	if ((res = psiconv_write_u32(config,buf_types,0)))
340	frodo	167	goto ERROR6;
341	frodo	88
342	frodo	168	if ((res = psiconv_write_u32(config,buf_elements,1)))
343	frodo	167	goto ERROR6;
344	frodo	168	if ((res = psiconv_write_u8(config,buf_elements,1)))
345	frodo	167	goto ERROR6;
346	frodo	88	pel_length = 1;
347			ptl_length = 1;
348			} else {
349			pel_length = psiconv_list_length(value);
350			ptl_length = psiconv_list_length(paragraph_type_list);
351			}
352
353	frodo	79	/* Now append everything */
354	frodo	168	if ((res = psiconv_write_u16(config,buf,with_styles?0x0001:0x0000)))
355	frodo	167	goto ERROR6;
356	frodo	168	if ((res = psiconv_write_u8(config,buf, ptl_length)))
357	frodo	167	goto ERROR6;
358	frodo	79	if ((res = psiconv_buffer_concat(buf,buf_types)))
359	frodo	167	goto ERROR6;
360	frodo	168	if ((res = psiconv_write_u32(config,buf,pel_length)))
361	frodo	167	goto ERROR6;
362	frodo	79	if ((res = psiconv_buffer_concat(buf,buf_elements)))
363	frodo	167	goto ERROR6;
364	frodo	168	if ((res = psiconv_write_u32(config,buf,nr_of_inlines)))
365	frodo	167	goto ERROR6;
366			if ((res = psiconv_buffer_concat(buf,buf_inlines)))
367			goto ERROR6;
368			if ((res = psiconv_buffer_concat(buf,buf_objects)))
369			goto ERROR6;
370	frodo	79
371	frodo	167	ERROR6:
372			psiconv_buffer_free(buf_objects);
373	frodo	79	ERROR5:
374			psiconv_buffer_free(buf_inlines);
375			ERROR4:
376			psiconv_buffer_free(buf_elements);
377			ERROR3:
378			psiconv_buffer_free(buf_types);
379			ERROR2:
380			psiconv_list_free(paragraph_type_list);
381			ERROR1:
382			return res;
383			}
384
385	frodo	168	int psiconv_write_styled_layout_section(const psiconv_config config,
386			psiconv_buffer buf,
387	frodo	79	psiconv_text_and_layout result,
388			psiconv_word_styles_section styles)
389			{
390	frodo	168	return psiconv_write_layout_section(config,buf,result,styles,1);
391	frodo	79	}
392
393	frodo	168	int psiconv_write_styleless_layout_section(const psiconv_config config,
394			psiconv_buffer buf,
395	frodo	79	const psiconv_text_and_layout value,
396			const psiconv_character_layout base_char,
397			const psiconv_paragraph_layout base_para)
398			{
399			int res = 0;
400			psiconv_word_styles_section styles_section;
401
402			if (!(styles_section = malloc(sizeof(*styles_section))))
403			goto ERROR1;
404			if (!(styles_section->normal = malloc(sizeof(*styles_section->normal))))
405			goto ERROR2;
406			if (!(styles_section->normal->character =
407			psiconv_clone_character_layout(base_char)))
408			goto ERROR3;
409			if (!(styles_section->normal->paragraph =
410			psiconv_clone_paragraph_layout(base_para)))
411			goto ERROR4;
412			styles_section->normal->hotkey = 0;
413			if (!(styles_section->normal->name = strdup("")))
414			goto ERROR5;
415			if (!(styles_section->styles = psiconv_list_new(sizeof(
416			struct psiconv_word_style_s))))
417			goto ERROR6;
418
419	frodo	168	res = psiconv_write_layout_section(config,buf,value,styles_section,0);
420	frodo	79	psiconv_free_word_styles_section(styles_section);
421			return res;
422
423			ERROR6:
424			free(styles_section->normal->name);
425			ERROR5:
426			psiconv_free_paragraph_layout(styles_section->normal->paragraph);
427			ERROR4:
428			psiconv_free_character_layout(styles_section->normal->character);
429			ERROR3:
430			free(styles_section->normal);
431			ERROR2:
432			free(styles_section);
433			ERROR1:
434			if (!res)
435			return -PSICONV_E_NOMEM;
436			else
437			return res;
438			}
439	frodo	167
440
441	frodo	168	int psiconv_write_embedded_object_section(const psiconv_config config,
442			psiconv_buffer buf,
443	frodo	167	const psiconv_embedded_object_section value)
444			{
445			int res;
446			psiconv_u32 display_id,icon_id,table_id;
447			psiconv_buffer extra_buf;
448
449			if (!value) {
450	frodo	168	psiconv_warn(config,0,psiconv_buffer_length(buf),"Null Object");
451	frodo	167	res = -PSICONV_E_GENERATE;
452			goto ERROR1;
453			}
454
455			if (!(extra_buf = psiconv_buffer_new())) {
456			res = -PSICONV_E_NOMEM;
457			goto ERROR1;
458			}
459
460			display_id = psiconv_buffer_unique_id();
461			icon_id = psiconv_buffer_unique_id();
462			table_id = psiconv_buffer_unique_id();
463	frodo	168	if ((res = psiconv_write_u8(config,buf,0x06)))
464	frodo	167	goto ERROR2;
465	frodo	168	if ((res = psiconv_write_u32(config,buf,PSICONV_ID_OBJECT_DISPLAY_SECTION)))
466	frodo	167	goto ERROR2;
467			if ((res = psiconv_buffer_add_reference(buf,display_id)))
468			goto ERROR2;
469	frodo	168	if ((res = psiconv_write_u32(config,buf,PSICONV_ID_OBJECT_ICON_SECTION)))
470	frodo	167	goto ERROR2;
471			if ((res = psiconv_buffer_add_reference(buf,icon_id)))
472			goto ERROR2;
473	frodo	168	if ((res = psiconv_write_u32(config,buf,PSICONV_ID_OBJECT_SECTION_TABLE_SECTION)))
474	frodo	167	goto ERROR2;
475			if ((res = psiconv_buffer_add_reference(buf,table_id)))
476			goto ERROR2;
477
478			if ((res = psiconv_buffer_add_target(buf,display_id)))
479			goto ERROR2;
480	frodo	168	if ((res = psiconv_write_object_display_section(config,buf,value->display)))
481	frodo	167	goto ERROR2;
482			if ((res = psiconv_buffer_add_target(buf,icon_id)))
483			goto ERROR2;
484	frodo	168	if ((res = psiconv_write_object_icon_section(config,buf,value->icon)))
485	frodo	167	goto ERROR2;
486			if ((res = psiconv_buffer_add_target(buf,table_id)))
487			goto ERROR2;
488			switch(value->object->type) {
489			case psiconv_word_file:
490	frodo	168	if ((res = psiconv_write_word_file(config,extra_buf,
491	frodo	167	(psiconv_word_f) value->object->file)))
492			goto ERROR2;
493			break;
494			case psiconv_sketch_file:
495	frodo	170	if ((res = psiconv_write_sketch_file(config,extra_buf,
496	frodo	167	(psiconv_sketch_f) value->object->file)))
497			goto ERROR2;
498			break;
499	frodo	170	/*
500	frodo	167	case psiconv_sheet_file:
501	frodo	170	if ((res = psiconv_write_sheet_file(config,extra_buf,
502	frodo	167	(psiconv_sheet_f) value->object->file)))
503			goto ERROR2;
504			break;
505			*/
506			default:
507	frodo	168	psiconv_warn(config,0,psiconv_buffer_length(buf),
508	frodo	167	"Unknown or unsupported object type");
509			res = -PSICONV_E_GENERATE;
510			goto ERROR2;
511			}
512
513			if ((res = psiconv_buffer_resolve(extra_buf)))
514			goto ERROR2;
515			if ((res = psiconv_buffer_concat(buf,extra_buf)))
516			goto ERROR2;
517
518			return 0;
519
520			ERROR2:
521			psiconv_buffer_free(extra_buf);
522			ERROR1:
523			return res;
524			}
525
526
527	frodo	168	int psiconv_write_object_display_section(const psiconv_config config,
528			psiconv_buffer buf,
529	frodo	167	const psiconv_object_display_section value)
530			{
531			int res;
532
533			if (!value) {
534	frodo	168	psiconv_warn(config,0,psiconv_buffer_length(buf),"Null Object Display Section");
535	frodo	167	res = -PSICONV_E_GENERATE;
536			goto ERROR1;
537			}
538
539	frodo	168	if ((res = psiconv_write_u8(config,buf,value->show_icon?0x00:0x01)))
540	frodo	167	goto ERROR1;
541	frodo	168	if ((res = psiconv_write_length(config,buf,value->width)))
542	frodo	167	goto ERROR1;
543	frodo	168	if ((res = psiconv_write_length(config,buf,value->height)))
544	frodo	167	goto ERROR1;
545	frodo	168	if ((res = psiconv_write_u32(config,buf,0x00000000)))
546	frodo	167	goto ERROR1;
547
548			return 0;
549
550			ERROR1:
551			return res;
552			}
553
554	frodo	168	int psiconv_write_object_icon_section(const psiconv_config config,
555			psiconv_buffer buf,
556	frodo	167	const psiconv_object_icon_section value)
557			{
558			int res;
559
560			if (!value) {
561	frodo	168	psiconv_warn(config,0,psiconv_buffer_length(buf),"Null Object Icon Section");
562	frodo	167	res = -PSICONV_E_GENERATE;
563			goto ERROR1;
564			}
565
566	frodo	168	if ((res = psiconv_write_string(config,buf,value->icon_name)))
567	frodo	167	goto ERROR1;
568	frodo	168	if ((res = psiconv_write_length(config,buf,value->icon_width)))
569	frodo	167	goto ERROR1;
570	frodo	168	if ((res = psiconv_write_length(config,buf,value->icon_height)))
571	frodo	167	goto ERROR1;
572
573			return 0;
574
575			ERROR1:
576			return res;
577			}
frodo@frodo.looijaard.name	ViewVC Help
Powered by ViewVC 1.1.26