DESERT 3.5.1
Loading...
Searching...
No Matches
uwem-antenna.cpp
Go to the documentation of this file.
1//
2// Copyright (c) 2023 Regents of the SIGNET lab, University of Padova.
3// All rights reserved.
4//
5// Redistribution and use in source and binary forms, with or without
6// modification, are permitted provided that the following conditions
7// are met:
8// 1. Redistributions of source code must retain the above copyright
9// notice, this list of conditions and the following disclaimer.
10// 2. Redistributions in binary form must reproduce the above copyright
11// notice, this list of conditions and the following disclaimer in the
12// documentation and/or other materials provided with the distribution.
13// 3. Neither the name of the University of Padova (SIGNET lab) nor the
14// names of its contributors may be used to endorse or promote products
15// derived from this software without specific prior written permission.
16//
17// THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
18// "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
19// TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
20// PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
21// CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
22// EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
23// PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
24// OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
25// WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
26// OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
27// ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
28//
29
39#include "uwem-antenna.h"
40
41static class UwElectroMagneticAntennaClass : public TclClass
42{
43public:
45 : TclClass("Module/UW/ElectroMagnetic/Antenna")
46 {
47 }
48 TclObject *
49 create(int, const char *const *)
50 {
51 return (new UwElectroMagneticAntenna);
52 }
54
56 : gain_(1)
57{
58 bind("gain_", &gain_);
59}
60
61int
62UwElectroMagneticAntenna::command(int argc, const char *const *argv)
63{
64 if (argc == 3) {
65 if (strcasecmp(argv[1], "setGain") == 0) {
66 gain_ = strtod(argv[2], NULL);
67 return TCL_OK;
68 }
69 }
70 return UwElectroMagneticAntenna::command(argc, argv);
71}
72
73double
75 return gain_;
76}
TclObject * create(int, const char *const *)
virtual int command(int, const char *const *)
TCL command interpreter.
UwElectroMagneticAntenna()
Constructor of UwElectroMagneticAntenna class.
virtual double getGain(Packet *p)
UwElectroMagneticAntennaClass class_UwElectroMagneticAntenna
Definition of Uwem antenna class.