-
Notifications
You must be signed in to change notification settings - Fork 50
/
m_wxml_escape.F90
140 lines (124 loc) · 3.53 KB
/
m_wxml_escape.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
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
module m_wxml_escape
#ifndef DUMMYLIB
!Ensure all characters are safe to go out into XML file.
use fox_m_fsys_format, only: str
use m_common_charset, only: XML1_0
use m_common_error, only: FoX_error, FoX_warning
implicit none
private
integer, parameter :: AMP = iachar('&')
integer, parameter :: LT = iachar('<')
integer, parameter :: GT = iachar('>')
integer, parameter :: QUOT = iachar('"')
integer, parameter :: APOS = iachar("'")
public :: escape_string
public :: escape_string_len
contains
pure function escape_string_len(s) result(c)
character(len=*), intent(in) :: s
integer :: c
integer :: i
c = len(s)
do i = 1, len(s)
select case(iachar(s(i:i)))
case (AMP)
c = c + 4
case (LT)
c = c + 3
case (GT)
c = c + 3
case (QUOT)
c = c + 5
case (APOS)
c = c + 5
case (1:8)
c = c + 3
case (11:12)
c = c + 4
case (14:31)
c = c + 4
case (127:)
c = c + 5
! a char can never contain more than 8 bits = 256 characters, so
! we never need more than 3 chars to represent the int.
end select
enddo
end function escape_string_len
function escape_string(s, version) result (s2)
character(len=*), intent(in) :: s
integer, intent(in) :: version
character(len=escape_string_len(s)) :: s2
integer :: c, i, ic
! We have to do it this way (with achar etc) in case the native
! platform encoding is not ASCII
c = 1
do i = 1, len(s)
ic = iachar(s(i:i))
select case (ic)
case (0)
call FoX_error("Tried to output a NUL character")
case (1:8)
if (version==XML1_0) then
call FoX_error("Tried to output a character invalid under XML 1.0")
else
s2(c:c+3) = "&#"//str(ic)//";"
c = c + 4
endif
case(9:10)
s2(c:c) = achar(ic)
c = c + 1
case(11:12)
if (version==XML1_0) then
call FoX_error("Tried to output a character invalid under XML 1.0")
else
s2(c:c+5) = "&#"//str(ic)//";"
c = c + 5
endif
case(13)
s2(c:c) = achar(13)
c = c + 1
case (14:31)
if (version==XML1_0) then
call FoX_error("Tried to output a character invalid under XML 1.0")
else
s2(c:c+5) = "&#"//str(ic)//";"
c = c + 5
endif
case (32:126)
select case (iachar(s(i:i)))
case (AMP)
s2(c:c+4) = "&"
c = c + 5
case (LT)
s2(c:c+3) = "<"
c = c + 4
case (GT)
s2(c:c+3) = ">"
c = c + 4
case (QUOT)
s2(c:c+5) = """
c = c + 6
case (APOS)
s2(c:c+5) = "'"
c = c + 6
case default
s2(c:c) = achar(ic)
c = c + 1
end select
case (127)
s2(c:c+5) = ""
c = c + 6
case default
!TOHW we should maybe just disallow this ...
call FoX_warning("emitting non-ASCII character. Platform-dependent result!")
s2(c:c+6) = "&#"//str(ic)//";"
c = c + 6
! a char can never contain more than 8 bits = 256 characters, so
! we never need more than 3 chars to represent the int.
! We have to encode it though, because UTF-8 x7F-x9F must be
! encoded, and if they are in the native charset they'll be > 128
end select
enddo
end function escape_string
#endif
end module m_wxml_escape