Packages

orb

0.0.27
0.2.2 0.2.1 0.2.0 0.1.1 0.1.0 0.0.51 0.0.49 0.0.48 0.0.47 0.0.46 0.0.45 0.0.44 0.0.43 0.0.42 0.0.41 0.0.40 0.0.39 0.0.38 0.0.37 0.0.36 0.0.35 0.0.34 0.0.33 0.0.32 0.0.31 0.0.30 0.0.28 0.0.27 0.0.26 0.0.25 0.0.24 0.0.23 0.0.22 0.0.21 0.0.20 0.0.19 0.0.18 0.0.17 0.0.16 0.0.15 0.0.14 0.0.13 0.0.12 retired 0.0.11 0.0.10 0.0.9 0.0.8 0.0.7 0.0.6 0.0.5 0.0.4 0.0.3 0.0.2 0.0.1

DSL for WebAssembly

HexDocs

Current section

Files

Jump to
Readme
54 Versions
0 Dependencies
Dependants
Files
Activity
orb lib orb import.ex
Raw

lib/orb/import.ex 

defmodule Orb.Import do

  @moduledoc false



  defstruct [:module, :name, :type]



  defmacro __using__(_) do

    quote do

      import Orb.DefwDSL, only: []

      import Orb.Import.DSL



      # Module.register_attribute(__MODULE__, :wasm_imports, accumulate: true, persist: true)



      def __wasm_imports__(context), do: []

      defoverridable __wasm_imports__: 1



      Orb.set_func_prefix(inspect(__MODULE__))

    end

  end



  defimpl Orb.ToWat do

    alias Orb.ToWat.Instructions



    def to_wat(%Orb.Import{module: nil, name: name, type: type}, indent) do

      ~s[#{indent}(import "#{name}" #{Instructions.do_wat(type)})]

    end



    def to_wat(%Orb.Import{module: module, name: name, type: type}, indent) do

      ~s[#{indent}(import "#{module}" "#{name}" #{Instructions.do_wat(type)})]

    end

  end



  defmodule DSL do

    defmacro defw(call, result_type) do

      alias Elixir.Orb.{DefwDSL, Func, Import}



      env = __CALLER__



      # call = Macro.expand_once(call, __ENV__)

      {name, args} = Macro.decompose_call(call)



      line =

        case call do

          {_, meta, _} -> meta[:line]

          _ -> env.line

        end



      params = Func.Type.params_from_call_args(args, env, line)

      result_type = result_type |> Macro.expand_literals(env)



      ex_def = DefwDSL.__define_elixir_def(call, :def, result_type, env)



      quote do

        unquote(ex_def)



        with do

          def __wasm_imports__(context) do

            full_name =

              case {inspect(__MODULE__), unquote(name)} do

                {nil, name} -> name

                {prefix, name} -> "#{prefix}.#{name}"

              end



            imp = %Import{

              module: :tbd,

              name: unquote(name),

              type: Func.Type.new(full_name, unquote(Macro.escape(params)), unquote(result_type))

            }



            super(context) ++ [imp]

          end



          defoverridable __wasm_imports__: 1

        end

      end

    end

  end

end