summaryrefslogtreecommitdiff
path: root/src/lib/Codec/Pesto/Serialize.lhs
blob: 17a0fcc84c003ccba2133525856f06a79fc13f01 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Serializing
-----------

.. class:: nodoc

> module Codec.Pesto.Serialize (serialize) where
> import Data.Char (isSpace, isLetter)
> import Data.Ratio (numerator, denominator)
>
> import {-# SOURCE #-} Codec.Pesto.Parse

Serialization turns a linear list of instructions back into a human
representation.

> class Serializeable a where
> 	serialize :: a -> String
>
> instance Serializeable a => Serializeable [a] where
> 	serialize ops = unlines $ map serialize ops

> instance Serializeable Instruction where
> 	serialize (Annotation s) = quote '(' ')' s
> 	serialize (Ingredient q) = '+':serialize q
> 	serialize (Tool q) = '&':serialize q
> 	serialize (Action s) = quote '[' ']' s
> 	serialize (Reference q) = '*':serialize q
> 	serialize (Result q) = '>':serialize q
> 	serialize (Alternative q) = '|':serialize q
> 	serialize (Directive s) = '%':serializeQstr s
> 	serialize (Unknown s) = s

> instance Serializeable Quantity where
> 	serialize (Quantity a b "") = serialize a ++ " " ++ serializeQstr b
> 	serialize (Quantity (Exact (AmountStr "")) "" c) = serializeQstr c
> 	serialize (Quantity a "" c) = serialize a ++ " _ " ++ serializeQstr c
> 	serialize (Quantity a b c) = serialize a ++ " " ++ serializeQstr b ++ " " ++ serializeQstr c

> instance Serializeable Approximately where
> 	serialize (Range a b) = serialize a ++ "-" ++ serialize b
> 	serialize (Approx a) = '~':serialize a
> 	serialize (Exact a) = serialize a

There are two special cases here, both for aesthetic reasons:

1) If the denominator is one we can just skip printing it, because
   :math:`\frac{2}{1} = 2` and
2) if the numerator is larger than the denominator use mixed fraction notation,
   because :math:`\frac{7}{2} = 3+\frac{1}{2}`

> instance Serializeable Amount where
> 	serialize (AmountRatio a) | denominator a == 1 = show (numerator a)
> 	serialize (AmountRatio a) | numerator a > denominator a =
> 		show full ++ "/" ++ show num ++ "/" ++ show denom
> 		where
> 			full = numerator a `div` denom
> 			num = numerator a - full * denom
> 			denom = denominator a
> 	serialize (AmountRatio a) = show (numerator a) ++ "/" ++ show (denominator a)
> 	serialize (AmountStr s) = serializeQstr s

> serializeQstr "" = "_"
> serializeQstr s | (not . isLetter . head) s || hasSpaces s = quote '"' '"' s
> serializeQstr s = s
> hasSpaces = any isSpace
> quote start end s = [start] ++ concatMap (\c -> if c == end then ['\\', end] else [c]) s ++ [end]