forked from JuliaLang/julia
-
Notifications
You must be signed in to change notification settings - Fork 0
/
latin1.j
33 lines (26 loc) · 970 Bytes
/
latin1.j
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
## from boot.j:
# type Latin1String <: String
# data::Array{Uint8,1}
# end
next(s::Latin1String, i::Index) = (char(s.data[i]), i+1)
## overload methods for efficiency ##
length(s::Latin1String) = length(s.data)
cmp(a::Latin1String, b::Latin1String) = lexcmp(a.data, b.data)
ind2chr(s::Latin1String, i::Int) = i
chr2ind(s::Latin1String, i::Int) = i
strchr(s::Latin1String, c::Char) =
c <= 0xff ? memchr(s.data, c) : error("char not found")
nextind(s::Latin1String, i::Int) = i
prevind(s::Latin1String, i::Int) = i-1
strcat(s::Latin1String, t::Latin1String, x::Latin1String...) =
Latin1String(strdatacat(s, t, x...))
## outputing Latin-1 strings ##
print(s::Latin1String) = print(s.data)
write(io, s::Latin1String) = write(io, s.data)
## transcoding to Latin-1 ##
latin1(s::Latin1String) = s
function latin1(s::String)
f = c -> (c <= 0xff) ? uint8(c) :
error("invalid Latin-1 code point: U+$(hex(c))")
Latin1String(map(f, chars(s)))
end