calc_esilvac 0.0.2

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: 16593a5279ec84214a8d4d9f23ff1ce276bb3e6d
+  data.tar.gz: b6931f4380cabfc14d81df6103493e73529728f1
+SHA512:
+  metadata.gz: 8e3c90af9bff0d99e2407618925757148442edb17ee714a0726756cdac51cfd53c26002cd1a6c22a22c8c634419fd192fd0ac0bcd51e55462298c5e169aedbcd
+  data.tar.gz: 684e318d602daede81648d7c44b5b042dd60b9e12e3e11d46c4c6a71ab732e6c913eab1975f93df5b3cba8019343f8f4d4ebdd51262c0e392bf4a29dc841e262

data/bin/calc

@@ -0,0 +1,55 @@
+#!/usr/bin/env ruby
+require 'rubygems'
+require 'calculator'
+require 'calcex'
+
+fichero = true
+oper=:none
+priori=:none
+
+$calc = Calculator.new()
+$calc.EnvVar
+
+ARGV.each do |v|
+  if v.include? ?. then
+    oper=:fich
+  end
+
+  case v
+  when "-e"
+    oper=:e
+  when "-v"
+    if oper==:none then
+      oper=:v
+    end
+  else
+    case oper
+    when :e 
+      $calc.ArgPri(v)
+    when :v
+      $calc.ArgNoPri(v)
+    when :fich
+      fichero = false
+      $calc.eval(v)
+    end
+  end
+end
+
+if fichero then
+  $stdout.print "> "
+end
+
+while fichero && text = $stdin.gets  do
+
+  begin
+    $calc.eval(text).to_s
+  rescue ParseError
+    puts "*parse error"
+  rescue UnrecognizedTokenException
+    puts "UnrecognizedTokenException"
+  rescue
+      puts "Unkown exception"
+  end
+  $stdout.print "> "
+end
+

data/lib/ast.rb

@@ -0,0 +1,149 @@
+require 'set'
+
+class BinaryNode
+  attr_reader :left, :right
+  
+  def initialize(left,right)
+    @left = left
+    @right = right
+  end
+end
+   
+class UnaryNode
+  attr_reader :subTree
+   
+  def initialize(subTree)
+    @subTree = subTree
+  end
+end
+
+class AddNode < BinaryNode
+  def initialize(left, right)
+    super(left,right)
+  end
+   
+  def evaluate() 
+    return @left.evaluate() + @right.evaluate()
+  end
+end
+
+class SubNode < BinaryNode
+  def initialize(left, right)
+    super(left,right)
+  end
+   
+  def evaluate 
+    return @left.evaluate - @right.evaluate
+  end
+end
+
+
+class StoreNode < UnaryNode
+  def initialize(subTree)
+    super(subTree)
+  end
+  
+  def evaluate
+    $calc.memory = subTree.evaluate
+  end
+end
+
+class RecallNode
+  def evaluate
+    $calc.memory
+  end
+end
+
+class CleanNode
+  def evaluate
+    $calc.memory = 0
+  end
+end
+
+  
+class MinusNode < UnaryNode
+  def initialize(subTree)
+    super(subTree)
+  end
+  
+  def evaluate
+    val = subTree.evaluate.to_i
+    $calc.memory -= val
+  end
+end
+
+class PlusNode < UnaryNode
+  def initialize(subTree)
+    super(subTree)
+  end
+  
+  def evaluate
+    val = subTree.evaluate
+    $calc.memory += val
+  end
+end
+
+class NumNode 
+  def initialize(num)
+    @num = num
+  end
+   
+  def evaluate() 
+    @num
+  end
+end
+
+
+class TimesNode < BinaryNode
+  def initialize(left, right)
+    super(left,right)
+  end
+   
+  def evaluate() 
+    @left.evaluate() * @right.evaluate()
+  end
+end
+
+
+class DivideNode < BinaryNode
+  def initialize(left, right)
+    super(left,right)
+  end
+   
+  def evaluate 
+    @left.evaluate() / @right.evaluate()
+  end
+end
+
+
+class ModuleNode < BinaryNode
+  def initialize(left, right)
+    super(left,right)
+  end
+   
+  def evaluate 
+    @left.evaluate() % @right.evaluate()
+  end
+end
+
+class GuardarNode
+  def initialize(var,val)
+    @var = var
+    @val = val
+  end
+
+  def evaluate
+    $calc.guardar(@var,@val)
+    return @val
+  end
+end
+
+class LlamarNode
+  def initialize(var)
+    @var = var
+  end
+
+  def evaluate
+    $calc.llamar(@var)
+  end
+end

data/lib/calcex.rb

@@ -0,0 +1,3 @@
+
+class ParseError < Exception; end
+class UnrecognizedTokenException < Exception; end

data/lib/calculator.rb

