lem 0.0.1 → 0.1.0

data/bin/lem

@@ -2,5 +2,21 @@
 
 require 'lem'
 
-puts "You entered: #{ARGV[0]}"
-puts Lem.hi
+puts "Starting Lem, a ruby implemenration of Scratch"
+puts "Type \"exit\" to quit"
+puts "----------------------------------------------"
+puts ""
+
+
+scr = Scratch.new
+scr.add_words PrintingWords
+scr.add_words MathWords
+
+while true 
+	print ">>> "
+	inp = gets
+	break if inp == "exit"
+	scr = Scratch.
+end
+
+puts "\nLem is awesome, huh?"

data/lib/lem.rb

@@ -1,5 +1,135 @@
-class Lem
-	def self.hi
-		puts "Hello World!"
+class String
+	def is_num?
+		begin Float(self); true end rescue false
 	end
 end
+
+class ScratchLexer
+	def initialize(text)
+		@words = text.split(/\s+/)
+		@next = 0
+	end
+
+	def next_word
+		return nil if @next >= @words.length 
+		@next += 1
+		@words[@next-1] 
+	end
+
+	def each
+		@words.each { |word| yield word }
+	end
+end
+
+class Scratch
+	attr_reader :stack
+
+	def initialize
+		@dictionary = {}
+		@stack = []
+	end
+
+	def add_words(dict)
+		dict.each do |k,v|
+			@dictionary[k] = v
+		end
+	end
+
+	def run(text)
+		@lexer = ScratchLexer.new(text)
+		@lexer.each do |word|
+			word.upcase!
+			if word.is_num?
+				@stack.push word.to_f
+			elsif @dictionary[word]
+				@dictionary[word].call self
+			else
+				raise "Unknown word"
+			end
+		end
+	end
+end
+
+PrintingWords = {
+	"PRINT" => Proc.new do |terp|
+		raise "Not enough items on the stack" if terp.stack.length < 1
+		tos = terp.stack.pop
+		puts tos
+	end,
+	
+	"PSTACK" => Proc.new do |terp|
+		puts terp.stack
+	end
+}
+
+MathWords = {
+	"+" => Proc.new do |terp|
+		raise "Not enough items on the stack" if terp.stack.length < 2
+		tos = terp.stack.pop
+		tos2 = terp.stack.pop
+		terp.stack.push tos+tos2
+	end,
+	"-" => Proc.new do |terp|
+		raise "Not enough items on the stack" if terp.stack.length < 2
+		tos = terp.stack.pop
+		tos2 = terp.stack.pop
+		terp.stack.push tos-tos2
+	end,
+	"*" => Proc.new do |terp|
+		raise "Not enough items on the stack" if terp.stack.length < 2
+		tos = terp.stack.pop
+		tos2 = terp.stack.pop
+		terp.stack.push tos*tos2
+	end,
+	"/" => Proc.new do |terp|
+		raise "Not enough items on the stack" if terp.stack.length < 2
+		tos = terp.stack.pop
+		tos2 = terp.stack.pop
+		terp.stack.push tos/tos2
+	end,
+	"SQRT" => Proc.new do |terp|
+		raise "Not enough items on the stack" if terp.stack.length < 1
+		tos = terp.stack.pop
+		terp.stack.push Math.sqrt(tos)
+	end
+}
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: lem
 version: !ruby/object:Gem::Version
-  version: 0.0.1
+  version: 0.1.0
   prerelease: 
 platform: ruby
 authors:
@@ -11,7 +11,7 @@ bindir: bin
 cert_chain: []
 date: 2011-10-19 00:00:00.000000000Z
 dependencies: []
-description: My first gem
+description: Scratch Programming Language
 email: lord.lem.l@gmail.com
 executables:
 - lem