Skip to content

Commit

Permalink
Add non_overridable attribute
Browse files Browse the repository at this point in the history
  • Loading branch information
femparadmin committed Mar 18, 2016
1 parent 03d0322 commit 17a3d35
Show file tree
Hide file tree
Showing 6 changed files with 110 additions and 110 deletions.
6 changes: 3 additions & 3 deletions src/lib/ErrorMessages.f90
Original file line number Diff line number Diff line change
Expand Up @@ -35,9 +35,9 @@ module ErrorMessages
private
character(len=5) :: prefix = '[FPL]'
contains
procedure :: Print => MessageHandler_Print
procedure :: Warn => MessageHandler_Warn
procedure :: Error => MessageHandler_Error
procedure, non_overridable :: Print => MessageHandler_Print
procedure, non_overridable :: Warn => MessageHandler_Warn
procedure, non_overridable :: Error => MessageHandler_Error
end type

type(MessageHandler_t) :: msg
Expand Down
32 changes: 16 additions & 16 deletions src/lib/ParameterEntry.f90
Original file line number Diff line number Diff line change
Expand Up @@ -33,22 +33,22 @@ module ParameterEntry
class(ParameterEntry_t), pointer :: Next => null()
contains
private
procedure, public :: Free => ParameterEntry_Free
procedure, public :: Print => ParameterEntry_Print
procedure, public :: HasNext => ParameterEntry_HasNext
procedure, public :: SetNext => ParameterEntry_SetNext
procedure, public :: GetNext => ParameterEntry_GetNext
procedure, public :: NullifyNext => ParameterEntry_NullifyNext
procedure, public :: HasKey => ParameterEntry_HasKey
procedure, public :: SetKey => ParameterEntry_SetKey
procedure, public :: GetKey => ParameterEntry_GetKey
procedure, public :: DeallocateKey => ParameterEntry_DeallocateKey
procedure, public :: HasValue => ParameterEntry_HasValue
procedure, public :: SetValue => ParameterEntry_SetValue
procedure, public :: GetValue => ParameterEntry_GetValue
procedure, public :: DeallocateValue => ParameterEntry_DeallocateValue
procedure, public :: PointToValue => ParameterEntry_PointToValue
final :: ParameterEntry_Finalize
procedure, non_overridable, public :: Free => ParameterEntry_Free
procedure, non_overridable, public :: Print => ParameterEntry_Print
procedure, non_overridable, public :: HasNext => ParameterEntry_HasNext
procedure, non_overridable, public :: SetNext => ParameterEntry_SetNext
procedure, non_overridable, public :: GetNext => ParameterEntry_GetNext
procedure, non_overridable, public :: NullifyNext => ParameterEntry_NullifyNext
procedure, non_overridable, public :: HasKey => ParameterEntry_HasKey
procedure, non_overridable, public :: SetKey => ParameterEntry_SetKey
procedure, non_overridable, public :: GetKey => ParameterEntry_GetKey
procedure, non_overridable, public :: DeallocateKey => ParameterEntry_DeallocateKey
procedure, non_overridable, public :: HasValue => ParameterEntry_HasValue
procedure, non_overridable, public :: SetValue => ParameterEntry_SetValue
procedure, non_overridable, public :: GetValue => ParameterEntry_GetValue
procedure, non_overridable, public :: DeallocateValue => ParameterEntry_DeallocateValue
procedure, non_overridable, public :: PointToValue => ParameterEntry_PointToValue
final :: ParameterEntry_Finalize
end type ParameterEntry_t

