sr-dev

sr-dev@lists.kamailio.org

10 participants
42786 discussions

git:andrei/script_vars: script engine: rvalue support in logical expr.

by Andrei Pelinescu-Onciul

Module: sip-router Branch: andrei/script_vars Commit: 7fa369e37c67883328c4060d02badb63549a12d7 URL: http://git.sip-router.org/cgi-bin/gitweb.cgi/sip-router/?a=commit;h=7fa369e… Author: Andrei Pelinescu-Onciul <andrei(a)iptel.org> Committer: Andrei Pelinescu-Onciul <andrei(a)iptel.org> Date: Tue Dec 9 16:15:21 2008 +0100 script engine: rvalue support in logical expr. - hard coded expressions elements (e.g. method==xxx) support now rvalues as operands (e.g. uri=="sip:"+$a) - small cleanups --- route.c | 515 ++++++++++++++++++++++++++++++++++---------------------- route_struct.c | 64 +++++++- route_struct.h | 6 +- 3 files changed, 379 insertions(+), 206 deletions(-) Diff: http://git.sip-router.org/cgi-bin/gitweb.cgi/sip-router/?a=commitdiff;h=7fa…

15 years, 5 months

git:master: kamailio compatibility, add str_strcmp and str_casecmp functions

by Henning Westerholt

Module: sip-router Branch: master Commit: 95fd2d74ce0b5527586828df7348e84170b19729 URL: http://git.sip-router.org/cgi-bin/gitweb.cgi/sip-router/?a=commit;h=95fd2d7… Author: Henning Westerholt <henning.westerholt(a)1und1.de> Committer: Henning Westerholt <henning.westerholt(a)1und1.de> Date: Mon Dec 8 18:13:57 2008 +0100 kamailio compatibility, add str_strcmp and str_casecmp functions --- ut.c | 2 +- ut.h | 45 +++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 46 insertions(+), 1 deletions(-) diff --git a/ut.c b/ut.c index 90f2f1e..7c63941 100644 --- a/ut.c +++ b/ut.c @@ -28,7 +28,7 @@ * */ -#include <string.h> + #include <sys/types.h> #include <pwd.h> #include <grp.h> diff --git a/ut.h b/ut.h index 45cf559..3de7138 100644 --- a/ut.h +++ b/ut.h @@ -56,6 +56,8 @@ #include <time.h> #include <unistd.h> #include <ctype.h> +#include <string.h> +#include <strings.h> #include "compiler_opt.h" #include "config.h" @@ -633,6 +635,49 @@ static inline int pkg_str_dup(str* dst, const str* src) return 0; } +/** + * \brief Compare two str's case sensitive + * \param str1 first str + * \param str2 second str + * \return 0 if both are equal, positive if str1 is greater, negative if str2 is greater, -2 on errors + */ +static inline int str_strcmp(const str *str1, const str *str2) +{ + if(str1==NULL || str2==NULL || str1->s ==NULL || str2->s==NULL || str1->len<0 || str2->len<0) + { + LM_ERR("bad parameters\n"); + return -2; + } + + if (str1->len < str2->len) + return -1; + else if (str1->len > str2->len) + return 1; + else + return strncmp(str1->s, str2->s, str1->len); +} + +/** + * \brief Compare two str's case insensitive + * \param str1 first str + * \param str2 second str + * \return 0 if both are equal, positive if str1 is greater, negative if str2 is greater, -2 on errors + */ +static inline int str_strcasecmp(const str *str1, const str *str2) +{ + if(str1==NULL || str2==NULL || str1->s ==NULL || str2->s==NULL || str1->len<0 || str2->len<0) + { + LM_ERR("bad parameters\n"); + return -2; + } + if (str1->len < str2->len) + return -1; + else if (str1->len > str2->len) + return 1; + else + return strncasecmp(str1->s, str2->s, str1->len); +} + /* converts a username into uid:gid, * returns -1 on error & 0 on success */ int user2uid(int* uid, int* gid, char* user);

15 years, 5 months

git:daniel/pv: Merge branch 'master' of ssh://git.sip-router.org/ sip-router into daniel

by Daniel-Constantin Mierla

