atagen/culr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

shuffle around parser elements

Browse Source
This commit is contained in:
atagen 2024-12-03 01:30:01 +11:00
parent 08341eadba
commit 34deae2acc
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/ansi.ml
View File

@ -1,10 +1,7 @@
open Angstrom
open Types
open Parsers
let is_digit = function '0' .. '9' -> true | _ -> false
let digit = take_while is_digit >>| int_of_string
let is_semi c = c == ';'
let skip_semi = skip is_semi
let ansi_escape = string "\x1b["
let ansi_values = sep_by skip_semi digit

9
lib/parsers.ml Normal file
View File

@ -0,0 +1,9 @@
open Angstrom
let is_digit = function '0' .. '9' -> true | _ -> false
let is_semi c = c == ';'
let digit = take_while is_digit >>| int_of_string
let skip_semi = skip is_semi
let semi_digits = sep_by1 skip_semi digit