core: PAI & PPI header names parser fixes
[sip-router] / parser / parse_hname2.c
1 /*
2  * $Id$
3  *
4  * Fast 32-bit Header Field Name Parser
5  *
6  * Copyright (C) 2001-2003 FhG Fokus
7  *
8  * This file is part of ser, a free SIP server.
9  *
10  * ser is free software; you can redistribute it and/or modify
11  * it under the terms of the GNU General Public License as published by
12  * the Free Software Foundation; either version 2 of the License, or
13  * (at your option) any later version
14  *
15  * For a license to use the ser software under conditions
16  * other than those described here, or to purchase support for this
17  * software, please contact iptel.org by e-mail at the following addresses:
18  *    info@iptel.org
19  *
20  * ser is distributed in the hope that it will be useful,
21  * but WITHOUT ANY WARRANTY; without even the implied warranty of
22  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
23  * GNU General Public License for more details.
24  *
25  * You should have received a copy of the GNU General Public License
26  * along with this program; if not, write to the Free Software
27  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
28  *
29  * History:
30  * --------
31  * 2003-02-28 scratchpad compatibility abandoned (jiri)
32  * 2003-01-27 next baby-step to removing ZT - PRESERVE_ZT (jiri)
33  * 2003-05-01 added support for Accept HF (janakj)
34  * 2007-01-26 Date, Identity, Identity_info HF support added (gergo)
35  * 2007-07-27 added support for Retry-After (andrei)
36  */
37
38 /** Parser :: Fast 32-bit Header Field Name Parser.
39  * @file
40  * @ingroup parser
41  */
42
43 #include "../comp_defs.h"
44 #include "parse_hname2.h"
45 #include "keys.h"
46 #include "../ut.h"  /* q_memchr */
47
48 #define LOWER_BYTE(b) ((b) | 0x20)
49 #define LOWER_DWORD(d) ((d) | 0x20202020)
50
51 /** Skip all white-chars and return position of the first non-white char.
52  */
53 static inline char* skip_ws(char* p, unsigned int size)
54 {
55         char* end;
56
57         end = p + size;
58         for(; p < end; p++) {
59                 if ((*p != ' ') && (*p != '\t')) return p;
60         }
61         return p;
62 }
63
64 /*! \name 
65  * Parser macros
66  */
67 /*@{ */
68 #include "case_via.h"      /* Via */
69 #include "case_from.h"     /* From */
70 #include "case_to.h"       /* To */
71 #include "case_cseq.h"     /* CSeq */
72 #include "case_call.h"     /* Call-ID */
73 #include "case_cont.h"     /* Contact, Content-Type, Content-Length, Content-Purpose,
74                             * Content-Action, Content-Disposition */
75 #include "case_rout.h"     /* Route */
76 #include "case_max.h"      /* Max-Forwards */
77 #include "case_reco.h"     /* Record-Route */
78 #include "case_auth.h"     /* Authorization */
79 #include "case_expi.h"     /* Expires */
80 #include "case_prox.h"     /* Proxy-Authorization, Proxy-Require */
81 #include "case_allo.h"     /* Allow */
82 #include "case_unsu.h"     /* Unsupported */
83 #include "case_even.h"     /* Event */
84 #include "case_sip.h"      /* Sip-If-Match */
85 #include "case_acce.h"     /* Accept, Accept-Language */
86 #include "case_orga.h"     /* Organization */
87 #include "case_prio.h"     /* Priority */
88 #include "case_subj.h"     /* Subject */
89 #include "case_user.h"     /* User-Agent */
90 #include "case_serv.h"     /* Server */
91 #include "case_supp.h"     /* Supported */
92 #include "case_dive.h"     /* Diversion */
93 #include "case_remo.h"     /* Remote-Party-ID */
94 #include "case_refe.h"     /* Refer-To */
95 #include "case_sess.h"     /* Session-Expires */
96 #include "case_reje.h"     /* Reject-Contact */
97 #include "case_min.h"      /* Min-SE */
98 #include "case_subs.h"     /* Subscription-State */
99 #include "case_requ.h"     /* Require */
100 #include "case_www.h"      /* WWW-Authenticate */
101 #include "case_date.h"     /* Date */
102 #include "case_iden.h"     /* Identity, Identity-info */
103 #include "case_retr.h"     /* Retry-After */
104 #include "case_path.h"     /* Path */
105 #include "case_priv.h"
106 #include "case_reas.h"     /* Reason */
107 #include "case_p_as.h"     /* P-Asserted-Identity */
108 #include "case_p_pr.h"     /* P-Preferred-Identity */
109
110 /*@} */
111
112 #define READ(val) \
113 (*(val + 0) + (*(val + 1) << 8) + (*(val + 2) << 16) + (*(val + 3) << 24))
114
115 #define READ3(val) \
116 (*(val + 0) + (*(val + 1) << 8) + (*(val + 2) << 16))
117
118 #define FIRST_QUATERNIONS       \
119         case _via1_: via1_CASE; \
120         case _from_: from_CASE; \
121         case _to12_: to12_CASE; \
122         case _cseq_: cseq_CASE; \
123         case _call_: call_CASE; \
124         case _cont_: cont_CASE; \
125         case _rout_: rout_CASE; \
126         case _max__: max_CASE;  \
127         case _reco_: reco_CASE; \
128         case _via2_: via2_CASE; \
129         case _auth_: auth_CASE; \
130         case _supp_: supp_CASE; \
131         case _expi_: expi_CASE; \
132         case _prox_: prox_CASE; \
133         case _allo_: allo_CASE; \
134         case _unsu_: unsu_CASE; \
135         case _even_: even_CASE; \
136         case _sip_ : sip_CASE;  \
137         case _acce_: acce_CASE; \
138         case _orga_: orga_CASE; \
139         case _prio_: prio_CASE; \
140         case _subj_: subj_CASE; \
141         case _subs_: subs_CASE; \
142         case _user_: user_CASE; \
143         case _serv_: serv_CASE; \
144         case _dive_: dive_CASE; \
145         case _remo_: remo_CASE; \
146         case _refe_: refe_CASE; \
147         case _sess_: sess_CASE; \
148         case _reje_: reje_CASE; \
149         case _min__: min_CASE;  \
150         case _requ_: requ_CASE;  \
151         case _www__: www_CASE; \
152         case _date_: date_CASE; \
153         case _iden_: iden_CASE; \
154         case _retr_: retr_CASE; \
155         case _path_: path_CASE; \
156         case _priv_: priv_CASE; \
157         case _reas_: reas_CASE; \
158         case _p_as_: p_as_CASE; \
159         case _p_pr_: p_pr_CASE;
160
161
162 #define PARSE_COMPACT(id)          \
163         switch(*(p + 1)) {         \
164         case ' ':                  \
165                 hdr->type = id;    \
166                 p += 2;            \
167                 goto dc_end;       \
168                                    \
169         case ':':                  \
170                 hdr->type = id;    \
171                 hdr->name.len = 1; \
172                 return (p + 2);    \
173         }
174
175 #if 0
176 int hdr_update_type(struct hdr_field* hdr)
177 {
178         if(hdr==0 || hdr->name.s==0)
179                 return -1;
180         switch(hdr->name.len) {
181                 case 19:
182                         if(strncasecmp(hdr->name.s, "P-Asserted-Identity", 19)==0)
183                                 hdr->type = HDR_PAI_T;
184                 break;
185                 case 20:
186                         if(strncasecmp(hdr->name.s, "P-Preferred-Identity", 20)==0)
187                                 hdr->type = HDR_PPI_T;
188                 break;
189         }
190
191         return 0;
192 }
193 #endif
194
195 char* parse_hname2(char* begin, char* end, struct hdr_field* hdr)
196 {
197         register char* p;
198         register unsigned int val;
199
200         if ((end - begin) < 4) {
201                 hdr->type = HDR_ERROR_T;
202                 return begin;
203         }
204
205         p = begin;
206
207         val = LOWER_DWORD(READ(p));
208         hdr->name.s = begin;
209
210         switch(val) {
211         FIRST_QUATERNIONS;
212
213         default:
214                 switch(LOWER_BYTE(*p)) {
215                 case 't':
216                         switch(LOWER_BYTE(*(p + 1))) {
217                         case 'o':
218                         case ' ':
219                                 hdr->type = HDR_TO_T;
220                                 p += 2;
221                                 goto dc_end;
222
223                         case ':':
224                                 hdr->type = HDR_TO_T;
225                                 hdr->name.len = 1;
226                                 return (p + 2);
227                         }
228                         break;
229
230                 case 'v': PARSE_COMPACT(HDR_VIA_T);           break;
231                 case 'f': PARSE_COMPACT(HDR_FROM_T);          break;
232                 case 'i': PARSE_COMPACT(HDR_CALLID_T);        break;
233                 case 'm': PARSE_COMPACT(HDR_CONTACT_T);       break;
234                 case 'l': PARSE_COMPACT(HDR_CONTENTLENGTH_T); break;
235                 case 'k': PARSE_COMPACT(HDR_SUPPORTED_T);     break;
236                 case 'c': PARSE_COMPACT(HDR_CONTENTTYPE_T);   break;
237                 case 'o': PARSE_COMPACT(HDR_EVENT_T);         break;
238                 case 'x': PARSE_COMPACT(HDR_SESSIONEXPIRES_T);break;
239                 case 'a': PARSE_COMPACT(HDR_ACCEPTCONTACT_T); break;
240                 case 'u': PARSE_COMPACT(HDR_ALLOWEVENTS_T);   break;
241                 case 'e': PARSE_COMPACT(HDR_CONTENTENCODING_T); break;
242                 case 'b': PARSE_COMPACT(HDR_REFERREDBY_T);    break;
243                 case 'j': PARSE_COMPACT(HDR_REJECTCONTACT_T); break;
244                 case 'd': PARSE_COMPACT(HDR_REQUESTDISPOSITION_T); break;
245                 case 's': PARSE_COMPACT(HDR_SUBJECT_T);       break;
246                 case 'r': PARSE_COMPACT(HDR_REFER_TO_T);      break;
247                 case 'y': PARSE_COMPACT(HDR_IDENTITY_T);      break;
248                 case 'n': PARSE_COMPACT(HDR_IDENTITY_INFO_T); break;
249                 }
250                 goto other;
251         }
252
253              /* Double colon hasn't been found yet */
254  dc_end:
255         p = skip_ws(p, end - p);
256         if (*p != ':') {
257                 goto other;
258         } else {
259                 hdr->name.len = p - hdr->name.s;
260                 return (p + 1);
261         }
262
263              /* Unknown header type */
264  other:
265         p = q_memchr(p, ':', end - p);
266         if (!p) {        /* No double colon found, error.. */
267                 hdr->type = HDR_ERROR_T;
268                 hdr->name.s = 0;
269                 hdr->name.len = 0;
270                 return 0;
271         } else {
272                 hdr->type = HDR_OTHER_T;
273                 hdr->name.len = p - hdr->name.s;
274                 /*hdr_update_type(hdr);*/
275                 return (p + 1);
276         }
277 }
278