summaryrefslogtreecommitdiffstats
path: root/branches/1.0/tinyNET/src/dns/tnet_dns_regexp.c
diff options
context:
space:
mode:
Diffstat (limited to 'branches/1.0/tinyNET/src/dns/tnet_dns_regexp.c')
-rw-r--r--branches/1.0/tinyNET/src/dns/tnet_dns_regexp.c508
1 files changed, 0 insertions, 508 deletions
diff --git a/branches/1.0/tinyNET/src/dns/tnet_dns_regexp.c b/branches/1.0/tinyNET/src/dns/tnet_dns_regexp.c
deleted file mode 100644
index e0e60d1..0000000
--- a/branches/1.0/tinyNET/src/dns/tnet_dns_regexp.c
+++ /dev/null
@@ -1,508 +0,0 @@
-
-/* #line 1 "./ragel/tnet_dns_regexp.rl" */
-/*
-* Copyright (C) 2009-2010 Mamadou Diop.
-*
-* Contact: Mamadou Diop <diopmamadou(at)doubango.org>
-*
-* This file is part of Open Source Doubango Framework.
-*
-* DOUBANGO is free software: you can redistribute it and/or modify
-* it under the terms of the GNU General Public License as published by
-* the Free Software Foundation, either version 3 of the License, or
-* (at your option) any later version.
-*
-* DOUBANGO is distributed in the hope that it will be useful,
-* but WITHOUT ANY WARRANTY; without even the implied warranty of
-* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-* GNU General Public License for more details.
-*
-* You should have received a copy of the GNU General Public License
-* along with DOUBANGO.
-*
-*/
-/**@file tnet_dns_regexp.h
- * @brief DNS Regex parser for NAPTR RR.
- *
- * @author Mamadou Diop <diopmamadou(at)doubango.org>
- *
- * @date Created: Sat Nov 8 16:54:58 2009 mdiop
- */
-#include "tnet_dns_regexp.h"
-
-#include "tsk_string.h"
-#include "tsk_memory.h"
-#include "tsk_ragel_state.h"
-#include "tsk_debug.h"
-
-#include <string.h>
-
-/* === Ragel state machine === */
-
-/* #line 77 "./ragel/tnet_dns_regexp.rl" */
-
-
-/**
-* Apply @a regexp to @a e164num.
-* @param e164num Original E.164 number supplied by the user (only digits or '+' are accepted).
-* @param regexp A <character-string> containing a substitution expression that is
-* applied to the original string held by the client in order to
-* construct the next domain name to lookup. Example: "!^.*$!sip:bob@doubango.org!i".
-* @retval The final Internet address. It's up to the caller to free the string.
-*/
-char* tnet_dns_regex_parse(const char* e164num, const char* regexp)
-{
- char* ret = tsk_null;
- char* prefix = tsk_null;
- const char* tag_start;
- tsk_size_t e164len;
-
- // Ragel
- int cs = 0;
- const char *p = tag_start = regexp;
- const char *pe;
- const char *eof;
-
-
-/* #line 68 "./src/dns/tnet_dns_regexp.c" */
-static const char _tdns_machine_regexp_actions[] = {
- 0, 1, 0, 1, 1, 1, 2, 2,
- 0, 1, 2, 0, 2, 2, 2, 0,
- 2, 3, 0, 3, 3, 0, 2
-};
-
-static const char _tdns_machine_regexp_key_offsets[] = {
- 0, 0, 1, 2, 5, 6, 7, 8,
- 9, 10, 11, 13, 15, 17, 19, 21,
- 23, 25, 26, 27
-};
-
-static const char _tdns_machine_regexp_trans_keys[] = {
- 33, 94, 40, 46, 92, 40, 46, 42,
- 41, 36, 33, 33, 92, 33, 92, 48,
- 57, 33, 92, 33, 92, 40, 42, 36,
- 40, 40, 105, 0
-};
-
-static const char _tdns_machine_regexp_single_lengths[] = {
- 0, 1, 1, 3, 1, 1, 1, 1,
- 1, 1, 2, 2, 0, 2, 2, 2,
- 2, 1, 1, 0
-};
-
-static const char _tdns_machine_regexp_range_lengths[] = {
- 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 1, 0, 0, 0,
- 0, 0, 0, 0
-};
-
-static const char _tdns_machine_regexp_index_offsets[] = {
- 0, 0, 2, 4, 8, 10, 12, 14,
- 16, 18, 20, 23, 26, 28, 31, 34,
- 37, 40, 42, 44
-};
-
-static const char _tdns_machine_regexp_trans_targs[] = {
- 2, 0, 3, 0, 5, 15, 17, 4,
- 5, 4, 6, 0, 7, 0, 8, 0,
- 9, 0, 10, 0, 18, 12, 11, 18,
- 12, 11, 13, 0, 18, 0, 14, 18,
- 0, 14, 5, 16, 4, 9, 5, 4,
- 5, 4, 19, 0, 0, 0
-};
-
-static const char _tdns_machine_regexp_trans_actions[] = {
- 0, 0, 0, 0, 7, 1, 0, 1,
- 3, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 10, 10, 10, 13,
- 13, 13, 0, 0, 19, 0, 16, 5,
- 0, 0, 3, 0, 0, 0, 3, 0,
- 7, 1, 0, 0, 0, 0
-};
-
-static const int tdns_machine_regexp_start = 1;
-static const int tdns_machine_regexp_first_final = 18;
-static const int tdns_machine_regexp_error = 0;
-
-static const int tdns_machine_regexp_en_main = 1;
-
-
-/* #line 101 "./ragel/tnet_dns_regexp.rl" */
-
- if(!e164num){
- goto bail;
- }
-
- if(!regexp){
- ret = tsk_strdup(e164num);
- goto bail;
- }
-
- e164len = tsk_strlen(e164num);
- pe = p + tsk_strlen(regexp);
- eof = pe;
-
-
-/* #line 147 "./src/dns/tnet_dns_regexp.c" */
- {
- cs = tdns_machine_regexp_start;
- }
-
-/* #line 116 "./ragel/tnet_dns_regexp.rl" */
-
-/* #line 154 "./src/dns/tnet_dns_regexp.c" */
- {
- int _klen;
- unsigned int _trans;
- const char *_acts;
- unsigned int _nacts;
- const char *_keys;
-
- if ( p == pe )
- goto _test_eof;
- if ( cs == 0 )
- goto _out;
-_resume:
- _keys = _tdns_machine_regexp_trans_keys + _tdns_machine_regexp_key_offsets[cs];
- _trans = _tdns_machine_regexp_index_offsets[cs];
-
- _klen = _tdns_machine_regexp_single_lengths[cs];
- if ( _klen > 0 ) {
- const char *_lower = _keys;
- const char *_mid;
- const char *_upper = _keys + _klen - 1;
- while (1) {
- if ( _upper < _lower )
- break;
-
- _mid = _lower + ((_upper-_lower) >> 1);
- if ( (*p) < *_mid )
- _upper = _mid - 1;
- else if ( (*p) > *_mid )
- _lower = _mid + 1;
- else {
- _trans += (_mid - _keys);
- goto _match;
- }
- }
- _keys += _klen;
- _trans += _klen;
- }
-
- _klen = _tdns_machine_regexp_range_lengths[cs];
- if ( _klen > 0 ) {
- const char *_lower = _keys;
- const char *_mid;
- const char *_upper = _keys + (_klen<<1) - 2;
- while (1) {
- if ( _upper < _lower )
- break;
-
- _mid = _lower + (((_upper-_lower) >> 1) & ~1);
- if ( (*p) < _mid[0] )
- _upper = _mid - 2;
- else if ( (*p) > _mid[1] )
- _lower = _mid + 2;
- else {
- _trans += ((_mid - _keys)>>1);
- goto _match;
- }
- }
- _trans += _klen;
- }
-
-_match:
- cs = _tdns_machine_regexp_trans_targs[_trans];
-
- if ( _tdns_machine_regexp_trans_actions[_trans] == 0 )
- goto _again;
-
- _acts = _tdns_machine_regexp_actions + _tdns_machine_regexp_trans_actions[_trans];
- _nacts = (unsigned int) *_acts++;
- while ( _nacts-- > 0 )
- {
- switch ( *_acts++ )
- {
- case 0:
-/* #line 42 "./ragel/tnet_dns_regexp.rl" */
- {
- tag_start = p;
- }
- break;
- case 1:
-/* #line 46 "./ragel/tnet_dns_regexp.rl" */
- {
- TSK_PARSER_SET_STRING(prefix);
- }
- break;
- case 2:
-/* #line 50 "./ragel/tnet_dns_regexp.rl" */
- {
- int len = (int)(p - tag_start);
- if(len){
- tsk_strncat(&ret, tag_start, len);
- }
- }
- break;
- case 3:
-/* #line 57 "./ragel/tnet_dns_regexp.rl" */
- {
- if(prefix){
- int prefixlen = tsk_strlen(prefix);
- tsk_strncat(&ret, e164num + prefixlen, (e164len - prefixlen));
- }
- }
- break;
-/* #line 257 "./src/dns/tnet_dns_regexp.c" */
- }
- }
-
-_again:
- if ( cs == 0 )
- goto _out;
- if ( ++p != pe )
- goto _resume;
- _test_eof: {}
- _out: {}
- }
-
-/* #line 117 "./ragel/tnet_dns_regexp.rl" */
-
- if( cs <
-/* #line 273 "./src/dns/tnet_dns_regexp.c" */
-18
-/* #line 118 "./ragel/tnet_dns_regexp.rl" */
- ){
- TSK_DEBUG_ERROR("regexp substitition failed.");
- TSK_FREE(ret);
- }
-
-bail:
- TSK_FREE(prefix);
-
- return ret;
-}
-
-
-
-
-
-
-
-
-
-
-
-
-
-///*
-//* Copyright (C) 2009-2010 Mamadou Diop.
-//*
-//* Contact: Mamadou Diop <diopmamadou(at)doubango.org>
-//*
-//* This file is part of Open Source Doubango Framework.
-//*
-//* DOUBANGO is free software: you can redistribute it and/or modify
-//* it under the terms of the GNU General Public License as published by
-//* the Free Software Foundation, either version 3 of the License, or
-//* (at your option) any later version.
-//*
-//* DOUBANGO is distributed in the hope that it will be useful,
-//* but WITHOUT ANY WARRANTY; without even the implied warranty of
-//* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-//* GNU General Public License for more details.
-//*
-//* You should have received a copy of the GNU General Public License
-//* along with DOUBANGO.
-//*
-//*/
-///**@file tnet_dns_regexp.h
-// * @brief DNS Regex parser for NAPTR RR.
-// *
-// * @author Mamadou Diop <diopmamadou(at)doubango.org>
-// *
-// * @date Created: Sat Nov 8 16:54:58 2009 mdiop
-// */
-//#include "tnet_dns_regexp.h"
-//
-//#include "tsk_debug.h"
-//#include "tsk_memory.h"
-//#include "tsk_string.h"
-//#include "tsk_list.h"
-//
-//#include <string.h>
-//
-//const tsk_object_def_t *group_def_t;
-//typedef tsk_list_t groups_L_t;
-//
-//#define CREATE_GROUP(id) tsk_object_new(group_def_t, (int)id)
-//typedef struct group_s
-//{
-// TSK_DECLARE_OBJECT;
-//
-// int id;
-// tsk_size_t start;
-// tsk_size_t end;
-//}
-//group_t;
-//
-///* === Ragel state machine === */
-//%%{
-// machine tdns_machine_regexp;
-//
-// action tag{
-// tag_start = p;
-// }
-//
-// action inc_index{
-// index++;
-// TSK_DEBUG_INFO("inc_index %d", index);
-// }
-//
-// action create_group{
-// if(curr_group){
-// TSK_OBJECT_SAFE_FREE(curr_group);
-// }
-// curr_group = CREATE_GROUP(++group_id);
-// curr_group->start = index;
-// TSK_DEBUG_INFO("Create groupe");
-// }
-//
-// action add_group{
-// curr_group->end = index;
-// tsk_list_push_back_data(groups, (void**)&curr_group);
-// TSK_DEBUG_INFO("Create groupe");
-// }
-//
-// # http://www.itu.int/itudoc/itu-t/workshop/enum/012_pp7.ppt
-// # The format is like this: !<regexp>!<string>!
-// # * 1. Match <regexp> on the original E.164 number
-// # * 2. Apply rewrite rule <string>
-// # * \n in <string> is replaced with group number 'n' in <regexp>
-// #
-//
-// # Match beginning
-// m_begin = "^" any* $inc_index;
-//
-// # Match end
-// m_end = "$";
-//
-// # Math any character
-// m_any_c = ".";
-//
-// # Match any number of any character
-// m_any_string = ".*" | ".+";
-//
-// # Grouping
-// group_n = "\\" digit+;
-// group_begin = "(" >create_group;
-// group_end = ")" >add_group;
-// group = group_begin<: any* :>group_end;
-//
-// # Escaped char
-// escaped_char = "\\" alpha;
-//
-// regexp =
-// m_begin<:
-// m_any_c | m_any_string | group
-// :>m_end;
-//
-// string = any*;
-//
-// main := "!"<: regexp :> "!" <: string :> "!";
-//}%%
-//
-///**
-//* Apply @a regexp to @a e164num.
-//* @param e164num Original E.164 number supplied by the user (only digits or '+' are accepted).
-//* @param regexp A <character-string> containing a substitution expression that is
-//* applied to the original string held by the client in order to
-//* construct the next domain name to lookup. Example: "!^.*$!sip:bob@doubango.org!i".
-//* @retval The final Internet address. It's up to the caller to free the string.
-//*/
-//char* tnet_dns_regex_parse(const char* e164num, const char* regexp)
-//{
-// char* ret = tsk_null;
-// groups_L_t* groups = tsk_list_create();
-// group_t* curr_group = tsk_null;
-// tsk_size_t index = 0;
-// int group_id = 0;
-//
-// // Ragel
-// int cs = 0;
-// const char *p = regexp;
-// const char *pe;
-// const char *eof;
-//
-// %%write data;
-//
-// if(!e164num){
-// goto bail;
-// }
-//
-// if(!regexp){
-// ret = tsk_strdup(e164num);
-// goto bail;
-// }
-//
-// pe = p + tsk_strlen(regexp);
-// eof = pe;
-//
-// %%write init;
-// %%write exec;
-//
-// if( cs < %%{ write first_final; }%% ){
-// TSK_DEBUG_ERROR("regexp substitition failed.");
-// TSK_FREE(ret);
-// }
-//
-//bail:
-// TSK_OBJECT_SAFE_FREE(groups);
-// if(curr_group){
-// TSK_OBJECT_SAFE_FREE(curr_group);
-// }
-//
-// return ret;
-//}
-//
-////=================================================================================================
-//// String object definition
-////
-//static tsk_object_t* group_create(tsk_object_t * self, va_list * app)
-//{
-// group_t *g = self;
-// if(g){
-// g->id = va_arg(*app, int);
-// }
-// return self;
-//}
-//
-//static tsk_object_t* group_destroy(tsk_object_t * self)
-//{
-// group_t *g = self;
-// if(g){
-// }
-//
-// return self;
-//}
-//
-//static int group_cmp(const tsk_object_t *_g1, const tsk_object_t *_g2)
-//{
-// const group_t *g1 = _g1;
-// const group_t *g2 = _g2;
-//
-// if(g1 && g22){
-// return (g1->id - g2->id);
-// }
-// else if(!g1 && !g2) return 0;
-// else return -1;
-//}
-//
-//static const tsk_object_def_t group_def_s =
-//{
-// sizeof(group_t),
-// group_create,
-// group_destroy,
-// group_cmp,
-//};
-//const tsk_object_def_t *group_def_t = &group_def_s;
OpenPOWER on IntegriCloud