1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

open Ast

(*
--# List Pipeline Nodes
--#
--# Returns a list of node names in the pipeline.
--#
--# @name pipeline_nodes
--# @param p :: Pipeline The pipeline.
--# @return :: List[String] The node names.
--# @family pipeline
--# @seealso pipeline_node, pipeline_deps
--# @export
*)
let register env =
  Env.add "pipeline_nodes"
    (make_builtin ~name:"pipeline_nodes" 1 (fun args _env ->
      match args with
      | [VPipeline { p_nodes; _ }] ->
          VList (List.map (fun (name, _) -> (None, VString name)) p_nodes)
      | [_] -> Error.type_error "Function `pipeline_nodes` expects a Pipeline."
      | _ -> Error.arity_error_named "pipeline_nodes" 1 (List.length args)
    ))
    env