Skip to content

Instantly share code, notes, and snippets.

@ELLIOTTCABLE ELLIOTTCABLE/aST.ml
Created Oct 20, 2019

Embed
What would you like to do?
type 'a unresolved = Unresolved | Resolved of 'a | Absent
type 'a or_subexpr = Sub of expression | Literal of 'a | Absent
and flag = { name : string; mutable payload : string or_subexpr unresolved }
and arg = Positional of string or_subexpr | Flag of flag
and expression = { count : int; cmd : string or_subexpr; mutable args : arg array }
type t = { expressions : expression array }
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.