libpath-ruby 0.2.2 → 0.2.2.2

data/lib/libpath/form/windows.rb

@@ -1,16 +1,17 @@
 
 # ######################################################################## #
-# File:         libpath/form/windows.rb
+# File:     libpath/form/windows.rb
 #
-# Purpose:      LibPath::Form::Windows module
+# Purpose:  LibPath::Form::Windows module
 #
-# Created:      8th January 2019
-# Updated:      16th April 2019
+# Created:  8th January 2019
+# Updated:  7th April 2024
 #
-# Home:         http://github.com/synesissoftware/libpath.Ruby
+# Home:     http://github.com/synesissoftware/libpath.Ruby
 #
-# Author:       Matthew Wilson
+# Author:   Matthew Wilson
 #
+# Copyright (c) 2019-2024, Matthew Wilson and Synesis Information Systems
 # Copyright (c) 2019, Matthew Wilson and Synesis Software
 # All rights reserved.
 #
@@ -44,7 +45,6 @@
 # ######################################################################## #
 
 
-
 =begin
 =end
 
@@ -53,306 +53,320 @@ require 'libpath/diagnostics'
 require 'libpath/internal_/windows/drive'
 require 'libpath/internal_/windows/form'
 
-module LibPath # :nodoc:
-module Form # :nodoc:
-module Windows # :nodoc:
 
-# Module defining instance functions that will be included and extended into
-# any class or module including/extending module LibPath::Form::Windows
-module LibPath_Form_Windows_Methods
+module LibPath
+module Form
+module Windows
+
+  # Module defining instance functions that will be included and extended into
+  # any class or module including/extending module LibPath::Form::Windows
+  module LibPath_Form_Windows_Methods
+
+    # Classifies a path
+    #
+    # === Return
+    #
+    # One of +:absolute+, +:drived+, +:homed+, +:relative+, +:rooted+, for
+    # any paths that match precisely those classifications, or +nil+ if the
+    # path is empty
+    def classify_path path
+
+      _Form = Internal_::Windows::Form
+
+      Diagnostics.check_string_parameter(path, "path") if $DEBUG
 
-	# Classifies a path
-	#
-	# === Return
-	#
-	# One of +:absolute+, +:drived+, +:homed+, +:relative+, +:rooted+, for
-	# any paths that match precisely those classifications, or +nil+ if the
-	# path is empty
-	def classify_path path
+      return nil if path.nil? || path.empty?
 
-		Diagnostics.check_string_parameter(path, "path") if $DEBUG
+      return :homed if path_is_homed? path
 
-		return nil if path.nil? || path.empty?
+      vol, rem, _ = _Form.get_windows_volume(path)
 
-		return :homed if path_is_homed? path
+      rooted = _Form.char_is_path_name_separator? rem[0]
 
-		vol, rem, _ = Internal_::Windows::Form.get_windows_volume(path)
+      if rooted
 
-		rooted	=	Internal_::Windows::Form.char_is_path_name_separator? rem[0]
+        if vol
 
-		if rooted
+          return :absolute
+        else
 
-			if vol
+          return :rooted
+        end
+      else
 
-				return :absolute
-			else
+        if vol
 
-				return :rooted
-			end
-		else
+          return :drived
+        else
 
-			if vol
+          return :relative
+        end
+      end
 
-				return :drived
-			else
+    end
 
-				return :relative
-			end
-		end
+    # Evaluates whether the given name is malformed, according to the given
+    # options.
+    #
+    # If no options are specified, the only invalid character(s) are: +'\0'+
+    #
+    # === Signature
+    #
+    # * *Options:*
+    #  - +:reject_path_name_separators+:: (boolean) Reject the path
+    #     separator character(s): +'\\'+ and +'/'+
+    #  - +:reject_path_separators+:: (boolean) Reject the path separator
+    #     character(s): +';'+
+    #  - +:reject_shell_characters+:: (boolean) Reject the shell
+    #     character(s): +'*'+, +'?'+, +'|'+
+    def name_is_malformed? name, **options
 
-	end
+      _Constants = ::LibPath::Constants::Windows
 
-	# Evaluates whether the given name is malformed, according to the given
-	# options.
-	#
-	# If no options are specified, the only invalid character(s) are: +'\0'+
-	#
-	# === Signature
-	#
-	# * *Options:*
-	#  - +:reject_path_name_separators+:: (boolean) Reject the path
-	#     separator character(s): +'\\'+ and +'/'+
-	#  - +:reject_path_separators+:: (boolean) Reject the path separator
-	#     character(s): +';'+
-	#  - +:reject_shell_characters+:: (boolean) Reject the shell
-	#     character(s): +'*'+, +'?'+, +'|'+
-	def name_is_malformed? name, **options
+      if name
 
