Index: branches/pyyaml3000/tests/test_appliance.py
===================================================================
--- branches/pyyaml3000/tests/test_appliance.py	(revision 39)
+++ branches/pyyaml3000/tests/test_appliance.py	(revision 43)
@@ -27,2 +27,348 @@
     add_tests = classmethod(add_tests)
 
+class Node:
+    def __repr__(self):
+        args = []
+        for attribute in ['anchor', 'tag', 'value']:
+            if hasattr(self, attribute):
+                args.append(repr(getattr(self, attribute)))
+        return "%s(%s)" % (self.__class__.__name__, ''.join(args))
+
+class AliasNode(Node):
+    def __init__(self, anchor):
+        self.anchor = anchor
+
+class ScalarNode(Node):
+    def __init__(self, anchor, tag, value):
+        self.anchor = anchor
+        self.tag = tag
+        self.value = value
+
+class SequenceNode(Node):
+    def __init__(self, anchor, tag, value):
+        self.anchor = anchor
+        self.tag = tag
+        self.value = value
+
+class MappingNode(Node):
+    def __init__(self, anchor, tag, value):
+        self.anchor = anchor
+        self.tag = tag
+        self.value = value
+
+class Token:
+    def __repr__(self):
+        args = []
+        if hasattr(self, 'value'):
+            args.append(repr(self.value))
+        return "%s(%s)" % (self.__class__.__name__, ''.join(args))
+
+class EndToken(Token):
+    pass
+
+class DirectiveToken(Token):
+    pass
+
+class DocumentStartToken(Token):
+    pass
+
+class SequenceStartToken(Token):
+    pass
+
+class MappingStartToken(Token):
+    pass
+
+class SequenceEndToken(Token):
+    pass
+
+class MappingEndToken(Token):
+    pass
+
+class KeyToken(Token):
+    pass
+
+class ValueToken(Token):
+    pass
+
+class EntryToken(Token):
+    pass
+
+class AliasToken(Token):
+    def __init__(self, value):
+        self.value = value
+
+class AnchorToken(Token):
+    def __init__(self, value):
+        self.value = value
+
+class TagToken(Token):
+    def __init__(self, value):
+        self.value = value
+
+class ScalarToken(Token):
+    def __init__(self, value):
+        self.value = value
+
+class Error(Exception):
+    pass
+
+class CanonicalScanner:
+
+    def __init__(self, source, data):
+        self.source = source
+        self.data = unicode(data, 'utf-8')+u'\0'
+        self.index = 0
+
+    def scan(self):
+        #print self.data[self.index:]
+        tokens = []
+        while True:
+            self.find_token()
+            ch = self.data[self.index]
+            if ch == u'\0':
+                tokens.append(EndToken())
+                break
+            elif ch == u'%':
+                tokens.append(self.scan_directive())
+            elif ch == u'-' and self.data[self.index:self.index+3] == u'---':
+                self.index += 3
+                tokens.append(DocumentStartToken())
+            elif ch == u'[':
+                self.index += 1
+                tokens.append(SequenceStartToken())
+            elif ch == u'{':
+                self.index += 1
+                tokens.append(MappingStartToken())
+            elif ch == u']':
+                self.index += 1
+                tokens.append(SequenceEndToken())
+            elif ch == u'}':
+                self.index += 1
+                tokens.append(MappingEndToken())
+            elif ch == u'?':
+                self.index += 1
+                tokens.append(KeyToken())
+            elif ch == u':':
+                self.index += 1
+                tokens.append(ValueToken())
+            elif ch == u',':
+                self.index += 1
+                tokens.append(EntryToken())
+            elif ch == u'*' or ch == u'&':
+                tokens.append(self.scan_alias())
+            elif ch == u'!':
+                tokens.append(self.scan_tag())
+            elif ch == u'"':
+                tokens.append(self.scan_scalar())
+            else:
+                raise Error("invalid token")
+        return tokens
+
+    DIRECTIVE = u'%YAML 1.1'
+
+    def scan_directive(self):
+        if self.data[self.index:self.index+len(self.DIRECTIVE)] == self.DIRECTIVE and \
+                self.data[self.index+len(self.DIRECTIVE)] in u' \n\0':
+            self.index += len(self.DIRECTIVE)
+            return DirectiveToken()
+
+    def scan_alias(self):
+        if self.data[self.index] == u'*':
+            TokenClass = AliasToken
+        else:
+            TokenClass = AnchorToken
+        self.index += 1
+        start = self.index
+        while self.data[self.index] not in u', \n\0':
+            self.index += 1
+        value = self.data[start:self.index]
+        return TokenClass(value)
+
+    def scan_tag(self):
+        self.index += 1
+        start = self.index
+        while self.data[self.index] not in u' \n\0':
+            self.index += 1
+        value = self.data[start:self.index]
+        if value[0] == u'!':
+            value = 'tag:yaml.org,2002:'+value[1:]
+        else:
+            value = value[1:-1]
+        return TagToken(value)
+
+    QUOTE_CODES = {
+        'x': 2,
+        'u': 4,
+        'U': 8,
+    }
+
+    QUOTE_REPLACES = {
+        u'\\': u'\\',
+        u'\"': u'\"',
+        u' ': u' ',
+        u'a': u'\x07',
+        u'b': u'\x08',
+        u'e': u'\x1B',
+        u'f': u'\x0C',
+        u'n': u'\x0A',
+        u'r': u'\x0D',
+        u't': u'\x09',
+        u'v': u'\x0B',
+        u'N': u'\u0085',
+        u'L': u'\u2028',
+        u'P': u'\u2029',
+        u'_': u'_',
+        u'0': u'\x00',
+
+    }
+
+    def scan_scalar(self):
+        self.index += 1
+        chunks = []
+        start = self.index
+        ignore_spaces = False
+        while self.data[self.index] != u'"':
+            if self.data[self.index] == u'\\':
+                ignore_spaces = False
+                chunks.append(self.data[start:self.index])
+                self.index += 1
+                ch = self.data[self.index]
+                self.index += 1
+                if ch == u'\n':
+                    ignore_spaces = True
+                elif ch in self.QUOTE_CODES:
+                    length = self.QUOTE_CODES[ch]
+                    code = int(self.data[self.index:self.index+length], 16)
+                    chunks.append(unichr(code))
+                    self.index += length
+                else:
+                    chunks.append(self.QUOTE_REPLACES[ch])
+                start = self.index
+            elif self.data[self.index] == u'\n':
+                chunks.append(u' ')
+                self.index += 1
+                ignore_spaces = True
+            elif ignore_spaces and self.data[self.index] == u' ':
+                self.index += 1
+                start = self.index
+            else:
+                ignore_spaces = False
+                self.index += 1
+        chunks.append(self.data[start:self.index])
+        self.index += 1
+        return ScalarToken(u''.join(chunks))
+
+    def find_token(self):
+        found = False
+        while not found:
+            while self.data[self.index] in u' \t':
+                self.index += 1
+            if self.data[self.index] == u'#':
+                while self.data[self.index] != u'\n':
+                    self.index += 1
+            if self.data[self.index] == u'\n':
+                self.index += 1
+            else:
+                found = True
+
+class CanonicalParser:
+
+    def __init__(self, source, data):
+        self.scanner = CanonicalScanner(source, data)
+
+    # stream: document* END
+    def parse_stream(self):
+        documents = []
+        while not self.test_token(EndToken):
+            if self.test_token(DirectiveToken, DocumentStartToken):
+                documents.append(self.parse_document())
+            else:
+                raise Error("document is expected, got "+repr(self.tokens[self.index]))
+        return documents
+
+    # document: DIRECTIVE? DOCUMENT-START node?
+    def parse_document(self):
+        node = None
+        if self.test_token(DirectiveToken):
+            self.consume_token(DirectiveToken)
+        self.consume_token(DocumentStartToken)
+        if self.test_token(TagToken, AliasToken, AnchorToken, TagToken,
+                SequenceStartToken, MappingStartToken, ScalarToken):
+            node = self.parse_node()
+        return node
+
+    # node: ALIAS | ANCHOR? TAG? (SCALAR|sequence|mapping)
+    def parse_node(self):
+        if self.test_token(AliasToken):
+            return AliasNode(self.get_value())
+        else:
+            anchor = None
+            if self.test_token(AnchorToken):
+                anchor = self.get_value()
+            tag = None
+            if self.test_token(TagToken):
+                tag = self.get_value()
+            if self.test_token(ScalarToken):
+                return ScalarNode(anchor, tag, self.get_value())
+            elif self.test_token(SequenceStartToken):
+                return SequenceNode(anchor, tag, self.parse_sequence())
+            elif self.test_token(MappingStartToken):
+                return MappingNode(anchor, tag, self.parse_mapping())
+            else:
+                raise Error("SCALAR, '[', or '{' is expected, got "+repr(self.tokens[self.index]))
+
+    # sequence: SEQUENCE-START (node (ENTRY node)*)? ENTRY? SEQUENCE-END
+    def parse_sequence(self):
+        values = []
+        self.consume_token(SequenceStartToken)
+        if not self.test_token(SequenceEndToken):
+            values.append(self.parse_node())
+            while not self.test_token(SequenceEndToken):
+                self.consume_token(EntryToken)
+                if not self.test_token(SequenceEndToken):
+                    values.append(self.parse_node())
+        self.consume_token(SequenceEndToken)
+        return values
+
+    # mapping: MAPPING-START (map_entry (ENTRY map_entry)*)? ENTRY? MAPPING-END
+    def parse_mapping(self):
+        values = []
+        self.consume_token(MappingStartToken)
+        if not self.test_token(MappingEndToken):
+            values.append(self.parse_map_entry())
+            while not self.test_token(MappingEndToken):
+                self.consume_token(EntryToken)
+                if not self.test_token(MappingEndToken):
+                    values.append(self.parse_map_entry())
+        self.consume_token(MappingEndToken)
+        return values
+
+    # map_entry: KEY node VALUE node
+    def parse_map_entry(self):
+        self.consume_token(KeyToken)
+        key = self.parse_node()
+        self.consume_token(ValueToken)
+        value = self.parse_node()
+        return (key, value)
+
+    def test_token(self, *choices):
+        for choice in choices:
+            if isinstance(self.tokens[self.index], choice):
+                return True
+        return False
+
+    def consume_token(self, cls):
+        if not isinstance(self.tokens[self.index], cls):
+            raise Error("unexpected token "+repr(self.tokens[self.index]))
+        self.index += 1
+
+    def get_value(self):
+        value = self.tokens[self.index].value
+        self.index += 1
+        return value
+
+    def parse(self):
+        self.tokens = self.scanner.scan()
+        self.index = 0
+        return self.parse_stream()
+