Module: sip-router Branch: daniel/pv Commit: 731027de13be1599a59874d327f4e5ac98b04833 URL: http://git.sip-router.org/cgi-bin/gitweb.cgi/sip-router/?a=commit;h=731027d… Author: Daniel-Constantin Mierla <miconda(a)gmail.com> Committer: Daniel-Constantin Mierla <miconda(a)gmail.com> Date: Sun Dec 7 00:51:26 2008 +0200 Merge branch 'master' of ssh://git.sip-router.org/sip-router into daniel * 'master' of ssh://git.sip-router.org/sip-router: kamailio compatibility, add shm_strdup and pkg_strdup implementation ---

15 years, 5 months

git:daniel/pv: pv api updates

by Daniel-Constantin Mierla

Module: sip-router Branch: daniel/pv Commit: 037dd9e5df32422af17aa386ef8189468effefda URL: http://git.sip-router.org/cgi-bin/gitweb.cgi/sip-router/?a=commit;h=037dd9e… Author: Daniel-Constantin Mierla <miconda(a)gmail.com> Committer: Daniel-Constantin Mierla <miconda(a)gmail.com> Date: Sun Dec 7 00:55:08 2008 +0200 pv api updates - fix the transformations hash table size - complete the functions in PV&T API --- pvapi.c | 247 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++---- pvar.h | 14 ++-- 2 files changed, 240 insertions(+), 21 deletions(-) Diff: http://git.sip-router.org/cgi-bin/gitweb.cgi/sip-router/?a=commitdiff;h=037…

15 years, 5 months

New multi-protocol IM & Presence gateway module

by Eric PTAK

Hi all, I'm glad to announce and to provide you the module I've done few months ago. It's based on libpurple, the library on bottom of pidgin (ex-gaim), and allow you to use all your non-SIP accounts (like MSN) mapped with your SIP URI. It was originally wrote for OpenSER 1.3.x, but I ported and tested it to latest Kamailio/OpenSIPS snapshots. Please refer to included README for more informations. I hope you'll enjoy it ! Eric PTAK, Atos Worldline R&D.

15 years, 5 months

git:andrei/script_vars: script: pvar name parsing fix

by Andrei Pelinescu-Onciul

Module: sip-router Branch: andrei/script_vars Commit: 2ac5604bdab43ca5ddf10a1db0ea3f61f2d7d912 URL: http://git.sip-router.org/cgi-bin/gitweb.cgi/sip-router/?a=commit;h=2ac5604… Author: Andrei Pelinescu-Onciul <andrei(a)iptel.org> Committer: Andrei Pelinescu-Onciul <andrei(a)iptel.org> Date: Thu Dec 4 01:05:32 2008 +0100 script: pvar name parsing fix - fix parsing pvar names of the form $pvar(...) --- cfg.lex | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) diff --git a/cfg.lex b/cfg.lex index c4f5a14..4ce14d0 100644 --- a/cfg.lex +++ b/cfg.lex @@ -830,7 +830,8 @@ EAT_ABLE [\ \t\b\r] <AVP_PVAR>{AVP_PREF} | <AVP_PVAR>{ID}{LBRACK} { state = ATTR_S; BEGIN(ATTR); yyless(1); return ATTR_MARK; } -<AVP_PVAR>{ID}{LPAREN} { state = PVAR_P_S; BEGIN(PVAR_P); yymore(); } +<AVP_PVAR>{ID}{LPAREN} { state = PVAR_P_S; p_nest=1; BEGIN(PVAR_P); + yymore(); } <AVP_PVAR>{ID} { count(); addstr(&s_buf, yytext, yyleng); yylval.strval=s_buf.s; memset(&s_buf, 0, sizeof(s_buf));

15 years, 5 months

git:andrei/script_vars: script engine: lvalue/rvalue assignment and fixups

by Andrei Pelinescu-Onciul

