-
Notifications
You must be signed in to change notification settings - Fork 1
/
abstract_collection_class.f90
88 lines (57 loc) · 2.29 KB
/
abstract_collection_class.f90
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
!=====================================================================!
! The base abstract implementation for collection of objects as sets,
! lists. The deferred procedures are to be implemented by specialized
! collection classes.
!
! Author: Komahan Boopathy ([email protected])
!=====================================================================!
module abstract_collection_class
use collection_interface , only : collection
use iterator_interface , only : iterator
use object_class , only : object
implicit none
private
public :: abstract_collection
type, abstract, extends(collection) :: abstract_collection
contains
procedure :: contains
procedure :: is_empty
end type abstract_collection
contains
!===================================================================!
! Returns .true. if the abstract_collection is empty
!===================================================================!
pure type(logical) function is_empty(this)
class(abstract_collection), intent(in) :: this
is_empty = this % size() .eq. 0
end function is_empty
!===================================================================!
! Returns .true. if the abstract_collection contains the 'element'
!===================================================================!
type(logical) function contains(this, element)
class(abstract_collection) , intent(in) :: this
class(object) , intent(in) :: element
class(iterator) , allocatable :: it
! Obtain the iterator
allocate(it, source = this % get_iterator())
! Assume that the element is not in the abstract_collection
contains = .false.
if (loc(element) .eq. 0) then
check_null_obj: do while(it % has_next())
! If you get an not associated pointer, then yay!
if ( .not. associated(it % next())) then
contains = .true.
return
end if
end do check_null_obj
print *, "NULL element encountered!!!"
else
check_not_null: do while(it % has_next())
if (element % equals(it % next())) then
contains = .true.
return
end if
end do check_not_null
end if
end function contains
end module abstract_collection_class