public :: ParameterEntry_t
Expand Down
22 changes: 11 additions & 11 deletions src/lib/ParameterEntryDictionary.f90
Original file line number Diff line number Diff line change
Expand Up @@ -47,17 +47,17 @@ module ParameterEntryDictionary
integer(I4P) :: Size = 0_I4P
contains
private
procedure :: Hash => ParameterEntryDictionary_Hash
procedure, public :: Init => ParameterEntryDictionary_Init
procedure, public :: Set => ParameterEntryDictionary_Set
procedure, public :: Get => ParameterEntryDictionary_Get
procedure, public :: GetPointer => ParameterEntryDictionary_GetPointer
procedure, public :: Del => ParameterEntryDictionary_Delete
procedure, public :: IsPresent => ParameterEntryDictionary_IsPresent
procedure, public :: Length => ParameterEntryDictionary_Length
procedure, public :: Print => ParameterEntryDictionary_Print
procedure, public :: Free => ParameterEntryDictionary_Free
final :: ParameterEntryDictionary_Finalize
procedure, non_overridable :: Hash => ParameterEntryDictionary_Hash
procedure, non_overridable, public :: Init => ParameterEntryDictionary_Init
procedure, non_overridable, public :: Set => ParameterEntryDictionary_Set
procedure, non_overridable, public :: Get => ParameterEntryDictionary_Get
procedure, non_overridable, public :: GetPointer => ParameterEntryDictionary_GetPointer
procedure, non_overridable, public :: Del => ParameterEntryDictionary_Delete
procedure, non_overridable, public :: IsPresent => ParameterEntryDictionary_IsPresent
procedure, non_overridable, public :: Length => ParameterEntryDictionary_Length
procedure, non_overridable, public :: Print => ParameterEntryDictionary_Print
procedure, non_overridable, public :: Free => ParameterEntryDictionary_Free
final :: ParameterEntryDictionary_Finalize
end type

public :: ParameterEntryDictionary_t
Expand Down
86 changes: 43 additions & 43 deletions src/lib/ParameterList.f90
Original file line number Diff line number Diff line change
Expand Up @@ -38,38 +38,38 @@ module ParameterList
type(ParameterEntryDictionary_t) :: Dictionary
contains
private
procedure :: ParameterList_Set0D
procedure :: ParameterList_Set1D
procedure :: ParameterList_Set2D
procedure :: ParameterList_Set3D
procedure :: ParameterList_Set4D
procedure :: ParameterList_Set5D
procedure :: ParameterList_Set6D
procedure :: ParameterList_Set7D
procedure :: ParameterList_Get0D
procedure :: ParameterList_Get1D
procedure :: ParameterList_Get2D
procedure :: ParameterList_Get3D
procedure :: ParameterList_Get4D
procedure :: ParameterList_Get5D
procedure :: ParameterList_Get6D
procedure :: ParameterList_Get7D
procedure :: ParameterList_GetPointer0D
procedure :: ParameterList_GetPointer1D
procedure :: ParameterList_GetPointer2D
procedure :: ParameterList_GetPointer3D
procedure :: ParameterList_GetPointer4D
procedure :: ParameterList_GetPointer5D
procedure :: ParameterList_GetPointer6D
procedure :: ParameterList_GetPointer7D
procedure :: ParameterList_IsOfDataType0D
procedure :: ParameterList_IsOfDataType1D
procedure :: ParameterList_IsOfDataType2D
procedure :: ParameterList_IsOfDataType3D
procedure :: ParameterList_IsOfDataType4D
procedure :: ParameterList_IsOfDataType5D
procedure :: ParameterList_IsOfDataType6D
procedure :: ParameterList_IsOfDataType7D
procedure, non_overridable :: ParameterList_Set0D
procedure, non_overridable :: ParameterList_Set1D
procedure, non_overridable :: ParameterList_Set2D
procedure, non_overridable :: ParameterList_Set3D
procedure, non_overridable :: ParameterList_Set4D
procedure, non_overridable :: ParameterList_Set5D
procedure, non_overridable :: ParameterList_Set6D
procedure, non_overridable :: ParameterList_Set7D
procedure, non_overridable :: ParameterList_Get0D
procedure, non_overridable :: ParameterList_Get1D
procedure, non_overridable :: ParameterList_Get2D
procedure, non_overridable :: ParameterList_Get3D
procedure, non_overridable :: ParameterList_Get4D
procedure, non_overridable :: ParameterList_Get5D
procedure, non_overridable :: ParameterList_Get6D
procedure, non_overridable :: ParameterList_Get7D
procedure, non_overridable :: ParameterList_GetPointer0D
procedure, non_overridable :: ParameterList_GetPointer1D
procedure, non_overridable :: ParameterList_GetPointer2D
procedure, non_overridable :: ParameterList_GetPointer3D
procedure, non_overridable :: ParameterList_GetPointer4D
procedure, non_overridable :: ParameterList_GetPointer5D
procedure, non_overridable :: ParameterList_GetPointer6D
procedure, non_overridable :: ParameterList_GetPointer7D
procedure, non_overridable :: ParameterList_IsOfDataType0D
procedure, non_overridable :: ParameterList_IsOfDataType1D
procedure, non_overridable :: ParameterList_IsOfDataType2D
procedure, non_overridable :: ParameterList_IsOfDataType3D
procedure, non_overridable :: ParameterList_IsOfDataType4D
procedure, non_overridable :: ParameterList_IsOfDataType5D
procedure, non_overridable :: ParameterList_IsOfDataType6D
procedure, non_overridable :: ParameterList_IsOfDataType7D
generic, public :: Set => ParameterList_Set0D, &
ParameterList_Set1D, &
ParameterList_Set2D, &
Expand Down Expand Up @@ -102,17 +102,17 @@ module ParameterList
ParameterList_IsOfDataType5D, &
ParameterList_IsOfDataType6D, &
ParameterList_IsOfDataType7D
procedure, public :: DataSizeInBytes=> ParameterList_DataSizeInBytes
procedure, public :: Del => ParameterList_RemoveEntry
procedure, public :: Init => ParameterList_Init
procedure, public :: GetShape => ParameterList_GetShape
procedure, public :: NewSubList => ParameterList_NewSubList
procedure, public :: GetSubList => ParameterList_GetSubList
procedure, public :: isPresent => ParameterList_isPresent
procedure, public :: isSubList => ParameterList_isSubList
procedure, public :: Free => ParameterList_Free
procedure, public :: Print => ParameterList_Print
procedure, public :: Length => ParameterList_Length
procedure, non_overridable, public :: DataSizeInBytes=> ParameterList_DataSizeInBytes
procedure, non_overridable, public :: Del => ParameterList_RemoveEntry
procedure, non_overridable, public :: Init => ParameterList_Init
procedure, non_overridable, public :: GetShape => ParameterList_GetShape
procedure, non_overridable, public :: NewSubList => ParameterList_NewSubList
procedure, non_overridable, public :: GetSubList => ParameterList_GetSubList
procedure, non_overridable, public :: isPresent => ParameterList_isPresent
procedure, non_overridable, public :: isSubList => ParameterList_isSubList
procedure, non_overridable, public :: Free => ParameterList_Free
procedure, non_overridable, public :: Print => ParameterList_Print
procedure, non_overridable, public :: Length => ParameterList_Length
final :: ParameterList_Finalize
end type ParameterList_t

