2584 do while(metaanddatal%element())
2586 metaanddata=metaanddatal%current()
2587 call metaanddata%extrude(session,noattr,filter,attronly,template)
2588 call metaanddatal%next()
2591 end subroutine dbametaanddatal_extrude
2595 subroutine displaydbametaanddatai(this)
2597 type(dbametaanddatai) :: element
2600 do while(this%element())
2601 print *,
"index:",this%currentindex(),
" value:" 2602 element=this%current()
2603 call element%display()
2606 end subroutine displaydbametaanddatai
2609 type(dbametaanddatai) function currentdbametaanddatai(this)
2613 v => this%currentpoli()
2615 type is (dbametaanddatai)
2616 currentdbametaanddatai = v
2618 end function currentdbametaanddatai
2622 subroutine dbasession_ingest_metaanddatail(session,metaanddatal,filter)
2624 type(dbametaanddatailist),
intent(inout) :: metaanddatal
2625 type(dbafilter),
intent(in),
optional :: filter
2627 type(dbametaanddatai) :: element
2630 if (session%memdb .and. .not. session%loadfile)
then 2632 do while (session%messages_read_next())
2633 call session%set(filter=filter)
2634 call session%ingest_metaanddatai()
2635 call session%ingest_metaanddatai(element)
2636 call metaanddatal%append(element)
2637 call session%remove_all()
2642 call session%set(filter=filter)
2643 call session%ingest_metaanddatai()
2644 do while (
c_e(session%count) .and. session%count >0)
2645 call session%ingest_metaanddatai(element)
2646 call metaanddatal%append(element)
2647 if (session%file)
call session%ingest()
2652 end subroutine dbasession_ingest_metaanddatail