fort 0.0.0

data/lib/fort/src/code/depended_module.rb

@@ -0,0 +1,40 @@
+module Fort
+  class Src
+    class Code
+      class DependedModule
+        require 'ruby_patch'
+        extend ::RubyPatch::AutoLoad
+
+        attr_reader :name, :intrinsic_mode
+
+        def initialize(name, intrinsic_mode = nil)
+          @name = name
+          @intrinsic_mode = if intrinsic_mode.nil?
+                              if ::Fort::INTRINSIC_MODULES.include?(name)
+                                :both
+                              else
+                                :non_intrinsic
+                              end
+                            else
+                              intrinsic_mode
+                            end
+          raise ArgumentError unless [:intrinsic, :non_intrinsic, :both].include?(@intrinsic_mode)
+        end
+
+        def ==(other)
+          self.class == other.class\
+          && @name == other.name\
+          && @intrinsic_mode == other.intrinsic_mode
+        end
+
+        def eql?(other)
+          self.class == other.class && self.hash == other.hash
+        end
+
+        def hash
+          [@name, @intrinsic_mode].hash
+        end
+      end
+    end
+  end
+end

data/lib/fort/src/code/program_unit.rb

@@ -0,0 +1,36 @@
+module Fort
+  class Src
+    class Code
+      class ProgramUnit
+        require 'ruby_patch'
+        extend ::RubyPatch::AutoLoad
+
+        attr_reader :type, :name
+        attr_accessor :deps
+
+        def initialize(name, type, deps = [])
+          raise ArgumentError unless [:program, :module].include?(type)
+
+          @name = name
+          @type = type
+          @deps = deps
+        end
+
+        def ==(other)
+          self.class == other.class\
+          && @name == other.name\
+          && @type == other.type\
+          && @deps == other.deps
+        end
+
+        def eql?(other)
+          self.class == other.class && self.hash == other.hash
+        end
+
+        def hash
+          [@name, @intrinsic_mode].hash
+        end
+      end
+    end
+  end
+end

data/lib/fort/src/code.rb

