bakkdoor-blocktalk 0.1.2 → 0.1.3

data/README.markdown

@@ -1,5 +1,5 @@
 # ***Blocktalk*** #
-### **v0.1.2** ###
+### **v0.1.3** ###
 
 ## **Blocktalk** is a dynamic, object-oriented programming language somewhat in the tradition of Smalltalk and Ruby. ##
 
@@ -51,10 +51,10 @@ The example above shows, how a typicall if-then conditional could be written.
 
 Another example would be a while loop:
 
-    i = (Console gets: "Please enter a number!") to_i
+    i = Console gets: "Please enter a number!" to_i
     {i < 10} while_true {
 	Console print: "a smaller than b!"
-	i = (Console gets: "Enter again!") to_i
+	i = Console gets: "Enter again!" to_i
     }
 
 In this case, while_true takes a ruby-like implicit block, noticeable by the absence of the colon after the methodname,

data/bin/blocktalk

@@ -9,20 +9,35 @@ if ARGV.size < 1
   exit
 end
 
-
 load_path = ""
 
-if ARGV.join(" ").match(/\-I\s*(\S+)/)
+if ARGV.join(" ") =~ /\-I\s*(\S+)/
   $: << File.expand_path($1)
   load_path = $1 + "/"
 end
 
+# ruby 1.8 is default
+ruby_implementation = "ruby"
+
+if ARGV.join(" ") =~ /\--rubyimp (\S+)/
+  ruby_implementation = $1
+  puts "Using #{ruby_implementation} for Blocktalk"
+
+  # remove option from argv, since it's not used anymore:
+  idx = ARGV.index("--rubyimp")
+  ARGV.delete_at(idx)
+  ARGV.delete_at(idx) # rubyimp argument now is at this index
+end
+
 require load_path + "lib/core"
 require load_path + "evaluator"
 require load_path + "parser/nodes"
+require load_path + "version"
 
-require "pp"
-
+if ARGV.include?("--version") || ARGV.include?("-v")
+  puts "blocktalk v#{blocktalk_version}"
+  exit
+end
 
 parser_dynamic = ARGV.include?("--dynparser")
 
@@ -36,8 +51,16 @@ end
 
 parse_file = ARGV[0]
 parser = BlocktalkParser.new
+
 ast = parser.parse IO.read(parse_file)
 
+# if parsig failed -> output error message with reason
+unless ast
+  puts "ParseError in #{parse_file} (line #{parser.failure_line} / #{parser.failure_column}):"
+  puts "#{parser.failure_reason}"
+  exit
+end
+
 # start evaluation process
 ast.evaluate
 
@@ -60,7 +83,7 @@ if ruby_output
 else
   # also pass any additional args in ARGV to Evaluator
   # (ARGV[0] is the name of the file to execute).
-  Evaluator.eval(ARGV[1..-1])
+  Evaluator.eval(ruby_implementation, ARGV[1..-1])
 
   if debug_on
     puts

data/evaluator.rb

@@ -8,9 +8,9 @@ class Evaluator
     end
   end
 
-  def self.eval(argv = [])
+  def self.eval(ruby_implementation = "ruby", argv = [])
 #    Kernel::eval @expressions.join(";")
-    system("/usr/bin/env ruby -e '#{@expressions.join(';')}' #{argv.join(' ')}")
+    system("/usr/bin/env #{ruby_implementation} -e '#{@expressions.join(';')}' #{argv.join(' ')}")
   end
 
   def self.inspect

data/examples/classes_modules.bt