Expand Down
30 changes: 15 additions & 15 deletions src/lib/ParameterRootEntry.f90
Original file line number Diff line number Diff line change
Expand Up @@ -31,21 +31,21 @@ module ParameterRootEntry
class(ParameterEntry_t), pointer :: Root => null()
contains
private
procedure :: Init => ParameterRootEntry_Init
procedure :: HasRoot => ParameterRootEntry_HasRoot
procedure :: SetRoot => ParameterRootEntry_SetRoot
procedure :: GetRoot => ParameterRootEntry_GetRoot
procedure :: NullifyRoot => ParameterRootEntry_NullifyRoot
procedure :: DeallocateRoot => ParameterRootEntry_DeallocateRoot
procedure, public :: GetEntry => ParameterRootEntry_GetEntry
procedure, public :: GetPreviousEntry => ParameterRootEntry_GetPreviousEntry
procedure, public :: Print => ParameterRootEntry_Print
procedure, public :: isPresent => ParameterRootEntry_isPresent
procedure, public :: Length => ParameterRootEntry_Length
procedure, public :: RemoveEntry => ParameterRootEntry_RemoveEntry
procedure, public :: AddEntry => ParameterRootEntry_AddEntry
procedure, public :: Free => ParameterRootEntry_Free
final :: ParameterRootEntry_Finalize
procedure, non_overridable :: Init => ParameterRootEntry_Init
procedure, non_overridable :: HasRoot => ParameterRootEntry_HasRoot
procedure, non_overridable :: SetRoot => ParameterRootEntry_SetRoot
procedure, non_overridable :: GetRoot => ParameterRootEntry_GetRoot
procedure, non_overridable :: NullifyRoot => ParameterRootEntry_NullifyRoot
procedure, non_overridable :: DeallocateRoot => ParameterRootEntry_DeallocateRoot
procedure, non_overridable, public :: GetEntry => ParameterRootEntry_GetEntry
procedure, non_overridable, public :: GetPreviousEntry => ParameterRootEntry_GetPreviousEntry
procedure, non_overridable, public :: Print => ParameterRootEntry_Print
procedure, non_overridable, public :: isPresent => ParameterRootEntry_isPresent
procedure, non_overridable, public :: Length => ParameterRootEntry_Length
procedure, non_overridable, public :: RemoveEntry => ParameterRootEntry_RemoveEntry
procedure, non_overridable, public :: AddEntry => ParameterRootEntry_AddEntry
procedure, non_overridable, public :: Free => ParameterRootEntry_Free
final :: ParameterRootEntry_Finalize
end type


