diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-06-29 16:06:44 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-06-29 16:06:44 -0400 |
| commit | cd4a5891b8e2a019fdfda7512d6490e075628292 (patch) | |
| tree | 8012dc7dc52f17632f5b429dea79709e55ab96c4 /captain/queryutils.f90 | |
| parent | d282a7e283a1704cdde2649c7caf130fb923051a (diff) | |
| download | levitating-cd4a5891b8e2a019fdfda7512d6490e075628292.tar.gz levitating-cd4a5891b8e2a019fdfda7512d6490e075628292.zip | |
Tokens are now checked for file uploads. Fixed major buffer bugs in status reporting.
Diffstat (limited to 'captain/queryutils.f90')
| -rw-r--r-- | captain/queryutils.f90 | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/captain/queryutils.f90 b/captain/queryutils.f90 index 550a2f3..00a914b 100644 --- a/captain/queryutils.f90 +++ b/captain/queryutils.f90 @@ -48,6 +48,7 @@ implicit none procedure :: component_count => query_component_count procedure :: get_value_by_index => get_query_value_from_index procedure :: get_value_by_key => get_query_value_from_key + procedure :: has_key => query_has_key generic, public :: get_value => get_value_by_index, get_value_by_key @@ -240,4 +241,15 @@ contains end function get_query_value_from_key + function query_has_key(self, key) + implicit none + + class(query), intent(in)::self + character(*), intent(in)::key + logical::query_has_key + + query_has_key = associated(self%get_value_by_key(key)) + + end function query_has_key + end module query_utilities |