@@ -0,0 +1,70 @@
+require 'parser'
+require 'ast'
+
+class Calculator
+  attr_accessor :memory
+    
+  def initialize()
+    @memory = 0
+    @map = Hash.new(0)
+    @vblis = ""
+  end
+  
+  def eval(expr)
+    parser = Parser.new(expr)
+    parser.parse()
+  end
+
+  def guardar(var,val)
+    @map[var] = val
+    @vblis += var + " <- " + val.to_s + ", "
+  end
+  
+  def guardarAE(var,val)
+     @map[var] = val
+  end
+  
+  def llamar(var)
+    return @map[var]
+  end
+  
+  def EnvVar
+    ENV.each do |k,v|
+      if k.match("CALCVAR") then
+        var = k[7,k.length]
+        val = v.to_i
+        $calc.guardarAE(var,val)
+      end
+    end
+  end
+  
+  def ArgPri(varia)
+    pr = varia.index('=') 
+    if pr != nil then
+      var = varia[0,pr]
+      if @map.has_key?(var) == false then
+        val = varia[pr+1,varia.length].to_i
+        $calc.guardarAE(var,val)
+      end
+    end
+  end
+  
+  def ArgNoPri(varia)
+    pr = varia.index('=') 
+    if pr != nil then
+      var = varia[0,pr]
+      val = varia[pr+1,varia.length].to_i
+      $calc.guardarAE(var,val)
+    end
+  end
+  
+  def imprimir(line,result)
+    if line.include? "=" then
+      copva = @vblis.chop.chop
+      puts "=> " + result.to_s + " [" + copva + "]"
+      @vblis = ""
+    else
+      puts "=> " + result.to_s
+    end
+  end
+end

data/lib/parser.rb

@@ -0,0 +1,169 @@
+require 'ast'
+require 'scanner'
+require 'token'
+require 'calcex'
+
+class Parser
+  def initialize(expr)
+    @fichi = expr
+    @scan = Scanner.new()
+  end
+   
+  def parse()
+    Prog()
+  end
+  
+  private
+  def Prog()
+    ListExpr()
+  end
+  
+  def ListExpr()
+    if @fichi.include? ?. then   
+      File.open(@fichi) do |f|
+        while line = f.gets
+          @scan.CogeLinea(line)
+          result = Expr()
+          t = @scan.getToken()
+          $calc.imprimir(line, result.evaluate())
+          if t.type != :eof then
+            raise ParseError.new
+          end
+        end
+      end   
+    else
+      @scan.CogeLinea(@fichi)
+      result = Expr()
+      t = @scan.getToken()
+      $calc.imprimir(@fichi, result.evaluate())
+      if t.type != :eof then
+        raise ParseError.new
+      end
+    end
+  end
+  
+  def Expr() 
+    return RestExpr(Term())
+  end
+   
+  def RestExpr(e) 
+    t = @scan.getToken()
+    
+    if t.type == :add then
+         return RestExpr(AddNode.new(e,Term()))
+    end
+    
+    if t.type == :sub then
+      return RestExpr(SubNode.new(e,Term()))
+    end
+      
+    @scan.putBackToken()
+    
+    return e
+  end
+  
+  def Term()
+    RestTerm(Storable())
+  end
+   
+  def RestTerm(e)
+    t = @scan.getToken
+
+    if t.type == :times then
+      return RestTerm(TimesNode.new(e,Storable()))
+    end
+
+    if t.type == :divide then
+      return RestTerm(DivideNode.new(e,Storable()))
+    end
+
+    if t.type == :module then
+      return RestTerm(ModuleNode.new(e,Storable()))
+    end
+    
+    @scan.putBackToken
+
+    return e 
+    
+  end
+   
+  def Storable()
+    MemOperation(Factor())
+  end
+
+  def MemOperation(e)
+
+    t = @scan.getToken
+    if (t.type == :keyword) then
+      if (t.lex == "S") then
+        return StoreNode.new(e)
+      end
+      if (t.lex == "P") then
+        return PlusNode.new(e)
+      end
+      if (t.lex == "M") then
+        return MinusNode.new(e)
+      end
+      raise ParseError.new
+    end
+    
+    @scan.putBackToken
+    return e
+  end
+
+  
+  def Factor() 
+
+    t = @scan.getToken
+
+    if t.type == :number then
+      return NumNode.new(t.lex.to_i)
+    end
+
+    if t.type == :keyword then
+      if t.lex == "R" then
+        return RecallNode.new
+      end
+      if t.lex == "C" then
+        return CleanNode.new
+      end
+      
+      raise ParseError.new 
+    end
+    
+    if t.type == :identifier then
+      @scan.putBackToken
+      return Assignable()
+    end
+    
+    if t.type == :lparen then
+      result = Expr()
+
+      t = @scan.getToken
+
+      if t.type == :rparen then
+        return result
+      end
+      raise ParseError.new
+    end
+    raise ParseError.new  
+  end         
+end
+
+def Assignable()
+  t = @scan.getToken
+  var = t.lex
+  Assign(var)
+end
+
+def Assign(var)
+  t = @scan.getToken
+
+  if t.type == :equ then
+    val = Expr().evaluate().to_i
+    return GuardarNode.new(var,val)
+  else 
+    @scan.putBackToken
+    return LlamarNode.new(var)
+  end
+end

