// CodeMirror, copyright © by Marijn Haverbeke and others // Distributed under an MIT license: codemirror.net/LICENSE

(function(mod) {

if (typeof exports == "object" && typeof module == "object") // CommonJS
  mod(require("../../lib/codemirror"));
else if (typeof define == "function" && define.amd) // AMD
  define(["../../lib/codemirror"], mod);
else // Plain browser env
  mod(CodeMirror);

})(function(CodeMirror) {

"use strict";

CodeMirror.defineMode("ttcn", function(config, parserConfig) {
  var indentUnit = config.indentUnit,
      keywords = parserConfig.keywords || {},
      builtin = parserConfig.builtin || {},
      timerOps = parserConfig.timerOps || {},
      portOps  = parserConfig.portOps || {},
      configOps = parserConfig.configOps || {},
      verdictOps = parserConfig.verdictOps || {},
      sutOps = parserConfig.sutOps || {},
      functionOps = parserConfig.functionOps || {},

      verdictConsts = parserConfig.verdictConsts || {},
      booleanConsts = parserConfig.booleanConsts || {},
      otherConsts   = parserConfig.otherConsts || {},

      types = parserConfig.types || {},
      visibilityModifiers = parserConfig.visibilityModifiers || {},
      templateMatch = parserConfig.templateMatch || {},
      multiLineStrings = parserConfig.multiLineStrings,
      indentStatements = parserConfig.indentStatements !== false;
  var isOperatorChar = /[+\-*&@=<>!\/]/;
  var curPunc;

  function tokenBase(stream, state) {
    var ch = stream.next();

    if (ch == '"' || ch == "'") {
      state.tokenize = tokenString(ch);
      return state.tokenize(stream, state);
    }
    if (/[\[\]{}\(\),;\\:\?\.]/.test(ch)) {
      curPunc = ch;
      return "punctuation";
    }
    if (ch == "#"){
      stream.skipToEnd();
      return "atom preprocessor";
    }
    if (ch == "%"){
      stream.eatWhile(/\b/);
      return "atom ttcn3Macros";
    }
    if (/\d/.test(ch)) {
      stream.eatWhile(/[\w\.]/);
      return "number";
    }
    if (ch == "/") {
      if (stream.eat("*")) {
        state.tokenize = tokenComment;
        return tokenComment(stream, state);
      }
      if (stream.eat("/")) {
        stream.skipToEnd();
        return "comment";
      }
    }
    if (isOperatorChar.test(ch)) {
      if(ch == "@"){
        if(stream.match("try") || stream.match("catch")
            || stream.match("lazy")){
          return "keyword";
        }
      }
      stream.eatWhile(isOperatorChar);
      return "operator";
    }
    stream.eatWhile(/[\w\$_\xa1-\uffff]/);
    var cur = stream.current();

    if (keywords.propertyIsEnumerable(cur)) return "keyword";
    if (builtin.propertyIsEnumerable(cur)) return "builtin";

    if (timerOps.propertyIsEnumerable(cur)) return "def timerOps";
    if (configOps.propertyIsEnumerable(cur)) return "def configOps";
    if (verdictOps.propertyIsEnumerable(cur)) return "def verdictOps";
    if (portOps.propertyIsEnumerable(cur)) return "def portOps";
    if (sutOps.propertyIsEnumerable(cur)) return "def sutOps";
    if (functionOps.propertyIsEnumerable(cur)) return "def functionOps";

    if (verdictConsts.propertyIsEnumerable(cur)) return "string verdictConsts";
    if (booleanConsts.propertyIsEnumerable(cur)) return "string booleanConsts";
    if (otherConsts.propertyIsEnumerable(cur)) return "string otherConsts";

    if (types.propertyIsEnumerable(cur)) return "builtin types";
    if (visibilityModifiers.propertyIsEnumerable(cur))
      return "builtin visibilityModifiers";
    if (templateMatch.propertyIsEnumerable(cur)) return "atom templateMatch";

    return "variable";
  }

  function tokenString(quote) {
    return function(stream, state) {
      var escaped = false, next, end = false;
      while ((next = stream.next()) != null) {
        if (next == quote && !escaped){
          var afterQuote = stream.peek();
          //look if the character after the quote is like the B in '10100010'B
          if (afterQuote){
            afterQuote = afterQuote.toLowerCase();
            if(afterQuote == "b" || afterQuote == "h" || afterQuote == "o")
              stream.next();
          }
          end = true; break;
        }
        escaped = !escaped && next == "\\";
      }
      if (end || !(escaped || multiLineStrings))
        state.tokenize = null;
      return "string";
    };
  }

  function tokenComment(stream, state) {
    var maybeEnd = false, ch;
    while (ch = stream.next()) {
      if (ch == "/" && maybeEnd) {
        state.tokenize = null;
        break;
      }
      maybeEnd = (ch == "*");
    }
    return "comment";
  }

  function Context(indented, column, type, align, prev) {
    this.indented = indented;
    this.column = column;
    this.type = type;
    this.align = align;
    this.prev = prev;
  }

  function pushContext(state, col, type) {
    var indent = state.indented;
    if (state.context && state.context.type == "statement")
      indent = state.context.indented;
    return state.context = new Context(indent, col, type, null, state.context);
  }

  function popContext(state) {
    var t = state.context.type;
    if (t == ")" || t == "]" || t == "}")
      state.indented = state.context.indented;
    return state.context = state.context.prev;
  }

  //Interface
  return {
    startState: function(basecolumn) {
      return {
        tokenize: null,
        context: new Context((basecolumn || 0) - indentUnit, 0, "top", false),
        indented: 0,
        startOfLine: true
      };
    },

    token: function(stream, state) {
      var ctx = state.context;
      if (stream.sol()) {
        if (ctx.align == null) ctx.align = false;
        state.indented = stream.indentation();
        state.startOfLine = true;
      }
      if (stream.eatSpace()) return null;
      curPunc = null;
      var style = (state.tokenize || tokenBase)(stream, state);
      if (style == "comment") return style;
      if (ctx.align == null) ctx.align = true;

      if ((curPunc == ";" || curPunc == ":" || curPunc == ",")
          && ctx.type == "statement"){
        popContext(state);
      }
      else if (curPunc == "{") pushContext(state, stream.column(), "}");
      else if (curPunc == "[") pushContext(state, stream.column(), "]");
      else if (curPunc == "(") pushContext(state, stream.column(), ")");
      else if (curPunc == "}") {
        while (ctx.type == "statement") ctx = popContext(state);
        if (ctx.type == "}") ctx = popContext(state);
        while (ctx.type == "statement") ctx = popContext(state);
      }
      else if (curPunc == ctx.type) popContext(state);
      else if (indentStatements &&
          (((ctx.type == "}" || ctx.type == "top") && curPunc != ';') ||
          (ctx.type == "statement" && curPunc == "newstatement")))
        pushContext(state, stream.column(), "statement");

      state.startOfLine = false;

      return style;
    },

    electricChars: "{}",
    blockCommentStart: "/*",
    blockCommentEnd: "*/",
    lineComment: "//",
    fold: "brace"
  };
});

function words(str) {
  var obj = {}, words = str.split(" ");
  for (var i = 0; i < words.length; ++i) obj[words[i]] = true;
  return obj;
}

function def(mimes, mode) {
  if (typeof mimes == "string") mimes = [mimes];
  var words = [];
  function add(obj) {
    if (obj) for (var prop in obj) if (obj.hasOwnProperty(prop))
      words.push(prop);
  }

  add(mode.keywords);
  add(mode.builtin);
  add(mode.timerOps);
  add(mode.portOps);

  if (words.length) {
    mode.helperType = mimes[0];
    CodeMirror.registerHelper("hintWords", mimes[0], words);
  }

  for (var i = 0; i < mimes.length; ++i)
    CodeMirror.defineMIME(mimes[i], mode);
}

def(["text/x-ttcn", "text/x-ttcn3", "text/x-ttcnpp"], {
  name: "ttcn",
  keywords: words("activate address alive all alt altstep and and4b any" +
  " break case component const continue control deactivate" +
  " display do else encode enumerated except exception" +
  " execute extends extension external for from function" +
  " goto group if import in infinity inout interleave" +
  " label language length log match message mixed mod" +
  " modifies module modulepar mtc noblock not not4b nowait" +
  " of on optional or or4b out override param pattern port" +
  " procedure record recursive rem repeat return runs select" +
  " self sender set signature system template testcase to" +
  " type union value valueof var variant while with xor xor4b"),
  builtin: words("bit2hex bit2int bit2oct bit2str char2int char2oct encvalue" +
  " decomp decvalue float2int float2str hex2bit hex2int" +
  " hex2oct hex2str int2bit int2char int2float int2hex" +
  " int2oct int2str int2unichar isbound ischosen ispresent" +
  " isvalue lengthof log2str oct2bit oct2char oct2hex oct2int" +
  " oct2str regexp replace rnd sizeof str2bit str2float" +
  " str2hex str2int str2oct substr unichar2int unichar2char" +
  " enum2int"),
  types: words("anytype bitstring boolean char charstring default float" +
  " hexstring integer objid octetstring universal verdicttype timer"),
  timerOps: words("read running start stop timeout"),
  portOps: words("call catch check clear getcall getreply halt raise receive" +
  " reply send trigger"),
  configOps: words("create connect disconnect done kill killed map unmap"),
  verdictOps: words("getverdict setverdict"),
  sutOps: words("action"),
  functionOps: words("apply derefers refers"),

  verdictConsts: words("error fail inconc none pass"),
  booleanConsts: words("true false"),
  otherConsts: words("null NULL omit"),

  visibilityModifiers: words("private public friend"),
  templateMatch: words("complement ifpresent subset superset permutation"),
  multiLineStrings: true
});

});