brainhug 0.7.0

A simple brainf*ck translator
Documentation 
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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89

use super::tokenize;
use super::Token;
use super::Token::*;

fn generate(tokens: &[Token]) -> String {
    let mut output = String::from(include_str!("preface.hs"));
    let mut indent = 1;

    for &token in tokens {
        match token {
            Add => {
                for _ in 0..indent {
                    output.push_str("    ");
                }
                // Increment the value at the selected cell
                output.push_str(">=> inc\n");
            }

            Sub => {
                for _ in 0..indent {
                    output.push_str("    ");
                }
                // Decrement the value at the selected cell
                output.push_str(">=> dec\n");
            }

            Right => {
                for _ in 0..indent {
                    output.push_str("    ");
                }
                // Change our selected cell to the next to the right
                output.push_str(">=> right\n");
            }

            Left => {
                for _ in 0..indent {
                    output.push_str("    ");
                }
                // Change our selected cell to the next to the left
                output.push_str(">=> left\n");
            }

            Read => {
                for _ in 0..indent {
                    output.push_str("    ");
                }
                // Read a single character into the selected cell
                output.push_str(">=> getC\n");
            }

            Write => {
                for _ in 0..indent {
                    output.push_str("    ");
                }
                // Print the character at the selected cell
                output.push_str(">=> putC\n");
            }

            BeginLoop => {
                for _ in 0..indent {
                    output.push_str("    ");
                }
                indent += 1;
                // Begin a loop at the current cell
                output.push_str(">=> while (return\n");
            }

            EndLoop => {
                indent -= 1;
                for _ in 0..indent {
                    output.push_str("    ");
                }
                // Close a loop
                output.push_str(")\n");
            }
        }
    }

    output.push('\n');

    output
}

/// generate string of Haskell code from a Brainf*ck string
pub fn brains(input: &str) -> String {
    let tokens = tokenize(input);

    generate(&tokens)
}