Expand Down
44 changes: 22 additions & 22 deletions src/lib/Wrapper/WrapperFactoryList.f90
Original file line number Diff line number Diff line change
Expand Up @@ -33,28 +33,28 @@ module WrapperFactoryList
class(WrapperFactoryList_t), public, pointer :: Next => null()
contains
private
procedure, public :: HasNext => WrapperFactoryList_HasNext
procedure, public :: SetNext => WrapperFactoryList_SetNext
procedure, public :: GetNext => WrapperFactoryList_GetNext
procedure, public :: NullifyNext => WrapperFactoryList_NullifyNext
procedure, public :: HasKey => WrapperFactoryList_HasKey
procedure, public :: SetKey => WrapperFactoryList_SetKey
procedure, public :: GetKey => WrapperFactoryList_GetKey
procedure, public :: DeallocateKey => WrapperFactoryList_DeallocateKey
procedure, public :: HasValue => WrapperFactoryList_HasValue
procedure, public :: SetValue => WrapperFactoryList_SetValue
procedure, public :: GetValue => WrapperFactoryList_GetValue
procedure, public :: Free => WrapperFactoryList_Free
procedure, public :: AddWrapperFactory => WrapperFactoryList_AddWrapperFactory
procedure, public :: Print => WrapperFactoryList_Print
procedure :: WrapperFactoryList_GetFactory0D
procedure :: WrapperFactoryList_GetFactory1D
procedure :: WrapperFactoryList_GetFactory2D
procedure :: WrapperFactoryList_GetFactory3D
procedure :: WrapperFactoryList_GetFactory4D
procedure :: WrapperFactoryList_GetFactory5D
procedure :: WrapperFactoryList_GetFactory6D
procedure :: WrapperFactoryList_GetFactory7D
procedure, non_overridable, public :: HasNext => WrapperFactoryList_HasNext
procedure, non_overridable, public :: SetNext => WrapperFactoryList_SetNext
procedure, non_overridable, public :: GetNext => WrapperFactoryList_GetNext
procedure, non_overridable, public :: NullifyNext => WrapperFactoryList_NullifyNext
procedure, non_overridable, public :: HasKey => WrapperFactoryList_HasKey
procedure, non_overridable, public :: SetKey => WrapperFactoryList_SetKey
procedure, non_overridable, public :: GetKey => WrapperFactoryList_GetKey
procedure, non_overridable, public :: DeallocateKey => WrapperFactoryList_DeallocateKey
procedure, non_overridable, public :: HasValue => WrapperFactoryList_HasValue
procedure, non_overridable, public :: SetValue => WrapperFactoryList_SetValue
procedure, non_overridable, public :: GetValue => WrapperFactoryList_GetValue
procedure, non_overridable, public :: Free => WrapperFactoryList_Free
procedure, non_overridable, public :: AddWrapperFactory => WrapperFactoryList_AddWrapperFactory
procedure, non_overridable, public :: Print => WrapperFactoryList_Print
procedure, non_overridable :: WrapperFactoryList_GetFactory0D
procedure, non_overridable :: WrapperFactoryList_GetFactory1D
procedure, non_overridable :: WrapperFactoryList_GetFactory2D
procedure, non_overridable :: WrapperFactoryList_GetFactory3D
procedure, non_overridable :: WrapperFactoryList_GetFactory4D
procedure, non_overridable :: WrapperFactoryList_GetFactory5D
procedure, non_overridable :: WrapperFactoryList_GetFactory6D
procedure, non_overridable :: WrapperFactoryList_GetFactory7D
generic, public :: GetFactory => WrapperFactoryList_GetFactory0D, &
WrapperFactoryList_GetFactory1D, &
WrapperFactoryList_GetFactory2D, &
Expand Down

0 comments on commit 17a3d35

Please sign in to comment.