data/lib/scanner.rb

@@ -0,0 +1,142 @@
+require 'stringio'
+require 'calcex'
+
+class Scanner
+  def initialize()
+    @istream = StringIO.new("")
+    @keywords = Set.new(["S","R","M","P","C"])
+    @lineCount = 1
+    @colCount = -1
+    @needToken = true
+    @lastToken = nil
+  end
+  def CogeLinea(line)
+    @istream = StringIO.new(line)
+  end
+  
+  def putBackToken
+    @needToken = false
+  end
+
+  def getToken
+    unless @needToken
+      @needToken = true
+      return @lastToken
+    end
+    
+    state = 0
+    foundOne = false
+    c = @istream.getc()
+    
+    if @istream.eof() then
+      @lastToken = Token.new(:eof,@lineCount,@colCount)
+      return @lastToken
+    end
+    
+    until foundOne
+      @colCount = @colCount + 1
+      case state
+      when 0
+        lex = ""
+        column = @colCount
+        line = @lineCount
+        if isLetter(c) then state=1
+        elsif isDigit(c) then state=2
+        elsif c == ?+ then state = 3
+        elsif c == ?- then state = 4
+        elsif c == ?* then state = 5
+        elsif c == ?/ then state = 6
+        elsif c == ?( then state = 7
+        elsif c == ?) then state = 8
+        elsif c == ?% then state = 9
+        elsif c == ?= then state = 10
+        elsif c == ?\n then 
+          @colCount = -1
+          @lineCount = @lineCount+1
+        elsif isWhiteSpace(c) then state = state 
+        elsif @istream.eof() then
+          @foundOne = true
+          type = :eof
+        else
+          raise UnrecognizedTokenException
+        end
+      when 1
+        if isLetter(c) or isDigit(c) then state = 1
+        else
+          if @keywords.include?(lex) then
+            foundOne = true
+            type = :keyword
+          else
+            foundOne = true
+            type = :identifier
+          end
+        end
+      when 2
+        if isDigit(c) then state = 2
+        else
+          type = :number
+          foundOne = true
+        end
+      when 3
+        type = :add
+        foundOne = true
+      when 4
+        type = :sub
+        foundOne = true
+      when 5
+        type = :times
+        foundOne = true
+      when 6
+        type = :divide
+        foundOne = true
+      when 7
+        type = :lparen
+        foundOne = true
+      when 8
+        type = :rparen
+        foundOne = true
+      when 9
+        type = :module
+        foundOne = true
+      when 10
+        type = :equ
+        foundOne = true
+      end
+      
+
+      if !foundOne then
+        lex.concat(c)
+        if @istream.eof() and state == 0 then
+          @lastToken = Token.new(:eof,@lineCount,@colCount)
+          return @lastToken
+        end
+        c = @istream.getc()
+      end
+
+    end
+   
+    @istream.ungetc(c)   
+    @colCount = @colCount - 1
+    if type == :number or type == :identifier or type == :keyword then
+      t = LexicalToken.new(type,lex,line,column)
+    else
+      t = Token.new(type,line,column)
+    end
+
+    @lastToken = t
+    return t 
+  end
+
+  private
+  def isLetter(c) 
+    return ((?a <= c and c <= ?z) or (?A <= c and c <= ?Z))
+  end
+  
+  def isDigit(c)
+    return (?0 <= c and c <= ?9)
+  end
+  
+  def isWhiteSpace(c)
+    return (c == ?\  or c == ?\n or c == ?\t)
+  end
+end

data/lib/token.rb

@@ -0,0 +1,19 @@
+class Token
+  attr_reader :type, :line, :col
+
+  def initialize(type,lineNum,colNum)
+    @type = type
+    @line = lineNum
+    @col = colNum
+  end
+end
+
+class LexicalToken < Token
+  attr_reader :lex
+  
+  def initialize(type,lex,lineNum,colNum)
+    super(type,lineNum,colNum)
+    
+    @lex = lex
+  end
+end

metadata

@@ -0,0 +1,51 @@
+--- !ruby/object:Gem::Specification
+name: calc_esilvac
+version: !ruby/object:Gem::Version
+  version: 0.0.2
+platform: ruby
+authors:
+- Kent D. Lee - Juan Francisco Cardona Mc - Esteban Silva
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2015-11-13 00:00:00.000000000 Z
+dependencies: []
+description: An calculator implementation on ruby
+email: fcardona@eafit.edu.co - esilvac@eafit.edu.co
+executables:
+- calc
+extensions: []
+extra_rdoc_files: []
+files:
+- bin/calc
+- lib/ast.rb
+- lib/calcex.rb
+- lib/calculator.rb
+- lib/parser.rb
+- lib/scanner.rb
+- lib/token.rb
+homepage: http://www1.eafit.edu.co/fcardona/cursos/st0244/rubycal
+licenses:
+- ARTISTIC
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.2.2
+signing_key: 
+specification_version: 4
+summary: Another calculator in ruby
+test_files: []