Source

Opifex / src / Language / Common / Formatter.ml

(*
 * Opifex
 *
 * Copyrights(C) 2012 by Pawel Wieczorek <wieczyk at gmail>
 *)

open AST
open Batteries

include StringPainter.Prioritized
(*************************************************************************************************
 * String painters for AST
 ************************************************************************************************)

let psp_identifier = psp_word -| string_of_identifier
let psp_ast_label  = psp_label -| string_of_label
let psp_variable   = psp_word -| string_of_variable

let psp_arithmetic_binary_operator = psp_operator -| string_of_arithmetic_binary_operator
let psp_arithmetic_unary_operator = psp_operator -| string_of_arithmetic_unary_operator
let psp_boolean_binary_operator = psp_operator -| string_of_boolean_binary_operator
let psp_boolean_unary_operator = psp_operator -| string_of_boolean_unary_operator
let psp_boolean_arithmetic_binary_operator = psp_operator -| string_of_boolean_arithmetic_binary_operator