-		_Constants	=	::LibPath::Constants::Windows
+        if options[:reject_shell_characters]
 
-		if name
+          return true if name =~ _Constants::InvalidCharacters::Shell::RE
+        end
 
-			if options[:reject_shell_characters]
+        if options[:reject_path_separators]
 
-				return true if name =~ _Constants::InvalidCharacters::Shell::RE
-			end
+          return true if name =~ _Constants::InvalidCharacters::PathSeparators::RE
+        end
 
-			if options[:reject_path_separators]
+        if options[:reject_path_name_separators]
 
-				return true if name =~ _Constants::InvalidCharacters::PathSeparators::RE
-			end
+          return true if name =~ _Constants::InvalidCharacters::PathNameSeparators::RE
+        end
 
-			if options[:reject_path_name_separators]
+        return true if name =~ _Constants::InvalidCharacters::Innate::RE
 
-				return true if name =~ _Constants::InvalidCharacters::PathNameSeparators::RE
-			end
+        if '\\' == name[0] && '\\' == name[1]
 
-			return true if name =~ _Constants::InvalidCharacters::Innate::RE
+          return true if name !~ /^\\\\[^\\]+\\[^\\]+/
+        end
 
-			if '\\' == name[0] && '\\' == name[1]
+        false
+      else
 
-				return true if name !~ /^\\\\[^\\]+\\[^\\]+/
-			end
+        true
+      end
+    end
 
-			false
-		else
+    # Evaluates whether the given path is absolute, which means it is either
+    # rooted (begins with '/') or is homed (is '~' or begins with '~/')
+    #
+    # === Signature
+    #
+    # * *Parameters:*
+    #   - +path+:: (String) The path to be evaluated. May not be +nil+
+    def path_is_absolute? path
 
-			true
-		end
-	end
+      _Form = Internal_::Windows::Form
 
-	# Evaluates whether the given path is absolute, which means it is either
-	# rooted (begins with '/') or is homed (is '~' or begins with '~/')
-	#
-	# === Signature
-	#
-	# * *Parameters:*
-	#   - +path+:: (String) The path to be evaluated. May not be +nil+
-	def path_is_absolute? path
+      Diagnostics.check_string_parameter(path, "path") if $DEBUG
 
-		Diagnostics.check_string_parameter(path, "path") if $DEBUG
+      return true if path_is_homed? path
 
-		return true if path_is_homed? path
+      vol, rem, _ = _Form.get_windows_volume(path)
 
-		vol, rem, _ = Internal_::Windows::Form.get_windows_volume(path)
+      return false unless vol
+      return false unless rem
 
-		return false unless vol
-		return false unless rem
+      _Form.char_is_path_name_separator? rem[0]
+    end
 
-		Internal_::Windows::Form.char_is_path_name_separator? rem[0]
-	end
+    # Evaluates whether the given path is "letter drived", which means that
+    # it contains a drive specification. Given the two letter sequence 'X:'
+    # representing any ASCII letter (a-zA-Z) and a colon, this function
+    # recognises six sequences: +'X:'+, +'X:\'+, +'X:/'+, +'\\?\X:'+,
+    # +'\\?\X:\'+, +'\\?\X:/'+
+    #
+    # === Return
+    #  - +nil+:: if it is not "drived";
+    #  - 2:: it begins with the form +'X:'+
+    #  - 3:: it begins with the form +'X:\'+ or +'X:/'+
+    #  - 6:: it begins with the form +'\\?\X:'+
+    #  - 7:: it begins with the form +'\\?\X:\'+ or +'\\?\X:/'+
+    def path_is_letter_drived? path
 
-	# Evaluates whether the given path is "letter drived", which means that
-	# it contains a drive specification. Given the two letter sequence 'X:'
-	# representing any ASCII letter (a-zA-Z) and a colon, this function
-	# recognises six sequences: +'X:'+, +'X:\'+, +'X:/'+, +'\\?\X:'+,
-	# +'\\?\X:\'+, +'\\?\X:/'+
-	#
-	# === Return
-	#  - +nil+:: if it is not "drived";
-	#  - 2:: it begins with the form +'X:'+
-	#  - 3:: it begins with the form +'X:\'+ or +'X:/'+
-	#  - 6:: it begins with the form +'\\?\X:'+
-	#  - 7:: it begins with the form +'\\?\X:\'+ or +'\\?\X:/'+
-	def path_is_letter_drived? path
+      _Drive = Internal_::Windows::Drive
+      _Form = Internal_::Windows::Form
 
