Packages

ptc_runner

0.3.3
0.13.0 0.12.0 0.11.0 0.10.1 0.10.0 0.9.0 0.8.0 0.7.0 0.6.0 0.5.2 0.5.1 0.5.0 0.4.1 0.4.0 0.3.4 0.3.3 0.3.2 0.3.1 0.3.0 0.2.0 0.1.0

Secure BEAM sandbox runtime for LLM code mode and MCP aggregation. Run concurrent LLM/tool clients safely while agents orchestrate approved tools, call upstream MCP/OpenAPI servers, and transform data.

HexDocs

Current section

Files

Jump to
Readme
21 Versions
2 Dependencies
Dependants
Files
Activity
ptc_runner lib ptc_runner lisp ast.ex
Raw

lib/ptc_runner/lisp/ast.ex 

defmodule PtcRunner.Lisp.AST do

  @moduledoc "AST node types for PTC-Lisp"



  # Literals

  @type t ::

          nil

          | boolean()

          | number()

          | {:string, String.t()}

          | {:keyword, atom()}

          # Collections

          | {:vector, [t()]}

          | {:map, [{t(), t()}]}

          | {:set, [t()]}

          # Symbols

          | {:symbol, atom()}

          | {:ns_symbol, :ctx | :memory, atom()}

          # Calls

          | {:list, [t()]}



  @doc "Create a keyword node"

  def keyword(name) when is_binary(name), do: {:keyword, String.to_atom(name)}



  @doc "Create a symbol node"

  def symbol(name) when is_binary(name) do

    case String.split(name, "/", parts: 2) do

      ["ctx", key] -> {:ns_symbol, :ctx, String.to_atom(key)}

      ["memory", key] -> {:ns_symbol, :memory, String.to_atom(key)}

      [name] -> {:symbol, String.to_atom(name)}

      [_ns, _key] -> {:symbol, String.to_atom(name)}

    end

  end



  @doc "Create a vector node"

  def vector(elements), do: {:vector, elements}



  @doc "Create a map node from flat list [k1, v1, k2, v2, ...]"

  def map_node(pairs) do

    chunked = Enum.chunk_every(pairs, 2)

    {:map, Enum.map(chunked, fn [k, v] -> {k, v} end)}

  end



  @doc "Create a list (call) node"

  def list(elements), do: {:list, elements}

end