ql 0.0.2

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: 10d15a58c4a27d1db1d09a4932e33283a7147ae6
+  data.tar.gz: d95d6dd25018321d2dc96f902a00e98556757921
+SHA512:
+  metadata.gz: 1cd9410eda7ca232dc80df50c5faa194fad22775a7ade93fce1122d6ce5cfe9cf705336878abac5e9eae50227da77f0ca157ac9d9aaf15b0a983fd66f37ffe46
+  data.tar.gz: 443d7f6351884cbb84672d0c775de3ff24e9ace1feaf62dc74efaf93f2958e16e7921b41b612048e2c1b580046c9a7d6e0b58a6ab676af001a31ee43195ec686

data/.gitignore

@@ -0,0 +1,17 @@
+*.gem
+*.rbc
+.bundle
+.config
+.yardoc
+Gemfile.lock
+InstalledFiles
+_yardoc
+coverage
+doc/
+lib/bundler/man
+pkg
+rdoc
+spec/reports
+test/tmp
+test/version_tmp
+tmp

data/Gemfile

@@ -0,0 +1,4 @@
+source 'https://rubygems.org'
+
+# Specify your gem's dependencies in q.gemspec
+gemspec

data/LICENSE

@@ -0,0 +1,20 @@
+Copyright (C) 2014 Stojan Dimitrovski
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/LICENSE.txt

@@ -0,0 +1,22 @@
+Copyright (c) 2014 Stojan Dimitrovski
+
+MIT License
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README