Module: sip-router Branch: andrei/script_vars Commit: ab7f82d262e57857722855217c93096303468fab URL: http://git.sip-router.org/cgi-bin/gitweb.cgi/sip-router/?a=commit;h=ab7f82d… Author: Andrei Pelinescu-Onciul <andrei(a)iptel.org> Committer: Andrei Pelinescu-Onciul <andrei(a)iptel.org> Date: Thu Dec 4 01:12:46 2008 +0100 script engine: lvalue/rvalue assignment and fixups --- action.c | 127 +++++--------------------------------------------------- route.c | 61 +++++++++++++-------------- route.h | 4 +- route_struct.h | 4 +- 4 files changed, 47 insertions(+), 149 deletions(-) diff --git a/action.c b/action.c index ea69e3a..26edcca 100644 --- a/action.c +++ b/action.c @@ -47,6 +47,7 @@ * 2007-06-14 run_actions & do_action need a ctx or handle now, no more * static vars (andrei) * 2008-11-18 support for variable parameter module functions (andrei) + * 2008-12-03 use lvalues/rvalues for assignments (andrei) */ @@ -63,6 +64,7 @@ #include "parser/msg_parser.h" #include "parser/parse_uri.h" #include "ut.h" +#include "lvalue.h" #include "sr_module.h" #include "mem/mem.h" #include "globals.h" @@ -108,8 +110,6 @@ int do_action(struct run_act_ctx* h, struct action* a, struct sip_msg* msg) struct sip_uri uri, next_hop; struct sip_uri *u; unsigned short port; - unsigned short flags; - int_str name, value; str* dst_host; /* reset the value of error to E_UNSPEC so avoid unknowledgable @@ -870,121 +870,16 @@ int do_action(struct run_act_ctx* h, struct action* a, struct sip_msg* msg) ret=1; /* continue processing */ break; - case ADD_T: - case ASSIGN_T: - - /* If the left attr was specified without indexing brackets delete - * existing AVPs before adding new ones - */ - if ((a->val[0].u.attr->type & AVP_INDEX_ALL) != AVP_INDEX_ALL) delete_avp(a->val[0].u.attr->type, a->val[0].u.attr->name); - - if (a->val[1].type == STRING_ST) { - value.s = a->val[1].u.str; - flags = a->val[0].u.attr->type | AVP_VAL_STR; - name = a->val[0].u.attr->name; - ret = 1; - } else if (a->val[1].type == NUMBER_ST) { - value.n = a->val[1].u.number; - flags = a->val[0].u.attr->type; - name = a->val[0].u.attr->name; + case ADD_T: + case ASSIGN_T: + v=lval_assign(h, msg, (struct lvalue*)a->val[0].u.data, + (struct rval_expr*)a->val[1].u.data); + if (likely(v>=0)) ret = 1; - } else if (a->val[1].type == ACTION_ST) { - flags = a->val[0].u.attr->type; - name = a->val[0].u.attr->name; - if (a->val[1].u.data) { - value.n = run_actions(h, (struct action*)a->val[1].u.data, - msg); - } else { - value.n = -1; - } - ret = value.n; - } else if(a->val[1].type == EXPR_ST && a->val[1].u.data) { - v = eval_expr(h, (struct expr*)a->val[1].u.data, msg); - if (v < 0) { - if (v == EXPR_DROP){ /* hack to quit on DROP*/ - ret = 0; - break; - } else { - LOG(L_WARN,"WARNING: do_action: error in expression\n"); - v = 0; /* error is treated as false (Miklos) */ - } - } - - flags = a->val[0].u.attr->type; - name = a->val[0].u.attr->name; - value.n = v; - } else if (a->val[1].type == AVP_ST) { - struct search_state st; - avp_t* avp; - avp_t* avp_mark; - - avp_mark = NULL; - if ((a->val[1].u.attr->type & AVP_INDEX_ALL) == AVP_INDEX_ALL) { - avp = search_first_avp(a->val[1].u.attr->type, a->val[1].u.attr->name, &value, &st); - while(avp) { - /* We take only the type of value and name from the source avp - * and reset class and track flags - */ - flags = (a->val[0].u.attr->type & ~AVP_INDEX_ALL) | (avp->flags & ~(AVP_CLASS_ALL|AVP_TRACK_ALL)); - - if (add_avp_before(avp_mark, flags, a->val[0].u.attr->name, value) < 0) { - LOG(L_CRIT, "ERROR: Failed to assign value to attribute\n"); - ret=E_UNSPEC; - break; - } - - /* move the mark, so the next found AVP will come before the one currently added - * so they will have the same order as in the source list - */ - if (avp_mark) { - avp_mark=avp_mark->next; - } else { - avp_mark=search_first_avp(flags, a->val[0].u.attr->name, NULL, NULL); - } - - avp = search_next_avp(&st, &value); - } - ret = 1; - break; - } else { - avp = search_avp_by_index(a->val[1].u.attr->type, a->val[1].u.attr->name, &value, a->val[1].u.attr->index); - if (avp) { - flags = a->val[0].u.attr->type | (avp->flags & ~(AVP_CLASS_ALL|AVP_TRACK_ALL)); - name = a->val[0].u.attr->name; - ret = 1; - } else { - ret = E_UNSPEC; - break; - } - } - } else if (a->val[1].type == SELECT_ST) { - int r; - r = run_select(&value.s, a->val[1].u.select, msg); - if (r < 0) { - ret=E_UNSPEC; - break; - } else if (r > 0) { - value.s.s = ""; - value.s.len = 0; - } - - flags = a->val[0].u.attr->type | AVP_VAL_STR; - name = a->val[0].u.attr->name; - ret = 1; - } else { - LOG(L_CRIT, "BUG: do_action: Bad right side of avp assignment\n"); - ret=E_BUG; - break; - } - - /* If the action is assign then remove the old avp value - * before adding new ones */ -/* if ((unsigned char)a->type == ASSIGN_T) delete_avp(flags, name); */ - if (add_avp(flags & ~AVP_INDEX_ALL, name, value) < 0) { - LOG(L_CRIT, "ERROR: Failed to assign value to attribute\n"); - ret=E_UNSPEC; - break; - } + else if (unlikely (v == EXPR_DROP)) /* hack to quit on DROP*/ + ret=0; + else + ret=v; break; default: diff --git a/route.c b/route.c index b57364b..cafe4fa 100644 --- a/route.c +++ b/route.c @@ -48,6 +48,7 @@ * the expressions does not exist (Miklos) * 2008-04-23 errors are treated as false during expression evaluation * unless the operator is DIFF_OP (Miklos) + * 2008-12-03 fixups for rvalues in assignments (andrei) */ @@ -66,6 +67,8 @@ #include "dprint.h" #include "proxy.h" #include "action.h" +#include "lvalue.h" +#include "rvalue.h" #include "sr_module.h" #include "ip_addr.h" #include "resolve.h" @@ -276,12 +279,12 @@ int route_lookup(struct route_list* rt, char* name) -static int fix_actions(struct action* a); /*fwd declaration*/ +int fix_actions(struct action* a); /*fwd declaration*/ /* traverses an expr tree and compiles the REs where necessary) * returns: 0 for ok, <0 if errors */ -static int fix_expr(struct expr* exp) +int fix_expr(struct expr* exp) { regex_t* re; int ret; @@ -380,7 +383,7 @@ static int fix_expr(struct expr* exp) /* adds the proxies in the proxy list & resolves the hostnames */ /* returns 0 if ok, <0 on error */ -static int fix_actions(struct action* a) +int fix_actions(struct action* a) { struct action *t; struct proxy_l* p; @@ -391,6 +394,8 @@ static int fix_actions(struct action* a) struct hostent* he; struct ip_addr ip; struct socket_info* si; + struct lvalue* lval; + char buf[30]; /* tmp buffer needed for module param fixups */ if (a==0){ @@ -466,40 +471,34 @@ static int fix_actions(struct action* a) } break; - case ASSIGN_T: - case ADD_T: - if (t->val[0].type != AVP_ST) { - LOG(L_CRIT, "BUG: fix_actions: Invalid left side of assignment\n"); + case ASSIGN_T: + case ADD_T: + if (t->val[0].type !=LVAL_ST) { + LOG(L_CRIT, "BUG: fix_actions: Invalid left side of" + " assignment\n"); return E_BUG; } - if (t->val[0].u.attr->type & AVP_CLASS_DOMAIN) { - LOG(L_ERR, "ERROR: You cannot change domain attributes from the script, they are read-only\n"); - return E_BUG; - } else if (t->val[0].u.attr->type & AVP_CLASS_GLOBAL) { - LOG(L_ERR, "ERROR: You cannot change global attributes from the script, they are read-only\n"); + if (t->val[1].type !=RVE_ST) { + LOG(L_CRIT, "BUG: fix_actions: Invalid right side of" + " assignment (%d)\n", t->val[1].type); return E_BUG; } - - if (t->val[1].type == ACTION_ST && t->val[1].u.data) { - if ((ret = fix_actions((struct action*)t->val[1].u.data)) < 0) { - return ret; - } - } else if (t->val[1].type == EXPR_ST && t->val[1].u.data) { - if ((ret = fix_expr((struct expr*)t->val[1].u.data)) < 0) { - return ret; - } - } else if (t->val[1].type == STRING_ST) { - int len; - len = strlen(t->val[1].u.data); - t->val[1].u.str.s = t->val[1].u.data; - t->val[1].u.str.len = len; - } else if (t->val[1].type == SELECT_ST) { - if ((ret=resolve_select(t->val[1].u.select)) < 0) { - BUG("Unable to resolve select\n"); - print_select(t->val[1].u.select); - return ret; + lval=t->val[0].u.data; + if (lval->type==LV_AVP){ + if (lval->lv.avps.type & AVP_CLASS_DOMAIN) { + LOG(L_ERR, "ERROR: You cannot change domain" + " attributes from the script, they are" + " read-only\n"); + return E_BUG; + } else if (lval->lv.avps.type & AVP_CLASS_GLOBAL) { + LOG(L_ERR, "ERROR: You cannot change global" + " attributes from the script, they are" + "read-only\n"); + return E_BUG; } } + if ((ret=fix_rval_expr(&t->val[1].u.data))<0) + return ret; break; case MODULE_T: diff --git a/route.h b/route.h index a1486d3..31c9785 100644 --- a/route.h +++ b/route.h @@ -73,7 +73,9 @@ int fix_rls(); int eval_expr(struct run_act_ctx* h, struct expr* e, struct sip_msg* msg); - +/* fixup functions*/ +int fix_actions(struct action* a); +int fix_expr(struct expr* exp); diff --git a/route_struct.h b/route_struct.h index 22b92d9..f3b298a 100644 --- a/route_struct.h +++ b/route_struct.h @@ -93,7 +93,9 @@ enum { FORWARD_T=1, SEND_T, DROP_T, LOG_T, ERROR_T, ROUTE_T, EXEC_T, }; enum { NOSUBTYPE=0, STRING_ST, NET_ST, NUMBER_ST, IP_ST, RE_ST, PROXY_ST, EXPR_ST, ACTIONS_ST, MODEXP_ST, MODFIXUP_ST, URIHOST_ST, URIPORT_ST, - MYSELF_ST, STR_ST, SOCKID_ST, SOCKETINFO_ST, ACTION_ST, AVP_ST, SELECT_ST, + MYSELF_ST, STR_ST, SOCKID_ST, SOCKETINFO_ST, ACTION_ST, AVP_ST, + SELECT_ST, /* obsolete */ + LVAL_ST, RVE_ST, RETCODE_ST}; /* run flags */

