laser 0.7.0.pre1

data/lib/laser/standard_library/cgi/session/pstore.rb

@@ -0,0 +1,111 @@
+#
+# cgi/session/pstore.rb - persistent storage of marshalled session data
+#
+# Documentation: William Webber (william@williamwebber.com)
+#
+# == Overview
+#
+# This file provides the CGI::Session::PStore class, which builds
+# persistent of session data on top of the pstore library.  See
+# cgi/session.rb for more details on session storage managers.
+
+require 'cgi/session'
+require 'pstore'
+
+class CGI
+  class Session
+    # PStore-based session storage class.
+    #
+    # This builds upon the top-level PStore class provided by the
+    # library file pstore.rb.  Session data is marshalled and stored
+    # in a file.  File locking and transaction services are provided.
+    class PStore
+      # Create a new CGI::Session::PStore instance
+      #
+      # This constructor is used internally by CGI::Session.  The
+      # user does not generally need to call it directly.
+      #
+      # +session+ is the session for which this instance is being
+      # created.  The session id must only contain alphanumeric
+      # characters; automatically generated session ids observe
+      # this requirement.
+      #
+      # +option+ is a hash of options for the initializer.  The
+      # following options are recognised:
+      #
+      # tmpdir:: the directory to use for storing the PStore
+      #          file.  Defaults to Dir::tmpdir (generally "/tmp"
+      #          on Unix systems).
+      # prefix:: the prefix to add to the session id when generating
+      #          the filename for this session's PStore file.
+      #          Defaults to the empty string.
+      #
+      # This session's PStore file will be created if it does
+      # not exist, or opened if it does.
+      def initialize(session, option={})
+        dir = option['tmpdir'] || Dir::tmpdir
+        prefix = option['prefix'] || ''
+        id = session.session_id
+        require 'digest/md5'
+        md5 = Digest::MD5.hexdigest(id)[0,16]
+        path = dir+"/"+prefix+md5
+        path.untaint
+        if File::exist?(path)
+          @hash = nil
+        else
+          unless session.new_session
+            raise CGI::Session::NoSession, "uninitialized session"
+          end
+          @hash = {}
+        end
+        @p = ::PStore.new(path)
+        @p.transaction do |p|
+          File.chmod(0600, p.path)
+        end
+      end
+
+      # Restore session state from the session's PStore file.
+      #
+      # Returns the session state as a hash.
+      def restore
+        unless @hash
+          @p.transaction do
+            @hash = @p['hash'] || {}
+          end
+        end
+        @hash
+      end
+
+      # Save session state to the session's PStore file.
+      def update
+        @p.transaction do
+          @p['hash'] = @hash
+        end
+      end
+
+      # Update and close the session's PStore file.
+      def close
+        update
+      end
+
+      # Close and delete the session's PStore file.
+      def delete
+        path = @p.path
+        File::unlink path
+      end
+
+    end
+  end
+end
+
+if $0 == __FILE__
+  # :enddoc:
+  STDIN.reopen("/dev/null")
+  cgi = CGI.new
+  session = CGI::Session.new(cgi, 'database_manager' => CGI::Session::PStore)
+  session['key'] = {'k' => 'v'}
+  puts session['key'].class
+  fail unless Hash === session['key']
+  puts session['key'].inspect
+  fail unless session['key'].inspect == '{"k"=>"v"}'
+end

data/lib/laser/standard_library/cgi/util.rb

