ctioga 1.11.1

data/lib/MetaBuilder/Parameters/dates.rb

@@ -0,0 +1,38 @@
+# numbers.rb : Different ParameterTypes to deal with numbers
+# Copyright (C) 2006 Vincent Fourmond
+# 
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
+
+require 'time'
+
+module MetaBuilder
+
+  # The module ParameterTypes should be used for all subclasses of
+  # ParameterType, to keep the place clean and tidy.
+  module ParameterTypes
+
+    # A combination date/time
+    class DateTimeParameter < ParameterType
+
+      type_name :date_time, 'date', Time.new
+
+      def string_to_type_internal(str)
+        return Time.parse(str)
+      end
+
+    end
+  end
+
+end

data/lib/MetaBuilder/Parameters/lists.rb

@@ -0,0 +1,132 @@
+# lists.rb : Different ParameterTypes to deal with types where
+# you can choose among several possibilities
+# Copyright (C) 2006 Vincent Fourmond
+# 
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
+
+
+module MetaBuilder
+
+  # The module ParameterTypes should be used for all subclasses of
+  # ParameterType, to keep the place clean and tidy.
+  module ParameterTypes
+
+    # A regular expression matching true
+    TRUE_RE = /^\s*(true|yes|on)\s*$/i
+
+    # A regular expression matching false
+    FALSE_RE = /^\s*(false|no(ne)?|off)\s*$/i
+
+
+    # A boolean parameter
+    class BooleanParameter < ParameterType
+
+      type_name :boolean
+      
+      def type_name
+        return 'bool'
+      end
+      
+      def string_to_type_internal(str)
+        if str == true or str =~ TRUE_RE
+          return true
+        else
+          return false
+        end
+      end
+
+      def type_to_string_internal(val)
+        if val
+          return "true"
+        else
+          return "false"
+        end
+      end
+
+      # Booleans are a special case for option parser, as they
+      # are handled completely differently
+      def option_parser_long_option(name)
+        return "--[no-]#{name}"
+      end
+    end
+
+    # A list of symbols. A hash :list must be provided that states
+    # the correspondance between the legal symbols that can be
+    # accepted by this parameter and their "english" name.
+    # This parameter can typically be used to prompt the user
+    # for different choices.
+    class ListParameter < ParameterType
+
+      type_name :list
+
+      def initialize(type)
+        super
+        raise "type must have a :list key" unless type.has_key?(:list)
+        # We make a copy for our own purposes.
+        @hash = type[:list].dup
+      end
+      
+      def type_name
+        return 'list'
+      end
+      
+      def string_to_type_internal(str)
+        if @hash.has_key?(str.to_sym)
+          return str.to_sym
+        else
+          raise IncorrectInput, "Invalid input: #{str} should be one of " +
+            @hash.keys.map {|s| s.to_s}.join(',')
+        end
+      end
+
+      def type_to_string_internal(val)
+        return val.to_s
+      end
+    end
+
+    # An array of identical elements of type specified by :subtype. Defaults
+    # to String
+    class ArrayParameter < ParameterType
+      type_name :array
+
+      def initialize(type)
+        super
+        # We make a copy for our own purposes.
+        subtype = type[:subtype] || {:type => :string}
+        @subtype = ParameterType.get_type(subtype)
+        @separator = /\s*,\s*/
+        @separator_out = ','
+      end
+
+      def type_name
+        return 'array'
+      end
+
+      def string_to_type_internal(str)
+        ary = str.split(@separator)
+        return ary.map do |a|
+          @subtype.string_to_type(a)
+        end
+      end
+
+      def type_to_string_internal(val)
+        return val.map do |a|
+          @subtype.type_to_string(a)
+        end.join(@separator_out)
+      end
+    end
+
+  end
+end

data/lib/MetaBuilder/Parameters/numbers.rb

@@ -0,0 +1,69 @@
+# numbers.rb : Different ParameterTypes to deal with numbers
+# Copyright (C) 2006 Vincent Fourmond
+# 
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
+
+
+module MetaBuilder
+
+  # The module ParameterTypes should be used for all subclasses of
+  # ParameterType, to keep the place clean and tidy.
+  module ParameterTypes
+
+    # An integer
+    class IntegerParameter < ParameterType
+
+      type_name :integer, 'number', 0
+
+      def string_to_type_internal(str)
+        return Integer(str)
+      end
+
+    end
+
+    # A float
+    class FloatParameter < ParameterType
+
+      type_name :float, 'number', 0.0
+
+      def string_to_type_internal(str)
+        return Float(str)
+      end
+
+    end
+
+    # A Float Range
+    class FloatRangeParameter < ParameterType
+
+      RANGE_RE = /([^:]+):([^:]+)/
+
+      type_name :float_range, 'range'
+      
+      def string_to_type_internal(str)
+        raise IncorrectInput, "#{str} is not a valid range" unless 
+          str =~ RANGE_RE
+        s,e = Float($1), Float($2)
+        return Range.new(s,e)
+      end
+
+      def type_to_string_internal(value)
+        return "#{value.first.to_s}:#{value.last.to_s}"
+      end
+      
+    end
+
+  end
+
+end

