1 /* ====================================================================
2 * The Kannel Software License, Version 1.0
3 *
4 * Copyright (c) 2001-2014 Kannel Group
5 * Copyright (c) 1998-2001 WapIT Ltd.
6 * All rights reserved.
7 *
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions
10 * are met:
11 *
12 * 1. Redistributions of source code must retain the above copyright
13 * notice, this list of conditions and the following disclaimer.
14 *
15 * 2. Redistributions in binary form must reproduce the above copyright
16 * notice, this list of conditions and the following disclaimer in
17 * the documentation and/or other materials provided with the
18 * distribution.
19 *
20 * 3. The end-user documentation included with the redistribution,
21 * if any, must include the following acknowledgment:
22 * "This product includes software developed by the
23 * Kannel Group (http://www.kannel.org/)."
24 * Alternately, this acknowledgment may appear in the software itself,
25 * if and wherever such third-party acknowledgments normally appear.
26 *
27 * 4. The names "Kannel" and "Kannel Group" must not be used to
28 * endorse or promote products derived from this software without
29 * prior written permission. For written permission, please
30 * contact org@kannel.org.
31 *
32 * 5. Products derived from this software may not be called "Kannel",
33 * nor may "Kannel" appear in their name, without prior written
34 * permission of the Kannel Group.
35 *
36 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
37 * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
38 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
39 * DISCLAIMED. IN NO EVENT SHALL THE KANNEL GROUP OR ITS CONTRIBUTORS
40 * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY,
41 * OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT
42 * OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
43 * BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
44 * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
45 * OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
46 * EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
47 * ====================================================================
48 *
49 * This software consists of voluntary contributions made by many
50 * individuals on behalf of the Kannel Group. For more information on
51 * the Kannel Group, please see <http://www.kannel.org/>.
52 *
53 * Portions of this software are based upon software originally written at
54 * WapIT Ltd., Helsinki, Finland for the Kannel project.
55 */
56
57 /*
58 * test_pap.c: A simple program to test pap compiler
59 *
60 * By Aarno Syv�nen for Wiral Ltd
61 */
62
63 #include <stdio.h>
64
65 #include "gwlib/gwlib.h"
66 #include "gw/wap_push_pap_compiler.h"
67 #include "wap/wap_events.h"
68
help(void)69 static void help (void)
70 {
71 info(0, "Usage test_pap [option] pap_source");
72 info(0, "where options are");
73 info(0, "-h print this text");
74 info(0, "-v level set log level for stderr logging");
75 info(0, "-l log wap event to this file");
76 }
77
main(int argc,char ** argv)78 int main(int argc, char **argv)
79 {
80 int opt,
81 ret;
82 Octstr *pap_doc,
83 *log_file;
84 WAPEvent *e;
85
86 log_file = NULL;
87 gwlib_init();
88
89 while ((opt = getopt(argc, argv, "h:v:l:")) != EOF) {
90 switch (opt) {
91 case 'h':
92 help();
93 exit(1);
94 break;
95
96 case 'v':
97 log_set_output_level(atoi(optarg));
98 break;
99
100 case 'l':
101 octstr_destroy(log_file);
102 log_file = octstr_create(optarg);
103 break;
104
105 case '?':
106 default:
107 error(0, "Invalid option %c", opt);
108 help();
109 panic(0, "Stopping");
110 break;
111 }
112 }
113
114 if (optind >= argc) {
115 error(0, "Missing arguments");
116 help();
117 panic(0, "Stopping");
118 }
119
120 if (log_file != NULL) {
121 log_open(octstr_get_cstr(log_file), GW_DEBUG, GW_NON_EXCL);
122 octstr_destroy(log_file);
123 }
124
125 pap_doc = octstr_read_file(argv[optind]);
126 if (pap_doc == NULL)
127 panic(0, "Cannot read the pap document");
128
129 e = NULL;
130 ret = pap_compile(pap_doc, &e);
131
132 if (ret < 0) {
133 debug("test.pap", 0, "Unable to compile the pap document, rc %d", ret);
134 return 1;
135 }
136
137 debug("test.pap", 0, "Compiling successfull, wap event being:\n");
138 wap_event_dump(e);
139
140 wap_event_destroy(e);
141 octstr_destroy(pap_doc);
142 gwlib_shutdown();
143 return 0;
144 }
145
146
147
148
149
150