Mercurial > repos > public > sbplib_julia
view src/SbpOperators/readoperator.jl @ 340:29df39a7b568 refactor/combine_to_one_package
readoperator.jl: Fix path to operators
author | Jonatan Werpers <jonatan@werpers.com> |
---|---|
date | Fri, 25 Sep 2020 14:04:06 +0200 |
parents | 01b851161018 |
children | cc86b920531a |
line wrap: on
line source
function readOperator(D2fn, Hfn) d = readSectionedFile(D2fn) h = readSectionedFile(Hfn) # Create inner stencil innerStencilWeights = stringToTuple(Float64, d["inner_stencil"][1]) width = length(innerStencilWeights) r = (-div(width,2), div(width,2)) innerStencil = Stencil(r, innerStencilWeights) # Create boundary stencils boundarySize = length(d["boundary_stencils"]) closureStencils = Vector{typeof(innerStencil)}() # TBD: is the the right way to get the correct type? for i ∈ 1:boundarySize stencilWeights = stringToTuple(Float64, d["boundary_stencils"][i]) width = length(stencilWeights) r = (1-i,width-i) closureStencils = (closureStencils..., Stencil(r, stencilWeights)) end quadratureClosure = pad_tuple(stringToTuple(Float64, h["closure"][1]), boundarySize) eClosure = Stencil((0,boundarySize-1), pad_tuple(stringToTuple(Float64, d["e"][1]), boundarySize)) dClosure = Stencil((0,boundarySize-1), pad_tuple(stringToTuple(Float64, d["d1"][1]), boundarySize)) d2 = D2( quadratureClosure, innerStencil, closureStencils, eClosure, dClosure, even ) return d2 end function readSectionedFile(filename)::Dict{String, Vector{String}} f = open(filename) sections = Dict{String, Vector{String}}() currentKey = "" for ln ∈ eachline(f) if ln == "" || ln[1] == '#' # Skip comments and empty lines continue end if isletter(ln[1]) # Found start of new section if ~haskey(sections, ln) sections[ln] = Vector{String}() end currentKey = ln continue end push!(sections[currentKey], ln) end return sections end function stringToTuple(T::DataType, s::String) return Tuple(stringToVector(T,s)) end function stringToVector(T::DataType, s::String) return T.(eval.(Meta.parse.(split(s)))) end function pad_tuple(t::NTuple{N, T}, n::Integer) where {N,T} if N >= n return t else return pad_tuple((t..., zero(T)), n) end end sbp_operators_path() = (@__DIR__) * "/operators/" export sbp_operators_path