无限多态双向循环链表
本帖最后由 weixing1531 于 2019-9-23 10:52 编辑本模块在GitHub上大牛Robert Rüger项目Fortran Template Library (FTL)的基础上进行了如下修改：
1.用无限多态class(*)代替预处理宏进行通用类型操作
2.ftlList类增加了Set, Get, Change, WriteList, EraseVal, InsertVal, FindIt, GetFront, GetBack等实例方法，并将实例变量front, back设为私有
3.ftlListIterator类增加了GetValue实例方法，并将实例变量value设为私有
4.增加了模块方法WriteNode
程序使用范例
program main
use ftlListMod
implicit none
type(ftlList) :: o !无限多态双向循环链表
type(ftlListIterator) :: it !链表迭代器
integer :: i
real(kind=4) :: r
character(len=:),allocatable :: c !递延长度字符串
call o%New() !构造方法
write(*,*)o%Size() !元素个数
call o%WriteList() !打印链表
call o%PushBack("123") !尾部压入元素
call o%WriteList() !打印链表
select type(p=>o%GetBack()) !o%GetBack()为链表尾节点元素
type is(character(*))
c=p !无限多态类型赋值字符串类型
end select
write(*,*)c
call WriteNode(o%PopBack(),"Node") !尾部压出元素并打印该元素
call o%WriteList() !打印链表
call o%PushFront(0.123) !头部压入元素
call o%WriteList() !打印链表
select type(p=>o%GetFront()) !o%GetFront()为链表头节点元素
type is(real(kind=4))
r=p !无限多态类型赋值单精度整数类型
end select
write(*,*)r
call WriteNode(o%PopFront(),"Node") !头部压出元素并打印该元素
call o%WriteList() !打印链表
call o%Change(2,55) !第2个元素值更改为55
call o%WriteList() !打印链表
call o%Erase(7) !删除第7个元素
call o%WriteList() !打印链表
call o%Insert(2,33) !第2个元素前插入新元素33
call o%WriteList() !打印链表
call WriteNode(o%Get(6),"Node") !获取第6个元素值并打印该元素
select type(p=>o%Get(6))
type is(integer)
i=p !无限多态类型赋值整数类型
end select
write(*,*)i
write(*,*)"以下正向遍历链表"
it=o%Begin() !链表头节点
do while(it/=o%End())
call WriteNode(it%GetValue(),"Node") !打印节点元素
call it%Inc() !下一节点
end do
write(*,*)"以下反向遍历链表"
it=o%End() !链表哨兵节点
call it%Dec() !上一节点即尾节点
do while(it/=o%End())
call WriteNode(it%GetValue(),"Node") !打印节点元素
call it%Dec() !上一节点
end do
read(*,*)
end program
双向循环链表源代码
当然也有无限多态单向循环链表，少了前指针，无法使用PopBack方法。
单向循环链表源代码
总结：目前Fortran无限多态class(*)也能实现C++一部分模板功能，但有很多限制。
WriteList
WriteNode
这些过程其实也可以绑定
Generic :: Write(Formatted) => WriteList
这样做的好处就是，用户可以
type( ftlList) :: List_Var
write( UNIT , * ) "List is:" , List_var 胡文刚 发表于 2019-9-21 09:56
WriteList
WriteNode
这些过程其实也可以绑定
这些冷门特性用得少
页:
[1]