lib/psiconv/generate_simple.c

/*
    generate_simple.c - Part of psiconv, a PSION 5 file formats converter
    Copyright (c) 2000-2004  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 <stdlib.h>

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

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

static int psiconv_write_string_aux(const psiconv_config config,
                                    psiconv_buffer buf, int lev,
                                    const psiconv_string_t value,int kind);

int psiconv_write_u8(const psiconv_config config,psiconv_buffer buf,
                     int lev,const psiconv_u8 value)
{
  psiconv_progress(config,lev,0,"Writing u8");
  return psiconv_buffer_add(buf,value);
}

int psiconv_write_u16(const psiconv_config config,psiconv_buffer buf,
                      int lev,const psiconv_u16 value)
{
  int res;
  psiconv_progress(config,lev,0,"Writing u16");
  if ((res = psiconv_buffer_add(buf,value & 0xff))) 
        return res;
  return psiconv_buffer_add(buf,(value & 0xff00) >> 8);
}

int psiconv_write_u32(const psiconv_config config,psiconv_buffer buf,
                      int lev,const psiconv_u32 value)
{
  int res;
  psiconv_progress(config,lev,0,"Writing u32");
  if ((res = psiconv_buffer_add(buf,value & 0xff))) 
        return res;
  if ((res = psiconv_buffer_add(buf,(value & 0xff00) >> 8))) 
        return res;
  if ((res = psiconv_buffer_add(buf,(value & 0xff0000) >> 16))) 
        return res;
  return psiconv_buffer_add(buf,(value & 0xff000000) >> 24);
}

int psiconv_write_S(const psiconv_config config,psiconv_buffer buf, 
                    int lev,const psiconv_u32 value)
{
  psiconv_progress(config,lev,0,"Writing S");
  if (value < 0x40) 
    return psiconv_write_u8(config,buf,lev+1,value * 4 + 2);
  else if (value < 0x2000) 
    return psiconv_write_u16(config,buf,lev+1,value * 8 + 3);
  else {
    psiconv_error(config,0,psiconv_buffer_length(buf),
                 "Don't know how to write S value larger than 0x2000 "
                 "(trying %x)",value);
    return -PSICONV_E_GENERATE;
  }
}

int psiconv_write_X(const psiconv_config config,psiconv_buffer buf,
                    int lev, const psiconv_u32 value)
{
  psiconv_progress(config,lev,0,"Writing X");
  if (value < 0x80) 
    return psiconv_write_u8(config,buf,lev+1,value * 2);
  else if (value < 0x4000) 
    return psiconv_write_u16(config,buf,lev+1,value * 4 + 1);
  else if (value < 0x20000000) 
    return psiconv_write_u16(config,buf,lev+1,value * 8 + 3);
  else {
    psiconv_error(config,0,psiconv_buffer_length(buf),
                 "Don't know how to write X value larger than 0x20000000 "
                 "(trying %x)",value);
    return -PSICONV_E_GENERATE;
  }
}

int psiconv_write_length(const psiconv_config config,psiconv_buffer buf, 
                         int lev,const psiconv_length_t value)
{
  psiconv_progress(config,lev,0,"Writing length");
  return psiconv_write_u32(config,buf,lev+1,value * (1440.0/2.54) + 0.5);
}

int psiconv_write_size(const psiconv_config config,psiconv_buffer buf,
                       int lev, psiconv_size_t value)
{
  psiconv_progress(config,lev,0,"Writing size");
  return psiconv_write_u32(config,buf,lev+1,value * 20.0 + 0.5);
}

int psiconv_write_bool(const psiconv_config config,psiconv_buffer buf, 
                       int lev,const psiconv_bool_t value)
{
  psiconv_progress(config,lev,0,"Writing bool");
  if ((value != psiconv_bool_true) && (value != psiconv_bool_false)) 
    psiconv_warn(config,0,psiconv_buffer_length(buf),
                 "Boolean has non-enum value (found %d)",value);
  return psiconv_write_u8(config,buf,lev+1,value == psiconv_bool_false?0:1);
}

int psiconv_write_string(const psiconv_config config,psiconv_buffer buf,
                         int lev, const psiconv_string_t value)
{
  psiconv_progress(config,lev,0,"Writing string");
  return psiconv_write_string_aux(config,buf,lev+1,value,-1);
}

int psiconv_write_short_string(const psiconv_config config,psiconv_buffer buf, 
                               int lev,const psiconv_string_t value)
{
  psiconv_progress(config,lev,0,"Writing short string");
  return psiconv_write_string_aux(config,buf,lev+1,value,-2);
}

int psiconv_write_charlist(const psiconv_config config,psiconv_buffer buf, 
                           int lev,const psiconv_string_t value)
{
  psiconv_progress(config,lev,0,"Writing short string");
  return psiconv_write_string_aux(config,buf,lev+1,value,0);
}


int psiconv_write_string_aux(const psiconv_config config,psiconv_buffer buf,
                             int lev, const psiconv_string_t value,int kind)
{
  int res,i,len;
  psiconv_u8 *output;

  psiconv_progress(config,lev,0,"Writing string (auxiliary)");
  len = psiconv_unicode_strlen(value);
  if (!value) {
    psiconv_error(config,0,psiconv_buffer_length(buf),
                 "NULL string");
    return -PSICONV_E_GENERATE;
  }
  if (kind == -1) 
    res = psiconv_write_S(config,buf,lev+1,len);
  else if (kind == -2)
    res = psiconv_write_u8(config,buf,lev+1,len);
  else
    res = 0;
  if (res)
    return res;

  if ((res = psiconv_unicode_to_chars(config,value,&output)))
    return res;

  for (i = 0; i < len; i++) 
    if ((res = psiconv_write_u8(config,buf,lev+1,output[i]))) {
      free(output);
      return res;
    }
  free(output);
  return -PSICONV_E_OK;
}

int psiconv_write_offset(const psiconv_config config,psiconv_buffer buf, 
                         int lev,psiconv_u32 id)
{
  psiconv_progress(config,lev,0,"Writing offset");
  return psiconv_buffer_add_reference(buf,id);
}
1	frodo	71	/*
2			generate_simple.c - Part of psiconv, a PSION 5 file formats converter
3	frodo	196	Copyright (c) 2000-2004 Frodo Looijaard <frodol@dds.nl>
4	frodo	71
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	frodo	168
21	frodo	71	#include "config.h"
22			#include "compat.h"
23
24	frodo	184	#include <string.h>
25			#include <stdlib.h>
26
27	frodo	71	#include "generate_routines.h"
28			#include "error.h"
29
30	frodo	142	#ifdef DMALLOC
31			#include <dmalloc.h>
32			#endif
33
34	frodo	184	static int psiconv_write_string_aux(const psiconv_config config,
35			psiconv_buffer buf, int lev,
36			const psiconv_string_t value,int kind);
37	frodo	142
38	frodo	184	int psiconv_write_u8(const psiconv_config config,psiconv_buffer buf,
39			int lev,const psiconv_u8 value)
40	frodo	71	{
41	frodo	184	psiconv_progress(config,lev,0,"Writing u8");
42	frodo	79	return psiconv_buffer_add(buf,value);
43	frodo	71	}
44
45	frodo	184	int psiconv_write_u16(const psiconv_config config,psiconv_buffer buf,
46			int lev,const psiconv_u16 value)
47	frodo	71	{
48			int res;
49	frodo	184	psiconv_progress(config,lev,0,"Writing u16");
50	frodo	79	if ((res = psiconv_buffer_add(buf,value & 0xff)))
51	frodo	71	return res;
52	frodo	79	return psiconv_buffer_add(buf,(value & 0xff00) >> 8);
53	frodo	71	}
54
55	frodo	184	int psiconv_write_u32(const psiconv_config config,psiconv_buffer buf,
56			int lev,const psiconv_u32 value)
57	frodo	71	{
58			int res;
59	frodo	184	psiconv_progress(config,lev,0,"Writing u32");
60	frodo	79	if ((res = psiconv_buffer_add(buf,value & 0xff)))
61	frodo	71	return res;
62	frodo	79	if ((res = psiconv_buffer_add(buf,(value & 0xff00) >> 8)))
63	frodo	71	return res;
64	frodo	79	if ((res = psiconv_buffer_add(buf,(value & 0xff0000) >> 16)))
65	frodo	71	return res;
66	frodo	79	return psiconv_buffer_add(buf,(value & 0xff000000) >> 24);
67	frodo	71	}
68
69	frodo	184	int psiconv_write_S(const psiconv_config config,psiconv_buffer buf,
70			int lev,const psiconv_u32 value)
71	frodo	71	{
72	frodo	184	psiconv_progress(config,lev,0,"Writing S");
73	frodo	71	if (value < 0x40)
74	frodo	184	return psiconv_write_u8(config,buf,lev+1,value * 4 + 2);
75	frodo	71	else if (value < 0x2000)
76	frodo	184	return psiconv_write_u16(config,buf,lev+1,value * 8 + 3);
77	frodo	71	else {
78	frodo	184	psiconv_error(config,0,psiconv_buffer_length(buf),
79	frodo	71	"Don't know how to write S value larger than 0x2000 "
80			"(trying %x)",value);
81			return -PSICONV_E_GENERATE;
82			}
83			}
84
85	frodo	184	int psiconv_write_X(const psiconv_config config,psiconv_buffer buf,
86			int lev, const psiconv_u32 value)
87	frodo	71	{
88	frodo	184	psiconv_progress(config,lev,0,"Writing X");
89	frodo	71	if (value < 0x80)
90	frodo	184	return psiconv_write_u8(config,buf,lev+1,value * 2);
91	frodo	71	else if (value < 0x4000)
92	frodo	184	return psiconv_write_u16(config,buf,lev+1,value * 4 + 1);
93	frodo	71	else if (value < 0x20000000)
94	frodo	184	return psiconv_write_u16(config,buf,lev+1,value * 8 + 3);
95	frodo	71	else {
96	frodo	184	psiconv_error(config,0,psiconv_buffer_length(buf),
97	frodo	71	"Don't know how to write X value larger than 0x20000000 "
98			"(trying %x)",value);
99			return -PSICONV_E_GENERATE;
100			}
101			}
102
103	frodo	184	int psiconv_write_length(const psiconv_config config,psiconv_buffer buf,
104			int lev,const psiconv_length_t value)
105	frodo	71	{
106	frodo	184	psiconv_progress(config,lev,0,"Writing length");
107			return psiconv_write_u32(config,buf,lev+1,value * (1440.0/2.54) + 0.5);
108	frodo	71	}
109
110	frodo	184	int psiconv_write_size(const psiconv_config config,psiconv_buffer buf,
111			int lev, psiconv_size_t value)
112	frodo	71	{
113	frodo	184	psiconv_progress(config,lev,0,"Writing size");
114			return psiconv_write_u32(config,buf,lev+1,value * 20.0 + 0.5);
115	frodo	71	}
116
117	frodo	184	int psiconv_write_bool(const psiconv_config config,psiconv_buffer buf,
118			int lev,const psiconv_bool_t value)
119	frodo	71	{
120	frodo	184	psiconv_progress(config,lev,0,"Writing bool");
121	frodo	72	if ((value != psiconv_bool_true) && (value != psiconv_bool_false))
122	frodo	168	psiconv_warn(config,0,psiconv_buffer_length(buf),
123	frodo	72	"Boolean has non-enum value (found %d)",value);
124	frodo	184	return psiconv_write_u8(config,buf,lev+1,value == psiconv_bool_false?0:1);
125	frodo	71	}
126
127	frodo	184	int psiconv_write_string(const psiconv_config config,psiconv_buffer buf,
128			int lev, const psiconv_string_t value)
129	frodo	71	{
130	frodo	184	psiconv_progress(config,lev,0,"Writing string");
131			return psiconv_write_string_aux(config,buf,lev+1,value,-1);
132	frodo	182	}
133
134	frodo	184	int psiconv_write_short_string(const psiconv_config config,psiconv_buffer buf,
135			int lev,const psiconv_string_t value)
136	frodo	182	{
137	frodo	184	psiconv_progress(config,lev,0,"Writing short string");
138			return psiconv_write_string_aux(config,buf,lev+1,value,-2);
139	frodo	182	}
140
141	frodo	184	int psiconv_write_charlist(const psiconv_config config,psiconv_buffer buf,
142			int lev,const psiconv_string_t value)
143	frodo	182	{
144	frodo	184	psiconv_progress(config,lev,0,"Writing short string");
145			return psiconv_write_string_aux(config,buf,lev+1,value,0);
146			}
147
148
149			int psiconv_write_string_aux(const psiconv_config config,psiconv_buffer buf,
150			int lev, const psiconv_string_t value,int kind)
151			{
152			int res,i,len;
153			psiconv_u8 *output;
154
155			psiconv_progress(config,lev,0,"Writing string (auxiliary)");
156			len = psiconv_unicode_strlen(value);
157	frodo	72	if (!value) {
158	frodo	184	psiconv_error(config,0,psiconv_buffer_length(buf),
159	frodo	72	"NULL string");
160			return -PSICONV_E_GENERATE;
161			}
162	frodo	184	if (kind == -1)
163			res = psiconv_write_S(config,buf,lev+1,len);
164			else if (kind == -2)
165			res = psiconv_write_u8(config,buf,lev+1,len);
166	frodo	182	else
167	frodo	184	res = 0;
168	frodo	182	if (res)
169	frodo	71	return res;
170	frodo	184
171			if ((res = psiconv_unicode_to_chars(config,value,&output)))
172			return res;
173
174			for (i = 0; i < len; i++)
175			if ((res = psiconv_write_u8(config,buf,lev+1,output[i]))) {
176			free(output);
177	frodo	71	return res;
178	frodo	184	}
179			free(output);
180	frodo	71	return -PSICONV_E_OK;
181			}
182	frodo	80
183	frodo	184	int psiconv_write_offset(const psiconv_config config,psiconv_buffer buf,
184			int lev,psiconv_u32 id)
185	frodo	80	{
186	frodo	184	psiconv_progress(config,lev,0,"Writing offset");
187	frodo	80	return psiconv_buffer_add_reference(buf,id);
188			}
frodo@frodo.looijaard.name	ViewVC Help
Powered by ViewVC 1.1.26