15 years, 5 months

git:andrei/script_vars: script: lvalue = rvalue expression support

by Andrei Pelinescu-Onciul

Module: sip-router Branch: andrei/script_vars Commit: cddb9399efa10f5685a09b617a2ff5cf665fa2dd URL: http://git.sip-router.org/cgi-bin/gitweb.cgi/sip-router/?a=commit;h=cddb939… Author: Andrei Pelinescu-Onciul <andrei(a)iptel.org> Committer: Andrei Pelinescu-Onciul <andrei(a)iptel.org> Date: Thu Dec 4 01:10:12 2008 +0100 script: lvalue = rvalue expression support - lvalue = rvalue op rvalue ... --- cfg.y | 165 ++++++++++++++++++++++++++++++++++++++++++++++++++-------------- 1 files changed, 129 insertions(+), 36 deletions(-) diff --git a/cfg.y b/cfg.y index 228d909..5cc36f9 100644 --- a/cfg.y +++ b/cfg.y @@ -89,6 +89,8 @@ * LINGER2, KEEPALIVE, KEEPIDLE, KEEPINTVL, KEEPCNT} (andrei) * 2008-01-24 added cfg_var definition (Miklos) * 2008-11-18 support for variable parameter module functions (andrei) + * 2007-12-03 support for generalised lvalues and rvalues: + * lval=rval_expr, where lval=avp|pvar (andrei) */ %{ @@ -118,6 +120,10 @@ #include "tcp_init.h" #include "tcp_options.h" #include "sctp_options.h" +#include "pvar.h" +#include "lvalue.h" +#include "rvalue.h" +#include "sr_compat.h" #include "config.h" #include "cfg_core.h" @@ -187,14 +193,7 @@ static select_t sel; static select_t* sel_ptr; static pv_spec_t* pv_spec; static struct action *mod_func_action; - -static struct avp_pvar_spec{ - int type; - union{ - struct avp_spec avp; - pv_spec_t pv; - }u; -} *apv_spec; +static struct lvalue* lval_tmp; static void warn(char* s); static struct socket_id* mk_listen_id(char*, int, int); @@ -216,8 +215,10 @@ static void free_socket_id_lst(struct socket_id* i); struct socket_id* sockid; struct name_lst* name_l; struct avp_spec* attr; - struct pv_spec_t* pvar; - struct avp_pvar_spec* avp_pvar_s; + struct _pv_spec* pvar; + struct lvalue* lval; + struct rvalue* rval; + struct rval_expr* rv_expr; select_t* select; } @@ -508,13 +509,17 @@ static void free_socket_id_lst(struct socket_id* i); %type <attr> attr_id_any %type <attr> attr_id_any_str %type <pvar> pvar -%type <avp_pvar_s> avp_pvar +%type <lval> lval +%type <rv_expr> rval rval_expr +%type <lval> avp_pvar /* %type <intval> class_id */ %type <intval> assign_op %type <select> select_id %type <strval> flag_name; %type <strval> route_name; %type <intval> avpflag_oper +%type <intval> rve_un_op +%type <intval> rve_op /*%type <route_el> rules; %type <route_el> rule; @@ -1986,42 +1991,38 @@ pvar: PVAR { yyerror("Not enough memory"); YYABORT; } - s.s=$1; s.len=strlen(s.s); - if (pv_parse_spec(&s, pv_spec)==0){ + memset(pv_spec, 0, sizeof(*pv_spec)); + s_tmp.s=$1; s_tmp.len=strlen($1); + if (pv_parse_spec(&s_tmp, pv_spec)==0){ yyerror("unknown script pseudo variable"); pkg_free(pv_spec); YYABORT; } $$=pv_spec; - BUG("parsed pvar \"%.*s\"\n", s.len, s.s); } ; avp_pvar: AVP_OR_PVAR { - apv=pkg_malloc(sizeof(*apv)); - if (!apv) { - yyerror("Not enough memory"); - YYABORT; - } - s.s=$1; s.len=strlen(s.s); - if (pv_parse_spec(&s, &apv_spec->u.pv)==0){ - /* not a pvar, try avps */ - /* TODO: test if in ser or k mode */ - if (parse_avp_name(&s, &type, &apv_spec->u.avp.name, &idx)) { - yyerror("error when parsing AVP"); - pkg_free(apv_spec); + lval_tmp=pkg_malloc(sizeof(*lval_tmp)); + if (!lval_tmp) { + yyerror("Not enough memory"); YYABORT; } - apv_spec->u.avp.type = type; - apv_spec->u.avp.index = idx; - apv_spec.type=APV_AVP_T; - }else{ - apv_spec.type=APV_PVAR_T; + memset(lval_tmp, 0, sizeof(*lval_tmp)); + s_tmp.s=$1; s_tmp.len=strlen(s_tmp.s); + if (pv_parse_spec(&s_tmp, &lval_tmp->lv.pvs)==0){ + /* not a pvar, try avps */ + lval_tmp->lv.avps.type|= AVP_NAME_STR; + lval_tmp->lv.avps.name.s.s = s_tmp.s+1; + lval_tmp->lv.avps.name.s.len = s_tmp.len-1; + lval_tmp->type=LV_AVP; + }else{ + lval_tmp->type=LV_PVAR; + } + $$ = lval_tmp; + DBG("parsed ambigous avp/pvar \"%.*s\" to %d\n", + s_tmp.len, s_tmp.s, lval_tmp->type); } - $$ = apv_spec; - BUG("parsed ambigous avp/pvar \"%.*s\" to %d\n", s.len, s.s, - apv_spec.type); - } ; @@ -2034,6 +2035,98 @@ assign_op: assign_op: EQUAL { $$ = ASSIGN_T; } ; + + +lval: attr_id_ass { + lval_tmp=pkg_malloc(sizeof(*lval_tmp)); + if (!lval_tmp) { + yyerror("Not enough memory"); + YYABORT; + } + lval_tmp->type=LV_AVP; lval_tmp->lv.avps=*$1; + pkg_free($1); /* free the avp spec we just copied */ + $$=lval_tmp; + } + | pvar { + if (!pv_is_w($1)) + yyerror("read only pvar in assignment left side"); + if ($1->trans!=0) + yyerror("pvar with transformations in assignment" + " left side"); + lval_tmp=pkg_malloc(sizeof(*lval_tmp)); + if (!lval_tmp) { + yyerror("Not enough memory"); + YYABORT; + } + lval_tmp->type=LV_PVAR; lval_tmp->lv.pvs=*($1); + pkg_free($1); /* free the pvar spec we just copied */ + $$=lval_tmp; + } + | avp_pvar { + if (($1)->type==LV_PVAR){ + if (!pv_is_w(&($1)->lv.pvs)) + yyerror("read only pvar in assignment left side"); + if ($1->lv.pvs.trans!=0) + yyerror("pvar with transformations in assignment" + " left side"); + } + $$=$1; + } + ; + +rval: NUMBER {$$=mk_rval_expr_v(RV_INT, (void*)$1); } + | STRING { s_tmp.s=$1; s_tmp.len=strlen($1); + $$=mk_rval_expr_v(RV_STR, &s_tmp); } + | attr_id_any {$$=mk_rval_expr_v(RV_AVP, $1); pkg_free($1); } + | pvar {$$=mk_rval_expr_v(RV_PVAR, $1); pkg_free($1); } + | avp_pvar { + switch($1->type){ + case LV_AVP: + $$=mk_rval_expr_v(RV_AVP, &$1->lv.avps); + break; + case LV_PVAR: + $$=mk_rval_expr_v(RV_PVAR, &$1->lv.pvs); + break; + default: + yyerror("BUG: invalid lvalue type "); + YYABORT; + } + pkg_free($1); /* not needed anymore */ + } + | select_id {$$=mk_rval_expr_v(RV_SEL, $1); pkg_free($1); } + | fcmd {$$=mk_rval_expr_v(RV_ACTION_ST, $1); } + //| exp {$$=mk_rval_expr_v(RV_BEXPR, $1);} + /* missing/TODO: RV_ACTION_ST */ + ; + + +rve_un_op: MINUS { $$=RVE_UMINUS_OP; } + /* TODO: RVE_BOOL_OP, RVE_NOT_OP? */ + ; + +rve_op: PLUS { $$=RVE_PLUS_OP; } + | MINUS { $$=RVE_MINUS_OP; } + | STAR { $$=RVE_MUL_OP; } + /* TODO: RVE_DIV_OP */ + ; + +rval_expr: rval { $$=$1; + if ($$==0){ + yyerror("out of memory\n"); + YYABORT; + } + } + | LPAREN rval_expr RPAREN { $$=$2; } + | rve_un_op rval_expr {$$=mk_rval_expr1($1, $2); } + | rval_expr rve_op rval_expr {$$=mk_rval_expr2($2, $1, $3); } + ; + +assign_action: lval assign_op rval_expr { $$=mk_action($2, 2, LVAL_ST, $1, + RVE_ST, $3); + } + ; + +/* assign_action: attr_id_ass assign_op STRING { $$=mk_action($2, 2, AVP_ST, $1, STRING_ST, $3); } | attr_id_ass assign_op NUMBER { $$=mk_action($2, 2, AVP_ST, $1, NUMBER_ST, (void*)$3); } @@ -2042,7 +2135,7 @@ assign_action: | attr_id_ass assign_op select_id { $$=mk_action($2, 2, AVP_ST, (void*)$1, SELECT_ST, (void*)$3); } | attr_id_ass assign_op LPAREN exp RPAREN { $$ = mk_action($2, 2, AVP_ST, $1, EXPR_ST, $4); } ; - +*/ avpflag_oper: SETAVPFLAG { $$ = 1; }