@@ -47,7 +47,7 @@ Class >> :Person {
 
   def distance_to = do |place|
     (place is_a?: Place) if_true: {
-      dist = ((self place) coordinates) - (place coordinates)
+      dist = (self place coordinates) - (place coordinates)
       dist abs
     } if_false: {
       0.0

data/examples/linecounter.bt

@@ -1,7 +1,7 @@
-((ARGV size) > 0) if_true: {
+(ARGV size) > 0 if_true: {
   filename = ARGV at: 0
   File open: filename do |f|
-    Console puts: "#{filename} has #{f.readlines.size} lines!"
+    Console puts: "#{filename} has #{f readlines size} lines!"
   end
 } if_false: {
   Console puts: "Please specify a file to count lines on!"

data/examples/portscan.bt

@@ -21,7 +21,7 @@ open_ports = []
       open_ports << port
 
       s = Socket getnameinfo: ["AF_INET", port, host]
-      Console puts: ("\nPort #{port} (#{s[1]})" + " is open.")
+      Console puts: ("\nPort #{port} (#{s at: 1})" + " is open.")
 
       catch{
         Console print: "."

data/examples/ruby_methods.bt

@@ -1,4 +1,5 @@
 # calling some ruby methods...
+require: "lib/blocktalk/string"
 
 File open: "examples/test3.bt" mode: "r" do |f|
   (f readlines) each do |l|
@@ -8,7 +9,7 @@ end
 
 # and again, this time cached!
 File open: "examples/test3.bt" mode: "r" do |f|
-  (f readlines) each do |l|
+  f readlines each do |l|
     Console puts: l
   end
 end
@@ -17,4 +18,5 @@ end
 str = "hello, world, how are you?"
 str2 = str gsub: "," with: "!"
 Console puts: str;
-        puts: str2
+        puts: str2;
+        puts: (str at: (2 .. 5))

data/examples/test.bt

@@ -1,33 +1,33 @@
 # this is just for demonstration
 # there probably won't be the need to require the console module from the
 # standard library every time you want to print something to the screen ;)
-System require: "console"
+#System require: "console"
 
 # we support ruby-style blocks with do ... end and curly braces { ... }
-File open: "test.txt" mode: "w" do |f|
-  f puts: "what's up, dog?!"
-  f puts: "crazy shit, yo!"
-  f puts: "hahaha!!"
-end
+# File open: "test.txt" mode: "w" do |f|
+#   f puts: "whats up, dog?!"
+#   f puts: "crazy shit, yo!"
+#   f puts: "hahaha!!"
+# end
 
-10 to: 0 do |i|
+10 upto: 0 do |i|
   Console puts: i
 end
 
 i = 0
-(i < 10) while_true: do |i|
+{i < 10} while_true do
   Console puts: i
-  i incr
+  i = i + 1
 end
 
-numbers = [1,2,3,4,5] select: {|i| i < 3}
-numbers each: do |i|
-  puts i
+numbers = [1,2,3,4,5] select {|i| i < 3}
+numbers each do |i|
+  Console puts: i
 end
 
-(1 .. 100) each: {|i| Console puts: i}
+#(1 .. 100) each {|i| Console puts: i}
 
-squares = (1 .. 100) collect: {|i| i * i}
+#squares = (1 .. 100) collect {|i| i * i}
 
 
 # define a square method
@@ -37,9 +37,11 @@ square = { |x|
 
 # or like this:
 abs = { |num|
-  (num > 0) if_true {
+  num > 0 if_true {
     return num
   }
 
   num * -1
 }
+
+Console puts: ([1,2,3,4,5] collect {|i| square call: i})

data/examples/test2.bt

@@ -1,12 +1,12 @@
 foo = do |x|
-  Console puts ("bkzubb: " + (x to_s))
+  Console puts: "bkzubb: #{x}"
 end
 
 bar = do
   100
 end
 
-Console puts: (foo call: 10)
+foo call: 10
 
 
 [1,2,3] each { |x|
@@ -16,7 +16,7 @@ Console puts: (foo call: 10)
 # anonymous class
 c = Class new {
   def foo = do |x|
-      Console puts: ("in foo: " + x)
+      Console puts: "in foo: #{x}"
   end
 }
 
@@ -27,7 +27,7 @@ obj foo: (10 to_s)
 # new class Foo
 Class >> :Foo do
   def bar = do |x|
-    Console puts: ("in Foo#bar: " + (x to_s))
+    Console puts: "in Foo#bar: #{x}"
   end
 end
 
@@ -54,7 +54,7 @@ foo bazz
 Class >> {:MyArray => Array} do
   def crazy_ouput = do
     self each { |x|
-       Console puts: ("craaaaaazy: " + (x to_s))
+       Console puts: "craaaaaazy: #{x}"
     }
   end
 
@@ -62,8 +62,8 @@ Class >> {:MyArray => Array} do
     i = 0
     arr = []
     {i < amount} while_true {
-      arr << (self at: i)
-      i = (i + 1)
+      arr << self at: i
+      i = i + 1
     }
 
     return: arr
@@ -73,9 +73,9 @@ Class >> {:MyArray => Array} do
   def my_each = do |block|
     i = 0
     {i < (self size)} while_true {
-      curr_item = (self at: i)
+      curr_item = self at: i
       block call: curr_item
-      i = (i + 1)
+      i = i + 1
     }
   end
 end
@@ -91,20 +91,16 @@ myarr crazy_ouput
 
 Console puts: (myarr class)
 
-Console puts: ((myarr take_n: 3) inspect)
+Console puts: (myarr take_n: 3 inspect)
 
 
 myarr my_each: { |elem|
-  Console puts: ("my_each: " + (elem to_s))
+  Console puts: "my_each: #{elem}"
 }
 
-# File open: "grammar/test2.blk" mode: "r" do |f|
-#   Console puts: (f readlines)
-# end
-
 Class >> :MyClass do
   def funky = do |name|
-    Console puts: ("in MyClass#funky with name=" + name)
+    Console puts: "in MyClass#funky with name = #{name}"
   end
 end
 
@@ -113,7 +109,7 @@ end
 
 Module >> :MyModule {
   def test = do |bar|
-    Console puts: ("in MyModule#test with bar = " + (bar to_s))
+    Console puts: "in MyModule#test with bar = #{bar}"
   end
 }
 

data/examples/test3.bt

@@ -1,8 +1,8 @@
-i = (Kernel gets)
+i = Console gets: "Please enter a number:"
 
 Console puts: i
 
-((i to_i) < 10) if_true: {
+(i to_i) < 10 if_true: {
   Console puts: "i < 10!"
 } if_false: {
   Console puts: "i > 10!!"

data/lib/blocktalk/string.bt

@@ -1,4 +1,16 @@
 Class >> :String do
+  def at = do |index|
+    %ruby{
+      self[index]
+    }%
+  end
+
+  def at = do |index puts: value|
+    %ruby{
+      self[index] = value
+    }%
+  end
+
   def substitute = do |string with: subst_string|
     self gsub: string with: subst_string
   end

data/lib/kernel/object.rb

@@ -42,6 +42,14 @@ class Object
     end
   end
 
+  def and(other)
+    self and other
+  end
+
+  def or(other)
+    self or other
+  end
+
   # this should get called, if we try to call a method on objects of
   # ruby classes.
   # it will try to find the correct ruby method-name & clall it.

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: bakkdoor-blocktalk
 version: !ruby/object:Gem::Version 
-  version: 0.1.2
+  version: 0.1.3
 platform: ruby
 authors: 
 - Christopher Bertels