00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030
00031
00032
00033
00034
00035
00036
00037
00038
00039
00040
00048 #ifndef WINSTL_INCL_WINSTL_SYSTEM_HPP_ENVIRONMENT_SEQUENCE
00049 #define WINSTL_INCL_WINSTL_SYSTEM_HPP_ENVIRONMENT_SEQUENCE
00050
00051 #ifndef STLSOFT_DOCUMENTATION_SKIP_SECTION
00052 # define WINSTL_VER_WINSTL_SYSTEM_HPP_ENVIRONMENT_SEQUENCE_MAJOR 4
00053 # define WINSTL_VER_WINSTL_SYSTEM_HPP_ENVIRONMENT_SEQUENCE_MINOR 1
00054 # define WINSTL_VER_WINSTL_SYSTEM_HPP_ENVIRONMENT_SEQUENCE_REVISION 1
00055 # define WINSTL_VER_WINSTL_SYSTEM_HPP_ENVIRONMENT_SEQUENCE_EDIT 82
00056 #endif
00057
00058
00059
00060
00061
00062 #ifndef WINSTL_INCL_WINSTL_H_WINSTL
00063 # include <winstl/winstl.h>
00064 #endif
00065 #ifndef STLSOFT_INCL_STLSOFT_UTIL_STD_HPP_ITERATOR_HELPER
00066 # include <stlsoft/util/std/iterator_helper.hpp>
00067 #endif
00068 #ifndef WINSTL_INCL_WINSTL_SYSTEM_HPP_SYSTEM_TRAITS
00069 # include <winstl/system/system_traits.hpp>
00070 #endif
00071 #ifndef STLSOFT_INCL_STLSOFT_MEMORY_HPP_AUTO_BUFFER
00072 # include <stlsoft/memory/auto_buffer.hpp>
00073 #endif
00074 #ifndef STLSOFT_INCL_STLSOFT_UTIL_STD_HPP_ITERATOR_GENERATORS
00075 # include <stlsoft/util/std/iterator_generators.hpp>
00076 #endif
00077 #ifndef WINSTL_INCL_WINSTL_MEMORY_HPP_PROCESSHEAP_ALLOCATOR
00078 # include <winstl/memory/processheap_allocator.hpp>
00079 #endif
00080 #ifndef STLSOFT_INCL_STLSOFT_COLLECTIONS_UTIL_HPP_COLLECTIONS
00081 # include <stlsoft/collections/util/collections.hpp>
00082 #endif
00083
00084 #ifndef STLSOFT_INCL_ALGORITHM
00085 # define STLSOFT_INCL_ALGORITHM
00086 # include <algorithm>
00087 #endif
00088 #ifndef _WINSTL_WINDOW_FUNCTIONALS_NO_STD
00089 # ifndef STLSOFT_INCL_FUNCTIONAL
00090 # define STLSOFT_INCL_FUNCTIONAL
00091 # include <functional>
00092 # endif
00093 #else
00094 # error Now need to write that std_binary_function stuff!!
00095 #endif
00096
00097
00098
00099
00100
00101 #ifndef _WINSTL_NO_NAMESPACE
00102 # if defined(_STLSOFT_NO_NAMESPACE) || \
00103 defined(STLSOFT_DOCUMENTATION_SKIP_SECTION)
00104
00105 namespace winstl
00106 {
00107 # else
00108
00109
00110 namespace stlsoft
00111 {
00112
00113 namespace winstl_project
00114 {
00115
00116 # endif
00117 #endif
00118
00119
00120
00121
00122
00137 template <ss_typename_param_k C>
00138 class basic_environment_sequence
00139 : public stlsoft_ns_qual(stl_collection_tag)
00140 {
00143 public:
00145 typedef C char_type;
00147 struct symbol
00148 {
00150 char_type const* name;
00152 char_type const* value;
00153 };
00155 typedef symbol value_type;
00157 typedef basic_environment_sequence<C> class_type;
00159 typedef value_type const* const_pointer;
00161 typedef value_type const& const_reference;
00163 typedef ws_size_t size_type;
00165 typedef ws_ptrdiff_t difference_type;
00167 typedef
00168 #if !defined(STLSOFT_COMPILER_IS_BORLAND)
00169 ss_typename_type_k
00170 #endif
00171 stlsoft_ns_qual(pointer_iterator) < value_type
00172 , const_pointer
00173 , const_reference
00174 >::type const_iterator;
00175 #if defined(STLSOFT_LF_BIDIRECTIONAL_ITERATOR_SUPPORT)
00177 typedef
00178 #if !defined(STLSOFT_COMPILER_IS_BORLAND)
00179 ss_typename_type_k
00180 #endif
00181 stlsoft_ns_qual(const_reverse_iterator_generator)< const_iterator
00182 , value_type
00183 , const_reference
00184 , const_pointer
00185 , difference_type
00186 >::type const_reverse_iterator;
00187 #endif
00189
00192 public:
00193 enum
00194 {
00195 showHidden = 0x0001
00196 , noSort = 0x0002
00197 , ignoreCase = 0x0004
00198 };
00200
00201
00202 public:
00207 ss_explicit_k basic_environment_sequence(ws_int_t flags = ignoreCase);
00209 ~basic_environment_sequence() stlsoft_throw_0();
00210
00213 public:
00217 const_iterator begin() const;
00221 const_iterator end() const;
00222
00223 #if defined(STLSOFT_LF_BIDIRECTIONAL_ITERATOR_SUPPORT)
00227 const_reverse_iterator rbegin() const;
00231 const_reverse_iterator rend() const;
00232 #endif
00233
00237 const_iterator find(char_type const* name) const;
00238
00243 const_iterator find(char_type const* name, char_type const* value) const;
00245
00251 public:
00253 size_type size() const;
00255 ws_bool_t empty() const;
00257
00258
00259 public:
00261 value_type operator [](size_type index) const;
00262
00263
00264
00265
00266 private:
00267 typedef stlsoft_ns_qual(auto_buffer_old)< char_type
00268 , processheap_allocator<char_type>
00269 > environment_buffer_type;
00270 typedef stlsoft_ns_qual(auto_buffer_old)< symbol
00271 , processheap_allocator<symbol>
00272 > symbols_buffer_type;
00273
00274 static ws_size_t calc_items_(char_type const* p, char_type const** q, ws_int_t flags);
00275 static void prepare_items_(symbols_buffer_type &symbols, environment_buffer_type &environment, char_type *p, char_type *q, ws_int_t flags);
00276 private:
00277 static ws_int_t compare_strings_(char_type const* s1, char_type const* s2, ws_int_t flags);
00278
00279 public:
00281
00282 struct compare_symbol
00283 : stlsoft_ns_qual_std(binary_function)<symbol, symbol, ws_bool_t>
00284
00285 {
00286 public:
00287 ss_explicit_k compare_symbol(ws_bool_t bIgnoreCase = true)
00288 : m_bIgnoreCase(bIgnoreCase)
00289
00290 {}
00291
00292 public:
00294 ws_bool_t operator ()(symbol const& lhs, symbol const& rhs)
00295 {
00296 return compare_strings_(lhs.name, rhs.name, m_bIgnoreCase ? ignoreCase : 0) < 0;
00297 }
00298
00299 private:
00300 ws_bool_t m_bIgnoreCase;
00301 };
00302
00303 friend struct compare_symbol;
00304
00305 private:
00306 static ws_int_t validate_flags_(ws_int_t flags);
00307 static char_type const* get_environment_strings_();
00308 static void free_environment_strings_(char_type *);
00309
00310 private:
00311 const ws_int_t m_flags;
00312 C const *m_p;
00313 C const *m_q;
00314 symbols_buffer_type m_symbols;
00315 environment_buffer_type m_environment;
00316
00317
00318 private:
00319 basic_environment_sequence(class_type const&);
00320 class_type const& operator =(class_type const&);
00321 };
00322
00323
00324
00325
00326
00331 typedef basic_environment_sequence<ws_char_a_t> environment_sequence_a;
00336 typedef basic_environment_sequence<ws_char_w_t> environment_sequence_w;
00341 typedef basic_environment_sequence<TCHAR> environment_sequence;
00342
00344
00345
00346 #ifndef STLSOFT_DOCUMENTATION_SKIP_SECTION
00347
00348 template <ss_typename_param_k C>
00349 inline ss_typename_type_ret_k basic_environment_sequence<C>::size_type basic_environment_sequence<C>::calc_items_(ss_typename_type_k basic_environment_sequence<C>::char_type const* p, ss_typename_type_k basic_environment_sequence<C>::char_type const** q, ws_int_t flags)
00350 {
00351 size_type c;
00352 char_type const* v;
00353
00354 for(c = 0, v = p;; ++p)
00355 {
00356 if(*p == 0)
00357 {
00358 if( showHidden == (showHidden & flags) ||
00359 '=' != v[0])
00360 {
00361 ++c;
00362 }
00363
00364 v = p + 1;
00365
00366 if(*(p + 1) == 0)
00367 {
00368 *q = p + 1;
00369 break;
00370 }
00371 }
00372 }
00373
00374 return c;
00375 }
00376
00377
00378 template <ss_typename_param_k C>
00379 inline void basic_environment_sequence<C>::prepare_items_(ss_typename_type_k basic_environment_sequence<C>::symbols_buffer_type &symbols, ss_typename_type_k basic_environment_sequence<C>::environment_buffer_type &environment, ss_typename_type_k basic_environment_sequence<C>::char_type *p, ss_typename_type_k basic_environment_sequence<C>::char_type* q, ws_int_t flags)
00380 {
00381 ss_typename_type_k environment_buffer_type::iterator env_begin = environment.begin();
00382 ss_typename_type_k symbols_buffer_type::iterator sym_begin = symbols.begin();
00383 char_type* begin = p;
00384 char_type *const end = q;
00385 char_type* last_src = begin;
00386 char_type* last_dest = &*env_begin;
00387
00388
00389
00390
00391
00392
00393
00394
00395 for(; begin != end;)
00396 {
00397 *env_begin = *begin;
00398
00399 if(*begin == 0)
00400 {
00401 const ws_bool_t bHidden = ('=' == last_dest[0]);
00402
00403 sym_begin->name = last_dest;
00404 for(; last_src != begin; ++last_src, ++last_dest)
00405 {
00406 if( *last_src == '=' &&
00407 ( !bHidden ||
00408 sym_begin->name != last_dest))
00409 {
00410 *last_dest = '\0';
00411
00412 ++last_dest;
00413 break;
00414 }
00415 }
00416 sym_begin->value = last_dest;
00417 last_src = ++begin;
00418 last_dest = &*++env_begin;
00419
00420 if( showHidden == (showHidden & flags) ||
00421 !bHidden)
00422 {
00423 ++sym_begin;
00424 }
00425 }
00426 else
00427 {
00428 ++begin;
00429 ++env_begin;
00430 }
00431 }
00432
00433 if(0 == (noSort & flags))
00434 {
00435 winstl_ns_qual_std(sort)(symbols.begin(), symbols.end(), compare_symbol());
00436 }
00437 }
00438
00439 template <ss_typename_param_k C>
00440 inline ws_int_t basic_environment_sequence<C>::validate_flags_(ws_int_t flags)
00441 {
00442 const ws_int_t validFlags = 0
00443 | showHidden
00444 | noSort
00445 | ignoreCase
00446 | 0;
00447
00448 WINSTL_MESSAGE_ASSERT("Specification of unrecognised/unsupported flags", flags == (flags & validFlags));
00449 STLSOFT_SUPPRESS_UNUSED(validFlags);
00450
00451 return flags;
00452 }
00453
00454 STLSOFT_TEMPLATE_SPECIALISATION
00455 inline basic_environment_sequence<ws_char_a_t>::char_type const* basic_environment_sequence<ws_char_a_t>::get_environment_strings_()
00456 {
00457 return static_cast<ws_char_a_t const*>(::GetEnvironmentStringsA());
00458 }
00459
00460 STLSOFT_TEMPLATE_SPECIALISATION
00461 inline basic_environment_sequence<ws_char_w_t>::char_type const* basic_environment_sequence<ws_char_w_t>::get_environment_strings_()
00462 {
00463 return static_cast<ws_char_w_t const*>(::GetEnvironmentStringsW());
00464 }
00465
00466 STLSOFT_TEMPLATE_SPECIALISATION
00467 inline void basic_environment_sequence<ws_char_a_t>::free_environment_strings_(basic_environment_sequence<ws_char_a_t>::char_type *s)
00468 {
00469 ::FreeEnvironmentStringsA(s);
00470 }
00471
00472 STLSOFT_TEMPLATE_SPECIALISATION
00473 inline void basic_environment_sequence<ws_char_w_t>::free_environment_strings_(basic_environment_sequence<ws_char_w_t>::char_type *s)
00474 {
00475 ::FreeEnvironmentStringsW(s);
00476 }
00477
00478 STLSOFT_TEMPLATE_SPECIALISATION
00479 inline ws_int_t basic_environment_sequence<ws_char_a_t>::compare_strings_(ws_char_a_t const* s1, ws_char_a_t const* s2, ws_int_t flags)
00480 {
00481 typedef system_traits<ws_char_a_t> traits_t;
00482
00483 return (ignoreCase & flags) ? traits_t::str_compare_no_case(s1, s2) : traits_t::str_compare(s1, s2);
00484 }
00485
00486 STLSOFT_TEMPLATE_SPECIALISATION
00487 inline ws_int_t basic_environment_sequence<ws_char_w_t>::compare_strings_(ws_char_w_t const* s1, ws_char_w_t const* s2, ws_int_t flags)
00488 {
00489 typedef system_traits<ws_char_w_t> traits_t;
00490
00491 return (ignoreCase & flags) ? traits_t::str_compare_no_case(s1, s2) : traits_t::str_compare(s1, s2);
00492 }
00493
00494 template <ss_typename_param_k C>
00495 inline basic_environment_sequence<C>::basic_environment_sequence(ws_int_t flags)
00496 : m_flags(validate_flags_(flags))
00497 , m_p(get_environment_strings_())
00498 , m_symbols(calc_items_(m_p, &m_q, m_flags))
00499 , m_environment(static_cast<ss_size_t>(m_q - m_p))
00500 {
00501 prepare_items_(m_symbols, m_environment, const_cast<char_type*>(m_p), const_cast<char_type*>(m_q), flags);
00502 }
00503
00504 template <ss_typename_param_k C>
00505 inline basic_environment_sequence<C>::~basic_environment_sequence() stlsoft_throw_0()
00506 {
00507
00508
00509 if(0 != m_p)
00510 {
00511 free_environment_strings_(const_cast<char_type*>(m_p));
00512 }
00513 }
00514
00515 template <ss_typename_param_k C>
00516 inline ss_typename_type_ret_k basic_environment_sequence<C>::const_iterator basic_environment_sequence<C>::begin() const
00517 {
00518 return &*m_symbols.begin();
00519 }
00520
00521 template <ss_typename_param_k C>
00522 inline ss_typename_type_ret_k basic_environment_sequence<C>::const_iterator basic_environment_sequence<C>::end() const
00523 {
00524 return &*m_symbols.end();
00525 }
00526
00527 #if defined(STLSOFT_LF_BIDIRECTIONAL_ITERATOR_SUPPORT)
00528 template <ss_typename_param_k C>
00529 inline ss_typename_type_ret_k basic_environment_sequence<C>::const_reverse_iterator basic_environment_sequence<C>::rbegin() const
00530 {
00531 return const_reverse_iterator(end());
00532 }
00533
00534 template <ss_typename_param_k C>
00535 inline ss_typename_type_ret_k basic_environment_sequence<C>::const_reverse_iterator basic_environment_sequence<C>::rend() const
00536 {
00537 return const_reverse_iterator(begin());
00538 }
00539 #endif
00540
00541 template <ss_typename_param_k C>
00542 inline ss_typename_type_ret_k basic_environment_sequence<C>::const_iterator basic_environment_sequence<C>::find(ss_typename_type_k basic_environment_sequence<C>::char_type const* name) const
00543 {
00544 const_iterator b = this->begin();
00545 const_iterator e = this->end();
00546
00547 for(; b != e; ++b)
00548 {
00549 if(0 == compare_strings_(name, (*b).name, m_flags))
00550 {
00551 break;
00552 }
00553 }
00554
00555 return b;
00556 }
00557
00558 template <ss_typename_param_k C>
00559 inline ss_typename_type_ret_k basic_environment_sequence<C>::const_iterator basic_environment_sequence<C>::find(ss_typename_type_k basic_environment_sequence<C>::char_type const* name, ss_typename_type_k basic_environment_sequence<C>::char_type const* value) const
00560 {
00561 const_iterator b = this->begin();
00562 const_iterator e = this->end();
00563
00564 for(; b != e; ++b)
00565 {
00566 if( 0 == compare_strings_(name, (*b).name, m_flags) &&
00567 ( NULL == value ||
00568 0 == compare_strings_(value, (*b).value, m_flags)))
00569 {
00570 break;
00571 }
00572 }
00573
00574 return b;
00575 }
00576
00577
00578 template <ss_typename_param_k C>
00579 inline ss_typename_type_ret_k basic_environment_sequence<C>::size_type basic_environment_sequence<C>::size() const
00580 {
00581 return m_symbols.size();
00582 }
00583
00584 template <ss_typename_param_k C>
00585 inline ws_bool_t basic_environment_sequence<C>::empty() const
00586 {
00587 return size() == 0;
00588 }
00589
00590 template <ss_typename_param_k C>
00591 inline ss_typename_type_ret_k basic_environment_sequence<C>::value_type basic_environment_sequence<C>::operator [](ss_typename_type_k basic_environment_sequence<C>::size_type index) const
00592 {
00593 WINSTL_MESSAGE_ASSERT("index access out of range in basic_environment_sequence", index < size() + 1);
00594
00595 return m_symbols.data()[index];
00596 }
00597
00598 #endif
00599
00601
00602
00603 #ifdef STLSOFT_UNITTEST
00604 # include "./unittest/environment_sequence_unittest_.h"
00605 #endif
00606
00607
00608
00609 #ifndef _WINSTL_NO_NAMESPACE
00610 # if defined(_STLSOFT_NO_NAMESPACE) || \
00611 defined(STLSOFT_DOCUMENTATION_SKIP_SECTION)
00612 }
00613 # else
00614 }
00615 }
00616 # endif
00617 #endif
00618
00619
00620
00621 #endif
00622
00623