15 years, 5 months

git:andrei/script_vars: script engine: generalised lvalues & rvalues

by Andrei Pelinescu-Onciul

Module: sip-router Branch: andrei/script_vars Commit: 1c7e485e4a8b77271d7a65c5e7a1263d2d73dda8 URL: http://git.sip-router.org/cgi-bin/gitweb.cgi/sip-router/?a=commit;h=1c7e485… Author: Andrei Pelinescu-Onciul <andrei(a)iptel.org> Committer: Andrei Pelinescu-Onciul <andrei(a)iptel.org> Date: Thu Dec 4 00:47:29 2008 +0100 script engine: generalised lvalues & rvalues - support for rvalues (anything that can appear on the right side of an assignment). For now an rvalue can be an avp, pvar, select, number, string, logical expression or script command. rvalues expressions are also supported (rvalue operator rvalue ...). Evaluation of integer rvalue expression is highly optimized. For performance reasons the rvalue expressions are completely separated from the logical expressions (eval_elem/eval_expr). - rvalue expression fixup (apart for normal fixup stuff will also optimize away simple expressions, like 2+3 or "a" + "b"). - support for more general lvalues (anything in the left side of an assignment operator). For now an lvalue is either an avp or a script pvar. lvalue = rvalue_expression. Direct assignments (lvalue to avp or pvar) are optimised. --- lvalue.c | 361 ++++++++++++++++ lvalue.h | 67 +++ rvalue.c | 1377 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ rvalue.h | 175 ++++++++ 4 files changed, 1980 insertions(+), 0 deletions(-) Diff: http://git.sip-router.org/cgi-bin/gitweb.cgi/sip-router/?a=commitdiff;h=1c7…

15 years, 5 months

git:master: kamailio compatibility, add shm_strdup and pkg_strdup implementation

by Henning Westerholt

Module: sip-router Branch: master Commit: 4bcc8357d12d1b2563cb3c7248804806c1ff4a9d URL: http://git.sip-router.org/cgi-bin/gitweb.cgi/sip-router/?a=commit;h=4bcc835… Author: Henning Westerholt <henning.westerholt(a)1und1.de> Committer: Henning Westerholt <henning.westerholt(a)1und1.de> Date: Tue Dec 2 16:05:48 2008 +0100 kamailio compatibility, add shm_strdup and pkg_strdup implementation --- ut.h | 41 +++++++++++++++++++++++++++++++++++++++++ 1 files changed, 41 insertions(+), 0 deletions(-) diff --git a/ut.h b/ut.h index e8ff01b..45cf559 100644 --- a/ut.h +++ b/ut.h @@ -61,6 +61,8 @@ #include "config.h" #include "dprint.h" #include "str.h" +#include "mem/mem.h" +#include "mem/shm_mem.h" @@ -592,6 +594,45 @@ static inline int str2sint(str* _s, int* _r) return 0; } +/** + * \brief Make a copy of a str structure using shm_malloc + * \param dst destination + * \param src source + * \return 0 on success, -1 on failure + */ +static inline int shm_str_dup(str* dst, const str* src) +{ + dst->s = shm_malloc(src->len); + if (!dst->s) { + SHM_MEM_ERROR; + return -1; + } + + memcpy(dst->s, src->s, src->len); + dst->len = src->len; + return 0; +} + +/** + * \brief Make a copy of a str structure using pkg_malloc + * \param dst destination + * \param src source + * \return 0 on success, -1 on failure + */ +static inline int pkg_str_dup(str* dst, const str* src) +{ + dst->s = pkg_malloc(src->len); + if (dst->s==NULL) + { + PKG_MEM_ERROR; + return -1; + } + + memcpy(dst->s, src->s, src->len); + dst->len = src->len; + return 0; +} + /* converts a username into uid:gid, * returns -1 on error & 0 on success */ int user2uid(int* uid, int* gid, char* user);

15 years, 5 months

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

sr-dev