data/lib/MetaBuilder/Parameters/strings.rb

@@ -0,0 +1,86 @@
+# strings.rb : Different ParameterTypes to deal with strings
+# Copyright (C) 2006 Vincent Fourmond
+# 
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
+
+
+module MetaBuilder
+
+  # The module ParameterTypes should be used for all subclasses of
+  # ParameterType, to keep the place clean and tidy.
+  module ParameterTypes
+
+    # A String
+    class StringParameter < ParameterType
+
+      type_name :string
+      
+      def type_name
+        return 'text'
+      end
+      
+      def string_to_type(str)
+        return str
+      end
+    end
+
+    # A piece of text representing the path to a file.
+    class FileParameter < StringParameter
+
+      type_name :file
+      
+      # The file filters, Qt style.
+      attr_reader :filter
+
+      def initialize(type)
+        super(type)
+        @filter = type[:filter]
+      end
+
+      def type_name
+        return 'file'
+      end
+
+    end
+
+    # A String or a regular expression
+    class StringOrRegexpParameter < ParameterType
+
+      type_name :string_or_regexp
+      
+      def type_name
+        return 'regexp'
+      end
+      
+      def string_to_type(str)
+        if str =~ /^\/(.*)\/$/
+          return Regexp.new($1)
+        else
+          return str
+        end
+      end
+
+      def type_to_string(val)
+        if val.is_a? String
+          return val
+        else
+          return "/#{val}/"
+        end
+      end
+
+    end
+
+  end
+end

data/lib/MetaBuilder/Parameters/styles.rb

@@ -0,0 +1,75 @@
+# strings.rb : Different ParameterTypes to deal with different styles items,
+# such as colors, line types, fonts ???
+# Copyright (C) 2006 Vincent Fourmond
+# 
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
+
+
+module MetaBuilder
+
+  # The module ParameterTypes should be used for all subclasses of
+  # ParameterType, to keep the place clean and tidy.
+  module ParameterTypes
+
+    # A HTML color: the value is returned in the form of an array
+    # of three integers between 0 and 255. Strings can be in the form
+    # of a standard HTML color like #FF0000 for red, or it can be a
+    # name corresponding to a constant in one of the modules given
+    # in the :namespaces array.
+    class HTMLColorParameter < ParameterType
+
+      type_name :html_color, 'color'
+      
+      def string_to_type_internal(str)
+        if str =~ /#([0-9a-fA-F]{6})/
+          return $1.scan(/../).map {|i| i.to_i(16)}
+        elsif @type.has_key?(:namespaces) 
+          for mod in @type[:namespaces]
+            if mod.const_defined?(str)
+              return normalize(mod.const_get(str))
+            end
+          end
+        else
+          raise IncorrectInput, "#{str} is not a valid color"
+        end
+      end
+
+      def type_to_string_internal(color)
+        return "##{color.map {|i| sprintf("%02x",i)}.join}"
+      end
+
+      private
+      # Returns a normalized color, that is, if everything is below or equal
+      # to 1.0, multiply by 255 -- and always convert to int.
+      def normalize(ar)
+        if ar.max <= 1.0
+          ret = ar.map {|c| c * 255.0}
+        else
+          ret = ar.dup
+        end
+        ret.map! {|i| i.to_i}
+        return ret
+      end
+    end
+
+    # A set of margins - that is, four floats representing left top
+    # right bottom coordinates.
+    class MarginsParameter < ParameterType
+
+      type_name :margins, 'margins'
+    end
+
+  end
+end

data/lib/MetaBuilder/Qt4/Parameters/dates.rb

@@ -0,0 +1,51 @@
+# numbers.rb : Different ParameterTypes to deal with numbers
+# Copyright (C) 2006 Vincent Fourmond
+# 
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
+
+require 'time'
+
+module MetaBuilder
+
+  # The module ParameterTypes should be used for all subclasses of
+  # ParameterType, to keep the place clean and tidy.
+  module ParameterTypes
+
+    # A combination date/time
+    class DateTimeParameter < ParameterType
+
+
+      # Converts a Time to a Variant.
+      def type_to_variant(val)
+        if val.is_a? Qt::DateTime
+          return Qt::Variant.new(val)
+        else
+          epoch = Qt::Date.new(1970, 1, 1)
+          date = Qt::DateTime.new(epoch)
+          return Qt::Variant.new(date.add_secs(val.to_i))
+        end
+      end
+
+      # Converts back to Time
+      def variant_to_type(variant)
+        epoch = Qt::DateTime.new(Qt::Date.new(1970, 1, 1))
+        nb = epoch.secs_to(variant.value)
+        return Time.at(nb)
+      end
+
+    end
+  end
+
+end