BadVPN – Blame information for rev 1

Subversion Repositories:
Rev:
Rev Author Line No. Line
1 office 1 /**
2 * @file implode.c
3 * @author Ambroz Bizjak <ambrop7@gmail.com>
4 *
5 * @section LICENSE
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions are met:
9 * 1. Redistributions of source code must retain the above copyright
10 * notice, this list of conditions and the following disclaimer.
11 * 2. Redistributions in binary form must reproduce the above copyright
12 * notice, this list of conditions and the following disclaimer in the
13 * documentation and/or other materials provided with the distribution.
14 * 3. Neither the name of the author nor the
15 * names of its contributors may be used to endorse or promote products
16 * derived from this software without specific prior written permission.
17 *
18 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
19 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
20 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
21 * DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
22 * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
23 * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
24 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
25 * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
26 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
27 * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
28 *
29 * @section DESCRIPTION
30 *
31 * Synopsis:
32 * implode(string glue, list(string) pieces)
33 *
34 * Variables:
35 * string (empty) - concatenation of strings in 'pieces', with 'glue' in between
36 * every two elements.
37 */
38  
39 #include <stdlib.h>
40 #include <string.h>
41  
42 #include <misc/expstring.h>
43  
44 #include <ncd/module_common.h>
45  
46 #include <generated/blog_channel_ncd_implode.h>
47  
48 struct instance {
49 NCDModuleInst *i;
50 MemRef result;
51 };
52  
53 static void func_new (void *vo, NCDModuleInst *i, const struct NCDModuleInst_new_params *params)
54 {
55 struct instance *o = vo;
56 o->i = i;
57  
58 // read arguments
59 NCDValRef glue_arg;
60 NCDValRef pieces_arg;
61 if (!NCDVal_ListRead(params->args, 2, &glue_arg, &pieces_arg)) {
62 ModuleLog(i, BLOG_ERROR, "wrong arity");
63 goto fail0;
64 }
65 if (!NCDVal_IsString(glue_arg) || !NCDVal_IsList(pieces_arg)) {
66 ModuleLog(i, BLOG_ERROR, "wrong type");
67 goto fail0;
68 }
69  
70 // init result string
71 ExpString str;
72 if (!ExpString_Init(&str)) {
73 ModuleLog(i, BLOG_ERROR, "ExpString_Init failed");
74 goto fail0;
75 }
76  
77 size_t count = NCDVal_ListCount(pieces_arg);
78 for (size_t j = 0; j < count; j++) {
79 NCDValRef piece = NCDVal_ListGet(pieces_arg, j);
80  
81 // check piece type
82 if (!NCDVal_IsString(piece)) {
83 ModuleLog(i, BLOG_ERROR, "wrong piece type");
84 goto fail1;
85 }
86  
87 // append glue
88 if (j > 0) {
89 if (!ExpString_AppendBinaryMr(&str, NCDVal_StringMemRef(glue_arg))) {
90 ModuleLog(i, BLOG_ERROR, "ExpString_AppendBinaryMr failed");
91 goto fail1;
92 }
93 }
94  
95 // append piece
96 if (!ExpString_AppendBinaryMr(&str, NCDVal_StringMemRef(piece))) {
97 ModuleLog(i, BLOG_ERROR, "ExpString_AppendBinaryMr failed");
98 goto fail1;
99 }
100 }
101  
102 // store result
103 o->result = ExpString_GetMr(&str);
104  
105 // signal up
106 NCDModuleInst_Backend_Up(i);
107 return;
108  
109 fail1:
110 ExpString_Free(&str);
111 fail0:
112 NCDModuleInst_Backend_DeadError(i);
113 }
114  
115 static void func_die (void *vo)
116 {
117 struct instance *o = vo;
118  
119 // free result
120 free((char *)o->result.ptr);
121  
122 NCDModuleInst_Backend_Dead(o->i);
123 }
124  
125 static int func_getvar2 (void *vo, NCD_string_id_t name, NCDValMem *mem, NCDValRef *out)
126 {
127 struct instance *o = vo;
128  
129 if (name == NCD_STRING_EMPTY) {
130 *out = NCDVal_NewStringBinMr(mem, o->result);
131 return 1;
132 }
133  
134 return 0;
135 }
136  
137 static struct NCDModule modules[] = {
138 {
139 .type = "implode",
140 .func_new2 = func_new,
141 .func_die = func_die,
142 .func_getvar2 = func_getvar2,
143 .alloc_size = sizeof(struct instance)
144 }, {
145 .type = NULL
146 }
147 };
148  
149 const struct NCDModuleGroup ncdmodule_implode = {
150 .modules = modules
151 };