# Copyright (C) 2005-2009 Aaron Bentley and Panometrics, Inc.
#                         W. Trevor King <wking@drexel.edu>
# <abentley@panoramicfeedback.com>
#
#    This program is free software; you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation; either version 2 of the License, or
#    (at your option) any later version.
#
#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU General Public License for more details.
#
#    You should have received a copy of the GNU General Public License
#    along with this program; if not, write to the Free Software
#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
import yaml
import os.path
import errno
import utility
import doctest

class IllegalKey(Exception):
    def __init__(self, key):
        Exception.__init__(self, 'Illegal key "%s"' % key)
        self.key = key

class IllegalValue(Exception):
    def __init__(self, value):
        Exception.__init__(self, 'Illegal value "%s"' % value)
        self.value = value 

def generate(map):
    """Generate a YAML mapfile content string.
    >>> generate({"q":"p"})
    'q: p\\n\\n'
    >>> generate({"q":u"Fran\u00e7ais"})
    'q: Fran\\xc3\\xa7ais\\n\\n'
    >>> generate({"q":u"hello"})
    'q: hello\\n\\n'
    >>> generate({"q=":"p"})
    Traceback (most recent call last):
    IllegalKey: Illegal key "q="
    >>> generate({"q:":"p"})
    Traceback (most recent call last):
    IllegalKey: Illegal key "q:"
    >>> generate({"q\\n":"p"})
    Traceback (most recent call last):
    IllegalKey: Illegal key "q\\n"
    >>> generate({"":"p"})
    Traceback (most recent call last):
    IllegalKey: Illegal key ""
    >>> generate({">q":"p"})
    Traceback (most recent call last):
    IllegalKey: Illegal key ">q"
    >>> generate({"q":"p\\n"})
    Traceback (most recent call last):
    IllegalValue: Illegal value "p\\n"
    """
    keys = map.keys()
    keys.sort()
    for key in keys:
        try:
            assert not key.startswith('>')
            assert('\n' not in key)
            assert('=' not in key)
            assert(':' not in key)
            assert(len(key) > 0)
        except AssertionError:
            raise IllegalKey(key.encode('string_escape'))
        if "\n" in map[key]:
            raise IllegalValue(map[key].encode('string_escape'))

    lines = []
    for key in keys:
        lines.append(yaml.safe_dump({key: map[key]},
                                    default_flow_style=False,
                                    allow_unicode=True))
        lines.append("")
    return '\n'.join(lines)

def parse(contents):
    """
    Parse a YAML mapfile string.
    >>> parse('q: p\\n\\n')['q']
    'p'
    >>> parse('q: \\'p\\'\\n\\n')['q']
    'p'
    >>> contents = generate({"a":"b", "c":"d", "e":"f"})
    >>> dict = parse(contents)
    >>> dict["a"]
    'b'
    >>> dict["c"]
    'd'
    >>> dict["e"]
    'f'
    """
    old_format = False
    for line in contents.splitlines():
        if len(line.split("=")) == 2:
            old_format = True
            break
    if old_format: # translate to YAML.  Hack to deal with old BE bugs.
        newlines = []
        for line in contents.splitlines():
            line = line.rstrip('\n')
            if len(line) == 0:
                continue
            fields = line.split("=")
            if len(fields) == 2:
                key,value = fields
                newlines.append('%s: "%s"' % (key, value.replace('"','\\"')))
            else:
                newlines.append(line)
        contents = '\n'.join(newlines)
    return yaml.load(contents) or {}

def map_save(rcs, path, map, allow_no_rcs=False):
    """Save the map as a mapfile to the specified path"""
    contents = generate(map)
    rcs.set_file_contents(path, contents, allow_no_rcs)

def map_load(rcs, path, allow_no_rcs=False):
    contents = rcs.get_file_contents(path, allow_no_rcs=allow_no_rcs)
    return parse(contents)

suite = doctest.DocTestSuite()