124fa4c3b295c522260dda669eeb457d3e21d947
[cascardo/libreceita.git] / rnet_message.c
1 /*
2  *  Copyright (C) 2013  Thadeu Lima de Souza Cascardo <cascardo@minaslivre.org>
3  *
4  *  This program is free software; you can redistribute it and/or modify
5  *  it under the terms of the GNU General Public License as published by
6  *  the Free Software Foundation; either version 3 of the License, or
7  *  (at your option) any later version.
8  *
9  *  This program is distributed in the hope that it will be useful,
10  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
11  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12  *  GNU General Public License for more details.
13  *
14  *  You should have received a copy of the GNU General Public License along
15  *  with this program; if not, write to the Free Software Foundation, Inc.,
16  *  51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
17  */
18
19 #include "rnet_message.h"
20 #include <stdlib.h>
21 #include <stdint.h>
22 #include <string.h>
23 #include <errno.h>
24 #include <netdb.h>
25
26 #ifndef MAX
27 #define MAX(a,b) (a >= b) ? a : b
28 #endif
29
30 int rnet_message_expand(struct rnet_message **message, size_t len)
31 {
32         struct rnet_message *msg = *message;
33         struct rnet_message *nmsg;
34         if (msg)
35                 len += msg->alen;
36         nmsg = realloc(msg, sizeof(*msg) + len);
37         if (!nmsg)
38                 return -1;
39         nmsg->alen = len;
40         if (!msg)
41                 nmsg->len = 0;
42         *message = nmsg;
43         return 0;
44 }
45
46 struct rnet_message * rnet_message_new(void)
47 {
48         struct rnet_message *msg = NULL;
49         int r;
50         r = rnet_message_expand(&msg, 1118);
51         if (r)
52                 return NULL;
53         return msg;
54 }
55
56 void rnet_message_del(struct rnet_message *message)
57 {
58         free(message);
59 }
60
61 static int add_field(struct rnet_message **message, char *key, int klen,
62                                                 char *val, int vlen)
63 {
64         int n = 0;
65         char *buffer;
66         struct rnet_message *msg = *message;
67         if ((msg->alen - msg->len) < (klen + vlen + 3)) {
68                 if (rnet_message_expand(message, MAX(msg->len, klen + vlen + 3)))
69                         return -ENOMEM;
70         }
71         buffer = msg->buffer + msg->len;
72         if (klen > 0x7f || klen < 0)
73                 return -EINVAL;
74         if (vlen > 0x7fff || vlen < 0)
75                 return -EINVAL;
76         buffer[0] = klen & 0x7f;
77         if (vlen > 0x7f)
78                 buffer[0] |= 0x80;
79         buffer++;
80         n++;
81         memcpy(buffer, key, klen);
82         buffer += klen;
83         n += klen;
84         if (vlen > 0x7f) {
85                 buffer[0] = (vlen >> 8) & 0x7f;
86                 buffer[1] = vlen & 0xff;
87                 buffer += 2;
88                 n += 2;
89         } else {
90                 buffer[0] = vlen & 0x7f;
91                 buffer++;
92                 n++;
93         }
94         memcpy(buffer, val, vlen);
95         n += vlen;
96         msg->len += n;
97         return n;
98 }
99
100 int rnet_message_add_u32(struct rnet_message **msg, char *key, uint32_t val)
101 {
102         uint32_t nval = htonl(val);
103         return add_field(msg, key, strlen(key), (char *) &nval, sizeof(val));
104 }
105
106 int rnet_message_add_ascii(struct rnet_message **msg, char *key, char *val)
107 {
108         return add_field(msg, key, strlen(key), val, strlen(val));
109 }
110
111 int rnet_message_add_u8(struct rnet_message **msg, char *key, uint8_t val)
112 {
113         return add_field(msg, key, strlen(key), (char *) &val, sizeof(val));
114 }
115
116 int rnet_message_add_u16(struct rnet_message **msg, char *key, uint16_t val)
117 {
118         uint16_t nval = htons(val);
119         return add_field(msg, key, strlen(key), (char *) &nval, sizeof(val));
120 }
121
122 int rnet_message_add_u64(struct rnet_message **msg, char *key, uint64_t val)
123 {
124         uint64_t nval = htobe64(val);
125         return add_field(msg, key, strlen(key), (char *) &nval, sizeof(val));
126 }