/[public]/psiconv/trunk/lib/psiconv/generate_simple.c
ViewVC logotype

Annotation of /psiconv/trunk/lib/psiconv/generate_simple.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 142 - (hide annotations)
Tue Jan 29 18:38:38 2002 UTC (22 years, 2 months ago) by frodo
File MIME type: text/plain
File size: 3688 byte(s)
(Frodo) DMALLOC support

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

frodo@frodo.looijaard.name
ViewVC Help
Powered by ViewVC 1.1.26