-/* ------------------------------------------------
-Copyright 2014 AT&T Intellectual Property
- Licensed under the Apache License, Version 2.0 (the "License");
- you may not use this file except in compliance with the License.
- You may obtain a copy of the License at
-
- http://www.apache.org/licenses/LICENSE-2.0
-
- Unless required by applicable law or agreed to in writing, software
- distributed under the License is distributed on an "AS IS" BASIS,
- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
- See the License for the specific language governing permissions and
- limitations under the License.
- ------------------------------------------- */
-
-#include <sys/types.h>
-#include <iostream>
-extern "C" {
-#include "gsconfig.h"
-#include "gstypes.h"
-#include <regex.h>
-#include <rdtsc.h>
-#include <stringhash.h>
-#include <errno.h>
-#include <unistd.h>
-}
-#include <stdio.h>
-#include <string.h>
-
-#include <vstring.h>
-#include <host_tuple.h>
-#include <fta.h>
-
-// for htonl,ntohl
-#include <netinet/in.h>
-
-#define MAX_PATTERN_LEN 1024
-
-// Defined here to avoid link errors as this array is auto generated for the lfta and referenced in the clearinghouse library which gets linked against the hfta
-extern "C" gs_sp_t fta_names[]={0};
-
-
-// Only used to construct constant strings ...
-gs_retval_t Vstring_Constructor(vstring *tmp, gs_csp_t str) {
- tmp->length = strlen(str);
- if(tmp->length)
- tmp->offset = (gs_p_t)strdup(str);
- tmp->reserved = SHALLOW_COPY;
- return 0;
-}
-
-// Assume str is INTERNAL or SHALLOW_COPY.
-void hfta_vstr_destroy(vstring * str) {
- if (str->length && str->reserved == INTERNAL) {
- free((gs_sp_t)str->offset);
- }
- str->length = 0;
-}
-
-
-gs_retval_t hfta_vstr_length(vstring *str) {
- return str->length;
-}
-
-// Assume that SRC is either INTERNAL or SHALLOW_COPY
-void hfta_vstr_assign_with_copy_in_tuple(vstring32 * target, vstring * src,
- gs_sp_t data_offset, gs_retval_t int_offset) {
- target->length = src->length;
- target->offset = int_offset;
- target->reserved = PACKED;
- if ( src->length)
- memcpy(data_offset, (gs_sp_t)src->offset, src->length);
-}
-
-// Ted wrote the following function.
-// make deep copy of src. Assume that dst is already empty.
-// Assume that SRC is either INTERNAL or SHALLOW_COPY
-void hfta_vstr_assign_with_copy(vstring *dst, vstring *src){
- dst->length=src->length;
- if(src->length){
- dst->offset=(gs_p_t)malloc(dst->length);
- memcpy((gs_sp_t)(dst->offset),(gs_sp_t)(src->offset),dst->length);
- }
- dst->reserved=INTERNAL;
-}
-
-// Ted wrote the following function.
-// Make a deep copy of src. garbage collect dst if needed.
-// Assume that SRC is either INTERNAL or SHALLOW_COPY
-void hfta_vstr_replace(vstring *dst, vstring *src){
- hfta_vstr_destroy(dst);
- hfta_vstr_assign_with_copy(dst,src);
-}
-
-#define HFTA_VSTR_HASHFUNC_PRIME 2995999
-gs_uint32_t hfta_vstr_hashfunc(const vstring *s) {
- gs_uint32_t hash_code;
- gs_int32_t n_steps;
- gs_int32_t substr_len;
- gs_int32_t j;
- gs_uint32_t k, sub_hash;
- gs_sp_t sv;
-
-
- sv=(gs_sp_t)(s->offset);
- hash_code = 0;
- n_steps = s->length / 4;
- if(4*n_steps < s->length) n_steps++;
-
- for (j = 0; j < n_steps; j++) {
- if(4*(j+1) < s->length) substr_len = 4;
- else substr_len = s->length - 4*j;
-
- sub_hash = 0;
- for(k=0;k<4;k++){
- if(k < substr_len)
- sub_hash = (sub_hash << 4) + *sv;
- else
- sub_hash = (sub_hash << 4);
- sv++;
- }
-
- hash_code = (sub_hash + hash_code * HFTA_VSTR_HASHFUNC_PRIME);
- }
-
- return(hash_code);
-}
-
-// return negative if s1 < s2, 0 if s1==s2, positive if s1>s2
-gs_retval_t hfta_vstr_compare(const vstring * s1, const vstring * s2) {
- gs_int32_t minlen,cmp_ret;
- minlen=(s1->length<s2->length?s1->length:s2->length);
- cmp_ret=memcmp((void *)s1->offset,(void *)s2->offset,minlen);
-
- if(cmp_ret) return cmp_ret;
- return(s1->length - s2->length);
-}
-
-
-
-gs_param_handle_t register_handle_for_str_regex_match_slot_1(vstring* pattern) {
- regex_t * reg;
- gs_int32_t res;
-
- if ((reg=(regex_t *) malloc(sizeof(regex_t)))==0) {
- gslog(LOG_EMERG, "No memory for regular expression %s\n",
- (gs_sp_t)(pattern->offset));
- return 0;
- }
-
- if (regcomp(reg,(char*)(pattern->offset), REG_NEWLINE|REG_EXTENDED|REG_NOSUB)!=0) {
- gslog(LOG_EMERG, "Illegal regular expression %s\n",
- (gs_sp_t)(pattern->offset));
- return 0;
- }
- return (gs_param_handle_t) reg;
-}
-
-gs_uint32_t str_regex_match(vstring* str, gs_param_handle_t pattern_handle) {
- regex_t * reg = (regex_t *) pattern_handle ;
- gs_int32_t res;
- static gs_sp_t d=0;
- static gs_uint32_t dlen=0;
- // grow our static buffer to the longest string we ever see
- if ((str->length+1) >= dlen) {
- if (d!=0) free((void*)d);
- dlen=0;
- d=0;
- if ((d=(gs_sp_t)malloc(str->length+1))==0) return 0;
- dlen=str->length+1;
- }
-
- if (str->length==0) return 0;
-
- // copy the string and 0 terminate it
- memcpy((void *)d,(void *) str->offset, str->length);
- d[str->length]=0;
-
- res = REG_NOMATCH;
- res = regexec(reg, d, 0, NULL, 0);
- return (res==REG_NOMATCH)?0:1;
-}
-
-gs_retval_t deregister_handle_for_str_regex_match_slot_1(gs_param_handle_t handle) {
- regex_t * x = (regex_t *) handle;
- regfree(x);
- if (x!=0) free(x);
- return 0;
-}
-
-gs_param_handle_t register_handle_for_str_partial_regex_match_slot_1(vstring* pattern) {
- regex_t * reg;
- gs_int32_t res;
-
- if ((reg=(regex_t *) malloc(sizeof(regex_t)))==0) {
- gslog(LOG_EMERG, "No memory for regular expression %s\n",
- (gs_sp_t)(pattern->offset));
- return 0;
- }
-
- if (regcomp(reg,(gs_sp_t)(pattern->offset), REG_NEWLINE|REG_EXTENDED|REG_NOSUB)!=0) {
- gslog(LOG_EMERG, "Illegal regular expression %s\n",
- (gs_sp_t)(pattern->offset));
- return 0;
- }
- return (gs_param_handle_t) reg;
-}
-
-gs_uint32_t str_partial_regex_match(vstring* str, gs_param_handle_t pattern_handle,
- uint maxlen) {
- regex_t * reg = (regex_t *) pattern_handle ;
- gs_int32_t res;
- gs_int32_t end;
- static gs_sp_t d=0;
- static gs_uint32_t dlen=0;
- // grow our static buffer to the longest string we ever see
- if ((str->length+1) >= dlen) {
- if (d!=0) free((void*)d);
- dlen=0;
- d=0;
- if ((d=(gs_sp_t)malloc(str->length+1))==0) return 0;
- dlen=str->length+1;
- }
-
- if (str->length==0) return 0;
-
- end=(maxlen>(str->length))?(str->length):maxlen;
-
- // copy the string and 0 terminate it
- memcpy((void *)d,(void *) str->offset, end);
- d[end]=0;
-
- res = REG_NOMATCH;
- res = regexec(reg, d,0, NULL, 0);
- return (res==REG_NOMATCH)?0:1;
-}
-
-
-gs_retval_t deregister_handle_for_str_partial_regex_match_slot_1(
- gs_param_handle_t handle) {
- regex_t * x = (regex_t *) handle;
- regfree(x);
- if (x!=0) free(x);
- return 0;
-}
-
-gs_param_handle_t register_handle_for_str_extract_regex_slot_1(vstring* pattern) {
- regex_t * reg;
-
- if ((reg=(regex_t *) malloc(sizeof(regex_t)))==0) {
- gslog(LOG_EMERG, "No memory for regular expression %s\n",
- (gs_sp_t)(pattern->offset));
- return 0;
- }
- if (regcomp(reg,(gs_sp_t)(pattern->offset), REG_EXTENDED)!=0) {
- gslog(LOG_EMERG, "Illegal regular expression %s\n",
- (gs_sp_t)(pattern->offset));
- return 0;
- }
- return (gs_param_handle_t) reg;
-}
-
-
-/* partial function return 0 if the value is valid */
-gs_retval_t str_extract_regex( vstring * result, vstring * str, gs_param_handle_t handle) {
- regex_t * reg = (regex_t *) handle ;
- gs_sp_t source = (gs_sp_t)(str->offset);
- gs_retval_t res;
- regmatch_t match;
- static gs_sp_t d=0;
- static gs_uint32_t dlen=0;
- // grow our static buffer to the longest string we ever see
- if ((str->length+1) >= dlen) {
- if (d!=0) free((void*)d);
- dlen=0;
- d=0;
- if ((d=(gs_sp_t)malloc(str->length+1))==0) return 1;
- dlen=str->length+1;
- }
-
- if (str->length==0) return 1;
-
- // copy the string and 0 terminate it
- memcpy((void *)d,(void *) str->offset, str->length);
- d[str->length]=0;
-
- res = REG_NOMATCH;
- res = regexec(reg, d, 1, &match, 0);
- if (res==REG_NOMATCH) return 1;
- result->offset= (gs_p_t) &source[match.rm_so];
- result->length=match.rm_eo-match.rm_so;
- result->reserved = SHALLOW_COPY;
- return 0;
-}
-
-gs_retval_t deregister_handle_for_str_extract_regex_slot_1(gs_param_handle_t handle) {
- regex_t * x = (regex_t *) handle;
- regfree(x);
- if (x!=0) free(x);
- return 0;
-}
-
-
-static gs_uint32_t nextint(struct vstring *str , gs_uint32_t * offset, gs_uint32_t *res) {
- gs_uint8_t * s = (gs_uint8_t *)(str->offset);
- int v = 0;
- *res = 0;
- while(*offset<str->length) {
- if ((s[*offset]>='0') && (s[*offset]<='9')) {
- v=1;
- *res= (*res*10) + (gs_uint32_t) (s[*offset]-'0');
- } else {
- if (v!=0) { // got some valid result
- return 1;
- } // otherwise skip leading grabage
- }
- (*offset)++;
- }
- return v;
-}
-
-gs_uint32_t strtoi(gs_uint32_t * r, struct vstring * s)
-{
- gs_uint32_t offset;
- offset=0;
- if (nextint(s,&offset,r)==0) return 1;
- return 0;
-}
-
-gs_param_handle_t register_handle_for_strtoi_c_slot_0(vstring* istr) {
- gs_uint32_t offset,r;
- offset=0;
- if (nextint(istr,&offset,&r)!=0)
- return (gs_param_handle_t) r;
- return (gs_param_handle_t) 0;
-}
-gs_retval_t deregister_handle_for_strtoi_c_slot_0(gs_param_handle_t h) {
- return 0;
-}
-
-
-gs_uint32_t strtoip(gs_uint32_t * r, struct vstring * s)
-{
- gs_uint32_t ip1,ip2,ip3,ip4,offset;
- offset=0;
- if (nextint(s,&offset,&ip1)==0) return 1;
- //fprintf (stderr, "1 %u %u\n",ip1,offset);
- if (nextint(s,&offset,&ip2)==0) return 1;
- //fprintf (stderr, "2 %u %u\n",ip2,offset);
- if (nextint(s,&offset,&ip3)==0) return 1;
- //fprintf (stderr, "3 %u %u\n",ip3,offset);
- if (nextint(s,&offset,&ip4)==0) return 1;
- //fprintf (stderr, "4 %u %u\n",ip4,offset);
- *r=ip1<<24|ip2<<16|ip3<<8|ip4;
- return 0;
-}
-
-gs_param_handle_t register_handle_for_strtoip_c_slot_0(vstring* istr) {
- gs_uint32_t ip1,ip2,ip3,ip4,offset,r;
- offset=0;
- if (nextint(istr,&offset,&ip1)==0) return (gs_param_handle_t)0;
- if (nextint(istr,&offset,&ip2)==0) return (gs_param_handle_t)0;
- if (nextint(istr,&offset,&ip3)==0) return (gs_param_handle_t)0;
- if (nextint(istr,&offset,&ip4)==0) return (gs_param_handle_t)0;
- r=ip1<<24|ip2<<16|ip3<<8|ip4;
- return (gs_param_handle_t)r;
-}
-gs_retval_t deregister_handle_for_strtoip_c_slot_0(gs_param_handle_t h) {
- return 0;
-}
-
-gs_uint32_t partn_hash( gs_uint32_t ip1, gs_uint32_t ip2) {
- return (ip1^ip2);
-}
-
-gs_uint32_t rand_hash() {
- return rand();
-}
-
-///////////////////////////////////////
-// IPv6 fcns.
-// return negative if s1 < s2, 0 if s1==s2, positive if s1>s2
-gs_retval_t hfta_ipv6_compare(const hfta_ipv6_str &i1, const hfta_ipv6_str &i2) {
- if(i1.v[0] > i2.v[0])
- return 1;
- if(i1.v[0] < i2.v[0])
- return -1;
- if(i1.v[1] > i2.v[1])
- return 1;
- if(i1.v[1] < i2.v[1])
- return -1;
- if(i1.v[2] > i2.v[2])
- return 1;
- if(i1.v[2] < i2.v[2])
- return -1;
- if(i1.v[3] > i2.v[3])
- return 1;
- if(i1.v[3] < i2.v[3])
- return -1;
-
- return 0;
-}
-
-hfta_ipv6_str And_Ipv6(const hfta_ipv6_str &i1, const hfta_ipv6_str &i2){
- hfta_ipv6_str ret;
- ret.v[0] = i1.v[0] & i2.v[0];
- ret.v[1] = i1.v[1] & i2.v[1];
- ret.v[2] = i1.v[2] & i2.v[2];
- ret.v[3] = i1.v[3] & i2.v[3];
- return ret;
-}
-
-hfta_ipv6_str Or_Ipv6(const hfta_ipv6_str &i1, const hfta_ipv6_str &i2){
- hfta_ipv6_str ret;
- ret.v[0] = i1.v[0] | i2.v[0];
- ret.v[1] = i1.v[1] | i2.v[1];
- ret.v[2] = i1.v[2] | i2.v[2];
- ret.v[3] = i1.v[3] | i2.v[3];
- return ret;
-}
-
-gs_uint32_t hfta_ipv6_hashfunc(const hfta_ipv6_str *s) {
- return s->v[0] ^ s->v[1] ^ s->v[2] ^ s->v[3];
-}
-
-hfta_ipv6_str hton_ipv6(hfta_ipv6_str s){
- hfta_ipv6_str ret;
-
-// ret.v[0] = htonl(s.v[0]);
-// ret.v[1] = htonl(s.v[1]);
-// ret.v[2] = htonl(s.v[2]);
-// ret.v[3] = htonl(s.v[3]);
- ret.v[0] = s.v[0];
- ret.v[1] = s.v[1];
- ret.v[2] = s.v[2];
- ret.v[3] = s.v[3];
- return ret;
-}
-
-hfta_ipv6_str ntoh_ipv6(hfta_ipv6_str s){
- hfta_ipv6_str ret;
-// ret.v[0] = ntohl(s.v[0]);
-// ret.v[1] = ntohl(s.v[1]);
-// ret.v[2] = ntohl(s.v[2]);
-// ret.v[3] = ntohl(s.v[3]);
- ret.v[0] = s.v[0];
- ret.v[1] = s.v[1];
- ret.v[2] = s.v[2];
- ret.v[3] = s.v[3];
- return ret;
-}
-
-int HFTA_Ipv6_Constructor(hfta_ipv6_str *s, gs_csp_t l) {
- gs_uint32_t i0=0,i1=0,i2=0,i3=0,i4=0,i5=0,i6=0,i7=0;
- sscanf(l,"%x:%x:%x:%x:%x:%x:%x:%x",&i0,&i1,&i2,&i3,&i4,&i5,&i6,&i7);
- s->v[0] = ((i0 & 0xffff) << 16) | (i1 & 0xffff);
- s->v[1] = ((i2 & 0xffff) << 16) | (i3 & 0xffff);
- s->v[2] = ((i4 & 0xffff) << 16) | (i5 & 0xffff);
- s->v[3] = ((i6 & 0xffff) << 16) | (i7 & 0xffff);
- return(0);
-}
-
-gs_retval_t str_exists_substr(vstring * s1,vstring * s2)
-{
- gs_uint8_t *st1 = (gs_uint8_t *)s1->offset;
- gs_uint8_t *st2 = (gs_uint8_t *)s2->offset;
- gs_uint8_t *s2f = (gs_uint8_t *)s2->offset;
- gs_uint8_t len1 = s1->length-s2->length;
- gs_uint8_t len2 = s2->length;
- gs_uint8_t x,y;
-
- for (x=0; x<len1 ; x++)
- {
- if (st1[x]== *s2f)
- {
- for (y=0; y<len2 && st1[x+y]==st2[y];y++);
- if (y==len2)
- return 1;
- }
- }
- return 0;
-}
-
-gs_retval_t str_compare(vstring *s1,vstring *s2)
-{
- return hfta_vstr_compare(s1,s2);
-}
-
-gs_uint32_t str_match_offset( gs_uint32_t offset, vstring *s1, vstring *s2)
-{
- gs_uint8_t *st1 = (gs_uint8_t *)s1->offset;
- gs_uint8_t *st2 = &(((gs_uint8_t *)s2->offset)[offset]);
- gs_int32_t x;
- gs_int32_t len2 = s2->length-offset;
- gs_int32_t len1 = s1->length;
-
- if (len2 < len1)
- return 0;
-
- for(x = 0; x < len1; x++)
- {
- if (st1[x] != st2[x])
- return 0;
- }
- return 1;
-}
-
-gs_uint32_t byte_match_offset( gs_uint32_t offset, gs_uint32_t val,vstring *s2)
-{
- gs_uint8_t *st2 = (gs_uint8_t *)s2->offset;
- gs_uint8_t v = (unsigned char) val;
-
-// if ((s2->length <= offset)||(offset<0))
- if (s2->length <= offset)
- return 0;
-
- return (st2[offset]==v)?1:0;
-}
-
-
+/* ------------------------------------------------\r
+Copyright 2014 AT&T Intellectual Property\r
+ Licensed under the Apache License, Version 2.0 (the "License");\r
+ you may not use this file except in compliance with the License.\r
+ You may obtain a copy of the License at\r
+\r
+ http://www.apache.org/licenses/LICENSE-2.0\r
+\r
+ Unless required by applicable law or agreed to in writing, software\r
+ distributed under the License is distributed on an "AS IS" BASIS,\r
+ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.\r
+ See the License for the specific language governing permissions and\r
+ limitations under the License.\r
+ ------------------------------------------- */\r
+\r
+#include <sys/types.h>\r
+#include <iostream>\r
+extern "C" {\r
+#include "gsconfig.h"\r
+#include "gstypes.h"\r
+#include <regex.h>\r
+#include <rdtsc.h>\r
+#include <stringhash.h>\r
+#include <errno.h>\r
+#include <unistd.h>\r
+}\r
+#include <stdio.h>\r
+#include <string.h>\r
+\r
+#include <vstring.h>\r
+#include <host_tuple.h>\r
+#include <fta.h>\r
+\r
+// for htonl,ntohl\r
+#include <netinet/in.h>\r
+\r
+#define MAX_PATTERN_LEN 1024\r
+\r
+// Defined here to avoid link errors as this array is auto generated for the lfta and referenced in the clearinghouse library which gets linked against the hfta\r
+extern "C" gs_sp_t fta_names[]={0};\r
+\r
+\r
+// Only used to construct constant strings ...\r
+gs_retval_t Vstring_Constructor(vstring *tmp, gs_csp_t str) {\r
+ tmp->length = strlen(str);\r
+ if(tmp->length)\r
+ tmp->offset = (gs_p_t)strdup(str);\r
+ tmp->reserved = SHALLOW_COPY;\r
+ return 0;\r
+}\r
+\r
+// Assume str is INTERNAL or SHALLOW_COPY.\r
+void hfta_vstr_destroy(vstring * str) {\r
+ if (str->length && str->reserved == INTERNAL) {\r
+ free((gs_sp_t)str->offset);\r
+ }\r
+ str->length = 0;\r
+}\r
+\r
+\r
+gs_retval_t hfta_vstr_length(vstring *str) {\r
+ return str->length;\r
+}\r
+\r
+// Assume that SRC is either INTERNAL or SHALLOW_COPY\r
+void hfta_vstr_assign_with_copy_in_tuple(vstring32 * target, vstring * src,\r
+ gs_sp_t data_offset, gs_retval_t int_offset) {\r
+ target->length = src->length;\r
+ target->offset = int_offset;\r
+ target->reserved = PACKED;\r
+ if ( src->length)\r
+ memcpy(data_offset, (gs_sp_t)src->offset, src->length);\r
+}\r
+\r
+// Ted wrote the following function.\r
+// make deep copy of src. Assume that dst is already empty.\r
+// Assume that SRC is either INTERNAL or SHALLOW_COPY\r
+void hfta_vstr_assign_with_copy(vstring *dst, vstring *src){\r
+ dst->length=src->length;\r
+ if(src->length){\r
+ dst->offset=(gs_p_t)malloc(dst->length);\r
+ memcpy((gs_sp_t)(dst->offset),(gs_sp_t)(src->offset),dst->length);\r
+ }\r
+ dst->reserved=INTERNAL;\r
+}\r
+\r
+// Ted wrote the following function.\r
+// Make a deep copy of src. garbage collect dst if needed.\r
+// Assume that SRC is either INTERNAL or SHALLOW_COPY\r
+void hfta_vstr_replace(vstring *dst, vstring *src){\r
+ hfta_vstr_destroy(dst);\r
+ hfta_vstr_assign_with_copy(dst,src);\r
+}\r
+\r
+#define HFTA_VSTR_HASHFUNC_PRIME 2995999\r
+gs_uint32_t hfta_vstr_hashfunc(const vstring *s) {\r
+ gs_uint32_t hash_code;\r
+ gs_int32_t n_steps;\r
+ gs_int32_t substr_len;\r
+ gs_int32_t j;\r
+ gs_uint32_t k, sub_hash;\r
+ gs_sp_t sv;\r
+\r
+\r
+ sv=(gs_sp_t)(s->offset);\r
+ hash_code = 0;\r
+ n_steps = s->length / 4;\r
+ if(4*n_steps < s->length) n_steps++;\r
+\r
+ for (j = 0; j < n_steps; j++) {\r
+ if(4*(j+1) < s->length) substr_len = 4;\r
+ else substr_len = s->length - 4*j;\r
+\r
+ sub_hash = 0;\r
+ for(k=0;k<4;k++){\r
+ if(k < substr_len)\r
+ sub_hash = (sub_hash << 4) + *sv;\r
+ else\r
+ sub_hash = (sub_hash << 4);\r
+ sv++;\r
+ }\r
+\r
+ hash_code = (sub_hash + hash_code * HFTA_VSTR_HASHFUNC_PRIME);\r
+ }\r
+\r
+ return(hash_code);\r
+}\r
+\r
+// return negative if s1 < s2, 0 if s1==s2, positive if s1>s2\r
+gs_retval_t hfta_vstr_compare(const vstring * s1, const vstring * s2) {\r
+ gs_int32_t minlen,cmp_ret;\r
+ minlen=(s1->length<s2->length?s1->length:s2->length);\r
+ cmp_ret=memcmp((void *)s1->offset,(void *)s2->offset,minlen);\r
+\r
+ if(cmp_ret) return cmp_ret;\r
+ return(s1->length - s2->length);\r
+}\r
+\r
+\r
+\r
+gs_param_handle_t register_handle_for_str_regex_match_slot_1(vstring* pattern) {\r
+ regex_t * reg;\r
+ gs_int32_t res;\r
+\r
+ if ((reg=(regex_t *) malloc(sizeof(regex_t)))==0) {\r
+ gslog(LOG_EMERG, "No memory for regular expression %s\n",\r
+ (gs_sp_t)(pattern->offset));\r
+ return 0;\r
+ }\r
+\r
+ if (regcomp(reg,(char*)(pattern->offset), REG_NEWLINE|REG_EXTENDED|REG_NOSUB)!=0) {\r
+ gslog(LOG_EMERG, "Illegal regular expression %s\n",\r
+ (gs_sp_t)(pattern->offset));\r
+ return 0;\r
+ }\r
+ return (gs_param_handle_t) reg;\r
+}\r
+\r
+gs_uint32_t str_regex_match(vstring* str, gs_param_handle_t pattern_handle) {\r
+ regex_t * reg = (regex_t *) pattern_handle ;\r
+ gs_int32_t res;\r
+ static gs_sp_t d=0;\r
+ static gs_uint32_t dlen=0;\r
+ // grow our static buffer to the longest string we ever see\r
+ if ((str->length+1) >= dlen) {\r
+ if (d!=0) free((void*)d);\r
+ dlen=0;\r
+ d=0;\r
+ if ((d=(gs_sp_t)malloc(str->length+1))==0) return 0;\r
+ dlen=str->length+1;\r
+ }\r
+ \r
+ if (str->length==0) return 0;\r
+ \r
+ // copy the string and 0 terminate it\r
+ memcpy((void *)d,(void *) str->offset, str->length);\r
+ d[str->length]=0;\r
+ \r
+ res = REG_NOMATCH;\r
+ res = regexec(reg, d, 0, NULL, 0);\r
+ return (res==REG_NOMATCH)?0:1;\r
+}\r
+\r
+gs_retval_t deregister_handle_for_str_regex_match_slot_1(gs_param_handle_t handle) {\r
+ regex_t * x = (regex_t *) handle;\r
+ regfree(x);\r
+ if (x!=0) free(x);\r
+ return 0;\r
+}\r
+\r
+gs_param_handle_t register_handle_for_str_partial_regex_match_slot_1(vstring* pattern) {\r
+ regex_t * reg;\r
+ gs_int32_t res;\r
+\r
+ if ((reg=(regex_t *) malloc(sizeof(regex_t)))==0) {\r
+ gslog(LOG_EMERG, "No memory for regular expression %s\n",\r
+ (gs_sp_t)(pattern->offset));\r
+ return 0;\r
+ }\r
+\r
+ if (regcomp(reg,(gs_sp_t)(pattern->offset), REG_NEWLINE|REG_EXTENDED|REG_NOSUB)!=0) {\r
+ gslog(LOG_EMERG, "Illegal regular expression %s\n",\r
+ (gs_sp_t)(pattern->offset));\r
+ return 0;\r
+ }\r
+ return (gs_param_handle_t) reg;\r
+}\r
+\r
+gs_uint32_t str_partial_regex_match(vstring* str, gs_param_handle_t pattern_handle,\r
+ uint maxlen) {\r
+ regex_t * reg = (regex_t *) pattern_handle ;\r
+ gs_int32_t res;\r
+ gs_int32_t end;\r
+ static gs_sp_t d=0;\r
+ static gs_uint32_t dlen=0;\r
+ // grow our static buffer to the longest string we ever see\r
+ if ((str->length+1) >= dlen) {\r
+ if (d!=0) free((void*)d);\r
+ dlen=0;\r
+ d=0;\r
+ if ((d=(gs_sp_t)malloc(str->length+1))==0) return 0;\r
+ dlen=str->length+1;\r
+ }\r
+ \r
+ if (str->length==0) return 0;\r
+ \r
+ end=(maxlen>(str->length))?(str->length):maxlen;\r
+ \r
+ // copy the string and 0 terminate it\r
+ memcpy((void *)d,(void *) str->offset, end);\r
+ d[end]=0;\r
+ \r
+ res = REG_NOMATCH;\r
+ res = regexec(reg, d,0, NULL, 0);\r
+ return (res==REG_NOMATCH)?0:1;\r
+}\r
+\r
+\r
+gs_retval_t deregister_handle_for_str_partial_regex_match_slot_1(\r
+ gs_param_handle_t handle) {\r
+ regex_t * x = (regex_t *) handle;\r
+ regfree(x);\r
+ if (x!=0) free(x);\r
+ return 0;\r
+}\r
+\r
+gs_param_handle_t register_handle_for_str_extract_regex_slot_1(vstring* pattern) {\r
+ regex_t * reg;\r
+ \r
+ if ((reg=(regex_t *) malloc(sizeof(regex_t)))==0) {\r
+ gslog(LOG_EMERG, "No memory for regular expression %s\n",\r
+ (gs_sp_t)(pattern->offset));\r
+ return 0;\r
+ }\r
+ if (regcomp(reg,(gs_sp_t)(pattern->offset), REG_EXTENDED)!=0) {\r
+ gslog(LOG_EMERG, "Illegal regular expression %s\n",\r
+ (gs_sp_t)(pattern->offset));\r
+ return 0;\r
+ }\r
+ return (gs_param_handle_t) reg;\r
+}\r
+\r
+\r
+/* partial function return 0 if the value is valid */\r
+gs_retval_t str_extract_regex( vstring * result, vstring * str, gs_param_handle_t handle) {\r
+ regex_t * reg = (regex_t *) handle ;\r
+ gs_sp_t source = (gs_sp_t)(str->offset);\r
+ gs_retval_t res;\r
+ regmatch_t match;\r
+ static gs_sp_t d=0;\r
+ static gs_uint32_t dlen=0;\r
+ // grow our static buffer to the longest string we ever see\r
+ if ((str->length+1) >= dlen) {\r
+ if (d!=0) free((void*)d);\r
+ dlen=0;\r
+ d=0;\r
+ if ((d=(gs_sp_t)malloc(str->length+1))==0) return 1;\r
+ dlen=str->length+1;\r
+ }\r
+ \r
+ if (str->length==0) return 1;\r
+ \r
+ // copy the string and 0 terminate it\r
+ memcpy((void *)d,(void *) str->offset, str->length);\r
+ d[str->length]=0;\r
+\r
+ res = REG_NOMATCH;\r
+ res = regexec(reg, d, 1, &match, 0);\r
+ if (res==REG_NOMATCH) return 1;\r
+ result->offset= (gs_p_t) &source[match.rm_so];\r
+ result->length=match.rm_eo-match.rm_so;\r
+ result->reserved = SHALLOW_COPY;\r
+ return 0;\r
+}\r
+\r
+gs_retval_t deregister_handle_for_str_extract_regex_slot_1(gs_param_handle_t handle) {\r
+ regex_t * x = (regex_t *) handle;\r
+ regfree(x);\r
+ if (x!=0) free(x);\r
+ return 0;\r
+}\r
+\r
+\r
+static gs_uint32_t nextint(struct vstring *str , gs_uint32_t * offset, gs_uint32_t *res) {\r
+ gs_uint8_t * s = (gs_uint8_t *)(str->offset);\r
+ int v = 0;\r
+ *res = 0;\r
+ while(*offset<str->length) {\r
+ if ((s[*offset]>='0') && (s[*offset]<='9')) {\r
+ v=1;\r
+ *res= (*res*10) + (gs_uint32_t) (s[*offset]-'0');\r
+ } else {\r
+ if (v!=0) { // got some valid result\r
+ return 1;\r
+ } // otherwise skip leading grabage\r
+ }\r
+ (*offset)++;\r
+ }\r
+ return v;\r
+}\r
+\r
+gs_uint32_t strtoi(gs_uint32_t * r, struct vstring * s)\r
+{\r
+ gs_uint32_t offset;\r
+ offset=0;\r
+ if (nextint(s,&offset,r)==0) return 1;\r
+ return 0;\r
+}\r
+\r
+gs_param_handle_t register_handle_for_strtoi_c_slot_0(vstring* istr) {\r
+ gs_uint32_t offset,r;\r
+ offset=0;\r
+ if (nextint(istr,&offset,&r)!=0)\r
+ return (gs_param_handle_t) r;\r
+ return (gs_param_handle_t) 0;\r
+}\r
+gs_retval_t deregister_handle_for_strtoi_c_slot_0(gs_param_handle_t h) {\r
+ return 0;\r
+}\r
+\r
+\r
+gs_uint32_t strtoip(gs_uint32_t * r, struct vstring * s)\r
+{\r
+ gs_uint32_t ip1,ip2,ip3,ip4,offset;\r
+ offset=0;\r
+ if (nextint(s,&offset,&ip1)==0) return 1;\r
+ //fprintf (stderr, "1 %u %u\n",ip1,offset);\r
+ if (nextint(s,&offset,&ip2)==0) return 1;\r
+ //fprintf (stderr, "2 %u %u\n",ip2,offset);\r
+ if (nextint(s,&offset,&ip3)==0) return 1;\r
+ //fprintf (stderr, "3 %u %u\n",ip3,offset);\r
+ if (nextint(s,&offset,&ip4)==0) return 1;\r
+ //fprintf (stderr, "4 %u %u\n",ip4,offset);\r
+ *r=ip1<<24|ip2<<16|ip3<<8|ip4;\r
+ return 0;\r
+}\r
+\r
+gs_param_handle_t register_handle_for_strtoip_c_slot_0(vstring* istr) {\r
+ gs_uint32_t ip1,ip2,ip3,ip4,offset,r;\r
+ offset=0;\r
+ if (nextint(istr,&offset,&ip1)==0) return (gs_param_handle_t)0;\r
+ if (nextint(istr,&offset,&ip2)==0) return (gs_param_handle_t)0;\r
+ if (nextint(istr,&offset,&ip3)==0) return (gs_param_handle_t)0;\r
+ if (nextint(istr,&offset,&ip4)==0) return (gs_param_handle_t)0;\r
+ r=ip1<<24|ip2<<16|ip3<<8|ip4;\r
+ return (gs_param_handle_t)r;\r
+}\r
+gs_retval_t deregister_handle_for_strtoip_c_slot_0(gs_param_handle_t h) {\r
+ return 0;\r
+}\r
+\r
+gs_uint32_t partn_hash( gs_uint32_t ip1, gs_uint32_t ip2) {\r
+ return (ip1^ip2);\r
+}\r
+\r
+gs_uint32_t rand_hash() {\r
+ return rand();\r
+}\r
+\r
+///////////////////////////////////////\r
+// IPv6 fcns.\r
+// return negative if s1 < s2, 0 if s1==s2, positive if s1>s2\r
+gs_retval_t hfta_ipv6_compare(const hfta_ipv6_str &i1, const hfta_ipv6_str &i2) {\r
+ if(i1.v[0] > i2.v[0])\r
+ return 1;\r
+ if(i1.v[0] < i2.v[0])\r
+ return -1;\r
+ if(i1.v[1] > i2.v[1])\r
+ return 1;\r
+ if(i1.v[1] < i2.v[1])\r
+ return -1;\r
+ if(i1.v[2] > i2.v[2])\r
+ return 1;\r
+ if(i1.v[2] < i2.v[2])\r
+ return -1;\r
+ if(i1.v[3] > i2.v[3])\r
+ return 1;\r
+ if(i1.v[3] < i2.v[3])\r
+ return -1;\r
+\r
+ return 0;\r
+}\r
+\r
+hfta_ipv6_str And_Ipv6(const hfta_ipv6_str &i1, const hfta_ipv6_str &i2){\r
+ hfta_ipv6_str ret;\r
+ ret.v[0] = i1.v[0] & i2.v[0];\r
+ ret.v[1] = i1.v[1] & i2.v[1];\r
+ ret.v[2] = i1.v[2] & i2.v[2];\r
+ ret.v[3] = i1.v[3] & i2.v[3];\r
+ return ret;\r
+}\r
+\r
+hfta_ipv6_str Or_Ipv6(const hfta_ipv6_str &i1, const hfta_ipv6_str &i2){\r
+ hfta_ipv6_str ret;\r
+ ret.v[0] = i1.v[0] | i2.v[0];\r
+ ret.v[1] = i1.v[1] | i2.v[1];\r
+ ret.v[2] = i1.v[2] | i2.v[2];\r
+ ret.v[3] = i1.v[3] | i2.v[3];\r
+ return ret;\r
+}\r
+\r
+gs_uint32_t hfta_ipv6_hashfunc(const hfta_ipv6_str *s) {\r
+ return s->v[0] ^ s->v[1] ^ s->v[2] ^ s->v[3];\r
+}\r
+\r
+hfta_ipv6_str hton_ipv6(hfta_ipv6_str s){\r
+ hfta_ipv6_str ret;\r
+\r
+// ret.v[0] = htonl(s.v[0]);\r
+// ret.v[1] = htonl(s.v[1]);\r
+// ret.v[2] = htonl(s.v[2]);\r
+// ret.v[3] = htonl(s.v[3]);\r
+ ret.v[0] = s.v[0];\r
+ ret.v[1] = s.v[1];\r
+ ret.v[2] = s.v[2];\r
+ ret.v[3] = s.v[3];\r
+ return ret;\r
+}\r
+\r
+hfta_ipv6_str ntoh_ipv6(hfta_ipv6_str s){\r
+ hfta_ipv6_str ret;\r
+// ret.v[0] = ntohl(s.v[0]);\r
+// ret.v[1] = ntohl(s.v[1]);\r
+// ret.v[2] = ntohl(s.v[2]);\r
+// ret.v[3] = ntohl(s.v[3]);\r
+ ret.v[0] = s.v[0];\r
+ ret.v[1] = s.v[1];\r
+ ret.v[2] = s.v[2];\r
+ ret.v[3] = s.v[3];\r
+ return ret;\r
+}\r
+\r
+int HFTA_Ipv6_Constructor(hfta_ipv6_str *s, gs_csp_t l) {\r
+ gs_uint32_t i0=0,i1=0,i2=0,i3=0,i4=0,i5=0,i6=0,i7=0;\r
+ sscanf(l,"%x:%x:%x:%x:%x:%x:%x:%x",&i0,&i1,&i2,&i3,&i4,&i5,&i6,&i7);\r
+ s->v[0] = ((i0 & 0xffff) << 16) | (i1 & 0xffff);\r
+ s->v[1] = ((i2 & 0xffff) << 16) | (i3 & 0xffff);\r
+ s->v[2] = ((i4 & 0xffff) << 16) | (i5 & 0xffff);\r
+ s->v[3] = ((i6 & 0xffff) << 16) | (i7 & 0xffff);\r
+ return(0);\r
+}\r
+\r
+gs_retval_t str_exists_substr(vstring * s1,vstring * s2)\r
+{\r
+ gs_uint8_t *st1 = (gs_uint8_t *)s1->offset;\r
+ gs_uint8_t *st2 = (gs_uint8_t *)s2->offset;\r
+ gs_uint8_t *s2f = (gs_uint8_t *)s2->offset;\r
+ gs_uint8_t len1 = s1->length-s2->length;\r
+ gs_uint8_t len2 = s2->length;\r
+ gs_uint8_t x,y;\r
+\r
+ for (x=0; x<len1 ; x++)\r
+ {\r
+ if (st1[x]== *s2f)\r
+ {\r
+ for (y=0; y<len2 && st1[x+y]==st2[y];y++);\r
+ if (y==len2)\r
+ return 1;\r
+ }\r
+ }\r
+ return 0;\r
+}\r
+\r
+gs_retval_t str_compare(vstring *s1,vstring *s2)\r
+{\r
+ return hfta_vstr_compare(s1,s2);\r
+}\r
+\r
+gs_uint32_t str_match_offset( gs_uint32_t offset, vstring *s1, vstring *s2)\r
+{\r
+ gs_uint8_t *st1 = (gs_uint8_t *)s1->offset;\r
+ gs_uint8_t *st2 = &(((gs_uint8_t *)s2->offset)[offset]);\r
+ gs_int32_t x;\r
+ gs_int32_t len2 = s2->length-offset;\r
+ gs_int32_t len1 = s1->length;\r
+\r
+ if (len2 < len1)\r
+ return 0;\r
+\r
+ for(x = 0; x < len1; x++)\r
+ {\r
+ if (st1[x] != st2[x])\r
+ return 0;\r
+ }\r
+ return 1;\r
+}\r
+\r
+gs_uint32_t byte_match_offset( gs_uint32_t offset, gs_uint32_t val,vstring *s2)\r
+{\r
+ gs_uint8_t *st2 = (gs_uint8_t *)s2->offset;\r
+ gs_uint8_t v = (unsigned char) val;\r
+\r
+// if ((s2->length <= offset)||(offset<0))\r
+ if (s2->length <= offset)\r
+ return 0;\r
+\r
+ return (st2[offset]==v)?1:0;\r
+}\r
+\r
+\r