@@ -0,0 +1,188 @@
+class CGI
+  @@accept_charset="UTF-8" unless defined?(@@accept_charset)
+  # URL-encode a string.
+  #   url_encoded_string = CGI::escape("'Stop!' said Fred")
+  #      # => "%27Stop%21%27+said+Fred"
+  def CGI::escape(string)
+    string.gsub(/([^ a-zA-Z0-9_.-]+)/) do
+      '%' + $1.unpack('H2' * $1.bytesize).join('%').upcase
+    end.tr(' ', '+')
+  end
+
+
+  # URL-decode a string with encoding(optional).
+  #   string = CGI::unescape("%27Stop%21%27+said+Fred")
+  #      # => "'Stop!' said Fred"
+  def CGI::unescape(string,encoding=@@accept_charset)
+    str=string.tr('+', ' ').force_encoding(Encoding::ASCII_8BIT).gsub(/((?:%[0-9a-fA-F]{2})+)/) do
+      [$1.delete('%')].pack('H*')
+    end.force_encoding(encoding)
+    str.valid_encoding? ? str : str.force_encoding(string.encoding)
+  end
+
+  TABLE_FOR_ESCAPE_HTML__ = {
+    '&' => '&',
+    '"' => '"',
+    '<' => '&lt;',
+    '>' => '&gt;',
+  }
+
+  # Escape special characters in HTML, namely &\"<>
+  #   CGI::escapeHTML('Usage: foo "bar" <baz>')
+  #      # => "Usage: foo &quot;bar&quot; &lt;baz&gt;"
+  def CGI::escapeHTML(string)
+    string.gsub(/[&\"<>]/, TABLE_FOR_ESCAPE_HTML__)
+  end
+
+
+  # Unescape a string that has been HTML-escaped
+  #   CGI::unescapeHTML("Usage: foo &quot;bar&quot; &lt;baz&gt;")
+  #      # => "Usage: foo \"bar\" <baz>"
+  def CGI::unescapeHTML(string)
+    enc = string.encoding
+    if [Encoding::UTF_16BE, Encoding::UTF_16LE, Encoding::UTF_32BE, Encoding::UTF_32LE].include?(enc)
+      return string.gsub(Regexp.new('&(amp|quot|gt|lt|#[0-9]+|#x[0-9A-Fa-f]+);'.encode(enc))) do
+        case $1.encode("US-ASCII")
+        when 'amp'                 then '&'.encode(enc)
+        when 'quot'                then '"'.encode(enc)
+        when 'gt'                  then '>'.encode(enc)
+        when 'lt'                  then '<'.encode(enc)
+        when /\A#0*(\d+)\z/        then $1.to_i.chr(enc)
+        when /\A#x([0-9a-f]+)\z/i  then $1.hex.chr(enc)
+        end
+      end
+    end
+    asciicompat = Encoding.compatible?(string, "a")
+    string.gsub(/&(amp|quot|gt|lt|\#[0-9]+|\#x[0-9A-Fa-f]+);/) do
+      match = $1.dup
+      case match
+      when 'amp'                 then '&'
+      when 'quot'                then '"'
+      when 'gt'                  then '>'
+      when 'lt'                  then '<'
+      when /\A#0*(\d+)\z/
+        n = $1.to_i
+        if enc == Encoding::UTF_8 or
+          enc == Encoding::ISO_8859_1 && n < 256 or
+          asciicompat && n < 128
+          n.chr(enc)
+        else
+          "&##{$1};"
+        end
+      when /\A#x([0-9a-f]+)\z/i
+        n = $1.hex
+        if enc == Encoding::UTF_8 or
+          enc == Encoding::ISO_8859_1 && n < 256 or
+          asciicompat && n < 128
+          n.chr(enc)
+        else
+          "&#x#{$1};"
+        end
+      else
+        "&#{match};"
+      end
+    end
+  end
+  def CGI::escape_html(str)
+    escapeHTML(str)
+  end
+  def CGI::unescape_html(str)
+    unescapeHTML(str)
+  end
+
+  # Escape only the tags of certain HTML elements in +string+.
+  #
+  # Takes an element or elements or array of elements.  Each element
+  # is specified by the name of the element, without angle brackets.
+  # This matches both the start and the end tag of that element.
+  # The attribute list of the open tag will also be escaped (for
+  # instance, the double-quotes surrounding attribute values).
+  #
+  #   print CGI::escapeElement('<BR><A HREF="url"></A>', "A", "IMG")
+  #     # "<BR>&lt;A HREF=&quot;url&quot;&gt;&lt;/A&gt"
+  #
+  #   print CGI::escapeElement('<BR><A HREF="url"></A>', ["A", "IMG"])
+  #     # "<BR>&lt;A HREF=&quot;url&quot;&gt;&lt;/A&gt"
+  def CGI::escapeElement(string, *elements)
+    elements = elements[0] if elements[0].kind_of?(Array)
+    unless elements.empty?
+      string.gsub(/<\/?(?:#{elements.join("|")})(?!\w)(?:.|\n)*?>/i) do
+        CGI::escapeHTML($&)
+      end
+    else
+      string
+    end
+  end
+
+
+  # Undo escaping such as that done by CGI::escapeElement()
+  #
+  #   print CGI::unescapeElement(
+  #           CGI::escapeHTML('<BR><A HREF="url"></A>'), "A", "IMG")
+  #     # "&lt;BR&gt;<A HREF="url"></A>"
+  #
+  #   print CGI::unescapeElement(
+  #           CGI::escapeHTML('<BR><A HREF="url"></A>'), ["A", "IMG"])
+  #     # "&lt;BR&gt;<A HREF="url"></A>"
+  def CGI::unescapeElement(string, *elements)
+    elements = elements[0] if elements[0].kind_of?(Array)
+    unless elements.empty?
+      string.gsub(/&lt;\/?(?:#{elements.join("|")})(?!\w)(?:.|\n)*?&gt;/i) do
+        CGI::unescapeHTML($&)
+      end
+    else
+      string
+    end
+  end
+  def CGI::escape_element(str)
+    escapeElement(str)
+  end
+  def CGI::unescape_element(str)
+    unescapeElement(str)
+  end
+
+  # Abbreviated day-of-week names specified by RFC 822
+  RFC822_DAYS = %w[ Sun Mon Tue Wed Thu Fri Sat ]
+
+  # Abbreviated month names specified by RFC 822
+  RFC822_MONTHS = %w[ Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec ]
+
+  # Format a +Time+ object as a String using the format specified by RFC 1123.
+  #
+  #   CGI::rfc1123_date(Time.now)
+  #     # Sat, 01 Jan 2000 00:00:00 GMT
+  def CGI::rfc1123_date(time)
+    t = time.clone.gmtime
+    return format("%s, %.2d %s %.4d %.2d:%.2d:%.2d GMT",
+                RFC822_DAYS[t.wday], t.day, RFC822_MONTHS[t.month-1], t.year,
+                t.hour, t.min, t.sec)
+  end
+
+  # Prettify (indent) an HTML string.
+  #
+  # +string+ is the HTML string to indent.  +shift+ is the indentation
+  # unit to use; it defaults to two spaces.
+  #
+  #   print CGI::pretty("<HTML><BODY></BODY></HTML>")
+  #     # <HTML>
+  #     #   <BODY>
+  #     #   </BODY>
+  #     # </HTML>
+  #
+  #   print CGI::pretty("<HTML><BODY></BODY></HTML>", "\t")
+  #     # <HTML>
+  #     #         <BODY>
+  #     #         </BODY>
+  #     # </HTML>
+  #
+  def CGI::pretty(string, shift = "  ")
+    lines = string.gsub(/(?!\A)<.*?>/m, "\n\\0").gsub(/<.*?>(?!\n)/m, "\\0\n")
+    end_pos = 0
+    while end_pos = lines.index(/^<\/(\w+)/, end_pos)
+      element = $1.dup
+      start_pos = lines.rindex(/^\s*<#{element}/i, end_pos)
+      lines[start_pos ... end_pos] = "__" + lines[start_pos ... end_pos].gsub(/\n(?!\z)/, "\n" + shift) + "__"
+    end
+    lines.gsub(/^((?:#{Regexp::quote(shift)})*)__(?=<\/?\w)/, '\1')
+  end
+end

data/lib/laser/standard_library/class_definitions.rb

@@ -0,0 +1,333 @@
+class Class < Module
+  # special: true
+  # pure: true
+  def self.new(superklass=Object)
+  end
+  def new(*args)
+    result = allocate
+    result.send(:initialize, *args)
+    result
+  end
+  # pure: true
+  # builtin: true
+  def superclass
+  end
+end
+class String
+end
+class Symbol
+end
+class Array
+  # builtin: true
+  # returns: Array
+  def self.new(arg1=0, val=nil)
+  end
+end
+class Proc
+end
+class Hash
+end
+# Still not sure why this exists.
+class Data
+end
+# 
+RUBY_VERSION = '1.9.2'
+$/ = "\n"
+ENV = {"RUBY_VERSION"=>"ruby-1.9.2-p136"}
+
+class << self
+  # special: true
+  def private(*args)
+  end
+  # special: true
+  def public(*args)
+  end
+end
+class Module
+  # special: true
+  # pure: true
+  def self.new
+  end
+  # special: true
+  def module_eval(text, filename='(eval)', line=1)
+  end
+  # pure: true
+  # raises: never
+  # builtin: true
+  # returns: String
+  def name
+  end
+  # pure: true
+  # raises: never
+  # builtin: true
+  # returns: Boolean
+  def ===(other)
+  end
+  # pure: true
+  # builtin: true
+  def instance_method(name)
+  end
+  # pure: true
+  # builtin: true
+  def method_defined?(name)
+  end
+  # pure: true
+  # builtin: true
+  def instance_methods(include_super = true)
+  end
+  # pure: true
+  # builtin: true
+  def public_instance_method(name)
+  end
+  # pure: true
+  # builtin: true
+  def public_instance_methods(include_super = true)
+  end
+  # pure: true
+  # builtin: true
+  def protected_instance_methods(include_super = true)
+  end
+  # pure: true
+  # builtin: true
+  def private_instance_methods(include_super = true)
+  end
+  # special: true
+  # mutation: true
+  # yield_usage: optional
+  def define_method(name, body=nil)
+  end
+  # builtin: true
+  # mutation: true
+  def remove_method(name)
+  end
+  # builtin: true
+  # mutation: true
+  def undef_method(name)
+  end
+  # builtin: true
+  # mutation: true
+  def const_set(sym, val)
+  end
+  # builtin: true
+  def const_defined?(sym, inherit=true)
+  end
+  # builtin: true
+  def const_get(sym, inherit=true)
+  end
+  # builtin: true
+  # mutation: true
+  def private(*args)
+  end
+  private :private
+ private
+  # builtin: true
+  # mutation: true
+  def include(*mods)
+  end
+  # builtin: true
+  # mutation: true
+  def extend(*mods)
+  end
+  # builtin: true
+  # mutation: true
+  def public(*args)
+  end
+  # builtin: true
+  # mutation: true
+  def protected(*args)
+  end
+  # pure: true
+  def attr_reader(*syms)
+    syms.each do |sym|
+      module_eval("def #{sym}; @#{sym}; end")
+    end
+  end
+  # pure: true
+  def attr_writer(*syms)
+    syms.each do |sym|
+      module_eval("def #{sym}=(val); @#{sym} = val; end")
+    end
+  end
+  # pure: true
+  def attr_accessor(*syms)
+    attr_reader(*syms)
+    attr_writer(*syms)
+  end
+  # builtin: true
+  # mutation: true
+  def module_function(*args)
+  end
+  # builtin: true
+  # mutation: true
+  # returns: Module
+  def alias_method(to, from)
+  end
+end
+module Kernel
+  # pure: true
+  # builtin: true
+  # raises: never
+  def eql?(other)
+  end
+  # pure: true
+  # builtin: true
+  # raises: never
+  def equal?(other)
+  end
+  # builtin: true
+  # klass: Module
+  # raises: never
+  def is_a?(klass)
+  end
+  alias kind_of? is_a?
+  # pure: true
+  # raises: never
+  # builtin: true
+  def singleton_class
+  end
+  # pure: true
+  # raises: never
+  # builtin: true
+  # returns: Class=
+  def class
+  end
+  # pure: true
+  # raises: never
+  def inspect
+  end
+  # builtin: true
+  def instance_variable_get(name)
+  end
+  # builtin: true
+  def instance_variable_defined?(name)
+  end
+  # builtin: true
+  def instance_variable_set(name, val)
+  end
+ private
+  # yield_usage: required
+  def proc
+    unless block_given?
+      raise ArgumentError.new('tried to create Proc object without a block')
+    end
+    Proc.new
+  end
+  # special: true
+  def require(path)
+  end
+  # raises: never
+  def p(*args)
+    args
+  end
+  def eval(string, bndg = nil, filename = nil, lineno = nil)
+  end
+  def autoload(sym, path)
+  end
+  alias fail raise
+  # predictable: false
+  # returns: String=
+  # raises: maybe
+  def gets(opt_arg_1 = :__unset__, opt_arg_2 = :__unset__)
+  end
+  # predictable: false
+  def puts(*to_put)
+  end
+  # returns: Boolean
+  # raises: never
+  def block_given?
+  end
+  alias iterator? block_given?
+  # builtin: true
+  # raises: never
+  # pure: false
+  # predictable: false
+  # overload: () -> Float
+  # overload: Fixnum= -> Fixnum= | Bignum=
+  # overload: Bignum= -> Fixnum= | Bignum=
+  def rand(n=nil)
+  end
+end
+
+require 'basic_object'
+require 'nil_false_true'
+require 'exceptions'
+require 'comparable'
+require 'enumerable'
+require 'array'
+require 'string'
+require 'symbol'
+require 'numbers'
+require '_thread'
+
+class Range
+  # this is here because early in testing Class#new wasn't smart about purity.
+  # pure: true
+  # builtin: true
+  def self.new(start, stop, exclusive=false)
+  end
+  
+  # pure: true
+  # builtin: true
+  def initialize(start, stop, exclusive=false)
+  end
+  
+  # pure: true
+  # builtin: true
+  def to_a
+  end
+end
+require 'proc'
+require 'hash'
+class Symbol
+end
+class Regexp
+  # pure: true
+  # builtin: true
+  def self.new(body, opts=nil)
+  end
+end
+
+class Encoding
+end
+class Encoding::UndefinedConversionError < EncodingError
+end
+class Encoding::InvalidByteSequenceError < EncodingError
+end
+class Encoding::ConverterNotFoundError < EncodingError
+end
+class Encoding::CompatibilityError < EncodingError
+end
+
+class Struct
+end
+
+class IO
+  # predictable: false
+  def read(len=nil)
+  end
+end
+
+class File < IO
+end
+
+class Time
+  def self.at(x)
+  end
+  def self.gm(first, *rest)
+  end
+  def self.local(first, *rest)
+  end
+  class << self
+    alias mktime local
+  end
+  # predictable: false
+  def self.now
+    new
+  end
+end
+
+
+# ARGV: [String]
+ARGV = []
+# DATA: File | NilClass
+DATA = nil