Source

ocaml-indent / tests / bar.ml

let token state region str at_the_head (t : Parser.token) : State.t * State.t = 
  let line = Region.lnum region in
  let columns = Region.columns region in
  let indent = state.last_indent in
  let bases0 = state.bases in

  let pre_bases, post_bases = match t with
    | SEMISEMI ->
        (* unwind the top *)
        let bases = unwind_top bases0 in
        bases, bases

    | OPEN -> 
        let bases = unwind_top bases0 in
        bases, { k = KOpen; indent = Indent.Set (columns + 2); line } :: bases


let token state region str at_the_head (t : Parser.token) : State.t * State.t = 
  let pre_bases, post_bases = match t with
    | EQUAL ->
        (* CR jfuruse: TODO
           - pre bases
           - for non definition equals *)
        let rec f = function
          | ({k = (KLet (_,columns) | KType columns | KModule columns) } :: bs as bases) -> 
              bases, bases
          | { k = (KBrace _ | KBracket _ | KParen _) } :: _ -> bases0, bases0
          | [] -> [], []
          | _ :: bs -> f bs
        in
        f bases0
  in
  ()
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.