@@ -0,0 +1,105 @@
+module Fort
+  class Src
+
+    # Add Fortran source code specific utilities for String.
+    class Code < String
+      require 'pry'
+      require 'ruby_patch'
+      extend ::RubyPatch::AutoLoad
+
+      # $1: quote, $2: string, $3: comment.
+      # We don't need $2 and $3.
+      STRING_OR_COMMENT_REG = /[^"'!]*(?:(["'])(.*?)\1|(!.*?)(?:\n|\z))/mi
+
+      CONTINUATION_AMPERSAND_REG = /& *\n+ *&?/
+      ONE_LINER_REG = /;/
+
+      # $1: "program" or "module". $2: program or module name.
+      START_SECTION_REG = /\A(program|module) +([A-Za-z]\w*)\z/i
+      END_SECTION_REG = /\Aend +(program|module) +([A-Za-z]\w*)\z/i
+
+      # $1: "non_intrinsic" or "intrinsic" or nil. $2: module name.
+      USE_REG = /\Ause(?:(?: *, *((?:non_)?intrinsic) *:: *)|(?: *::)? +)([A-Za-z]\w*)/i
+
+      ParseError = Class.new(StandardError)
+
+      # @return [Array<ProgramUnit>]
+      def parse
+        mode = nil
+        name = nil
+        program_unit = nil
+        program_unit_list = []
+        clean_code.each do |line|
+          case line
+          when START_SECTION_REG
+            raise ParseError unless mode.nil? && name.nil?
+
+            mode = low_sym($1)
+            name = low_sym($2)
+            program_unit = ProgramUnit.new(name, mode)
+            next
+          when END_SECTION_REG
+            raise ParseError unless low_sym($1) == mode && low_sym($2) == name
+
+            mode = nil
+            name = nil
+            program_unit_list << program_unit
+            next
+          end
+
+          case mode
+          when :program, :module
+            next unless line =~ USE_REG
+
+            program_unit.deps << DependedModule.new(low_sym($2), if $1.nil? then nil else low_sym($1) end)
+          end
+        end
+
+        program_unit_list
+      end
+
+      def contents
+        @contents ||= parse
+      end
+
+      # @return [Array] Lines without empty lines.
+      def clean_code
+        @clean_code ||= without_comments_and_strings\
+          .without_continuation_ampersand\
+          .without_one_line_semicolon\
+          .split("\n")\
+          .map(&:strip)\
+          .delete_if(&:empty?)\
+          .map(&:downcase)
+      end
+
+      def without_comments_and_strings()
+        self.gsub(STRING_OR_COMMENT_REG) do |s|
+          if $2
+            s[STRING_OR_COMMENT_REG, 2] = ''
+          elsif $3
+            s[STRING_OR_COMMENT_REG, 3] = ''
+          else
+            raise MustNotHappen
+          end
+
+          s
+        end
+      end
+
+      def without_continuation_ampersand()
+        self.gsub(CONTINUATION_AMPERSAND_REG, '')
+      end
+
+      def without_one_line_semicolon()
+        self.gsub(ONE_LINER_REG, "\n")
+      end
+
+      private
+
+      def low_sym(str)
+        str.downcase.to_sym
+      end
+    end
+  end
+end

data/lib/fort/src.rb

@@ -0,0 +1,19 @@
+module Fort
+
+  # Handle file related informations.
+  class Src
+    require 'pathname'
+    require 'ruby_patch'
+    extend ::RubyPatch::AutoLoad
+
+    attr_reader :path
+
+    def initialize(path)
+      @path = Pathname.new(path).expand_path
+    end
+
+    def code
+      @code ||= Code.new(@path.read)
+    end
+  end
+end

data/lib/fort/type/character_type.rb

@@ -0,0 +1,28 @@
+module Fort
+  class Type
+    class CharacterType < Type
+      require 'ruby_patch'
+      extend ::RubyPatch::AutoLoad
+
+      attr_reader :sym, :len
+
+      def initialize(dim = 0, len = 1)
+        super(dim)
+        @len = len
+        len_suffix = case @len
+                     when '*'
+                       'Ast'
+                     when ':'
+                       'Colon'
+                     else
+                       @len
+                     end
+        @sym = "c#{len_suffix}"
+      end
+
+      def to_s
+        "Character(len = #{@len})"
+      end
+    end
+  end
+end

data/lib/fort/type/complex_type.rb

@@ -0,0 +1,26 @@
+module Fort
+  class Type
+    class ComplexType < Type
+      require 'ruby_patch'
+      extend ::RubyPatch::AutoLoad
+
+      KIND_SYM = {
+        32 => 'S',              # Single
+        64 => 'D',              # Double
+        128 => 'Q',             # Quad
+      }
+
+      attr_reader :sym, :kind
+
+      def initialize(dim = 0, kind = 32)
+        super(dim)
+        @kind = kind
+        @sym = "z#{KIND_SYM[@kind]}"
+      end
+
+      def to_s
+        @to_s ||= "Complex(REAL#{@kind})"
+      end
+    end
+  end
+end

data/lib/fort/type/integer_type.rb

@@ -0,0 +1,27 @@
+module Fort
+  class Type
+    class IntegerType < Type
+      require 'ruby_patch'
+      extend ::RubyPatch::AutoLoad
+
+      KIND_SYM = {
+        8 => 'Hh',              # Harf-Harf
+        16 => 'H',              # Harf
+        32 => 'S',              # Single
+        64 => 'D'               # Double
+      }
+
+      attr_reader :sym, :kind
+
+      def initialize(dim = 0, kind = 32)
+        super(dim)
+        @kind = kind
+        @sym = "i#{KIND_SYM[@kind]}"
+      end
+
+      def to_s
+        @to_s ||= "Integer(INT#{@kind})"
+      end
+    end
+  end
+end

data/lib/fort/type/logical_type.rb

@@ -0,0 +1,19 @@
+module Fort
+  class Type
+    class LogicalType < Type
+      require 'ruby_patch'
+      extend ::RubyPatch::AutoLoad
+
+      attr_reader :sym
+
+      def initialize(dim = 0)
+        super
+        @sym = 'l'
+      end
+
+      def to_s
+        "Logical"
+      end
+    end
+  end
+end

data/lib/fort/type/real_type.rb

@@ -0,0 +1,26 @@
+module Fort
+  class Type
+    class RealType < Type
+      require 'ruby_patch'
+      extend ::RubyPatch::AutoLoad
+
+      KIND_SYM = {
+        32 => 'S',              # Single
+        64 => 'D',              # Double
+        128 => 'Q',             # Quad
+      }
+
+      attr_reader :sym, :kind
+
+      def initialize(dim = 0, kind = 32)
+        super(dim)
+        @kind = kind
+        @sym = "r#{KIND_SYM[@kind]}"
+      end
+
+      def to_s
+        @to_s ||= "Real(REAL#{@kind})"
+      end
+    end
+  end
+end

data/lib/fort/type.rb

@@ -0,0 +1,30 @@
+module Fort
+  class Type
+    require 'ruby_patch'
+    extend ::RubyPatch::AutoLoad
+
+    USE_ISO_FORTRAN_ENV = "use, intrinsic:: iso_fortran_env, only: INT8, INT16, INT32, INT64, REAL32, REAL64, REAL128"
+
+    attr_reader :dim
+
+    def initialize(dim = 0)
+      @dim = dim
+    end
+
+    def colons
+      @colons ||= ([':']*@dim).join(', ')
+    end
+
+    def parenthesis
+      @parenthesis ||= if @dim >= 1
+                         "(#{self.colons})"
+                       else
+                         ''
+                       end
+    end
+
+    def suf
+      @suf ||= "_#{self.sym}_#{@dim}"
+    end
+  end
+end

data/lib/fort/version.rb

@@ -0,0 +1,3 @@
+module Fort
+  VERSION = '0.0.0'
+end

data/lib/fort.rb

@@ -0,0 +1,13 @@
+module Fort
+  require 'fort/version'
+  require 'ruby_patch'
+  extend ::RubyPatch::AutoLoad
+
+  MustNotHappen = Class.new(Exception)
+  INTRINSIC_MODULES = [
+                       :ieee_arithmetic,
+                       :ieee_exceptions,
+                       :ieee_features,
+                       :iso_c_binding,
+                       :iso_fortran_env]
+end

data/rakefile

@@ -0,0 +1,7 @@
+require 'ruby_patch'
+require 'rake/testtask'
+
+::Rake::TestTask.new do |t|
+  t.libs = ['lib', 'test'].map{|dir| File.join(__DIR__, dir)}
+  t.pattern = "test/**/test_*.rb"
+end

data/spec/fort/src/code_spec.rb

@@ -0,0 +1,167 @@
+require 'spec_helper'
+
+describe ::Fort::Src::Code do
+  describe "#contents" do
+    context 'normal case' do
+      context 'program' do
+        it do
+          ::Fort::Src::Code.new(File.read(File.join(__DIR__, 'test.f90')))\
+            .contents\
+            .should == [
+                        ::Fort::Src::Code::ProgramUnit.new(:test, :program, [
+                                                                             ::Fort::Src::Code::DependedModule.new(:mod1, :non_intrinsic),
+                                                                             ::Fort::Src::Code::DependedModule.new(:mod2, :non_intrinsic),
+                                                                             ::Fort::Src::Code::DependedModule.new(:iso_fortran_env, :both)])]
+        end
+      end
+
+      context 'module' do
+        it do
+          ::Fort::Src::Code.new(File.read(File.join(__DIR__, 'lib_test.f90')))
+            .contents\
+            .should == [
+                        ::Fort::Src::Code::ProgramUnit.new(:lib_test, :module, [
+                                                                             ::Fort::Src::Code::DependedModule.new(:mod1, :non_intrinsic),
+                                                                             ::Fort::Src::Code::DependedModule.new(:mod2, :non_intrinsic),
+                                                                             ::Fort::Src::Code::DependedModule.new(:iso_fortran_env, :non_intrinsic)])]
+        end
+      end
+    end
+
+    context 'wrong case' do
+      context 'too many start (program or module)' do
+        it do
+          lambda{::Fort::Src::Code.new(File.read(File.join(__DIR__, 'test.f90')))\
+              .sub(/none/, "none\nmodule ab").contents}.should raise_error
+        end
+      end
+
+      context 'too many end (end program or end module)' do
+        it do
+          lambda{::Fort::Src::Code.new(File.read(File.join(__DIR__, 'test.f90')))\
+              .sub(/write/, "end program ab\nwrite").contents}.should raise_error
+        end
+      end
+    end
+  end
+  
+  describe '#clean_code' do
+    it do
+      raw = File.read(File.join(__DIR__, 'test.f90'))
+      expected = File.read(File.join(__DIR__, 'test_clean_code.f90')).split("\n")
+      ::Fort::Src::Code.new(raw).clean_code.should == expected
+    end
+  end
+
+  describe '#without_continuation_ampersand' do
+    context 'simplest case' do
+      raw= <<-EOS
+abc&
+&def
+      EOS
+
+      expected = <<-EOS
+abcdef
+      EOS
+
+      it do
+        ::Fort::Src::Code.new(raw).without_continuation_ampersand.should == expected
+      end
+    end
+
+    context 'no ampersand on the top of the continuation lines' do
+      raw= <<-EOS
+abc&
+def
+      EOS
+
+      expected = <<-EOS
+abcdef
+      EOS
+
+      it do
+        ::Fort::Src::Code.new(raw).without_continuation_ampersand.should == expected
+      end
+    end
+
+    context "don't join lines if no ampersand exist at the end of the first line" do
+      raw= <<-EOS
+abc
+&def
+      EOS
+
+      expected = <<-EOS
+abc
+&def
+      EOS
+
+      it do
+        ::Fort::Src::Code.new(raw).without_continuation_ampersand.should == expected
+      end
+    end
+
+    context 'complex case' do
+      raw= <<-EOS
+A = (/ &
+     & 1, 2, 3, &
+     & 4, 5, 6, &
+     & 7, 8, 9 &
+      /)
+      EOS
+
+      expected = <<-EOS
+A = (/  1, 2, 3,  4, 5, 6,  7, 8, 9 /)
+      EOS
+
+      it do
+        ::Fort::Src::Code.new(raw).without_continuation_ampersand.should == expected
+      end
+    end
+  end
+
+  describe '#without_one_line_semicolon' do
+    context 'simplest case' do
+      raw= <<-EOS
+abc; def
+      EOS
+
+      expected = <<-EOS
+abc
+ def
+      EOS
+
+      it do
+        ::Fort::Src::Code.new(raw).without_one_line_semicolon.should == expected
+      end
+    end
+  end
+
+  describe '#without_comments_and_strings' do
+    context 'simplest case' do
+      it do
+        ::Fort::Src::Code.new("abc!def").without_comments_and_strings.should == 'abc'
+      end
+    end
+
+    context 'complex case' do
+      it do
+        raw= <<-EOS
+'d'
+abc 'def&
+  &ghij'
+ddd ! ! ddd
+ab"df'
+asd"dd
+          EOS
+
+        expected = <<-EOS
+''
+abc ''
+ddd 
+ab""dd
+        EOS
+        ::Fort::Src::Code.new(raw).without_comments_and_strings.should == expected
+      end
+    end
+  end
+end

data/spec/fort/src/lib_test.f90

@@ -0,0 +1,16 @@
+module lib_test
+  use mod1, only: func1, proc1
+  use, non_intrinsic :: mod2, only: func2, CONST1
+  use, non_intrinsic:: ISO_FORTRAN_ENV, only: OUTPUT_UNIT
+
+  implicit none
+  real:: a, b
+  integer:: c, d
+  integer, parameter:: VERSION = 1
+
+  write(0, *) "input a, b: "         ! Try to read.
+  write(6, *) "input a, b: "         ! Try to read.
+  read(5, *) a, &
+    & b
+  stop
+end module lib_test

data/spec/fort/src/test.f90

@@ -0,0 +1,16 @@
+program test
+  use mod1, only: func1, proc1
+  use, non_intrinsic :: mod2, only: func2, CONST1
+  use :: ISO_FORTRAN_ENV, only: OUTPUT_UNIT
+
+  implicit none
+  real:: a, b
+  integer:: c, d
+  integer, parameter:: VERSION = 1
+
+  write(0, *) "input a, b: "         ! Try to read.
+  write(6, *) "input a, b: "         ! Try to read.
+  read(5, *) a, &
+    & b
+  stop
+end program test

data/spec/fort/src/test_clean_code.f90

@@ -0,0 +1,13 @@
+program test
+use mod1, only: func1, proc1
+use, non_intrinsic :: mod2, only: func2, const1
+use :: iso_fortran_env, only: output_unit
+implicit none
+real:: a, b
+integer:: c, d
+integer, parameter:: version = 1
+write(0, *) ""
+write(6, *) ""
+read(5, *) a,  b
+stop
+end program test

data/test/fort/test_type.rb

@@ -0,0 +1,7 @@
+require 'helper_for_test'
+
+class TestType < ::MiniTest::Unit::TestCase
+  def test_USE_ISO_FORTRAN_ENV
+    assert(::Fort::Type::USE_ISO_FORTRAN_ENV)
+  end
+end

data/test/fort/type/test_character_type.rb

@@ -0,0 +1,27 @@
+require 'helper_for_test'
+
+class TestCharacterType < ::MiniTest::Unit::TestCase
+  def setup
+    @cAst_0 = ::Fort::Type::CharacterType.new(0, '*')
+    @cColon_1 = ::Fort::Type::CharacterType.new(1, ':')
+    @c3_2 = ::Fort::Type::CharacterType.new(2, 3)
+  end
+
+  def test_to_s
+    assert_equal(@cAst_0.to_s, "Character(len = *)")
+    assert_equal(@cColon_1.to_s, "Character(len = :)")
+    assert_equal(@c3_2.to_s, "Character(len = 3)")
+  end
+
+  def test_dim
+    assert_equal(@cAst_0.dim, 0)
+    assert_equal(@cColon_1.dim, 1)
+    assert_equal(@c3_2.dim, 2)
+  end
+
+  def test_suf
+    assert_equal(@cAst_0.suf, '_cAst_0')
+    assert_equal(@cColon_1.suf, '_cColon_1')
+    assert_equal(@c3_2.suf, '_c3_2')
+  end
+end

data/test/fort/type/test_complex_type.rb

@@ -0,0 +1,22 @@
+require 'helper_for_test'
+
+class TestComplexType < ::MiniTest::Unit::TestCase
+  def setup
+    @d_0 = ::Fort::Type::ComplexType.new(0, 64)
+    @s_2 = ::Fort::Type::ComplexType.new(2, 32)
+  end
+
+  def test_KIND_SYM
+    assert(::Fort::Type::ComplexType::KIND_SYM)
+  end
+
+  def test_to_s
+    assert_equal(@d_0.to_s, "Complex(REAL64)")
+    assert_equal(@s_2.to_s, "Complex(REAL32)")
+  end
+
+  def test_suf
+    assert_equal(@d_0.suf, "_zD_0")
+    assert_equal(@s_2.suf, "_zS_2")
+  end
+end

data/test/fort/type/test_integer_type.rb

@@ -0,0 +1,22 @@
+require 'helper_for_test'
+
+class TestIntegerType < ::MiniTest::Unit::TestCase
+  def setup
+    @d_0 = ::Fort::Type::IntegerType.new(0, 64)
+    @s_2 = ::Fort::Type::IntegerType.new(2, 32)
+  end
+
+  def test_KIND_SYM
+    assert(::Fort::Type::IntegerType::KIND_SYM)
+  end
+
+  def test_to_s
+    assert_equal(@d_0.to_s, "Integer(INT64)")
+    assert_equal(@s_2.to_s, "Integer(INT32)")
+  end
+
+  def test_suf
+    assert_equal(@d_0.suf, "_iD_0")
+    assert_equal(@s_2.suf, "_iS_2")
+  end
+end

data/test/fort/type/test_logical_type.rb

@@ -0,0 +1,18 @@
+require 'helper_for_test'
+
+class TestLogicalType < ::MiniTest::Unit::TestCase
+  def setup
+    @l0 = ::Fort::Type::LogicalType.new(0)
+    @l2 = ::Fort::Type::LogicalType.new(2)
+  end
+
+  def test_to_s
+    assert_equal(@l0.to_s, "Logical")
+    assert_equal(@l2.to_s, "Logical")
+  end
+
+  def test_suf
+    assert_equal(@l0.suf, "_l_0")
+    assert_equal(@l2.suf, "_l_2")
+  end
+end

data/test/fort/type/test_real_type.rb

@@ -0,0 +1,32 @@
+require 'helper_for_test'
+
+class TestRealType < ::MiniTest::Unit::TestCase
+  def setup
+    @d_0 = ::Fort::Type::RealType.new(0, 64)
+    @s_2 = ::Fort::Type::RealType.new(2, 32)
+  end
+
+  def test_KIND_SYM
+    assert(::Fort::Type::RealType::KIND_SYM)
+  end
+
+  def test_to_s
+    assert_equal(@d_0.to_s, "Real(REAL64)")
+    assert_equal(@s_2.to_s, "Real(REAL32)")
+  end
+
+  def test_dim
+    assert_equal(@d_0.dim, 0)
+    assert_equal(@s_2.dim, 2)
+  end
+
+  def test_suf
+    assert_equal(@d_0.suf, "_rD_0")
+    assert_equal(@s_2.suf, "_rS_2")
+  end
+
+  def test_parenthesis
+    assert_equal(@d_0.parenthesis, "")
+    assert_equal(@s_2.parenthesis, "(:, :)")
+  end
+end

data/test/helper_for_test.rb

@@ -0,0 +1,3 @@
+require 'minitest/autorun'
+
+require 'fort'

data/test/test_fort.rb

@@ -0,0 +1,7 @@
+require 'helper_for_test'
+
+class TestFort < ::MiniTest::Unit::TestCase
+  def test_VERSION
+    assert(::Fort::VERSION)
+  end
+end

metadata

@@ -0,0 +1,99 @@
+--- !ruby/object:Gem::Specification
+name: fort
+version: !ruby/object:Gem::Version
+  version: 0.0.0
+  prerelease: 
+platform: ruby
+authors:
+- kshramt
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2012-08-10 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: ruby_patch
+  requirement: &79800780 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '1.1'
+  type: :runtime
+  prerelease: false
+  version_requirements: *79800780
+- !ruby/object:Gem::Dependency
+  name: pry
+  requirement: &79800210 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '0.9'
+  type: :development
+  prerelease: false
+  version_requirements: *79800210
+description: Ruby library for Fortran 90 and newer.
+email: 
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- lib/fort.rb
+- lib/fort/src.rb
+- lib/fort/src/code.rb
+- lib/fort/src/code/depended_module.rb
+- lib/fort/src/code/program_unit.rb
+- lib/fort/type.rb
+- lib/fort/type/character_type.rb
+- lib/fort/type/complex_type.rb
+- lib/fort/type/integer_type.rb
+- lib/fort/type/logical_type.rb
+- lib/fort/type/real_type.rb
+- lib/fort/version.rb
+- rakefile
+- spec/fort/src/code_spec.rb
+- spec/fort/src/lib_test.f90
+- spec/fort/src/test.f90
+- spec/fort/src/test_clean_code.f90
+- test/fort/test_type.rb
+- test/fort/type/test_character_type.rb
+- test/fort/type/test_complex_type.rb
+- test/fort/type/test_integer_type.rb
+- test/fort/type/test_logical_type.rb
+- test/fort/type/test_real_type.rb
+- test/helper_for_test.rb
+- test/test_fort.rb
+homepage: 
+licenses: []
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ~>
+    - !ruby/object:Gem::Version
+      version: '1.9'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.8.11
+signing_key: 
+specification_version: 3
+summary: Library for Fortran 90 and newer.
+test_files:
+- test/fort/test_type.rb
+- test/fort/type/test_character_type.rb
+- test/fort/type/test_complex_type.rb
+- test/fort/type/test_integer_type.rb
+- test/fort/type/test_logical_type.rb
+- test/fort/type/test_real_type.rb
+- test/test_fort.rb
+has_rdoc: