/* #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;