millironx/XAM.jl
1
0
Fork 0
mirror of https://github.com/MillironX/XAM.jl.git synced 2024-11-23 10:19:56 +00:00
Code Issues Releases Packages Activity

Pipe into eval

Browse source
This commit is contained in:
Ciarán O'Mara 2019-09-08 09:08:12 +10:00
parent e63ce2e398
commit 892ad0d7dc
1 changed files with 58 additions and 51 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
src/sam/readrecord.jl
View file

@ -317,14 +317,16 @@ const sam_metainfo_actions = Dict(
end,
:anchor => :(),
:mark1 => :(mark1 = p),
:mark2 => :(mark2 = p))
eval(
:mark2 => :(mark2 = p)
)
generate_index_function(
MetaInfo,
sam_metainfo_machine,
:(mark1 = mark2 = offset = 0),
sam_metainfo_actions))
eval(
sam_metainfo_actions
) |> eval
generate_readheader_function(
Reader,
MetaInfo,
@ -346,7 +348,8 @@ eval(
if !eof(stream)
stream.position -= 1 # cancel look-ahead
end
end))
end
) |> eval
const sam_record_actions = Dict(
:record_qname => :(record.qname = (mark:p-1) .- offset),
@ -366,14 +369,16 @@ const sam_record_actions = Dict(
record.filled = (offset+1:p-1) .- offset
end,
:anchor => :(),
:mark => :(mark = p))
eval(
:mark => :(mark = p)
)
generate_index_function(
Record,
sam_record_machine,
:(mark = offset = 0),
sam_record_actions))
eval(
sam_record_actions
) |> eval
generate_read_function(
Reader,
sam_body_machine,
@ -386,4 +391,6 @@ eval(
@escape
end,
:countline => :(linenum += 1),
:anchor => :(anchor!(stream, p); offset = p - 1)))))
:anchor => :(anchor!(stream, p); offset = p - 1))
)
) |> eval