NimYAML/server/server.nim

#            NimYAML - YAML implementation in Nim
#        (c) Copyright 2015 Felix Krause
#
#    See the file "copying.txt", included in this
#    distribution, for details about the copyright.

import jester, asyncdispatch, json, streams
import yaml

routes:
    get "/":
        headers["Content-Type"] = "text/plain"
        resp "I am a friendly NimYAML parser webservice."
    post "/":
        var
            style: PresentationStyle
            resultNode = newJObject()
            tokens = false
        headers["Access-Control-Allow-Origin"] = "*"
        headers["Pragma"] = "no-cache"
        headers["Cache-Control"] = "no-cache"
        headers["Expires"] = "0"
        try:
            case @"style"
            of "minimal": style = psMinimal
            of "canonical": style = psCanonical
            of "default": style = psDefault
            of "json": style = psJson
            of "block": style = psBlockOnly
            of "tokens":
                var
                    output = ""
                    parser = newYamlParser()
                    events = parser.parse(newStringStream(@"input"))
                for event in events:
                    output.add($event & "\n")
                resultNode["code"] = %0
                resultNode["output"] = %output
                resp resultNode.pretty, "application/json"
                tokens = true
            if not tokens:
                var output = newStringStream()
                transform(newStringStream(@"input"), output,
                          defineOptions(style))
                resultNode["code"] = %0
                resultNode["output"] = %output.data
                resp resultNode.pretty, "application/json"
        except YamlParserError:
            let e = (ref YamlParserError)(getCurrentException())
            resultNode["code"] = %1
            resultNode["line"] = %e.line
            resultNode["column"] = %e.column
            resultNode["message"] = %e.msg
            resultNode["detail"] = %e.lineContent
            resp resultNode.pretty, "application/json"
        except YamlPresenterJsonError:
            let e = getCurrentException()
            resultNode["code"] = %2
            resultNode["message"] = %e.msg
            headers["Content-Type"] = "application/json"
            resp resultNode.pretty, "application/json"
        except:
            let e = getCurrentException()
            let msg = "Name: " & $e.name & "\nMessage: " & e.msg &
                      "\nTrace:\n" & e.getStackTrace
            resp Http500, msg, "text/plain;charset=utf-8"

runForever()