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)
{
  int res;
  psiconv_progress(config,lev,0,"Writing u8");
  psiconv_debug(config,lev+1,0,"Value: %02x",value);
  res = psiconv_buffer_add(buf,value);
  if (res)
    psiconv_error(config,lev,0,"Out of memory error");
  return res;
}

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");
  psiconv_debug(config,lev+1,0,"Value: %04x",value);
  if ((res = psiconv_buffer_add(buf,value & 0xff))) 
    goto ERROR;
  if ((res = psiconv_buffer_add(buf,(value & 0xff00) >> 8)))
    goto ERROR;
ERROR:
  if (res)
    psiconv_error(config,lev,0,"Out of memory error");
  return res;
}

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");
  psiconv_debug(config,lev+1,0,"Value: %08x",value);

  if ((res = psiconv_buffer_add(buf,value & 0xff))) 
    goto ERROR;
  if ((res = psiconv_buffer_add(buf,(value & 0xff00) >> 8))) 
    goto ERROR;
  if ((res = psiconv_buffer_add(buf,(value & 0xff0000) >> 16))) 
    goto ERROR;
  if ((res = psiconv_buffer_add(buf,(value & 0xff000000) >> 24)))
    goto ERROR;
ERROR:
  if (res)
    psiconv_error(config,lev,0,"Out of memory error");
  return res;
}

int psiconv_write_S(const psiconv_config config,psiconv_buffer buf, 
                    int lev,const psiconv_u32 value)
{
  int res;

  psiconv_progress(config,lev,0,"Writing S");
  psiconv_debug(config,lev+1,0,"Value: %08x",value);
  if (value < 0x40) 
    res = psiconv_write_u8(config,buf,lev+2,value * 4 + 2);
  else if (value < 0x2000) 
    res = psiconv_write_u16(config,buf,lev+2,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);
    res = -PSICONV_E_GENERATE;
  }
  if (res)
    psiconv_error(config,lev,0,"Writing of S failed");
  else
    psiconv_progress(config,lev,0,"End of S");
  return res;
}

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

int psiconv_write_length(const psiconv_config config,psiconv_buffer buf, 
                         int lev,const psiconv_length_t value)
{
  int res;
  psiconv_progress(config,lev,0,"Writing length");
  psiconv_debug(config,lev+1,0,"Value: %f",value);
  res = psiconv_write_u32(config,buf,lev+2,value * (1440.0/2.54) + 0.5);
  if (res)
    psiconv_error(config,lev,0,"Writing of length failed");
  else
    psiconv_progress(config,lev,0,"End of length");
  return res;
}

int psiconv_write_size(const psiconv_config config,psiconv_buffer buf,
                       int lev, psiconv_size_t value)
{
  int res;
  psiconv_progress(config,lev,0,"Writing size");
  psiconv_debug(config,lev+1,0,"Value: %f",value);
  res = psiconv_write_u32(config,buf,lev+2,value * 20.0 + 0.5);
  if (res)
    psiconv_error(config,lev,0,"Writing of size failed");
  else
    psiconv_progress(config,lev,0,"End of size");
  return res;
}

int psiconv_write_bool(const psiconv_config config,psiconv_buffer buf, 
                       int lev,const psiconv_bool_t value)
{
  int res;
  psiconv_progress(config,lev,0,"Writing bool");
  psiconv_debug(config,lev+1,0,"Value: %s",
                value == psiconv_bool_false?"False":"True");
  if ((value != psiconv_bool_true) && (value != psiconv_bool_false)) 
    psiconv_warn(config,0,psiconv_buffer_length(buf),
                 "Boolean has non-enum value (found %d, used true)",value);
  res = psiconv_write_u8(config,buf,lev+2,value == psiconv_bool_false?0:1);
  if (res)
    psiconv_error(config,lev,0,"Writing of bool failed");
  else
    psiconv_progress(config,lev,0,"End of bool");
  return res;
}

int psiconv_write_string(const psiconv_config config,psiconv_buffer buf,
                         int lev, const psiconv_string_t value)
{
  int res;
  psiconv_progress(config,lev,0,"Writing string");
  res = psiconv_write_string_aux(config,buf,lev+1,value,-1);
  if (res)
    psiconv_error(config,lev,0,"Writing of string failed");
  else
    psiconv_progress(config,lev,0,"End of string");
  return res;
}

