soml-parser/lib/ast/module_expression.rb

module Ast
  class ModuleExpression < Expression

    attr_reader  :name ,:expressions

    def initialize name , expressions
      @name = name.to_sym
      @expressions = expressions
    end
    def attributes
      [:name , :expressions]
    end
    def inspect
      self.class.name + ".new(" + @name.inspect + " ," + @expressions.inspect + " )"
    end
    def to_s
      "module #{name}\n #{expressions}\nend\n"
    end
  end

  class ClassExpression < ModuleExpression

    def initialize name , derived , expressions
      super(name , expressions)
      @derived_from = derived
    end
    def attributes
      [:name , :derived_from , :expressions]
    end
    def inspect
      self.class.name + ".new(" + @name.inspect + " ," +
                                @derived_from.inspect + ", " + @expressions.inspect + " )"
    end
    def derived_from
      @derived_from ? @derived_from : :Object
    end
    def to_s
      s = "class #{name} < #{derived_from}\n #{expressions}\nend\n"
    end
  end
end