align.pony

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
primitive AlignLeft
  """
  Left-align formatted output.
  """

primitive AlignRight
  """
  Right-align formatted output.
  """

primitive AlignCenter
  """
  Center-align formatted output.
  """

type Align is
  ( AlignLeft
  | AlignRight
  | AlignCenter )