@@ -0,0 +1,50 @@
+
+  Q - a simple programming language
+
+      / Q Q Q Q
+        Q     Q
+        Q Q Q Q Q
+                Q
+                Q
+
+  Install the gem from RubyGems:
+
+    $ gem install ql
+
+  Then you can use the small `q' runner to run your .q files:
+
+    $ q examples/factorial.q
+
+  Example syntax:
+
+    # assignment
+
+    a <: 10;
+    b <: 11;
+
+    # operations
+
+    a <: 3 + 5;
+    a <: a = b;
+    a <: a < b;
+    a <: b > a;
+
+    # functions
+
+    # @ refers to the current function
+    # every function returns @ by default
+    # unless you assign @ another value
+
+    factorial <: (n){
+      if [n < 2] then [@ <: 1] else [@ <: n * @(n - 1)];
+    };
+
+    tenth_factorial <: factorial(10);
+
+
+
+  This language is an experiment and parts of it were presented at
+  MKRUG (http://ruby.mk).
+
+  This software is licensed under the MIT/X11 license and is
+  Copyright (C) 2014 Stojan Dimitrovski. See LICENSE for more details.

data/Rakefile

@@ -0,0 +1 @@
+require "bundler/gem_tasks"

data/bin/q

@@ -0,0 +1,20 @@
+#!/usr/bin/env ruby
+
+require 'q'
+
+Q.load false
+
+vm = Q::VM.new
+
+FILES = ARGV.map do |argfile|
+  if not File.exist? argfile
+    puts "File #{argfile} does not exist."
+    exit 1
+  end
+
+  File.read argfile
+end
+
+FILES.each do |file|
+  vm.eval file
+end

data/examples/factorial.q

@@ -0,0 +1,6 @@
+factorial <: (n){
+  @ <: if [n < 2] then [1] else [n * @(n - 1)];
+};
+
+puts("The factorial of 10 is: ");
+puts(factorial(10));

data/lib/q.rb

@@ -0,0 +1,11 @@
+require 'q/vm'
+
+module Q
+  def self.load debug = false
+    if debug
+      return Treetop.load "#{File.dirname __FILE__}/q"
+    end
+
+    return require 'q/parser'
+  end
+end

data/lib/q.treetop

@@ -0,0 +1,334 @@
+require 'q/scope'
+require 'q/syntax'
+
+grammar Q
+  rule statements
+    statements:(ws* statement:(comment / statement) ws*)* ws* {
+      def eval scope
+        statements.elements.each do |statement|
+          statement.statement.eval scope
+        end
+
+        scope['_']
+      end
+    }
+  end
+
+  rule statement
+    expression ws* ';' {
+      def eval scope
+        scope['_'] = expression.eval scope
+      end
+    }
+  end
+
+  rule expression
+    call / assignment / conditional / binomial
+  end
+
+  rule function
+    '(' arguments:(ws* identifier ws*)* ')' '{' statements '}' <Q::Syntax::Function>
+  end
+
+  rule assignment
+    destination:(self / identifier) ws* '<:' ws* expression {
+      def eval scope
+        scope['_'] = scope[destination.text_value] = expression.eval scope
+      end
+    }
+  end
+
+  rule call
+    name:(function / self / identifier) ws* '(' arguments:(ws* argument:expression ws*)* ')' {
+      def eval scope
+        scope['_'] = name.eval(scope).call(callscope(scope))
+      end
+
+      def callscope scope
+        cscope = Q::Scope.new scope
+
+        cscope.args = arguments.elements.map.each do |argument|
+          argument.argument.eval(scope)
+        end
+
+        cscope
+      end
+    }
+  end
+
+  rule binomial
+    head:monomial ws* tail:(ws* operator:binomial_operator ws* feet:monomial)*
+    {
+      def eval scope
+        if has_feet?
+          return operator.apply(scope, head, feet)
+        end
+
+        scope['_'] = head.eval(scope)
+      end
+
+      def has_feet?
+        not tail.nil? and not tail.elements.first.nil? and not tail.elements.first.feet.nil?
+      end
+
+      def feet
+        return nil if not has_feet?
+
+        tail.elements.first.feet
+      end
+
+      def operator
+        return nil if not has_feet?
+
+        tail.elements.first.operator
+      end
+    }
+  end
+
+  rule monomial
+    head:primary ws* tail:(ws* operator:monomial_operator ws* feet:monomial)*
+    {
+      def eval scope
+        if has_feet?
+          feet = tail.elements.first.feet
+          return operator.apply(scope, head, feet)
+        end
+
+        scope['_'] = head.eval(scope)
+      end
+
+      def has_feet?
+        not tail.nil? and not tail.elements.first.nil? and not tail.elements.first.feet.nil?
+      end
+
+      def operator
+        return nil if not has_feet?
+
+        tail.elements.first.operator
+      end
+    }
+  end
+
+  rule conditional
+    'if' ws* '[' condition:(conditional_expression / statements) ']' ws*
+    'then' ws* '[' consequence:(conditional_expression / statements) ']'
+    otherwise:(ws* 'else' ws* '[' consequence:(conditional_expression / statements) ']')? <Q::Syntax::Conditional>
+  end
+
+  rule conditional_expression
+    ws* expression ws* &']' {
+      def eval scope
+        expression.eval scope
+      end
+    }
+  end
+
+  rule primary
+    call / function / self / unary / value / identifier / '(' ws* expression ws* ')' {
+      def eval scope
+        scope['_'] = expression.eval(scope)
+      end
+    }
+  end
+
+  rule binomial_operator
+    minus / plus / comparison_operators
+  end
+
+  rule monomial_operator
+    slash / star
+  end
+
+  rule unary
+    negative / negation
+  end
+
+  rule negation
+    '!' ws* primary {
+      def eval scope
+        not primary.eval(scope)
+      end
+    }
+  end
+
+  rule negative
+    '-' ws* primary {
+      def eval scope
+        - primary.eval(scope)
+      end
+    }
+  end
+
+  rule comparison_operators
+    lt / lte / gt / gte / neq / eq
+  end
+
+  rule lt
+    '<' {
+      def apply scope, a, b
+        a.eval(scope) < b.eval(scope)
+      end
+    }
+  end
+
+  rule gt
+    '>' {
+      def apply scope, a, b
+        a.eval(scope) < b.eval(scope)
+      end
+    }
+  end
+
+  rule lte
+    '<=' {
+      def apply scope, a, b
+        a.eval(scope) <= b.eval(scope)
+      end
+    }
+  end
+
+  rule gte
+    '>=' {
+      def apply scope, a, b
+        a.eval(scope) >= b.eval(scope)
+      end
+    }
+  end
+
+  rule eq
+    '=' {
+      def apply scope, a, b
+        a.eval(scope) == b.eval(scope)
+      end
+    }
+  end
+
+  rule neq
+    '!=' {
+      def apply scope, a, b
+        a.eval(scope) != b.eval(scope)
+      end
+    }
+  end
+
+  rule plus
+    '+' {
+      def apply scope, a, b
+        scope['_'] = a.eval(scope) + b.eval(scope)
+      end
+    }
+  end
+
+  rule minus
+    '-' {
+      def apply scope, a, b
+        scope['_'] = a.eval(scope) - b.eval(scope)
+      end
+    }
+  end
+
+  rule star
+    '*' {
+      def apply scope, a, b
+        scope['_'] = a.eval(scope) * b.eval(scope)
+      end
+    }
+  end
+
+  rule slash
+    '/' {
+      def apply scope, a, b
+        scope['_'] = a.eval(scope) / b.eval(scope)
+      end
+    }
+  end
+
+  rule value
+    number / string / truth / lie / nil
+  end
+
+  rule truth
+    'true' {
+      def eval scope
+        return true
+      end
+    }
+  end
+
+  rule lie
+    'false' {
+      def eval scope
+        return false
+      end
+    }
+  end
+
+  rule nil
+    'nil' {
+      def eval scope
+        return nil
+      end
+    }
+  end
+
+  rule string
+    single_quote_string / double_quote_string
+  end
+
+  rule single_quote_string
+    "'" content:("\\'" / (!"'" .))* "'" {
+      def eval scope
+        content.text_value.gsub '\\\'', "'"
+      end
+    }
+  end
+
+  rule double_quote_string
+    '"' content:('\"' / (!'"' .))* '"' {
+      def eval scope
+        content.text_value.gsub '\"', '"'
+      end
+    }
+  end
+
+  rule number
+    [0-9]+ point:'.'? [0-9]*
+    {
+      def eval scope
+        if point.empty?
+          return scope['_'] = text_value.to_i
+        end
+
+        scope['_'] = text_value.to_f
+      end
+    }
+  end
+
+  rule identifier
+    [a-zA-Z_] [a-zA-Z0-9_]* ('?' / '!')? {
+      def eval scope
+        scope['_'] = scope[text_value]
+      end
+    }
+  end
+
+  rule self
+    '@' {
+      def eval scope
+        scope.this
+      end
+    }
+  end
+
+  rule comment
+    '#' (!("\n" / "\r") .)* ("\n" / "\r")+ {
+      def eval scope
+        # NO-OP, this is a comment for crying out loud! (:
+      end
+    }
+  end
+
+  rule ws
+    ' ' / "\n" / "\r"
+  end
+end