@@ -3,7 +3,7 @@ require 'stringio' # a module for suppressing or capturing STDOUT or STDERR. # useful when shelling out to "noisy" applications or to suppress # output during tests. -module NoStdout +module NoStdout # :nodoc:all module InstanceMethods # Suppresses or redirects STDOUT inside the given block. lib/no_stdout.rb @@ -1,4 +1,4 @@ -module ActiveSupport #:nodoc: +module ActiveSupport #:nodoc:all module CoreExtensions #:nodoc: module Array #:nodoc: # Makes it easier to access parts of an array. @@ -12,7 +12,7 @@ module ActiveSupport #:nodoc: def from(position) self[position..-1] end - + # Returns the beginning of the array up to +position+. # # %w( a b c d ).to(0) # => %w( a ) lib/state_fu/active_support_lite/array/access.rb @@ -1,4 +1,4 @@ -class Object +class Object # :nodoc:all # An object is blank if it's false, empty, or a whitespace string. # For example, "", " ", +nil+, [], and {} are blank. # @@ -12,7 +12,7 @@ class Object def blank? respond_to?(:empty?) ? empty? : !self end - + # An object is present if it's not blank. def present? !blank? lib/state_fu/active_support_lite/blank.rb @@ -6,7 +6,7 @@ # end # # Person.hair_colors = [:brown, :black, :blonde, :red] -class Class +class Class # :nodoc:all def cattr_reader(*syms) syms.flatten.each do |sym| next if sym.is_a?(Hash) lib/state_fu/active_support_lite/cattr_reader.rb @@ -1,4 +1,4 @@ -module ActiveSupport #:nodoc: +module ActiveSupport #:nodoc:all: module CoreExtensions #:nodoc: module Hash #:nodoc: module Keys lib/state_fu/active_support_lite/keys.rb @@ -1,4 +1,4 @@ -class Object +class Object # :nodoc:all # Returns +value+ after yielding +value+ to the block. This simplifies the # process of constructing an object, performing work on the object, and then # returning the object from a method. It is a Ruby-ized realization of the K @@ -25,7 +25,7 @@ class Object # end # # foo # => ['bar', 'baz'] - # + # # # returning with a block argument # def foo # returning [] do |values| @@ -33,7 +33,7 @@ class Object # values << 'baz' # end # end - # + # # foo # => ['bar', 'baz'] def returning(value) yield(value) @@ -54,4 +54,4 @@ class Object yield self self end unless Object.respond_to?(:tap) -end \ No newline at end of file +end lib/state_fu/active_support_lite/misc.rb @@ -1,4 +1,4 @@ -class Object +class Object # :nodoc:all def extended_by #:nodoc: ancestors = class << self; ancestors end ancestors.select { |mod| mod.class == Module } - [ Object, Kernel ] lib/state_fu/active_support_lite/object.rb @@ -1,4 +1,4 @@ -class String +class String # :nodoc:all def underscore self.gsub(/::/, '/'). gsub(/([A-Z]+)([A-Z][a-z])/,'\1_\2'). lib/state_fu/active_support_lite/string.rb @@ -1,4 +1,4 @@ -unless :to_proc.respond_to?(:to_proc) +unless :to_proc.respond_to?(:to_proc) # :nodoc:all class Symbol # Turns the symbol into a simple proc, which is especially useful for enumerations. Examples: # lib/state_fu/active_support_lite/symbol.rb @@ -4,43 +4,41 @@ begin require File.join(File.dirname(__FILE__), '/state_fu/core_ext' ) rescue LoadError require 'activesupport' -end - +end + # sorry, there's only Heisendocumentation (if I realize anyone's looking for # them, I might write some) - -# temporary dirty hack - -module Vizier - + +module Vizier # :nodoc:all + module Support LEGAL_CHARS = 'a-zA-Z0-9_' - + def attributes=( attrs ) @attributes = attrs.symbolize_keys!.extend( Attributes ) end - + def attributes (@attributes ||= {}).extend( Attributes ) end - + def legal?( str ) str =~ /^[#{LEGAL_CHARS}]+$/ && str == str.split end - + def sanitize(str) sanitize( str ) end - + def quote( str ) return str if legal?( str ) '"' + str.to_s.gsub(/"/,'\"') + '"' end - + def self.included( klass ) klass.extend( ClassMethods ) end - + module Finder def []( idx ) begin @@ -56,12 +54,12 @@ module Vizier end end end - + module ClassMethods def sanitize( str ) str.to_s.gsub(/[^#{LEGAL_CHARS}]/,'_').gsub(/__+/,'_') end - + def finder( name ) class_eval do define_method name do @@ -71,63 +69,63 @@ module Vizier end end end - + module Attributes include Support - + def to_s return '[]' if empty? '[ ' + self.map do |k,v| "#{quote k} = #{quote v}" end.join(" ") + ' ]' end - + end - + class Base def [](k) attributes[k.to_sym] end - + def []=(k,v) attributes[k.to_sym] = v end end - + class Link < Base include Support attr_accessor :from attr_accessor :to - + def initialize( from, to, attrs={} ) self.attributes = attrs @from = extract_name( from ) @to = extract_name( to ) end - + def extract_name( o ) o.is_a?(String) ? o : o.name end - + def to_str "#{quote from} -> #{quote to} #{attributes};" end end - + # TODO .. module Label def []( i ) - + end end - + class Node < Base include Support - + attr_accessor :object attr_accessor :fields attr_accessor :name - + def initialize( name = nil, attrs={} ) self.attributes = attrs if name.is_a?( String ) @@ -139,65 +137,65 @@ module Vizier @label = attrs.delete(:label) || Node.first_response( @object, :name, :identifier, :label ) || name end end - + def self.make_name( obj ) sanitize [ obj.class, first_response( obj, :name, :identifier, :id, :hash)].join('_') end - + def self.first_response obj, *method_names responder = method_names.flatten.detect { |m| obj.respond_to?(m) } obj.send( responder ) unless responder.nil? end - + def name=( str ) @name = str.to_s.gsub(/[^a-zA-Z0-9_]/,'_').gsub(/__+/,'_') end - + def to_str "#{quote name} #{attributes.to_s};" end - + def to_s quote( name ) end end - + class SubGraph < Base include Support - + finder :nodes - + attr_accessor :links attr_accessor :name - + def initialize( name, attrs={} ) self.attributes = attrs @node = {} @edge = {} - + @name = name @nodes = [] @links = [] end - + def node(attrs={}) (@node ||= {}).merge!(attrs).extend(Attributes) end - + def graph(attrs={}) self.attributes.merge!(attrs).extend(Attributes) end - + def edge(attrs={}) (@edge ||= {}).merge!(attrs).extend(Attributes) end - + def add_node( n, a={} ) returning Node.new(n,a) do |n| @nodes << n end end - + def add_link(from, to, a={}) returning Link.new( from, to, a) do |l| @links << l @@ -205,7 +203,7 @@ module Vizier end alias_method :connect, :add_link alias_method :add_edge, :add_link - + def build(lines = [], indent = 0) lines.map do |line| if line.is_a?( Array ) @@ -215,17 +213,17 @@ module Vizier end end.join("\n") end - + def write_comment( str, j = 0 ) l = 40 - (j * 4) i = ' ' * (j * 4) "\n#{i}/*#{'*'*(l-2)}\n#{i}** #{ str.ljust((l - (6) - (j*4)),' ') }#{i} **\n#{i}#{'*'*(l-1)}/" end - + def comment(str) write_comment(str, 2) end - + def to_str build( ["subgraph #{quote name} {", [ # attributes.map {|k,v| "#{quote k} = #{quote v};" }, @@ -240,16 +238,16 @@ module Vizier ]) end alias_method :generate!, :to_str - + end - + class Graph < SubGraph finder :subgraphs - + def comment( str ) write_comment( str, 1 ) end - + def to_str build(["digraph #{quote name} {", [ @@ -267,18 +265,18 @@ module Vizier "}"]) end alias_method :generate!, :to_str - + def publish!( a = {} ) generate! # -> png end - + def subgraph(name, a = {}) returning( SubGraph.new(name, a)) do |g| @subgraphs << g yield g if block_given? end end - + def cluster(name = nil, a = {}, &block) if name && name = "cluster_#{name}" subgraph( name, a, &block ) @@ -286,15 +284,15 @@ module Vizier clusters end end - + def clusters @subgraphs.select {|s| s.name =~ /^cluster_/ }.extend( Finder ) end - + def initialize(name = 'my_graph', attrs = {}) @subgraphs = [] super( name, attrs ) yield self if block_given? end end -end \ No newline at end of file +end lib/vizier.rb bc4b66e9e413f8f7107fab36e7c6a07144de67f6 davidlee david@davelee.com.au http://github.com/davidlee/state-fu/commit/28cd2c60f4e3c467e7a45a805810e3364c8c24ae 28cd2c60f4e3c467e7a45a805810e3364c8c24ae 2009-06-25T07:30:16-07:00 2009-06-25T07:30:16-07:00 nodoc for vizier, no_stdout, activesupport_lite d3e7bfd82aafea435eebca92ae3370c68ee2a5b4 davidlee david@davelee.com.au