RubyGems - wallaby - Versions diffs - 7.0.0.beta1 → 7.0.0 - Mend

wallaby 7.0.0.beta1 → 7.0.0

Files changed (424) hide show

data/vendor/assets/javascripts/codemirror/5.49.2/mode/dylan/index.html DELETED Viewed

@@ -1,407 +0,0 @@
-<!doctype html>
-<title>CodeMirror: Dylan mode</title>
-<meta charset="utf-8"/>
-<link rel=stylesheet href="../../doc/docs.css">
-<link rel="stylesheet" href="../../lib/codemirror.css">
-<script src="../../lib/codemirror.js"></script>
-<script src="../../addon/edit/matchbrackets.js"></script>
-<script src="../../addon/comment/continuecomment.js"></script>
-<script src="../../addon/comment/comment.js"></script>
-<script src="dylan.js"></script>
-<style>.CodeMirror {border-top: 1px solid black; border-bottom: 1px solid black;}</style>
-<div id=nav>
-  <a href="https://codemirror.net"><h1>CodeMirror</h1><img id=logo src="../../doc/logo.png" alt=""></a>
-  <ul>
-    <li><a href="../../index.html">Home</a>
-    <li><a href="../../doc/manual.html">Manual</a>
-    <li><a href="https://github.com/codemirror/codemirror">Code</a>
-  </ul>
-  <ul>
-    <li><a href="../index.html">Language modes</a>
-    <li><a class=active href="#">Dylan</a>
-  </ul>
-</div>
-<article>
-<h2>Dylan mode</h2>
-<div><textarea id="code" name="code">
-Module:       locators-internals
-Synopsis:     Abstract modeling of locations
-Author:       Andy Armstrong
-Copyright:    Original Code is Copyright (c) 1995-2004 Functional Objects, Inc.
-              All rights reserved.
-License:      See License.txt in this distribution for details.
-Warranty:     Distributed WITHOUT WARRANTY OF ANY KIND
-define open generic locator-server
-    (locator :: <locator>) => (server :: false-or(<server-locator>));
-define open generic locator-host
-    (locator :: <locator>) => (host :: false-or(<string>));
-define open generic locator-volume
-    (locator :: <locator>) => (volume :: false-or(<string>));
-define open generic locator-directory
-    (locator :: <locator>) => (directory :: false-or(<directory-locator>));
-define open generic locator-relative?
-    (locator :: <locator>) => (relative? :: <boolean>);
-define open generic locator-path
-    (locator :: <locator>) => (path :: <sequence>);
-define open generic locator-base
-    (locator :: <locator>) => (base :: false-or(<string>));
-define open generic locator-extension
-    (locator :: <locator>) => (extension :: false-or(<string>));
-/// Locator classes
-define open abstract class <directory-locator> (<physical-locator>)
-end class <directory-locator>;
-define open abstract class <file-locator> (<physical-locator>)
-end class <file-locator>;
-define method as
-    (class == <directory-locator>, string :: <string>)
- => (locator :: <directory-locator>)
-  as(<native-directory-locator>, string)
-end method as;
-define method make
-    (class == <directory-locator>,
-     #key server :: false-or(<server-locator>) = #f,
-          path :: <sequence> = #[],
-          relative? :: <boolean> = #f,
-          name :: false-or(<string>) = #f)
- => (locator :: <directory-locator>)
-  make(<native-directory-locator>,
-       server:    server,
-       path:      path,
-       relative?: relative?,
-       name:      name)
-end method make;
-define method as
-    (class == <file-locator>, string :: <string>)
- => (locator :: <file-locator>)
-  as(<native-file-locator>, string)
-end method as;
-define method make
-    (class == <file-locator>,
-     #key directory :: false-or(<directory-locator>) = #f,
-          base :: false-or(<string>) = #f,
-          extension :: false-or(<string>) = #f,
-          name :: false-or(<string>) = #f)
- => (locator :: <file-locator>)
-  make(<native-file-locator>,
-       directory: directory,
-       base:      base,
-       extension: extension,
-       name:      name)
-end method make;
-/// Locator coercion
-//---*** andrewa: This caching scheme doesn't work yet, so disable it.
-define constant $cache-locators?        = #f;
-define constant $cache-locator-strings? = #f;
-define constant $locator-to-string-cache = make(<object-table>, weak: #"key");
-define constant $string-to-locator-cache = make(<string-table>, weak: #"value");
-define open generic locator-as-string
-    (class :: subclass(<string>), locator :: <locator>)
- => (string :: <string>);
-define open generic string-as-locator
-    (class :: subclass(<locator>), string :: <string>)
- => (locator :: <locator>);
-define sealed sideways method as
-    (class :: subclass(<string>), locator :: <locator>)
- => (string :: <string>)
-  let string = element($locator-to-string-cache, locator, default: #f);
-  if (string)
-    as(class, string)
-  else
-    let string = locator-as-string(class, locator);
-    if ($cache-locator-strings?)
-      element($locator-to-string-cache, locator) := string;
-    else
-      string
-    end
-  end
-end method as;
-define sealed sideways method as
-    (class :: subclass(<locator>), string :: <string>)
- => (locator :: <locator>)
-  let locator = element($string-to-locator-cache, string, default: #f);
-  if (instance?(locator, class))
-    locator
-  else
-    let locator = string-as-locator(class, string);
-    if ($cache-locators?)
-      element($string-to-locator-cache, string) := locator;
-    else
-      locator
-    end
-  end
-end method as;
-/// Locator conditions
-define class <locator-error> (<format-string-condition>, <error>)
-end class <locator-error>;
-define function locator-error
-    (format-string :: <string>, #rest format-arguments)
-  error(make(<locator-error>,
-             format-string:    format-string,
-             format-arguments: format-arguments))
-end function locator-error;
-/// Useful locator protocols
-define open generic locator-test
-    (locator :: <directory-locator>) => (test :: <function>);
-define method locator-test
-    (locator :: <directory-locator>) => (test :: <function>)
-  \=
-end method locator-test;
-define open generic locator-might-have-links?
-    (locator :: <directory-locator>) => (links? :: <boolean>);
-define method locator-might-have-links?
-    (locator :: <directory-locator>) => (links? :: singleton(#f))
-  #f
-end method locator-might-have-links?;
-define method locator-relative?
-    (locator :: <file-locator>) => (relative? :: <boolean>)
-  let directory = locator.locator-directory;
-  ~directory | directory.locator-relative?
-end method locator-relative?;
-define method current-directory-locator?
-    (locator :: <directory-locator>) => (current-directory? :: <boolean>)
-  locator.locator-relative?
-    & locator.locator-path = #[#"self"]
-end method current-directory-locator?;
-define method locator-directory
-    (locator :: <directory-locator>) => (parent :: false-or(<directory-locator>))
-  let path = locator.locator-path;
-  unless (empty?(path))
-    make(object-class(locator),
-         server:    locator.locator-server,
-         path:      copy-sequence(path, end: path.size - 1),
-         relative?: locator.locator-relative?)
-  end
-end method locator-directory;
-/// Simplify locator
-define open generic simplify-locator
-    (locator :: <physical-locator>)
- => (simplified-locator :: <physical-locator>);
-define method simplify-locator
-    (locator :: <directory-locator>)
- => (simplified-locator :: <directory-locator>)
-  let path = locator.locator-path;
-  let relative? = locator.locator-relative?;
-  let resolve-parent? = ~locator.locator-might-have-links?;
-  let simplified-path
-    = simplify-path(path,
-                    resolve-parent?: resolve-parent?,
-                    relative?: relative?);
-  if (path ~= simplified-path)
-    make(object-class(locator),
-         server:    locator.locator-server,
-         path:      simplified-path,
-         relative?: locator.locator-relative?)
-  else
-    locator
-  end
-end method simplify-locator;
-define method simplify-locator
-    (locator :: <file-locator>) => (simplified-locator :: <file-locator>)
-  let directory = locator.locator-directory;
-  let simplified-directory = directory & simplify-locator(directory);
-  if (directory ~= simplified-directory)
-    make(object-class(locator),
-         directory: simplified-directory,
-         base:      locator.locator-base,
-         extension: locator.locator-extension)
-  else
-    locator
-  end
-end method simplify-locator;
-/// Subdirectory locator
-define open generic subdirectory-locator
-    (locator :: <directory-locator>, #rest sub-path)
- => (subdirectory :: <directory-locator>);
-define method subdirectory-locator
-    (locator :: <directory-locator>, #rest sub-path)
- => (subdirectory :: <directory-locator>)
-  let old-path = locator.locator-path;
-  let new-path = concatenate-as(<simple-object-vector>, old-path, sub-path);
-  make(object-class(locator),
-       server:    locator.locator-server,
-       path:      new-path,
-       relative?: locator.locator-relative?)
-end method subdirectory-locator;
-/// Relative locator
-define open generic relative-locator
-    (locator :: <physical-locator>, from-locator :: <physical-locator>)
- => (relative-locator :: <physical-locator>);
-define method relative-locator
-    (locator :: <directory-locator>, from-locator :: <directory-locator>)
- => (relative-locator :: <directory-locator>)
-  let path = locator.locator-path;
-  let from-path = from-locator.locator-path;
-  case
-    ~locator.locator-relative? & from-locator.locator-relative? =>
-      locator-error
-        ("Cannot find relative path of absolute locator %= from relative locator %=",
-         locator, from-locator);
-    locator.locator-server ~= from-locator.locator-server =>
-      locator;
-    path = from-path =>
-      make(object-class(locator),
-           path: vector(#"self"),
-           relative?: #t);
-    otherwise =>
-      make(object-class(locator),
-           path: relative-path(path, from-path, test: locator.locator-test),
-           relative?: #t);
-  end
-end method relative-locator;
-define method relative-locator
-    (locator :: <file-locator>, from-directory :: <directory-locator>)
- => (relative-locator :: <file-locator>)
-  let directory = locator.locator-directory;
-  let relative-directory = directory & relative-locator(directory, from-directory);
-  if (relative-directory ~= directory)
-    simplify-locator
-      (make(object-class(locator),
-            directory: relative-directory,
-            base:      locator.locator-base,
-            extension: locator.locator-extension))
-  else
-    locator
-  end
-end method relative-locator;
-define method relative-locator
-    (locator :: <physical-locator>, from-locator :: <file-locator>)
- => (relative-locator :: <physical-locator>)
-  let from-directory = from-locator.locator-directory;
-  case
-    from-directory =>
-      relative-locator(locator, from-directory);
-    ~locator.locator-relative? =>
-      locator-error
-        ("Cannot find relative path of absolute locator %= from relative locator %=",
-         locator, from-locator);
-    otherwise =>
-      locator;
-  end
-end method relative-locator;
-/// Merge locators
-define open generic merge-locators
-    (locator :: <physical-locator>, from-locator :: <physical-locator>)
- => (merged-locator :: <physical-locator>);
-/// Merge locators
-define method merge-locators
-    (locator :: <directory-locator>, from-locator :: <directory-locator>)
- => (merged-locator :: <directory-locator>)
-  if (locator.locator-relative?)
-    let path = concatenate(from-locator.locator-path, locator.locator-path);
-    simplify-locator
-      (make(object-class(locator),
-            server:    from-locator.locator-server,
-            path:      path,
-            relative?: from-locator.locator-relative?))
-  else
-    locator
-  end
-end method merge-locators;
-define method merge-locators
-    (locator :: <file-locator>, from-locator :: <directory-locator>)
- => (merged-locator :: <file-locator>)
-  let directory = locator.locator-directory;
-  let merged-directory
-    = if (directory)
-        merge-locators(directory, from-locator)
-      else
-        simplify-locator(from-locator)
-      end;
-  if (merged-directory ~= directory)
-    make(object-class(locator),
-         directory: merged-directory,
-         base:      locator.locator-base,
-         extension: locator.locator-extension)
-  else
-    locator
-  end
-end method merge-locators;
-define method merge-locators
-    (locator :: <physical-locator>, from-locator :: <file-locator>)
- => (merged-locator :: <physical-locator>)
-  let from-directory = from-locator.locator-directory;
-  if (from-directory)
-    merge-locators(locator, from-directory)
-  else
-    locator
-  end
-end method merge-locators;
-/// Locator protocols
-define sideways method supports-open-locator?
-    (locator :: <file-locator>) => (openable? :: <boolean>)
-  ~locator.locator-relative?
-end method supports-open-locator?;
-define sideways method open-locator
-    (locator :: <file-locator>, #rest keywords, #key, #all-keys)
- => (stream :: <stream>)
-  apply(open-file-stream, locator, keywords)
-end method open-locator;
-</textarea></div>
-    <script>
-      var editor = CodeMirror.fromTextArea(document.getElementById("code"), {
-        mode: "text/x-dylan",
-        lineNumbers: true,
-        matchBrackets: true,
-        continueComments: "Enter",
-        extraKeys: {"Ctrl-Q": "toggleComment"},
-        tabMode: "indent",
-        indentUnit: 2
-      });
-    </script>
-    <p><strong>MIME types defined:</strong> <code>text/x-dylan</code>.</p>
-</article>

data/vendor/assets/javascripts/codemirror/5.49.2/mode/dylan/test.js DELETED Viewed

@@ -1,88 +0,0 @@
-// CodeMirror, copyright (c) by Marijn Haverbeke and others
-// Distributed under an MIT license: https://codemirror.net/LICENSE
-(function() {
-  var mode = CodeMirror.getMode({indentUnit: 2}, "dylan");
-  function MT(name) { test.mode(name, mode, Array.prototype.slice.call(arguments, 1)); }
-  MT('comments',
-     '[comment // This is a line comment]',
-     '[comment /* This is a block comment */]',
-     '[comment /* This is a multi]',
-     '[comment line comment]',
-     '[comment */]',
-     '[comment /* And this is a /*]',
-     '[comment /* nested */ comment */]');
-  MT('unary_operators',
-     '[operator -][variable a]',
-     '[operator -] [variable a]',
-     '[operator ~][variable a]',
-     '[operator ~] [variable a]');
-  MT('binary_operators',
-     '[variable a] [operator +] [variable b]',
-     '[variable a] [operator -] [variable b]',
-     '[variable a] [operator *] [variable b]',
-     '[variable a] [operator /] [variable b]',
-     '[variable a] [operator ^] [variable b]',
-     '[variable a] [operator =] [variable b]',
-     '[variable a] [operator ==] [variable b]',
-     '[variable a] [operator ~=] [variable b]',
-     '[variable a] [operator ~==] [variable b]',
-     '[variable a] [operator <] [variable b]',
-     '[variable a] [operator <=] [variable b]',
-     '[variable a] [operator >] [variable b]',
-     '[variable a] [operator >=] [variable b]',
-     '[variable a] [operator &] [variable b]',
-     '[variable a] [operator |] [variable b]',
-     '[variable a] [operator :=] [variable b]');
-  MT('integers',
-     '[number 1]',
-     '[number 123]',
-     '[number -123]',
-     '[number +456]',
-     '[number #b010]',
-     '[number #o073]',
-     '[number #xabcDEF123]');
-  MT('floats',
-     '[number .3]',
-     '[number -1.]',
-     '[number -2.335]',
-     '[number +3.78d1]',
-     '[number 3.78s-1]',
-     '[number -3.32e+5]');
-  MT('characters_and_strings',
-     "[string 'a']",
-     "[string '\\\\'']",
-     '[string ""]',
-     '[string "a"]',
-     '[string "abc def"]',
-     '[string "More escaped characters: \\\\\\\\ \\\\a \\\\b \\\\e \\\\f \\\\n \\\\r \\\\t \\\\0 ..."]');
-  MT('brackets',
-     '[bracket #[[]]]',
-     '[bracket #()]',
-     '[bracket #(][number 1][bracket )]',
-     '[bracket [[][number 1][punctuation ,] [number 3][bracket ]]]',
-     '[bracket ()]',
-     '[bracket {}]',
-     '[keyword if] [bracket (][variable foo][bracket )]',
-     '[bracket (][number 1][bracket )]',
-     '[bracket [[][number 1][bracket ]]]');
-  MT('hash_words',
-     '[punctuation ##]',
-     '[atom #f]', '[atom #F]',
-     '[atom #t]', '[atom #T]',
-     '[atom #all-keys]',
-     '[atom #include]',
-     '[atom #key]',
-     '[atom #next]',
-     '[atom #rest]',
-     '[string #"foo"]',
-     '[error #invalid]');
-})();

data/vendor/assets/javascripts/codemirror/5.49.2/mode/ebnf/ebnf.js DELETED Viewed

@@ -1,195 +0,0 @@
-// CodeMirror, copyright (c) by Marijn Haverbeke and others
-// Distributed under an MIT license: https://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("ebnf", function (config) {
-    var commentType = {slash: 0, parenthesis: 1};
-    var stateType = {comment: 0, _string: 1, characterClass: 2};
-    var bracesMode = null;
-    if (config.bracesMode)
-      bracesMode = CodeMirror.getMode(config, config.bracesMode);
-    return {
-      startState: function () {
-        return {
-          stringType: null,
-          commentType: null,
-          braced: 0,
-          lhs: true,
-          localState: null,
-          stack: [],
-          inDefinition: false
-        };
-      },
-      token: function (stream, state) {
-        if (!stream) return;
-        //check for state changes
-        if (state.stack.length === 0) {
-          //strings
-          if ((stream.peek() == '"') || (stream.peek() == "'")) {
-            state.stringType = stream.peek();
-            stream.next(); // Skip quote
-            state.stack.unshift(stateType._string);
-          } else if (stream.match(/^\/\*/)) { //comments starting with /*
-            state.stack.unshift(stateType.comment);
-            state.commentType = commentType.slash;
-          } else if (stream.match(/^\(\*/)) { //comments starting with (*
-            state.stack.unshift(stateType.comment);
-            state.commentType = commentType.parenthesis;
-          }
-        }
-        //return state
-        //stack has
-        switch (state.stack[0]) {
-        case stateType._string:
-          while (state.stack[0] === stateType._string && !stream.eol()) {
-            if (stream.peek() === state.stringType) {
-              stream.next(); // Skip quote
-              state.stack.shift(); // Clear flag
-            } else if (stream.peek() === "\\") {
-              stream.next();
-              stream.next();
-            } else {
-              stream.match(/^.[^\\\"\']*/);
-            }
-          }
-          return state.lhs ? "property string" : "string"; // Token style
-        case stateType.comment:
-          while (state.stack[0] === stateType.comment && !stream.eol()) {
-            if (state.commentType === commentType.slash && stream.match(/\*\//)) {
-              state.stack.shift(); // Clear flag
-              state.commentType = null;
-            } else if (state.commentType === commentType.parenthesis && stream.match(/\*\)/)) {
-              state.stack.shift(); // Clear flag
-              state.commentType = null;
-            } else {
-              stream.match(/^.[^\*]*/);
-            }
-          }
-          return "comment";
-        case stateType.characterClass:
-          while (state.stack[0] === stateType.characterClass && !stream.eol()) {
-            if (!(stream.match(/^[^\]\\]+/) || stream.match(/^\\./))) {
-              state.stack.shift();
-            }
-          }
-          return "operator";
-        }
-        var peek = stream.peek();
-        if (bracesMode !== null && (state.braced || peek === "{")) {
-          if (state.localState === null)
-            state.localState = CodeMirror.startState(bracesMode);
-          var token = bracesMode.token(stream, state.localState),
-          text = stream.current();
-          if (!token) {
-            for (var i = 0; i < text.length; i++) {
-              if (text[i] === "{") {
-                if (state.braced === 0) {
-                  token = "matchingbracket";
-                }
-                state.braced++;
-              } else if (text[i] === "}") {
-                state.braced--;
-                if (state.braced === 0) {
-                  token = "matchingbracket";
-                }
-              }
-            }
-          }
-          return token;
-        }
-        //no stack
-        switch (peek) {
-        case "[":
-          stream.next();
-          state.stack.unshift(stateType.characterClass);
-          return "bracket";
-        case ":":
-        case "|":
-        case ";":
-          stream.next();
-          return "operator";
-        case "%":
-          if (stream.match("%%")) {
-            return "header";
-          } else if (stream.match(/[%][A-Za-z]+/)) {
-            return "keyword";
-          } else if (stream.match(/[%][}]/)) {
-            return "matchingbracket";
-          }
-          break;
-        case "/":
-          if (stream.match(/[\/][A-Za-z]+/)) {
-          return "keyword";
-        }
-        case "\\":
-          if (stream.match(/[\][a-z]+/)) {
-            return "string-2";
-          }
-        case ".":
-          if (stream.match(".")) {
-            return "atom";
-          }
-        case "*":
-        case "-":
-        case "+":
-        case "^":
-          if (stream.match(peek)) {
-            return "atom";
-          }
-        case "$":
-          if (stream.match("$$")) {
-            return "builtin";
-          } else if (stream.match(/[$][0-9]+/)) {
-            return "variable-3";
-          }
-        case "<":
-          if (stream.match(/<<[a-zA-Z_]+>>/)) {
-            return "builtin";
-          }
-        }
-        if (stream.match(/^\/\//)) {
-          stream.skipToEnd();
-          return "comment";
-        } else if (stream.match(/return/)) {
-          return "operator";
-        } else if (stream.match(/^[a-zA-Z_][a-zA-Z0-9_]*/)) {
-          if (stream.match(/(?=[\(.])/)) {
-            return "variable";
-          } else if (stream.match(/(?=[\s\n]*[:=])/)) {
-            return "def";
-          }
-          return "variable-2";
-        } else if (["[", "]", "(", ")"].indexOf(stream.peek()) != -1) {
-          stream.next();
-          return "bracket";
-        } else if (!stream.eatSpace()) {
-          stream.next();
-        }
-        return null;
-      }
-    };
-  });
-  CodeMirror.defineMIME("text/x-ebnf", "ebnf");
-});