class EL_GVFS_MOUNT_LIST_COMMAND

(source code)

description

Parse mount uri's from result of command:

gvfs-mount --list

notes

GVFS stands for GIO virtual file system

Example Data:

Drive(1): OCZ-VERTEX3
   Type: GProxyDrive (GProxyVolumeMonitorUDisks2)
   Volume(0): Development
      Type: GProxyVolume (GProxyVolumeMonitorUDisks2)
      Mount(0): Development -> file:///home/finnian/dev
         Type: GProxyMount (GProxyVolumeMonitorUDisks2)
Volume(0): SAMSUNG Android
   Type: GProxyVolume (GProxyVolumeMonitorMTP)
   Mount(0): SAMSUNG Android -> mtp://[usb:003,008]/
      Type: GProxyShadowMount (GProxyVolumeMonitorMTP)
note
	description: "[
		Parse mount uri's from result of command:
		
			gvfs-mount --list

	]"
	notes: "See end of class"

	author: "Finnian Reilly"
	copyright: "Copyright (c) 2001-2022 Finnian Reilly"
	contact: "finnian at eiffel hyphen loop dot com"

	license: "MIT license (See: en.wikipedia.org/wiki/MIT_License)"
	date: "2024-09-10 8:51:59 GMT (Tuesday 10th September 2024)"
	revision: "23"

class
	EL_GVFS_MOUNT_LIST_COMMAND

inherit
	EL_GVFS_OS_COMMAND
		rename
			find_line as find_volume
		export
			{NONE} all
			{ANY} execute
		redefine
			default_template, make_default, find_volume, reset
		end

	EL_MODULE_TUPLE

create
	make

feature {NONE} -- Initialization

	make_default
		do
		--	`uri_table' created reflectively
			left_adjusted := True
			Precursor
		end

feature -- Access

	uri_table: EL_ZSTRING_HASH_TABLE [EL_URI]

feature {NONE} -- Line states

	find_mount (line, volume: ZSTRING; indent: INTEGER)
		local
			f: EL_COLON_FIELD_ROUTINES; split_list: EL_SPLIT_ZSTRING_LIST
		do
			if line_indent <= indent then
				state := agent find_volume
				find_volume (line)

			elseif line.starts_with (Text.mount) then
				create split_list.make_by_string (f.value (line), Text.map_arrow)
				if split_list.count = 2 then
					if split_list.first_item ~ volume then
						uri_table [volume] := split_list.last_item.to_latin_1
					end
				end
				state := agent find_volume
			end
		end

	find_volume (line: ZSTRING)
		local
			f: EL_COLON_FIELD_ROUTINES
		do
			if line.starts_with (Text.volume) then
				state := agent find_mount (?, f.value (line), line_indent)
			end
		end

feature {NONE} -- Implementation

	reset
		do
			Precursor
			uri_table.wipe_out
		end

	line_indent: INTEGER
		do
			Result := left_count // 2
		end

feature {NONE} -- Constants

	Default_template: STRING = "gvfs-mount --list"

	Text: TUPLE [map_arrow, mount, volume: ZSTRING]
		once
			create Result
			Tuple.fill_adjusted (Result, " -> ,Mount(,Volume(", False)
		end

note
	notes: "[
		GVFS stands for [https://www.commandlinux.com/man-page/man7/gvfs.7.html GIO virtual file system]

		Example Data:

			Drive(1): OCZ-VERTEX3
				Type: GProxyDrive (GProxyVolumeMonitorUDisks2)
				Volume(0): Development
					Type: GProxyVolume (GProxyVolumeMonitorUDisks2)
					Mount(0): Development -> file:///home/finnian/dev
						Type: GProxyMount (GProxyVolumeMonitorUDisks2)
			Volume(0): SAMSUNG Android
				Type: GProxyVolume (GProxyVolumeMonitorMTP)
				Mount(0): SAMSUNG Android -> mtp://[usb:003,008]/
					Type: GProxyShadowMount (GProxyVolumeMonitorMTP)
	]"

end