sealing example seems to work

.gitattributes

@@ -0,0 +1 @@
+*.mt linguist-language=Monte

.travis.yml

@@ -1,10 +1,14 @@
+# Switch to faster container-based builders. Forbids use of sudo, setuid,
+# seteid, etc. but we don't need them.
+sudo: false
 language: python
 python:
     - '2.7'
     - pypy
 
 matrix:
     allow_failures:
+        - python: '2.7'
         - python: pypy
     fast_finish: true
 
@@ -16,6 +20,5 @@ notifications:
     irc:
         channels:
             - "chat.freenode.net#monte"
-        on_success: always
+        on_success: change
         on_failure: always
-

LICENSE

@@ -1,8 +1,10 @@
 # Copyright (c) 2008-2014
 Allen Short
+Corbin Simpson
 Mike Cooper
 E. Dunham
 Combex, Inc.
+Google, Inc.
 
 Soli Deo Gloria.
 

README.md

@@ -13,4 +13,4 @@ if you have a problem with the docs, telling us what question you had and
 where you expected to find the answer. Or come say hi on IRC, in #monte on
 irc.freenode.net! 
 
-![Travis Status](https://api.travis-ci.org/monte-language/monte.svg)
+[![Travis Status](https://api.travis-ci.org/monte-language/monte.svg)](https://travis-ci.org/monte-language/monte/)

bin/monte

@@ -7,13 +7,29 @@ while os.path.dirname(path) != path:
         break
     path = os.path.dirname(path)
 
-from monte.runtime.load import eval as monte_eval, monteImport
-# from monte.repl import startRepl
+try:
+    from monte.runtime.load import eval as monte_eval, monteImport
+    # from monte.repl import startRepl
+except ImportError:
+    import_error_message = """Failed to import a required Python module. 
+    Is everything in requirements.txt installed and available?
+    """
+    print >> sys.stderr, import_error_message
+    exit(-1)
 
 # startRepl()
 from monte.runtime.scope import bootScope, createSafeScope
 safeScope = createSafeScope(bootScope)
 scriptScope = safeScope.copy()
 scriptScope["import"] = monteImport(safeScope)
 if len(sys.argv) > 1:
-    monte_eval(open(sys.argv[1]).read(), scriptScope)
+    if sys.argv[1] == "-c":
+        # Compile-only mode!
+        source = open(sys.argv[2]).read()
+        from monte.parser import parse
+        from monte.expander import expand
+        from monte.ast import dump
+        ast = expand(parse(source))
+        sys.stdout.write(dump(ast))
+    else:
+        monte_eval(open(sys.argv[1]).read(), scriptScope)

contrib/Quotes

@@ -0,0 +1,44 @@
+<simpson> I mean, to be frank, at some point this is all Prolog reinvention.
+<simpson> But whatever.
+<dash> sure
+<dash> the problem is that the good parts of prolog are all locked away in... prolog implementations
+*time passes*
+<dash> simpson: i guess we have about half a prolog now
+<simpson> dash: Which is appropriate. That's what's supposed to happen, right? We are now complex enough to have an ill-specified and slightly buggy reimplementation of Prolog in our system.
+<dash> yeah! we're ahead of all those other suckers who got common lisp instead
+%
+--> monteBot ([email protected]) has joined #monte
+<simpson> monteBot: speak
+<monteBot> Hi there!
+<simpson> Okay, the latency's good now.
+<dash> monteBot: kill
+<simpson> dash: It's not yet equipped for that.
+<dash> simpson: i'm patient.
+%
+<dash> well, okay. what's our threat model?
+<simpson> Developers want to deploy HTTPS sites.
+<simpson> Origin of threat: Developers
+%
+<dash> simpson: clicking randomly through stackexchange, i think i know how other programmers feel during our design conversations: http://gaming.stackexchange.com/q/214975/2354
+<dash> "... i know _some_ of those words?"
+<mythmon> dash: can confirm
+%
+< froztbyte> simpson: a pet hate of mine in REPLs is when something doesn't allow forard/reverse word jumps, back-kill-word, etc
+< froztbyte> I don't know how much effort those are to implement without readline
+< dash> froztbyte: easy
+< froztbyte> but I guess since the parser already does some of that work, parts of it might be reused?
+< dash> froztbyte: make emacs your repl frontend
+< froztbyte> dash: snrk
+< dash> froztbyte: it's been done
+< dash> also, there's rlwrap
+< froztbyte> oh, I can believe that
+< mythmon> froztbyte: without readline? not easy. but then, why not just use readline?
+< froztbyte> readline, curses, and Tk
+< froztbyte> are some of the ingredients commonly found on a unix/linux system which I've actually very successfully managed to not learn things about
+< dash> who'd want to
+< froztbyte> heh
+< simpson> dash: Oh my. I did not know about rlwrap.
+< simpson> Holy fuck now e/rune doesn't suck!
+ * simpson *ahem*
+< simpson> I mean, yes. Very nifty. Quite. Capital.
+%

contrib/monte.el

@@ -0,0 +1,73 @@
+;; monte.el -- support for editing Monte code -*- lexical-binding: t -*-
+
+(defvar monte-mode-map
+  (let ((map (make-sparse-keymap)))
+    ;; (define-key map [remap forward-sentence] 'monte-forward-block)
+    ;; (define-key map [remap backward-sentence] 'monte-backward-block)
+    ;; (define-key map "\177" 'monde-dedent-line-backspace)
+    ;; (define-key map (kbd "<backtab>") 'monte-dedent-line)
+    map)
+  "Keymap for monte-mode.")
+
+(defun monte-get-previous-line-indent ()
+  (save-excursion
+    (forward-line -1)
+    (while (string-match "^ +$" (thing-at-point 'line))
+      (forward-line -1))
+    (current-indentation)))
+
+(defun monte-indent-line ()
+  (interactive)
+  (message "%s %s %s" this-command last-command (- (current-indentation) 4))
+  (let ((previous-indent (monte-get-previous-line-indent))
+        (is-cycling (eq this-command last-command)))
+    (if is-cycling
+        (if (eq (current-indentation) 0)
+            (indent-to (+ previous-indent 4))
+          (let ((place (- (current-indentation) 4)))
+            (beginning-of-line)
+            (delete-horizontal-space)
+            (indent-to place)))
+      (indent-to (+ previous-indent 4)))))
+
+(defvar monte-font-lock-keywords
+  `(,(rx symbol-start
+         (or "as" "bind" "break" "catch" "continue" "def" "else" "escape"
+             "exit" "extends" "export" "finally" "fn" "for" "guards" "if"
+             "implements" "in" "interface" "match" "meta" "method" "module"
+             "object" "pass" "pragma" "return" "switch" "to" "try" "var"
+             "via" "when" "while")
+         symbol-end)
+    (,(rx symbol-start "def" (1+ space) (group (1+ (or word ?_))) (0+ space) ?\()
+     (1 font-lock-function-name-face))
+    (,(rx symbol-start "object" (1+ space) (group (1+ (or word ?_))))
+     (1 font-lock-function-name-face))
+    (,(rx symbol-start (or "def" "var") (1+ space) (group (1+ (or word ?_))) (0+ space) ?: ?=)
+     (1 font-lock-variable-name-face))
+    ))
+
+(defvar monte-mode-syntax-table
+  (let ((table (make-syntax-table)))
+    (mapc (lambda (c) (modify-syntax-entry c "." table)) "$%+-.:;<=>?@^|")
+    (modify-syntax-entry ?+ "." table)
+    (modify-syntax-entry ?* ". 23b" monte-mode-syntax-table)
+    (modify-syntax-entry ?/ ". 14b" monte-mode-syntax-table)
+    (modify-syntax-entry ?# "<" table)
+    (modify-syntax-entry ?\n ">" table)
+    (modify-syntax-entry ?' "\"" table)
+    (modify-syntax-entry ?` "\"" table)
+    (modify-syntax-entry ?\\ "\\" table)
+    table)
+  "Monte syntax table.")
+
+;;;###autoload
+(define-derived-mode monte-mode prog-mode "Monte"
+  "Major mode for editing Montefiles.
+
+\\{monte-mode-map}"
+  (set (make-local-variable 'indent-tabs-mode) nil)
+  (set (make-local-variable 'comment-start) "# ")
+  (set (make-local-variable 'comment-start-skip) "#+\\s-*")
+  (set (make-local-variable 'font-lock-defaults) '(monte-font-lock-keywords nil nil nil nil))
+  (set (make-local-variable 'indent-line-function) 'monte-indent-line)
+  (setq-local electric-indent-inhibit t))

docs/source/_static/railroad-diagrams.css

@@ -0,0 +1,26 @@
+svg.railroad-diagram {
+    background-color: hsl(30,20%,95%);
+}
+svg.railroad-diagram path {
+    stroke-width: 3;
+    stroke: black;
+    fill: rgba(0,0,0,0);
+}
+svg.railroad-diagram text {
+    font: bold 14px monospace;
+    text-anchor: middle;
+}
+svg.railroad-diagram text.label {
+    text-anchor: start;
+}
+svg.railroad-diagram text.comment {
+    font: italic 12px monospace;
+}
+svg.railroad-diagram g.non-terminal text {
+    /*font-style: italic;*/
+}
+svg.railroad-diagram rect {
+    stroke-width: 3;
+    stroke: black;
+    fill: hsl(120,100%,90%);
+}