1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
|
/*
gwfield.cpp - Fields used for Request/Response data in GroupWise
Copyright (c) 2004 SUSE Linux AG http://www.suse.com
Based on Testbed
Copyright (c) 2003 by Will Stephenson <will@stevello.free-online.co.uk>
Kopete (c) 2002-2004 by the Kopete developers <kopete-devel@kde.org>
*************************************************************************
* *
* This library is free software; you can redistribute it and/or *
* modify it under the terms of the GNU Lesser General Public *
* License as published by the Free Software Foundation; either *
* version 2 of the License, or (at your option) any later version. *
* *
*************************************************************************
*/
#include <tqcstring.h>
#include "gwerror.h"
#ifdef LIBGW_USE_KDEBUG
#include <kdebug.h>
#endif
#include "gwfield.h"
#include <iostream>
using namespace Field;
using namespace std;
/* === FieldList ==================================================== */
FieldList::~FieldList()
{
}
FieldListIterator FieldList::tqfind( TQCString tag )
{
FieldListIterator it = begin();
return tqfind( it, tag );
}
FieldListIterator FieldList::tqfind( FieldListIterator &it, TQCString tag )
{
FieldListIterator theEnd = end();
//cout << "FieldList::tqfind() looking for " << tag.data() << endl;
for ( ; it != theEnd; ++it )
{
//cout << " - on " << (*it)->tag().data() << endl;
if ( (*it)->tag() == tag )
break;
}
return it;
}
int FieldList::findIndex( TQCString tag )
{
FieldListIterator it = begin();
FieldListIterator theEnd = end();
int index = 0;
for ( ; it != theEnd; ++it, ++index )
if ( (*it)->tag() == tag )
return index;
return -1;
}
void FieldList::dump( bool recursive, int offset )
{
const FieldListIterator myEnd = end();
if ( !offset )
kdDebug( GROUPWISE_DEBUG_LIBGW ) << k_funcinfo << ( recursive ? ", recursively" : ", non-recursive" ) << endl;
for( FieldListIterator it = begin(); it != myEnd; ++it )
{
TQString s;
s.fill(' ', offset*2 );
s.append( (*it)->tag() );
SingleField * sf;
if ( ( sf = dynamic_cast<SingleField*>( *it ) ) )
{
s.append( " :" );
s.append( sf->value().toString() );
}
kdDebug( GROUPWISE_DEBUG_LIBGW ) << s << endl;
if ( recursive )
{
MultiField * mf;
if ( ( mf = dynamic_cast<MultiField*>( *it ) ) )
mf->fields().dump( recursive, offset+1 );
}
}
}
void FieldList::purge()
{
Field::FieldListIterator it = begin();
Field::FieldListIterator theEnd = end();
int index = 0;
for ( ; it != theEnd; ++it, ++index )
delete *it;
}
// THIS IS AN ATTEMPT TO HIDE THE POLYMORPHISM INSIDE THE LIST
// HOWEVER IT FAILS BECAUSE WE NEED BOTH THE ITERATOR AND THE CASTED Single|MultiField it points to
SingleField * FieldList::findSingleField( TQCString tag )
{
FieldListIterator it = begin();
return findSingleField( it, tag );
}
SingleField * FieldList::findSingleField( FieldListIterator &it, TQCString tag )
{
FieldListIterator found = tqfind( it, tag );
if ( found == end() )
return 0;
else
return dynamic_cast<SingleField *>( *found );
}
MultiField * FieldList::findMultiField( TQCString tag )
{
FieldListIterator it = begin();
return findMultiField( it, tag );
}
MultiField * FieldList::findMultiField( FieldListIterator &it, TQCString tag )
{
FieldListIterator found = tqfind( it, tag );
if ( found == end() )
return 0;
else
return dynamic_cast<MultiField *>( *found );
}
/* === FieldBase ========================================================= */
FieldBase::FieldBase( TQCString tag, TQ_UINT8 method, TQ_UINT8 flags, TQ_UINT8 type )
: m_tag( tag ), m_method( method ), m_flags( flags ), m_type( type )
{
}
TQCString FieldBase::tag() const
{
return m_tag;
}
TQ_UINT8 FieldBase::method() const
{
return m_method;
}
TQ_UINT8 FieldBase::flags() const
{
return m_flags;
}
TQ_UINT8 FieldBase::type() const
{
return m_type;
}
void FieldBase::setFlags( const TQ_UINT8 flags )
{
m_flags = flags;
}
/* === SingleField ========================================================= */
SingleField::SingleField( TQCString tag, TQ_UINT8 method, TQ_UINT8 flags, TQ_UINT8 type, TQVariant value )
: FieldBase( tag, method, flags, type ), m_value( value )
{
}
SingleField::SingleField( TQCString tag, TQ_UINT8 flags, TQ_UINT8 type, TQVariant value )
: FieldBase( tag, NMFIELD_METHOD_VALID, flags, type ), m_value( value )
{
}
SingleField::~SingleField()
{
}
void SingleField::setValue( const TQVariant v )
{
m_value = v;
}
TQVariant SingleField::value() const
{
return m_value;
}
/* === MultiField ========================================================= */
MultiField::MultiField( TQCString tag, TQ_UINT8 method, TQ_UINT8 flags, TQ_UINT8 type, FieldList fields )
: FieldBase( tag, method, flags, type ), m_fields( fields )
{
}
MultiField::MultiField( TQCString tag, TQ_UINT8 method, TQ_UINT8 flags, TQ_UINT8 type )
: FieldBase( tag, method, flags, type )
{
}
MultiField::~MultiField()
{
m_fields.purge();
}
FieldList MultiField::fields() const
{
return m_fields;
}
void MultiField::setFields( FieldList fields )
{
m_fields = fields;
}
|