-		Diagnostics.check_string_parameter(path, "path") if $DEBUG
+      Diagnostics.check_string_parameter(path, "path") if $DEBUG
 
-		if path.size >= 2
+      if path.size >= 2
 
-			base_index	=	0
+        base_index = 0
 
-			if '\\' == path[0]
+        if '\\' == path[0]
 
-				if '\\' == path[1]
+          if '\\' == path[1]
 
-					if '?' == path[2]
+            if '?' == path[2]
 
-						if '\\' == path[3]
+              if '\\' == path[3]
 
-							base_index = 4
-						end
-					end
-				end
-			end
+                base_index = 4
+              end
+            end
+          end
+        end
 
-			if ':' == path[base_index + 1]
+        if ':' == path[base_index + 1]
 
-				if Internal_::Windows::Drive.character_is_drive_letter? path[base_index + 0]
+          if _Drive.character_is_drive_letter? path[base_index + 0]
 
-					if Internal_::Windows::Form.char_is_path_name_separator? path[base_index + 2]
+            if _Form.char_is_path_name_separator? path[base_index + 2]
 
-						return 4 == base_index ? 7 : 3
-					else
+              return 4 == base_index ? 7 : 3
+            else
 
-						return 4 == base_index ? 6 : 2
-					end
-				end
-			end
-		end
+              return 4 == base_index ? 6 : 2
+            end
+          end
+        end
+      end
 
-		nil
-	end
+      nil
+    end
 
-	# Evaluates whether the given path is homed, which means it is '~' or
-	# begins with '~/' or '~\'
-	#
-	# === Signature
-	#
-	# * *Parameters:*
-	#   - +path+:: (String) The path to be evaluated. May not be +nil+
-	def path_is_homed? path
+    # Evaluates whether the given path is homed, which means it is '~' or
+    # begins with '~/' or '~\'
+    #
+    # === Signature
+    #
+    # * *Parameters:*
+    #   - +path+:: (String) The path to be evaluated. May not be +nil+
+    def path_is_homed? path
 
-		Diagnostics.check_string_parameter(path, "path") if $DEBUG
+      _Form = Internal_::Windows::Form
 
-		return false unless '~' == path[0]
+      Diagnostics.check_string_parameter(path, "path") if $DEBUG
 
-		if path.size > 1
+      return false unless '~' == path[0]
 
-			return Internal_::Windows::Form.char_is_path_name_separator? path[1]
-		end
+      if path.size > 1
 
-		true
-	end
+        return _Form.char_is_path_name_separator? path[1]
+      end
 
-	# Evalutes whether the given path is rooted, which means it begins with
-	# '/'
-	#
-	# === Signature
-	#
-	# * *Parameters:*
-	#   - +path+:: (String) The path to be evaluated. May not be +nil+
-	def path_is_rooted? path
+      true
+    end
 
-		Diagnostics.check_string_parameter(path, "path") if $DEBUG
+    # Evalutes whether the given path is rooted, which means it begins with
+    # '/'
+    #
+    # === Signature
+    #
+    # * *Parameters:*
+    #   - +path+:: (String) The path to be evaluated. May not be +nil+
+    def path_is_rooted? path
 
-		case path[0]
-		when '/'
+      _Drive = Internal_::Windows::Drive
+      _Form = Internal_::Windows::Form
 
-			true
-		when '\\'
+      Diagnostics.check_string_parameter(path, "path") if $DEBUG
 
-			case path[1]
-			when '\\'
+      case path[0]
+      when '/'
 
-				vol, rem, _ = Internal_::Windows::Form.get_windows_volume(path)
+        true
+      when '\\'
 
-				return false unless vol
+        case path[1]
+        when '\\'
 
-				if rem && Internal_::Windows::Form.char_is_path_name_separator?(rem[0])
+          vol, rem, _ = _Form.get_windows_volume(path)
 
-					true
-				else
+          return false unless vol
 
-					false
-				end
-			else
+          if rem && _Form.char_is_path_name_separator?(rem[0])
 
-				true
-			end
-		else
+            true
+          else
 
-			if path.size > 2
+            false
+          end
+        else
 
-				if ':' == path[1]
+          true
+        end
+      else
 
-					if Internal_::Windows::Drive.character_is_drive_letter? path[0]
+        if path.size > 2
 
-						return Internal_::Windows::Form.char_is_path_name_separator? path[2]
-					end
-				end
-			end
+          if ':' == path[1]
 
-			false
-		end
-	end
+            if _Drive.character_is_drive_letter? path[0]
 
-	# Evalutes whether the given path is UNC
-	#
-	# === Signature
-	#
-	# * *Parameters:*
-	#   - +path+:: (String) The path to be evaluated. May not be +nil+
-	def path_is_UNC? path
+              return _Form.char_is_path_name_separator? path[2]
+            end
+          end
+        end
 
