- in
- let s = obj ^ G.string_of_inline_kind k in
- let full_s = Filename.concat in_base_uri s in
- let params = params @ get_iparams st (Filename.concat name obj) in
- path, Some (T.Inline (b, k, full_s, p, f, params))
- | T.Include (src, s) ->
+ in
+ let ext = G.string_of_inline_kind k in
+ let s = Filename.concat in_base_uri (obj ^ ext) in
+ let params =
+ params @
+ get_iparams st "*" @
+ get_iparams st ("*" ^ ext) @
+ get_iparams st (Filename.concat name obj)
+ in
+ path, Some (T.Inline (b, k, s, p, f, params))
+ | T.Include (moo, s) ->