%{

/*

 * Copyright (c) 2004-2009 Voltaire, Inc. All rights reserved.

 * Copyright (c) 2002-2008 Mellanox Technologies LTD. All rights reserved.

 * Copyright (c) 1996-2003 Intel Corporation. All rights reserved.

 * Copyright (c) 2008 HNR Consulting. All rights reserved.

 *

 * This software is available to you under a choice of one of two

 * licenses.  You may choose to be licensed under the terms of the GNU

 * General Public License (GPL) Version 2, available from the file

 * COPYING in the main directory of this source tree, or the

 * OpenIB.org BSD license below:

 *

 *     Redistribution and use in source and binary forms, with or

 *     without modification, are permitted provided that the following

 *     conditions are met:

 *

 *      - Redistributions of source code must retain the above

 *        copyright notice, this list of conditions and the following

 *        disclaimer.

 *

 *      - Redistributions in binary form must reproduce the above

 *        copyright notice, this list of conditions and the following

 *        disclaimer in the documentation and/or other materials

 *        provided with the distribution.

 *

 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,

 * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF

 * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND

 * NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS

 * BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN

 * ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN

 * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE

 * SOFTWARE.

 *

 */

/*

 * Abstract:

 *    Grammar of OSM QoS parser.

 *

 * Environment:

 *    Linux User Mode

 *

 * Author:

 *    Yevgeny Kliteynik, Mellanox

 */

#include <stdio.h>

#include <assert.h>

#include <stdarg.h>

#include <stdlib.h>

#include <string.h>

#include <ctype.h>

#include <errno.h>

#include <opensm/osm_file_ids.h>

#define FILE_ID OSM_FILE_QOS_PARSER_Y_Y

#include <opensm/osm_opensm.h>

#include <opensm/osm_qos_policy.h>

#define OSM_QOS_POLICY_MAX_LINE_LEN         1024*10

#define OSM_QOS_POLICY_SL2VL_TABLE_LEN      IB_MAX_NUM_VLS

#define OSM_QOS_POLICY_MAX_VL_NUM           IB_MAX_NUM_VLS

#define OSM_QOS_POLICY_MAX_RATE             IB_MAX_RATE

#define OSM_QOS_POLICY_MIN_RATE             IB_MIN_RATE

#define OSM_QOS_POLICY_MAX_MTU              IB_MAX_MTU

#define OSM_QOS_POLICY_MIN_MTU              IB_MIN_MTU

typedef struct tmp_parser_struct_t_ {

    char       str[OSM_QOS_POLICY_MAX_LINE_LEN];

    uint64_t   num_pair[2];

    cl_list_t  str_list;

    cl_list_t  num_list;

    cl_list_t  num_pair_list;

} tmp_parser_struct_t;

static void __parser_tmp_struct_init();

static void __parser_tmp_struct_reset();

static void __parser_tmp_struct_destroy();

static char * __parser_strip_white(char * str);

static void __parser_str2uint64(uint64_t * p_val, char * str);

static void __parser_port_group_start();

static int __parser_port_group_end();

static void __parser_sl2vl_scope_start();

static int __parser_sl2vl_scope_end();

static void __parser_vlarb_scope_start();

static int __parser_vlarb_scope_end();

static void __parser_qos_level_start();

static int __parser_qos_level_end();

static void __parser_match_rule_start();

static int __parser_match_rule_end();

static void __parser_ulp_match_rule_start();

static int __parser_ulp_match_rule_end();

static void __pkey_rangelist2rangearr(

    cl_list_t    * p_list,

    uint64_t  ** * p_arr,

    unsigned     * p_arr_len);

static void __rangelist2rangearr(

    cl_list_t    * p_list,

    uint64_t  ** * p_arr,

    unsigned     * p_arr_len);

static void __merge_rangearr(

    uint64_t  **   range_arr_1,

    unsigned       range_len_1,

    uint64_t  **   range_arr_2,

    unsigned       range_len_2,

    uint64_t  ** * p_arr,

    unsigned     * p_arr_len );

static void __parser_add_port_to_port_map(

    cl_qmap_t   * p_map,

    osm_physp_t * p_physp);

static void __parser_add_guid_range_to_port_map(

    cl_qmap_t  * p_map,

    uint64_t  ** range_arr,

    unsigned     range_len);

static void __parser_add_pkey_range_to_port_map(

    cl_qmap_t  * p_map,

    uint64_t  ** range_arr,

    unsigned     range_len);

static void __parser_add_partition_list_to_port_map(

    cl_qmap_t  * p_map,

    cl_list_t  * p_list);

static void __parser_add_map_to_port_map(

    cl_qmap_t * p_dmap,

    cl_map_t  * p_smap);

static int __validate_pkeys(

    uint64_t ** range_arr,

    unsigned    range_len,

    boolean_t   is_ipoib);

static void __setup_simple_qos_levels();

static void __clear_simple_qos_levels();

static void __setup_ulp_match_rules();

static void __process_ulp_match_rules();

static void yyerror(const char *format, ...);

extern char * yytext;

extern int yylex (void);

extern FILE * yyin;

extern int errno;

extern void yyrestart(FILE *input_file);

int yyparse();

#define RESET_BUFFER  __parser_tmp_struct_reset()

tmp_parser_struct_t tmp_parser_struct;

int column_num;

int line_num;

osm_qos_policy_t       * p_qos_policy = NULL;

osm_qos_port_group_t   * p_current_port_group = NULL;

osm_qos_sl2vl_scope_t  * p_current_sl2vl_scope = NULL;

osm_qos_vlarb_scope_t  * p_current_vlarb_scope = NULL;

osm_qos_level_t        * p_current_qos_level = NULL;

osm_qos_match_rule_t   * p_current_qos_match_rule = NULL;

osm_log_t              * p_qos_parser_osm_log;

/* 16 Simple QoS Levels - one for each SL */

static osm_qos_level_t osm_qos_policy_simple_qos_levels[16];

/* Default Simple QoS Level */

osm_qos_level_t __default_simple_qos_level;

/*

 * List of match rules that will be generated by the

 * qos-ulp section. These rules are concatenated to

 * the end of the usual matching rules list at the

 * end of parsing.

 */

static cl_list_t __ulp_match_rules;

/***************************************************/

%}

