fox-4.1.2-91-g9c6716e/common/m_common_namespaces.F90

38     type(prefixMapping), dimension(:), pointer :: prefixes  component
84     allocate(nsDict%prefixes(0:0))
85     allocate(nsDict%prefixes(0)%prefix(0))
86     allocate(nsDict%prefixes(0)%urilist(0:0))
87     allocate(nsDict%prefixes(0)%urilist(0)%URI(len(invalidNS)))
88     nsDict%prefixes(0)%urilist(0)%URI = vs_str(invalidNS)
89     nsDict%prefixes(0)%urilist(0)%ix = -1
103     do i = 0, ubound(nsDict%prefixes,1)
104        do j = 0, ubound(nsDict%prefixes(i)%urilist,1)
105           deallocate(nsDict%prefixes(i)%urilist(j)%URI)
107        deallocate(nsDict%prefixes(i)%prefix)
108        deallocate(nsDict%prefixes(i)%urilist)
110     deallocate(nsDict%prefixes)
308     l_p = ubound(nsDict%prefixes, 1)
312        if (str_vs(nsDict%prefixes(i)%prefix) == prefix) then
323     call addPrefixedURI(nsDict%prefixes(p_i), vs_str(URI), ix)
331     l_p = ubound(nsDict%prefixes, 1)
335       if (str_vs(nsDict%prefixes(i)%prefix) == str_vs(prefix)) then
342       call removePrefixedURI(nsDict%prefixes(p_i))
343       if (ubound(nsDict%prefixes(p_i)%urilist,1) == 0) then
368     l_p = ubound(nsDict%prefixes, 1)
373        tempPrefixMap(i)%prefix => nsDict%prefixes(i)%prefix
374        tempPrefixMap(i)%urilist => nsDict%prefixes(i)%urilist
376     deallocate(nsDict%prefixes)
379     allocate(nsDict%prefixes(0:l_p))
382        nsDict%prefixes(i)%prefix => tempPrefixMap(i)%prefix
383        nsDict%prefixes(i)%urilist => tempPrefixMap(i)%urilist
387     allocate(nsDict%prefixes(l_p)%prefix(size(prefix)))
388     nsDict%prefixes(l_p)%prefix = prefix
389     allocate(nsDict%prefixes(l_p)%urilist(0:0))
390     allocate(nsDict%prefixes(l_p)%urilist(0)%URI(len(invalidNS)))
391     nsDict%prefixes(l_p)%urilist(0)%URI = vs_str(invalidNS)
392     nsDict%prefixes(l_p)%urilist(0)%ix = -1
411     l_p = ubound(nsDict%prefixes, 1)
416        tempPrefixMap(i)%prefix => nsDict%prefixes(i)%prefix
417        tempPrefixMap(i)%urilist => nsDict%prefixes(i)%urilist
419     deallocate(nsDict%prefixes(i_p)%urilist(0)%URI)
420     deallocate(nsDict%prefixes(i_p)%urilist)
421     deallocate(nsDict%prefixes(i_p)%prefix)
425        tempPrefixMap(i-1)%prefix => nsDict%prefixes(i)%prefix
426        tempPrefixMap(i-1)%urilist => nsDict%prefixes(i)%urilist
428     deallocate(nsDict%prefixes)
431     allocate(nsDict%prefixes(0:l_p))
434        nsDict%prefixes(i)%prefix => tempPrefixMap(i)%prefix
435        nsDict%prefixes(i)%urilist => tempPrefixMap(i)%urilist
637     do i_p = 0, ubound(nsDict%prefixes, 1)
638       l_ps = ubound(nsDict%prefixes(i_p)%urilist,1)
639       if (nsDict%prefixes(i_p)%urilist(l_ps)%ix == ix) then
641              "xmlns:"//str_vs(nsDict%prefixes(i_p)%prefix), &
642              str_vs(nsDict%prefixes(i_p)%urilist(l_ps)%URI), &
653       l_ps = ubound(nsDict%prefixes(i_p)%urilist,1)
655       if (nsDict%prefixes(i_p)%urilist(l_ps)%ix > ix) then
658              str_vs(nsDict%prefixes(i_p)%urilist(l_ps)%URI), &
661         nsDict%prefixes(i_p)%urilist(l_ps)%ix = ix
694     l_p = ubound(nsDict%prefixes, 1)
697       l_ps = ubound(nsDict%prefixes(l_p)%urilist,1)
698       if (nsDict%prefixes(i)%urilist(l_ps)%ix == ix) then
700           call end_prefix_handler(str_vs(nsDict%prefixes(i)%prefix))
703         prefix =>  nsDict%prefixes(i)%prefix
705         if (l_p > ubound(nsDict%prefixes, 1)) then
728     do i = 1, ubound(nsdict%prefixes, 1)
729        write(*,'(2a)') '* prefix: ', str_vs(nsdict%prefixes(i)%prefix)
730        do j = 1, ubound(nsdict%prefixes(i)%urilist, 1)
731 …      write(*,'(i0,a)') nsdict%prefixes(i)%urilist(j)%ix, str_vs(nsdict%prefixes(i)%urilist(j)%URI)
755     do i = 1, ubound(nsDict%prefixes, 1)
756        if (str_vs(nsDict%prefixes(i)%prefix) == prefix) then
757          l_s = ubound(nsDict%prefixes(i)%urilist, 1)
758          force = (size(nsdict%prefixes(i)%urilist(l_s)%URI) > 0)
786     do i = 1, ubound(nsDict%prefixes, 1)
787       if (str_vs(nsDict%prefixes(i)%prefix) == prefix) then
798     n = ubound(nsDict%prefixes, 1)
805     character(len=size(nsDict%prefixes(i)%prefix)) :: c
807     c = str_vs(nsDict%prefixes(i)%prefix)
815               nsDict%prefixes( &
819            ubound(nsDict%prefixes(getPrefixIndex(nsDict,prefix))%urilist, 1) &
824     l_m = ubound(nsDict%prefixes(p_i)%urilist, 1)
825     uri = str_vs(nsDict%prefixes(p_i)%urilist(l_m)%URI)