lib/psiconv/generate_simple.c

/*
    generate_simple.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 <string.h>

#include "config.h"
#include "compat.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, const psiconv_string_t value,int kind);

int psiconv_write_u8(const psiconv_config config,psiconv_buffer buf,const psiconv_u8 value)
{
  return psiconv_buffer_add(buf,value);
}

int psiconv_write_u16(const psiconv_config config,psiconv_buffer buf,const psiconv_u16 value)
{
  int res;
  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,const psiconv_u32 value)
{
  int res;
  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, const psiconv_u32 value)
{
  if (value < 0x40) 
    return psiconv_write_u8(config,buf,value * 4 + 2);
  else if (value < 0x2000) 
    return psiconv_write_u16(config,buf,value * 8 + 3);
  else {
    psiconv_warn(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, const psiconv_u32 value)
{
  if (value < 0x80) 
    return psiconv_write_u8(config,buf,value * 2);
  else if (value < 0x4000) 
    return psiconv_write_u16(config,buf,value * 4 + 1);
  else if (value < 0x20000000) 
    return psiconv_write_u16(config,buf,value * 8 + 3);
  else {
    psiconv_warn(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, const psiconv_length_t value)
{
  return psiconv_write_u32(config,buf,value * (1440.0/2.54) + 0.5);
}

int psiconv_write_size(const psiconv_config config,psiconv_buffer buf, psiconv_size_t value)
{
  return psiconv_write_u32(config,buf,value * 20.0 + 0.5);
}

int psiconv_write_bool(const psiconv_config config,psiconv_buffer buf, const psiconv_bool_t value)
{
  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,value == psiconv_bool_false?0:1);
}

int psiconv_write_string(const psiconv_config config,psiconv_buffer buf, const psiconv_string_t value)
{
  return psiconv_write_string_aux(config,buf,value,0);
}

int psiconv_write_short_string(const psiconv_config config,psiconv_buffer buf, const psiconv_string_t value)
{
  return psiconv_write_string_aux(config,buf,value,1);
}

int psiconv_write_string_aux(const psiconv_config config,psiconv_buffer buf, const psiconv_string_t value,int kind)
{
  int res,i;
  if (!value) {
    psiconv_warn(config,0,psiconv_buffer_length(buf),
                 "NULL string");
    return -PSICONV_E_GENERATE;
  }
  if (kind == 0) 
    res = psiconv_write_S(config,buf,strlen(value));
  else
    res = psiconv_write_u8(config,buf,strlen(value));
  if (res)
    return res;
  for (i = 0; i < strlen(value); i++) 
    if ((res = psiconv_write_u8(config,buf,value[i])))
      return res;
  return -PSICONV_E_OK;
}

int psiconv_write_offset(const psiconv_config config,psiconv_buffer buf, psiconv_u32 id)
{
  return psiconv_buffer_add_reference(buf,id);
}
1	frodo	71	/*
2			generate_simple.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	frodo	168	#include <string.h>
21
22	frodo	71	#include "config.h"
23			#include "compat.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	182	static int psiconv_write_string_aux(const psiconv_config config,psiconv_buffer buf, const psiconv_string_t value,int kind);
33	frodo	142
34	frodo	168	int psiconv_write_u8(const psiconv_config config,psiconv_buffer buf,const psiconv_u8 value)
35	frodo	71	{
36	frodo	79	return psiconv_buffer_add(buf,value);
37	frodo	71	}
38
39	frodo	168	int psiconv_write_u16(const psiconv_config config,psiconv_buffer buf,const psiconv_u16 value)
40	frodo	71	{
41			int res;
42	frodo	79	if ((res = psiconv_buffer_add(buf,value & 0xff)))
43	frodo	71	return res;
44	frodo	79	return psiconv_buffer_add(buf,(value & 0xff00) >> 8);
45	frodo	71	}
46
47	frodo	168	int psiconv_write_u32(const psiconv_config config,psiconv_buffer buf,const psiconv_u32 value)
48	frodo	71	{
49			int res;
50	frodo	79	if ((res = psiconv_buffer_add(buf,value & 0xff)))
51	frodo	71	return res;
52	frodo	79	if ((res = psiconv_buffer_add(buf,(value & 0xff00) >> 8)))
53	frodo	71	return res;
54	frodo	79	if ((res = psiconv_buffer_add(buf,(value & 0xff0000) >> 16)))
55	frodo	71	return res;
56	frodo	79	return psiconv_buffer_add(buf,(value & 0xff000000) >> 24);
57	frodo	71	}
58
59	frodo	168	int psiconv_write_S(const psiconv_config config,psiconv_buffer buf, const psiconv_u32 value)
60	frodo	71	{
61			if (value < 0x40)
62	frodo	168	return psiconv_write_u8(config,buf,value * 4 + 2);
63	frodo	71	else if (value < 0x2000)
64	frodo	168	return psiconv_write_u16(config,buf,value * 8 + 3);
65	frodo	71	else {
66	frodo	168	psiconv_warn(config,0,psiconv_buffer_length(buf),
67	frodo	71	"Don't know how to write S value larger than 0x2000 "
68			"(trying %x)",value);
69			return -PSICONV_E_GENERATE;
70			}
71			}
72
73	frodo	168	int psiconv_write_X(const psiconv_config config,psiconv_buffer buf, const psiconv_u32 value)
74	frodo	71	{
75			if (value < 0x80)
76	frodo	168	return psiconv_write_u8(config,buf,value * 2);
77	frodo	71	else if (value < 0x4000)
78	frodo	168	return psiconv_write_u16(config,buf,value * 4 + 1);
79	frodo	71	else if (value < 0x20000000)
80	frodo	168	return psiconv_write_u16(config,buf,value * 8 + 3);
81	frodo	71	else {
82	frodo	168	psiconv_warn(config,0,psiconv_buffer_length(buf),
83	frodo	71	"Don't know how to write X value larger than 0x20000000 "
84			"(trying %x)",value);
85			return -PSICONV_E_GENERATE;
86			}
87			}
88
89	frodo	168	int psiconv_write_length(const psiconv_config config,psiconv_buffer buf, const psiconv_length_t value)
90	frodo	71	{
91	frodo	168	return psiconv_write_u32(config,buf,value * (1440.0/2.54) + 0.5);
92	frodo	71	}
93
94	frodo	168	int psiconv_write_size(const psiconv_config config,psiconv_buffer buf, psiconv_size_t value)
95	frodo	71	{
96	frodo	168	return psiconv_write_u32(config,buf,value * 20.0 + 0.5);
97	frodo	71	}
98
99	frodo	168	int psiconv_write_bool(const psiconv_config config,psiconv_buffer buf, const psiconv_bool_t value)
100	frodo	71	{
101	frodo	72	if ((value != psiconv_bool_true) && (value != psiconv_bool_false))
102	frodo	168	psiconv_warn(config,0,psiconv_buffer_length(buf),
103	frodo	72	"Boolean has non-enum value (found %d)",value);
104	frodo	168	return psiconv_write_u8(config,buf,value == psiconv_bool_false?0:1);
105	frodo	71	}
106
107	frodo	168	int psiconv_write_string(const psiconv_config config,psiconv_buffer buf, const psiconv_string_t value)
108	frodo	71	{
109	frodo	182	return psiconv_write_string_aux(config,buf,value,0);
110			}
111
112			int psiconv_write_short_string(const psiconv_config config,psiconv_buffer buf, const psiconv_string_t value)
113			{
114			return psiconv_write_string_aux(config,buf,value,1);
115			}
116
117			int psiconv_write_string_aux(const psiconv_config config,psiconv_buffer buf, const psiconv_string_t value,int kind)
118			{
119	frodo	71	int res,i;
120	frodo	72	if (!value) {
121	frodo	168	psiconv_warn(config,0,psiconv_buffer_length(buf),
122	frodo	72	"NULL string");
123			return -PSICONV_E_GENERATE;
124			}
125	frodo	182	if (kind == 0)
126			res = psiconv_write_S(config,buf,strlen(value));
127			else
128			res = psiconv_write_u8(config,buf,strlen(value));
129			if (res)
130	frodo	71	return res;
131			for (i = 0; i < strlen(value); i++)
132	frodo	168	if ((res = psiconv_write_u8(config,buf,value[i])))
133	frodo	71	return res;
134			return -PSICONV_E_OK;
135			}
136	frodo	80
137	frodo	168	int psiconv_write_offset(const psiconv_config config,psiconv_buffer buf, psiconv_u32 id)
138	frodo	80	{
139			return psiconv_buffer_add_reference(buf,id);
140			}
frodo@frodo.looijaard.name	ViewVC Help
Powered by ViewVC 1.1.26