%token TK_NUMBER

%token TK_DASH

%token TK_DOTDOT

%token TK_COMMA

%token TK_ASTERISK

%token TK_TEXT

%token TK_QOS_ULPS_START

%token TK_QOS_ULPS_END

%token TK_PORT_GROUPS_START

%token TK_PORT_GROUPS_END

%token TK_PORT_GROUP_START

%token TK_PORT_GROUP_END

%token TK_QOS_SETUP_START

%token TK_QOS_SETUP_END

%token TK_VLARB_TABLES_START

%token TK_VLARB_TABLES_END

%token TK_VLARB_SCOPE_START

%token TK_VLARB_SCOPE_END

%token TK_SL2VL_TABLES_START

%token TK_SL2VL_TABLES_END

%token TK_SL2VL_SCOPE_START

%token TK_SL2VL_SCOPE_END

%token TK_QOS_LEVELS_START

%token TK_QOS_LEVELS_END

%token TK_QOS_LEVEL_START

%token TK_QOS_LEVEL_END

%token TK_QOS_MATCH_RULES_START

%token TK_QOS_MATCH_RULES_END

%token TK_QOS_MATCH_RULE_START

%token TK_QOS_MATCH_RULE_END

%token TK_NAME

%token TK_USE

%token TK_PORT_GUID

%token TK_PORT_NAME

%token TK_PARTITION

%token TK_NODE_TYPE

%token TK_GROUP

%token TK_ACROSS

%token TK_VLARB_HIGH

%token TK_VLARB_LOW

%token TK_VLARB_HIGH_LIMIT

%token TK_TO

%token TK_FROM

%token TK_ACROSS_TO

%token TK_ACROSS_FROM

%token TK_SL2VL_TABLE

%token TK_SL

%token TK_MTU_LIMIT

%token TK_RATE_LIMIT

%token TK_PACKET_LIFE

%token TK_PATH_BITS

%token TK_QOS_CLASS

%token TK_SOURCE

%token TK_DESTINATION

%token TK_SERVICE_ID

%token TK_QOS_LEVEL_NAME

%token TK_PKEY

%token TK_NODE_TYPE_ROUTER

%token TK_NODE_TYPE_CA

%token TK_NODE_TYPE_SWITCH

%token TK_NODE_TYPE_SELF

%token TK_NODE_TYPE_ALL

%token TK_ULP_DEFAULT

%token TK_ULP_ANY_SERVICE_ID

%token TK_ULP_ANY_PKEY

%token TK_ULP_ANY_TARGET_PORT_GUID

%token TK_ULP_ANY_SOURCE_PORT_GUID

%token TK_ULP_ANY_SOURCE_TARGET_PORT_GUID

%token TK_ULP_SDP_DEFAULT

%token TK_ULP_SDP_PORT

%token TK_ULP_RDS_DEFAULT

%token TK_ULP_RDS_PORT

%token TK_ULP_ISER_DEFAULT

%token TK_ULP_ISER_PORT

%token TK_ULP_SRP_GUID

%token TK_ULP_IPOIB_DEFAULT

%token TK_ULP_IPOIB_PKEY

%start head

%%

head:               qos_policy_entries

                    ;

qos_policy_entries: /* empty */

                    | qos_policy_entries qos_policy_entry

                    ;

qos_policy_entry:     qos_ulps_section

                    | port_groups_section

                    | qos_setup_section

                    | qos_levels_section

                    | qos_match_rules_section

                    ;

    /*

     * Parsing qos-ulps:

     * -------------------

     *  qos-ulps

     *      default                       : 0 #default SL

     *      sdp, port-num 30000           : 1 #SL for SDP when destination port is 30000

     *      sdp, port-num 10000-20000     : 2

     *      sdp                           : 0 #default SL for SDP

     *      srp, target-port-guid 0x1234  : 2

     *      rds, port-num 25000           : 2 #SL for RDS when destination port is 25000

     *      rds,                          : 0 #default SL for RDS

     *      iser, port-num 900            : 5 #SL for iSER where target port is 900

     *      iser                          : 4 #default SL for iSER

     *      ipoib, pkey 0x0001            : 5 #SL for IPoIB on partition with pkey 0x0001

     *      ipoib                         : 6 #default IPoIB partition - pkey=0x7FFF

     *      any, service-id 0x6234        : 2

     *      any, pkey 0x0ABC              : 3

     *      any, target-port-guid 0x0ABC-0xFFFFF : 6

     *      any, source-port-guid 0x1234  : 7

     *      any, source-target-port-guid 0x5678 : 8

     *  end-qos-ulps

     */

qos_ulps_section: TK_QOS_ULPS_START qos_ulps TK_QOS_ULPS_END

                     ;

qos_ulps:             qos_ulp

                    | qos_ulps qos_ulp

                    ;

    /*

     * Parsing port groups:

     * -------------------

     *  port-groups

     *       port-group

     *          name: Storage

     *          use: our SRP storage targets

     *          port-guid: 0x1000000000000001,0x1000000000000002

     *          ...

     *          port-name: vs1 HCA-1/P1

     *          port-name: node_description/P2

     *          ...

     *          pkey: 0x00FF-0x0FFF

     *          ...

     *          partition: Part1

     *          ...

     *          node-type: ROUTER,CA,SWITCH,SELF,ALL

     *          ...

     *      end-port-group

     *      port-group

     *          ...

     *      end-port-group

     *  end-port-groups

     */

port_groups_section: TK_PORT_GROUPS_START port_groups TK_PORT_GROUPS_END

                     ;

port_groups:        port_group

                    | port_groups port_group

                    ;

port_group:         port_group_start port_group_entries port_group_end

                    ;

port_group_start:   TK_PORT_GROUP_START {

                        __parser_port_group_start();

                    }

                    ;