int psiconv_write_short_string(const psiconv_config config,psiconv_buffer buf, 
                               int lev,const psiconv_string_t value)
{
  int res;
  psiconv_progress(config,lev,0,"Writing short string");
  res = psiconv_write_string_aux(config,buf,lev+1,value,-2);
  if (res)
    psiconv_error(config,lev,0,"Writing of short string failed");
  else
    psiconv_progress(config,lev,0,"End of short string");
  return res;
}

int psiconv_write_charlist(const psiconv_config config,psiconv_buffer buf, 
                           int lev,const psiconv_string_t value)
{
  int res;
  psiconv_progress(config,lev,0,"Writing charlist");
  res = psiconv_write_string_aux(config,buf,lev+1,value,0);
  if (res)
    psiconv_error(config,lev,0,"Writing of charlist failed");
  else
    psiconv_progress(config,lev,0,"End of charlist");
  return res;
}


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;
  char *printable;

  len = psiconv_unicode_strlen(value);
  if (!value) {
    psiconv_error(config,lev,0, "NULL string");
    return -PSICONV_E_GENERATE;
  }

  if (!(printable = psiconv_make_printable(config,value))) {
    psiconv_error(config,lev,0,"Out of memory error");
    return -PSICONV_E_NOMEM;
  }
  psiconv_debug(config,lev+1,0,"Value: %s",printable);
  free(printable);

  if (kind == -1) 
    res = psiconv_write_S(config,buf,lev+2,len);
  else if (kind == -2)
    res = psiconv_write_u8(config,buf,lev+2,len);
  else
    res = 0;
  if (res)
    return res;

  for (i = 0; i < len; i++) 
    if ((res = psiconv_unicode_write_char(config,buf,lev+2,value[i]))) 
      return res;
  return -PSICONV_E_OK;
}

int psiconv_write_offset(const psiconv_config config,psiconv_buffer buf, 
                         int lev,psiconv_u32 id)
{
  int res;
  psiconv_progress(config,lev,0,"Writing offset");
  psiconv_debug(config,lev+1,0,"ID: %08x",id);
  res = psiconv_buffer_add_reference(buf,id);
  if (res)
    psiconv_error(config,lev,0,"Out of memory error");
  return res;
}
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	232	int res;
42			psiconv_progress(config,lev,0,"Writing u8");
43			psiconv_debug(config,lev+1,0,"Value: %02x",value);
44			res = psiconv_buffer_add(buf,value);
45			if (res)
46			psiconv_error(config,lev,0,"Out of memory error");
47			return res;
48	frodo	71	}
49
50	frodo	184	int psiconv_write_u16(const psiconv_config config,psiconv_buffer buf,
51			int lev,const psiconv_u16 value)
52	frodo	71	{
53			int res;
54	frodo	232	psiconv_progress(config,lev,0,"Writing u16");
55			psiconv_debug(config,lev+1,0,"Value: %04x",value);
56	frodo	79	if ((res = psiconv_buffer_add(buf,value & 0xff)))
57	frodo	232	goto ERROR;
58			if ((res = psiconv_buffer_add(buf,(value & 0xff00) >> 8)))
59			goto ERROR;
60			ERROR:
61			if (res)
62			psiconv_error(config,lev,0,"Out of memory error");
63			return res;
64	frodo	71	}
65
66	frodo	184	int psiconv_write_u32(const psiconv_config config,psiconv_buffer buf,
67			int lev,const psiconv_u32 value)
68	frodo	71	{
69			int res;
70	frodo	232	psiconv_progress(config,lev,0,"Writing u32");
71			psiconv_debug(config,lev+1,0,"Value: %08x",value);
72
73	frodo	79	if ((res = psiconv_buffer_add(buf,value & 0xff)))
74	frodo	232	goto ERROR;
75	frodo	79	if ((res = psiconv_buffer_add(buf,(value & 0xff00) >> 8)))
76	frodo	232	goto ERROR;
77	frodo	79	if ((res = psiconv_buffer_add(buf,(value & 0xff0000) >> 16)))
78	frodo	232	goto ERROR;
79			if ((res = psiconv_buffer_add(buf,(value & 0xff000000) >> 24)))
80			goto ERROR;
81			ERROR:
82			if (res)
83			psiconv_error(config,lev,0,"Out of memory error");
84			return res;
85	frodo	71	}
86
87	frodo	184	int psiconv_write_S(const psiconv_config config,psiconv_buffer buf,
88			int lev,const psiconv_u32 value)
89	frodo	71	{
90	frodo	232	int res;
91
92	frodo	184	psiconv_progress(config,lev,0,"Writing S");
93	frodo	232	psiconv_debug(config,lev+1,0,"Value: %08x",value);
94	frodo	71	if (value < 0x40)
95	frodo	232	res = psiconv_write_u8(config,buf,lev+2,value * 4 + 2);
96	frodo	71	else if (value < 0x2000)
97	frodo	232	res = psiconv_write_u16(config,buf,lev+2,value * 8 + 3);
98	frodo	71	else {
99	frodo	184	psiconv_error(config,0,psiconv_buffer_length(buf),
100	frodo	71	"Don't know how to write S value larger than 0x2000 "
101			"(trying %x)",value);
102	frodo	232	res = -PSICONV_E_GENERATE;
103	frodo	71	}
104	frodo	232	if (res)
105			psiconv_error(config,lev,0,"Writing of S failed");
106			else
107			psiconv_progress(config,lev,0,"End of S");
108			return res;
109	frodo	71	}
110
111	frodo	184	int psiconv_write_X(const psiconv_config config,psiconv_buffer buf,
112			int lev, const psiconv_u32 value)
113	frodo	71	{
114	frodo	232	int res;
115	frodo	184	psiconv_progress(config,lev,0,"Writing X");
116	frodo	232	psiconv_debug(config,lev+1,0,"Value: %08x",value);
117	frodo	71	if (value < 0x80)
118	frodo	232	res = psiconv_write_u8(config,buf,lev+2,value * 2);
119	frodo	71	else if (value < 0x4000)
120	frodo	232	res = psiconv_write_u16(config,buf,lev+2,value * 4 + 1);
121	frodo	71	else if (value < 0x20000000)
122	frodo	232	res = psiconv_write_u16(config,buf,lev+2,value * 8 + 3);
123	frodo	71	else {
124	frodo	232	psiconv_error(config,lev,0,
125	frodo	71	"Don't know how to write X value larger than 0x20000000 "
126			"(trying %x)",value);
127	frodo	232	res = -PSICONV_E_GENERATE;
128	frodo	71	}
129	frodo	232	if (res)
130			psiconv_error(config,lev,0,"Writing of X failed");
131			else
132			psiconv_progress(config,lev,0,"End of X");
133			return res;
134	frodo	71	}
135
136	frodo	184	int psiconv_write_length(const psiconv_config config,psiconv_buffer buf,
137			int lev,const psiconv_length_t value)
138	frodo	71	{
139	frodo	232	int res;
140			psiconv_progress(config,lev,0,"Writing length");
141			psiconv_debug(config,lev+1,0,"Value: %f",value);
142			res = psiconv_write_u32(config,buf,lev+2,value * (1440.0/2.54) + 0.5);
143			if (res)
144			psiconv_error(config,lev,0,"Writing of length failed");
145			else
146			psiconv_progress(config,lev,0,"End of length");
147			return res;
148	frodo	71	}
149
150	frodo	184	int psiconv_write_size(const psiconv_config config,psiconv_buffer buf,
151			int lev, psiconv_size_t value)
152	frodo	71	{
153	frodo	232	int res;
154			psiconv_progress(config,lev,0,"Writing size");
155			psiconv_debug(config,lev+1,0,"Value: %f",value);
156			res = psiconv_write_u32(config,buf,lev+2,value * 20.0 + 0.5);
157			if (res)
158			psiconv_error(config,lev,0,"Writing of size failed");
159			else
160			psiconv_progress(config,lev,0,"End of size");
161			return res;
162	frodo	71	}
163
164	frodo	184	int psiconv_write_bool(const psiconv_config config,psiconv_buffer buf,
165			int lev,const psiconv_bool_t value)
166	frodo	71	{
167	frodo	232	int res;
168			psiconv_progress(config,lev,0,"Writing bool");
169			psiconv_debug(config,lev+1,0,"Value: %s",
170			value == psiconv_bool_false?"False":"True");
171	frodo	72	if ((value != psiconv_bool_true) && (value != psiconv_bool_false))
172	frodo	168	psiconv_warn(config,0,psiconv_buffer_length(buf),
173	frodo	232	"Boolean has non-enum value (found %d, used true)",value);
174			res = psiconv_write_u8(config,buf,lev+2,value == psiconv_bool_false?0:1);
175			if (res)
176			psiconv_error(config,lev,0,"Writing of bool failed");
177			else
178			psiconv_progress(config,lev,0,"End of bool");
179			return res;
180	frodo	71	}
181
182	frodo	184	int psiconv_write_string(const psiconv_config config,psiconv_buffer buf,
183			int lev, const psiconv_string_t value)
184	frodo	71	{
185	frodo	231	int res;
186	frodo	184	psiconv_progress(config,lev,0,"Writing string");
187	frodo	231	res = psiconv_write_string_aux(config,buf,lev+1,value,-1);
188			if (res)
189			psiconv_error(config,lev,0,"Writing of string failed");
190			else
191			psiconv_progress(config,lev,0,"End of string");
192			return res;
193	frodo	182	}
194
195	frodo	184	int psiconv_write_short_string(const psiconv_config config,psiconv_buffer buf,
196			int lev,const psiconv_string_t value)
197	frodo	182	{
198	frodo	231	int res;
199	frodo	184	psiconv_progress(config,lev,0,"Writing short string");
200	frodo	231	res = psiconv_write_string_aux(config,buf,lev+1,value,-2);
201			if (res)
202			psiconv_error(config,lev,0,"Writing of short string failed");
203			else
204			psiconv_progress(config,lev,0,"End of short string");
205			return res;
206	frodo	182	}
207
208	frodo	184	int psiconv_write_charlist(const psiconv_config config,psiconv_buffer buf,
209			int lev,const psiconv_string_t value)
210	frodo	182	{
211	frodo	231	int res;
212			psiconv_progress(config,lev,0,"Writing charlist");
213			res = psiconv_write_string_aux(config,buf,lev+1,value,0);
214			if (res)
215			psiconv_error(config,lev,0,"Writing of charlist failed");
216			else
217			psiconv_progress(config,lev,0,"End of charlist");
218			return res;
219	frodo	184	}
220
221
222			int psiconv_write_string_aux(const psiconv_config config,psiconv_buffer buf,
223			int lev, const psiconv_string_t value,int kind)
224			{
225			int res,i,len;
226	frodo	232	char *printable;
227	frodo	184
228			len = psiconv_unicode_strlen(value);
229	frodo	72	if (!value) {
230	frodo	231	psiconv_error(config,lev,0, "NULL string");
231	frodo	72	return -PSICONV_E_GENERATE;
232			}
233	frodo	232
234			if (!(printable = psiconv_make_printable(config,value))) {
235			psiconv_error(config,lev,0,"Out of memory error");
236			return -PSICONV_E_NOMEM;
237			}
238			psiconv_debug(config,lev+1,0,"Value: %s",printable);
239			free(printable);
240
241	frodo	184	if (kind == -1)
242	frodo	232	res = psiconv_write_S(config,buf,lev+2,len);
243	frodo	184	else if (kind == -2)
244	frodo	232	res = psiconv_write_u8(config,buf,lev+2,len);
245	frodo	182	else
246	frodo	184	res = 0;
247	frodo	182	if (res)
248	frodo	71	return res;
249	frodo	184
250			for (i = 0; i < len; i++)
251	frodo	232	if ((res = psiconv_unicode_write_char(config,buf,lev+2,value[i])))
252	frodo	71	return res;
253			return -PSICONV_E_OK;
254			}
255	frodo	80
256	frodo	184	int psiconv_write_offset(const psiconv_config config,psiconv_buffer buf,
257			int lev,psiconv_u32 id)
258	frodo	80	{
259	frodo	232	int res;
260			psiconv_progress(config,lev,0,"Writing offset");
261			psiconv_debug(config,lev+1,0,"ID: %08x",id);
262			res = psiconv_buffer_add_reference(buf,id);
263			if (res)
264			psiconv_error(config,lev,0,"Out of memory error");
265			return res;
266	frodo	80	}
frodo@frodo.looijaard.name	ViewVC Help
Powered by ViewVC 1.1.26