-		Diagnostics.check_string_parameter(path, "path") if $DEBUG
+        false
+      end
+    end
 
-		return false unless '\\' == path[0]
-		return false unless '\\' == path[1]
+    # Evalutes whether the given path is UNC
+    #
+    # === Signature
+    #
+    # * *Parameters:*
+    #   - +path+:: (String) The path to be evaluated. May not be +nil+
+    def path_is_UNC? path
 
-		_, _, frm = Internal_::Windows::Form.get_windows_volume(path)
+      _Form = Internal_::Windows::Form
 
-		case frm
-		when :form_2, :form_3, :form_4, :form_5, :form_6
+      Diagnostics.check_string_parameter(path, "path") if $DEBUG
 
-			true
-		else
+      return false unless '\\' == path[0]
+      return false unless '\\' == path[1]
 
-			false
-		end
-	end
+      _, _, frm = _Form.get_windows_volume(path)
 
-end # module LibPath_Form_Windows_Methods
+      case frm
+      when :form_2, :form_3, :form_4, :form_5, :form_6
 
-# @!visibility private
-def self.extended receiver # :nodoc:
+        true
+      else
 
-	receiver.class_eval do
+        false
+      end
+    end
+  end # module LibPath_Form_Windows_Methods
 
-		extend LibPath_Form_Windows_Methods
-	end
+  # @!visibility private
+  def self.extended receiver # :nodoc:
 
-	$stderr.puts "#{receiver} extended by #{LibPath_Form_Windows_Methods}" if $DEBUG
-end
+    receiver.class_eval do
 
-# @!visibility private
-def self.included receiver # :nodoc:
+      extend LibPath_Form_Windows_Methods
+    end
 
-	receiver.class_eval do
+    $stderr.puts "#{receiver} extended by #{LibPath_Form_Windows_Methods}" if $DEBUG
+  end
 
-		include LibPath_Form_Windows_Methods
-	end
+  # @!visibility private
+  def self.included receiver # :nodoc:
 
-	$stderr.puts "#{receiver} included #{LibPath_Form_Windows_Methods}" if $DEBUG
-end
+    receiver.class_eval do
 
-extend LibPath_Form_Windows_Methods
-include LibPath_Form_Windows_Methods
+      include LibPath_Form_Windows_Methods
+    end
+
+    $stderr.puts "#{receiver} included #{LibPath_Form_Windows_Methods}" if $DEBUG
+  end
+
+  extend LibPath_Form_Windows_Methods
+  include LibPath_Form_Windows_Methods
 
 end # module Windows
 end # module Form
 end # module LibPath
 
-# ############################## end of file ############################# #
 
+# ############################## end of file ############################# #
 

data/lib/libpath/form.rb

@@ -3,40 +3,39 @@ require 'libpath/internal_/platform'
 
 if ::LibPath::Internal_::Platform::Constants::PLATFORM_IS_WINDOWS then
 
-	require 'libpath/form/windows'
+  require 'libpath/form/windows'
 else
 
-	require 'libpath/form/unix'
+  require 'libpath/form/unix'
 end
 
-module LibPath # :nodoc:
-module Form # :nodoc:
+module LibPath
+module Form
 
-	if ::LibPath::Internal_::Platform::Constants::PLATFORM_IS_WINDOWS then
+  if ::LibPath::Internal_::Platform::Constants::PLATFORM_IS_WINDOWS then
 
-		extend ::LibPath::Form::Windows
-		include ::LibPath::Form::Windows
-	else
+    extend ::LibPath::Form::Windows
+    include ::LibPath::Form::Windows
+  else
 
-		extend ::LibPath::Form::Unix
-		include ::LibPath::Form::Unix
-	end
+    extend ::LibPath::Form::Unix
+    include ::LibPath::Form::Unix
+  end
 
-	# @!visibility private
-	def self.extended receiver # :nodoc:
+  # @!visibility private
+  def self.extended receiver # :nodoc:
 
-		$stderr.puts "#{receiver} extended by #{self}" if $DEBUG
-	end
+    $stderr.puts "#{receiver} extended by #{self}" if $DEBUG
+  end
 
-	# @!visibility private
-	def self.included receiver # :nodoc:
-
-		$stderr.puts "#{receiver} included #{self}" if $DEBUG
-	end
+  # @!visibility private
+  def self.included receiver # :nodoc:
 
+    $stderr.puts "#{receiver} included #{self}" if $DEBUG
+  end
 end # module Form
 end # module LibPath
 
-# ############################## end of file ############################# #
 
+# ############################## end of file ############################# #