port_group_end:     TK_PORT_GROUP_END {

                        if ( __parser_port_group_end() )

                            return 1;

                    }

                    ;

port_group_entries: /* empty */

                    | port_group_entries port_group_entry

                    ;

port_group_entry:     port_group_name

                    | port_group_use

                    | port_group_port_guid

                    | port_group_port_name

                    | port_group_pkey

                    | port_group_partition

                    | port_group_node_type

                    ;

    /*

     * Parsing qos setup:

     * -----------------

     *  qos-setup

     *      vlarb-tables

     *          vlarb-scope

     *              ...

     *          end-vlarb-scope

     *          vlarb-scope

     *              ...

     *          end-vlarb-scope

     *     end-vlarb-tables

     *     sl2vl-tables

     *          sl2vl-scope

     *              ...

     *         end-sl2vl-scope

     *         sl2vl-scope

     *              ...

     *          end-sl2vl-scope

     *     end-sl2vl-tables

     *  end-qos-setup

     */

qos_setup_section:  TK_QOS_SETUP_START qos_setup_items TK_QOS_SETUP_END

                    ;

qos_setup_items:    /* empty */

                    | qos_setup_items vlarb_tables

                    | qos_setup_items sl2vl_tables

                    ;

    /* Parsing vlarb-tables */

vlarb_tables:       TK_VLARB_TABLES_START vlarb_scope_items TK_VLARB_TABLES_END

                    ;

vlarb_scope_items:  /* empty */

                    | vlarb_scope_items vlarb_scope

                    ;

vlarb_scope:        vlarb_scope_start vlarb_scope_entries vlarb_scope_end

                    ;

vlarb_scope_start:  TK_VLARB_SCOPE_START {

                        __parser_vlarb_scope_start();

                    }

                    ;

vlarb_scope_end:    TK_VLARB_SCOPE_END {

                        if ( __parser_vlarb_scope_end() )

                            return 1;

                    }

                    ;

vlarb_scope_entries:/* empty */

                    | vlarb_scope_entries vlarb_scope_entry

                    ;

    /*

     *          vlarb-scope

     *              group: Storage

     *              ...

     *              across: Storage

     *              ...

     *              vlarb-high: 0:255,1:127,2:63,3:31,4:15,5:7,6:3,7:1

     *              vlarb-low: 8:255,9:127,10:63,11:31,12:15,13:7,14:3

     *              vl-high-limit: 10

     *          end-vlarb-scope

     */

vlarb_scope_entry:    vlarb_scope_group

                    | vlarb_scope_across

                    | vlarb_scope_vlarb_high

                    | vlarb_scope_vlarb_low

                    | vlarb_scope_vlarb_high_limit

                    ;

    /* Parsing sl2vl-tables */

sl2vl_tables:       TK_SL2VL_TABLES_START sl2vl_scope_items TK_SL2VL_TABLES_END

                    ;

sl2vl_scope_items:  /* empty */

                    | sl2vl_scope_items sl2vl_scope

                    ;

sl2vl_scope:        sl2vl_scope_start sl2vl_scope_entries sl2vl_scope_end

                    ;

sl2vl_scope_start:  TK_SL2VL_SCOPE_START {

                        __parser_sl2vl_scope_start();

                    }

                    ;

sl2vl_scope_end:    TK_SL2VL_SCOPE_END {

                        if ( __parser_sl2vl_scope_end() )

                            return 1;

                    }

                    ;

sl2vl_scope_entries:/* empty */

                    | sl2vl_scope_entries sl2vl_scope_entry

                    ;

    /*

     *          sl2vl-scope

     *              group: Part1

     *              ...

     *              from: *

     *              ...

     *              to: *

     *              ...

     *              across-to: Storage2

     *              ...

     *              across-from: Storage1

     *              ...

     *              sl2vl-table: 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,7

     *          end-sl2vl-scope

     */

