Statistics
| Branch: | Revision:

napa-baselibs / monl / plugins / loss_measure.cpp @ 507372bb

History | View | Annotate | Download (2.57 KB)

1
/***************************************************************************
2
 *   Copyright (C) 2009 by Robert Birke
3
 *   robert.birke@polito.it
4
 *
5
 * This library is free software; you can redistribute it and/or
6
 * modify it under the terms of the GNU Lesser General Public
7
 * License as published by the Free Software Foundation; either
8
 * version 2.1 of the License, or (at your option) any later version.
9

10
 * This library is distributed in the hope that it will be useful,
11
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
12
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13
 * Lesser General Public License for more details.
14

15
 * You should have received a copy of the GNU Lesser General Public
16
 * License along with this library; if not, write to the Free Software
17
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA 
18
 ***********************************************************************/
19

    
20
#include "loss_measure.h"
21
#include "napa_log.h"
22

    
23
LossMeasure::LossMeasure(class MeasurePlugin *m, MeasurementCapabilities mc, class MeasureDispatcher *md): MonMeasure(m,mc,md) {
24
        mSeqWin = NULL;
25
        tx_every = 10;
26
}
27

    
28
void LossMeasure::init() {
29
        mSeqWin = NULL;
30
}
31

    
32
void LossMeasure::stop() {
33
        r_tx_list[R_LOSS] = r_rx_list[R_LOSS] = NAN;
34
        mSeqWin = NULL;
35
}
36

    
37
result LossMeasure::RxPkt(result *r,ExecutionList *el) {
38
        if(isnan(r[R_SEQWIN]))
39
                return NAN;
40

    
41
        if(mSeqWin == NULL) {
42
                if(el->find(SEQWIN) == el->end()) {
43
                        error("MONL: LOSS missing dependency");
44
                        return NAN;
45
                }
46
                mSeqWin = (*el)[SEQWIN];
47
        }
48

    
49
        if(r[R_SEQWIN] > mSeqWin->getParameter(P_SEQN_WIN_SIZE) && 
50
                r[R_SEQWIN] < mSeqWin->getParameter(P_SEQN_WIN_OVERFLOW_TH)) {
51
                r[R_LOSS] = 1;
52
        }
53
        else if (r[R_SEQWIN] == mSeqWin->getParameter(P_SEQN_WIN_SIZE))
54
                r[R_LOSS] = 0;
55
        char dbg[512];
56
        snprintf(dbg, sizeof(dbg), "Ts: %f Loss: %f", r[R_RECEIVE_TIME],  r[R_LOSS]);
57
        debugOutput(dbg);
58
        return every(r[R_LOSS]);
59
}
60

    
61
result LossMeasure::RxData(result *r,ExecutionList *el) {
62
        return RxPkt(r,el);
63
}
64
/*
65
//        if(delta_sn_win == 0)
66
//                dups++;
67
//        if(p_sn != largest_sn +1)
68
//                ooo++;
69

70
        
71
        } else {
72
                if(delta_sn_win >= param_values[LOSS_WIN_OVERFLOW_TH]) {
73
                        int late; late++;}
74
                else if(delta_sn_win > param_values[LOSS_WIN_SIZE]) {
75
                        r[LOSS_PKT] = 1;
76
                        sn_win[ind] = p_sn;
77
                } else if(delta_sn_win == param_values[LOSS_WIN_SIZE]) {
78
                        r[LOSS_PKT] = 0;
79
                        sn_win[ind] = p_sn;
80
                }
81
        }
82
}*/
83

    
84

    
85
LossMeasurePlugin::LossMeasurePlugin() {
86
        /* Initialise properties: MANDATORY! */
87
        name = "Loss";
88
        desc = "The loss probability between two peers";
89
        id = LOSS;
90
        /* end of mandatory properties */
91
        addDependency(SEQWIN);
92
}
93

    
94

    
95