@blissfully/elm-graphql/lib/elm-ast.js

/**
 * Copyright (c) 2016, John Hewson
 * All rights reserved.
 */
"use strict";
var __extends = (this && this.__extends) || function (d, b) {
    for (var p in b) if (b.hasOwnProperty(p)) d[p] = b[p];
    function __() { this.constructor = d; }
    d.prototype = b === null ? Object.create(b) : (__.prototype = b.prototype, new __());
};
// types
var ElmType = (function () {
    function ElmType() {
    }
    return ElmType;
}());
exports.ElmType = ElmType;
var ElmTypeName = (function (_super) {
    __extends(ElmTypeName, _super);
    function ElmTypeName(name) {
        _super.call(this);
        this.name = name;
    }
    return ElmTypeName;
}(ElmType));
exports.ElmTypeName = ElmTypeName;
var ElmTypeApp = (function (_super) {
    __extends(ElmTypeApp, _super);
    function ElmTypeApp(name, args) {
        _super.call(this);
        this.name = name;
        this.args = args;
    }
    return ElmTypeApp;
}(ElmType));
exports.ElmTypeApp = ElmTypeApp;
var ElmTypeRecord = (function (_super) {
    __extends(ElmTypeRecord, _super);
    function ElmTypeRecord(fields, typeParam) {
        _super.call(this);
        this.fields = fields;
        this.typeParam = typeParam;
    }
    return ElmTypeRecord;
}(ElmType));
exports.ElmTypeRecord = ElmTypeRecord;
// decls
var ElmDecl = (function () {
    function ElmDecl() {
    }
    return ElmDecl;
}());
exports.ElmDecl = ElmDecl;
var ElmTypeDecl = (function (_super) {
    __extends(ElmTypeDecl, _super);
    function ElmTypeDecl(name, constructors) {
        _super.call(this);
        this.name = name;
        this.constructors = constructors;
    }
    return ElmTypeDecl;
}(ElmDecl));
exports.ElmTypeDecl = ElmTypeDecl;
var ElmTypeAliasDecl = (function (_super) {
    __extends(ElmTypeAliasDecl, _super);
    function ElmTypeAliasDecl(name, type, typeParams) {
        if (typeParams === void 0) { typeParams = []; }
        _super.call(this);
        this.name = name;
        this.type = type;
        this.typeParams = typeParams;
    }
    return ElmTypeAliasDecl;
}(ElmDecl));
exports.ElmTypeAliasDecl = ElmTypeAliasDecl;
var ElmFunctionDecl = (function (_super) {
    __extends(ElmFunctionDecl, _super);
    function ElmFunctionDecl(name, parameters, returnType, body) {
        _super.call(this);
        this.name = name;
        this.parameters = parameters;
        this.returnType = returnType;
        this.body = body;
    }
    return ElmFunctionDecl;
}(ElmDecl));
exports.ElmFunctionDecl = ElmFunctionDecl;
var ElmFieldDecl = (function () {
    function ElmFieldDecl(name, type) {
        this.name = name;
        this.type = type;
    }
    return ElmFieldDecl;
}());
exports.ElmFieldDecl = ElmFieldDecl;
var ElmParameterDecl = (function () {
    function ElmParameterDecl(name, type) {
        this.name = name;
        this.type = type;
    }
    return ElmParameterDecl;
}());
exports.ElmParameterDecl = ElmParameterDecl;
function moduleToString(name, expose, imports, decls) {
    var warn = '{-\n    This file was automatically generated by elm-graphql.\n-}\n';
    return warn + 'module ' + name + ' exposing (' + expose.join(', ') + ')\n' +
        imports.map(function (str) { return '\nimport ' + str; }).join('') + '\n\n' +
        decls.map(declToString).join('\n\n');
}
exports.moduleToString = moduleToString;
function declToString(decl) {
    if (decl instanceof ElmTypeDecl) {
        return typeDeclToString(decl);
    }
    else if (decl instanceof ElmFunctionDecl) {
        return funtionToString(decl);
    }
    else if (decl instanceof ElmTypeAliasDecl) {
        return typeAliasDeclToString(decl);
    }
    else {
        throw new Error('unexpected decl: ' + decl.constructor.name + ' ' + JSON.stringify(decl));
    }
}
exports.declToString = declToString;
function typeDeclToString(type) {
    return 'type ' + type.name + '\n' +
        '    = ' + type.constructors.join('\n    | ') + '\n';
}
exports.typeDeclToString = typeDeclToString;
function typeAliasDeclToString(type) {
    return 'type alias ' + type.name + ' ' + type.typeParams.join(' ') + '\n' +
        '    = ' + typeToString(type.type, 0) + '\n';
}
exports.typeAliasDeclToString = typeAliasDeclToString;
function funtionToString(func) {
    var paramTypes = func.parameters.map(function (p) { return typeToString(p.type, 1); }).join(' -> ');
    var paramNames = func.parameters.map(function (p) { return p.name; }).join(' ');
    var arrow = paramTypes.length > 0 ? ' -> ' : '';
    var space = paramTypes.length > 0 ? ' ' : '';
    return func.name + ' : ' + paramTypes + arrow + typeToString(func.returnType, 0) + '\n' +
        func.name + space + paramNames + ' =\n    ' + exprToString(func.body, 0) + '\n';
}
exports.funtionToString = funtionToString;
function fieldToString(field, level) {
    return field.name + ' : ' + typeToString(field.type, level, true) + '\n';
}
function typeToString(ty, level, isField) {
    if (ty instanceof ElmTypeName) {
        return ty.name;
    }
    else if (ty instanceof ElmTypeApp) {
        var str = ty.name + ' ' + ty.args.map(function (arg) { return typeToString(arg, level); }).join(' ');
        if (isField) {
            return str;
        }
        else {
            return '(' + str + ')';
        }
    }
    else if (ty instanceof ElmTypeRecord) {
        var indent = makeIndent(level);
        var pipe = ty.typeParam ? ty.typeParam + ' | ' : '';
        return (indent + "{ ") + pipe +
            ty.fields.map(function (f) { return fieldToString(f, level + 1); }).join(indent + "    , ") +
            (indent + "}");
    }
    else {
        throw new Error('unexpected type: ' + ty.constructor.name + ' ' + JSON.stringify(ty));
    }
}
exports.typeToString = typeToString;
function makeIndent(level) {
    var str = '';
    for (var i = 0; i < level; i++) {
        str += '    ';
    }
    return str;
}
function exprToString(expr, level) {
    return expr.expr; // todo: expression trees
}
exports.exprToString = exprToString;
//# sourceMappingURL=elm-ast.js.map