sl2vl_scope_entry:    sl2vl_scope_group

                    | sl2vl_scope_across

                    | sl2vl_scope_across_from

                    | sl2vl_scope_across_to

                    | sl2vl_scope_from

                    | sl2vl_scope_to

                    | sl2vl_scope_sl2vl_table

                    ;

    /*

     * Parsing qos-levels:

     * ------------------

     *  qos-levels

     *      qos-level

     *          name: qos_level_1

     *          use: for the lowest priority communication

     *          sl: 15

     *          mtu-limit: 1

     *          rate-limit: 1

     *          packet-life: 12

     *          path-bits: 2,4,8-32

     *          pkey: 0x00FF-0x0FFF

     *      end-qos-level

     *          ...

     *      qos-level

     *    end-qos-level

     *  end-qos-levels

     */

qos_levels_section: TK_QOS_LEVELS_START qos_levels TK_QOS_LEVELS_END

                    ;

qos_levels:         /* empty */

                    | qos_levels qos_level

                    ;

qos_level:          qos_level_start qos_level_entries qos_level_end

                    ;

qos_level_start:    TK_QOS_LEVEL_START {

                        __parser_qos_level_start();

                    }

                    ;

qos_level_end:      TK_QOS_LEVEL_END {

                        if ( __parser_qos_level_end() )

                            return 1;

                    }

                    ;

qos_level_entries:  /* empty */

                    | qos_level_entries qos_level_entry

                    ;

qos_level_entry:      qos_level_name

                    | qos_level_use

                    | qos_level_sl

                    | qos_level_mtu_limit

                    | qos_level_rate_limit

                    | qos_level_packet_life

                    | qos_level_path_bits

                    | qos_level_pkey

                    ;

    /*

     * Parsing qos-match-rules:

     * -----------------------

     *  qos-match-rules

     *      qos-match-rule

     *          use: low latency by class 7-9 or 11 and bla bla

     *          qos-class: 7-9,11

     *          qos-level-name: default

     *          source: Storage

     *          destination: Storage

     *          service-id: 22,4719-5000

     *          pkey: 0x00FF-0x0FFF

     *      end-qos-match-rule

     *      qos-match-rule

     *          ...

     *      end-qos-match-rule

     *  end-qos-match-rules

     */

qos_match_rules_section: TK_QOS_MATCH_RULES_START qos_match_rules TK_QOS_MATCH_RULES_END

                    ;

qos_match_rules:    /* empty */

                    | qos_match_rules qos_match_rule

                    ;

qos_match_rule:     qos_match_rule_start qos_match_rule_entries qos_match_rule_end

                    ;

qos_match_rule_start: TK_QOS_MATCH_RULE_START {

                        __parser_match_rule_start();

                    }

                    ;

qos_match_rule_end: TK_QOS_MATCH_RULE_END {

                        if ( __parser_match_rule_end() )

                            return 1;

                    }

                    ;

qos_match_rule_entries: /* empty */

                    | qos_match_rule_entries qos_match_rule_entry

                    ;

qos_match_rule_entry: qos_match_rule_use

                    | qos_match_rule_qos_class

                    | qos_match_rule_qos_level_name

                    | qos_match_rule_source

                    | qos_match_rule_destination

                    | qos_match_rule_service_id

                    | qos_match_rule_pkey

                    ;

    /*

     * Parsing qos-ulps:

     * -----------------

     *   default

     *   sdp

     *   sdp with port-num

     *   rds

     *   rds with port-num

     *   srp with target-port-guid

     *   iser

     *   iser with port-num

     *   ipoib

     *   ipoib with pkey

     *   any with service-id

     *   any with pkey

     *   any with target-port-guid

     *   any with source-port-guid

     *   any with source-target-port-guid

     */

