some janet parser/* expressions

parser-exploration.janet

(comment

  (def p (parser/new))

  (parser/consume p "[:a {:x 1 :y 2}")
  # =>
  15

  (def state (parser/state p))
  
  state
  # =>
  @{:delimiters "[" 
    :frames @[@{:args @[] 
                :column 0 
                :line 1 
                :type :root} 
              @{:args @[:a {:x 1 :y 2}] 
                :column 1 
                :line 1 
                :type :tuple}]}

  (def status (parser/status p))

  # =>
  :pending

  (parser/where p)
  # =>
  [1 15]

  (parser/has-more p)
  # =>
  false

  (parser/consume p "]")
  # =>
  1

  (def state (parser/state p))
  
  state
  # =>
  @{:delimiters "" 
    :frames @[@{:args @[[[:a {:x 1 :y 2}]]] 
                :column 0 
                :line 1 
                :type :root}]}

  (def status (parser/status p))

  status
  # =>
  :root
  
  )