qos_ulp:            TK_ULP_DEFAULT single_number {

                        /* parsing default ulp rule: "default: num" */

                        cl_list_iterator_t    list_iterator;

                        uint64_t            * p_tmp_num;

                        list_iterator = cl_list_head(&tmp_parser_struct.num_list);

                        p_tmp_num = (uint64_t*)cl_list_obj(list_iterator);

                        if (*p_tmp_num > 15)

                        {

                            yyerror("illegal SL value");

                            return 1;

                        }

                        __default_simple_qos_level.sl = (uint8_t)(*p_tmp_num);

                        __default_simple_qos_level.sl_set = TRUE;

                        free(p_tmp_num);

                        cl_list_remove_all(&tmp_parser_struct.num_list);

                    }

                    | qos_ulp_type_any_service list_of_ranges TK_DOTDOT {

                        /* "any, service-id ... : sl" - one instance of list of ranges */

                        uint64_t ** range_arr;

                        unsigned    range_len;

                        if (!cl_list_count(&tmp_parser_struct.num_pair_list))

                        {

                            yyerror("ULP rule doesn't have service ids");

                            return 1;

                        }

                        /* get all the service id ranges */

                        __rangelist2rangearr( &tmp_parser_struct.num_pair_list,

                                              &range_arr,

                                              &range_len );

                        p_current_qos_match_rule->service_id_range_arr = range_arr;

                        p_current_qos_match_rule->service_id_range_len = range_len;

                    } qos_ulp_sl

                    | qos_ulp_type_any_pkey list_of_ranges TK_DOTDOT {

                        /* "any, pkey ... : sl" - one instance of list of ranges */

                        uint64_t ** range_arr;

                        unsigned    range_len;

                        if (!cl_list_count(&tmp_parser_struct.num_pair_list))

                        {

                            yyerror("ULP rule doesn't have pkeys");

                            return 1;

                        }

                        /* get all the pkey ranges */

                        __pkey_rangelist2rangearr( &tmp_parser_struct.num_pair_list,

                                              &range_arr,

                                              &range_len );

                        p_current_qos_match_rule->pkey_range_arr = range_arr;

                        p_current_qos_match_rule->pkey_range_len = range_len;

                    } qos_ulp_sl

                    | qos_ulp_type_any_target_port_guid list_of_ranges TK_DOTDOT {

                        /* any, target-port-guid ... : sl */

                        uint64_t ** range_arr;

                        unsigned    range_len;

                        if (!cl_list_count(&tmp_parser_struct.num_pair_list))

                        {

                            yyerror("ULP rule doesn't have port guids");

                            return 1;

                        }

                        /* create a new port group with these ports */

                        __parser_port_group_start();

                        p_current_port_group->name = strdup("_ULP_Targets_");

                        p_current_port_group->use = strdup("Generated from ULP rules");

                        __rangelist2rangearr( &tmp_parser_struct.num_pair_list,

                                              &range_arr,

                                              &range_len );

                        __parser_add_guid_range_to_port_map(

                                              &p_current_port_group->port_map,

                                              range_arr,

                                              range_len);

                        /* add this port group to the destination

                           groups of the current match rule */

                        cl_list_insert_tail(&p_current_qos_match_rule->destination_group_list,

                                            p_current_port_group);

                        __parser_port_group_end();

                    } qos_ulp_sl

		    | qos_ulp_type_any_source_port_guid list_of_ranges TK_DOTDOT {

			/* any, source-port-guid ... : sl */

			uint64_t ** range_arr;

			unsigned    range_len;

			if (!cl_list_count(&tmp_parser_struct.num_pair_list))

			{

				yyerror("ULP rule doesn't have port guids");

				return 1;

			}

                        /* create a new port group with these ports */

                        __parser_port_group_start();

                        p_current_port_group->name = strdup("_ULP_Sources_");

                        p_current_port_group->use = strdup("Generated from ULP rules");

                        __rangelist2rangearr( &tmp_parser_struct.num_pair_list,

                                              &range_arr,

                                              &range_len );

                        __parser_add_guid_range_to_port_map(

                                              &p_current_port_group->port_map,

                                              range_arr,

                                              range_len);

                        /* add this port group to the source

                           groups of the current match rule */

                        cl_list_insert_tail(&p_current_qos_match_rule->source_group_list,

                                            p_current_port_group);

                        __parser_port_group_end();

		    } qos_ulp_sl

		    | qos_ulp_type_any_source_target_port_guid list_of_ranges TK_DOTDOT {

			/* any, source-target-port-guid ... : sl */

			uint64_t ** range_arr;

			unsigned    range_len;

			if (!cl_list_count(&tmp_parser_struct.num_pair_list))

			{

				yyerror("ULP rule doesn't have port guids");

				return 1;

			}

                        /* create a new port group with these ports */

                        __parser_port_group_start();

                        p_current_port_group->name = strdup("_ULP_Sources_Targets_");

                        p_current_port_group->use = strdup("Generated from ULP rules");

                        __rangelist2rangearr( &tmp_parser_struct.num_pair_list,

                                              &range_arr,

                                              &range_len );

                        __parser_add_guid_range_to_port_map(

                                              &p_current_port_group->port_map,

                                              range_arr,

                                              range_len);

                        /* add this port group to the source and destination

                           groups of the current match rule */

                        cl_list_insert_tail(&p_current_qos_match_rule->source_group_list,

                                            p_current_port_group);

                        cl_list_insert_tail(&p_current_qos_match_rule->destination_group_list,

                                            p_current_port_group);

                        __parser_port_group_end();

		    } qos_ulp_sl

                    | qos_ulp_type_sdp_default {

                        /* "sdp : sl" - default SL for SDP */

                        uint64_t ** range_arr =

                               (uint64_t **)malloc(sizeof(uint64_t *));

                        range_arr[0] = (uint64_t *)malloc(2*sizeof(uint64_t));

                        range_arr[0][0] = OSM_QOS_POLICY_ULP_SDP_SERVICE_ID;

                        range_arr[0][1] = OSM_QOS_POLICY_ULP_SDP_SERVICE_ID + 0xFFFF;

                        p_current_qos_match_rule->service_id_range_arr = range_arr;

                        p_current_qos_match_rule->service_id_range_len = 1;

                    } qos_ulp_sl

                    | qos_ulp_type_sdp_port list_of_ranges TK_DOTDOT {

                        /* sdp with port numbers */

                        uint64_t ** range_arr;

                        unsigned    range_len;

                        unsigned    i;

                        if (!cl_list_count(&tmp_parser_struct.num_pair_list))

                        {

                            yyerror("SDP ULP rule doesn't have port numbers");

                            return 1;

                        }

                        /* get all the port ranges */

                        __rangelist2rangearr( &tmp_parser_struct.num_pair_list,

                                              &range_arr,

                                              &range_len );

                        /* now translate these port numbers into service ids */

                        for (i = 0; i < range_len; i++)

                        {

                            if (range_arr[i][0] > 0xFFFF || range_arr[i][1] > 0xFFFF)

                            {

                                yyerror("SDP port number out of range");

				free(range_arr);

                                return 1;

                            }

                            range_arr[i][0] += OSM_QOS_POLICY_ULP_SDP_SERVICE_ID;

                            range_arr[i][1] += OSM_QOS_POLICY_ULP_SDP_SERVICE_ID;

                        }

                        p_current_qos_match_rule->service_id_range_arr = range_arr;

                        p_current_qos_match_rule->service_id_range_len = range_len;

                    } qos_ulp_sl

                    | qos_ulp_type_rds_default {

                        /* "rds : sl" - default SL for RDS */

                        uint64_t ** range_arr =

                               (uint64_t **)malloc(sizeof(uint64_t *));

                        range_arr[0] = (uint64_t *)malloc(2*sizeof(uint64_t));

                        range_arr[0][0] = range_arr[0][1] =

                           OSM_QOS_POLICY_ULP_RDS_SERVICE_ID + OSM_QOS_POLICY_ULP_RDS_PORT;

                        p_current_qos_match_rule->service_id_range_arr = range_arr;

                        p_current_qos_match_rule->service_id_range_len = 1;

                    } qos_ulp_sl

                    | qos_ulp_type_rds_port list_of_ranges TK_DOTDOT {

                        /* rds with port numbers */

                        uint64_t ** range_arr;

                        unsigned    range_len;